#include 'protheus.ch'
#include 'parmtype.ch'

//U_zPedMd2()
user function zPedMd2()
    Private cCadastro := "Pedido Exemplo MD2"
    Private aRotina :={}

    AADD(aRotina, {"Incluir", "U_zInser", 0, 3})
    AADD(aRotina, {"Visualizar", "U_zInser", 0, 1})
    AADD(aRotina, {"Alterar", "U_zInser", 0, 2})
    AADD(aRotina, {"Exluir", "U_zInser", 0, 4})

    DbSelectArea("ZZE")
    DbSetOrder(1)
    mBrowse( 6,1,22,75,"ZZE" ,,,,,6)

return

user function zInser()

    Local aHeader := {}
    Local acols := {}
    Local aPos := {000,000,080,400}
    Local nModelo := 2
    Local lF3 := .F.
    Local lMemoria := .T.
    Local lColumn := .F.
    Local caTela := ""
    Local lNoFolder := .F.
    Local lProperty := .F.
    Local nSuperior := 081
    Local nEsquerda := 000
    Local nInferior := 250
    Local nDireita := 400
    Local cLinOk := "AllwaysTrue"
    Local cTudoOk := "AllwaysTrue"
    Local nFreeze := 000
    Local nMax := 999
    Local cFieldOk := "AllwaysTrue"
    Local cSuperDel := ""
    Local cDelOk := "AllwaysFalse"
    Local aAlterEnch := {}
    Private nUsando := 0
    Private aCpoEnch := {}
    Private oEnch
    Private oDlg
    Private nOpc := 3
    dbSelectArea("SX3")
    dbSetOrder(1)
    dbSeek("ZZE")

    While !EOF() .And. (SX3->X3_ARQUIVO == "ZZE")
        If !(AllTrim(SX3->X3_CAMPO) $ "ZE_FILIAL") .And. cNivel >= SX3->X3_NIVEL  .And. X3Uso(SX3->X3_USADO)
            AADD(aCpoEnch, SX3->X3_CAMPO)
        EndIf
        dbSkip()
    End

    aAlterEnch := aClone(aCpoEnch)

    dbSelectArea("SX3")
    dbSetOrder(1)
    dbSeek("ZZE")

    While !EOF() .and. (SX3->X3_ARQUIVO == "ZZE")
        If cNivel >= SX3->X3_NIVEL .And. X3Uso(SX3->X3_USADO)
            nUsando := nUsando + 1
            AADD(aHeader,{ TRIM(x3_titulo), x3_campo, x3_picture,x3_tamanho,;
            x3_decimal, "AllwaysTrue()" , x3_usado, x3_tipo, x3_arquivo, x3_context } )
        EndIf
        dbSkip()
    End

    oDlg := MSDIALOG():New(000,000,500,800, cCadastro,,,,,,,,,.T.)
    RegToMemory("ZZE", If(nOpc==3,.T.,.F.))

    oEnch := MsMGet():New("ZZE", ,nOpc,/*aCRA*/,/*cLetra*/,/*cTexto*/,;
    aCpoEnch,aPos,aAlterEnch, nModelo, /*nColMens*/, /*cMensagem*/,;
    /*cTudoOk*/, oDlg,lF3, lMemoria,lColumn,caTela,lNoFolder,;
    lProperty)
    oDlg:bInit := {|| EnchoiceBar(oDlg, {|| U_OpSist2(), oDlg:End()},{||oDlg:End()},,)}
    oDlg:lCentered := .T.
    oDlg:Activate()

return

User Function OpSist2()
    alert("teste")
return