Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

NomeTipoDescrição
lRetornoLógicoValor lógico que indica se o processamento foi realizado com sucesso



Exemplo

Bloco de código
User Function MyOMSA010()


Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local nY := 0
Local lOk := .T.
PRIVATE lMsErroAuto := .F.

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Abertura do ambiente |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

ConOut(Repl("-",80))

ConOut(PadC("Teste de Inclusao de 1 tabela de preco",80))

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT"

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Verificacao do ambiente para teste |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

dbSelectArea("SB1")
dbSetOrder(1)
If !SB1->(MsSeek(xFilial("SB1")+"PA001"))
    lOk := .F.
    ConOut("Cadastrar produto: PA001")
EndIf

If !SB1->(MsSeek(xFilial("SB1")+"PA002"))
    lOk := .F.
    ConOut("Cadastrar produto: PA002")
EndIf

If lOk
    ConOut("Inicio: "+Time())
    For nY := 1 To 1
        aCabec := {}
        aItens := {}
        aadd(aCabec,{"DA0_DESCRI" ,"TESTE DE TABELA",Nil})
        //aadd(aCabec,{"DA0_CONDPG" ,"001",Nil})
        aLinha := {}
        aadd(aLinha,{"DA1_ITEM","0001"})
        aadd(aLinha,{"DA1_CODPRO","PA001"})
        aadd(aLinha,{"DA1_PRCVEN",10,Nil})          
        aadd(aItens,aLinha)
        aLinha := {}
        aadd(aLinha,{"DA1_ITEM","0002"})
        aadd(aLinha,{"DA1_CODPRO","PA002"})
        aadd(aLinha,{"DA1_PRCVEN",10,Nil})          
        aadd(aItens,aLinha)

        //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
        //| Teste de Inclusao |
        //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

        aRotina := MenuDef()

        FWMVCRotAuto(ModelDef(),"DA0",3,{{"OMSA010_DA0",aCabec},{"OMSA010_DA1",aItens}})

        If !lMsErroAuto
            ConOut("Incluido com sucesso! ")
        Else
            ConOut("Erro na inclusao!")
        EndIf
    Next nY
    ConOut("Fim : "+Time())

    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
    //| Teste de alteracao |
    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

    aCabec := {}
    aItens := {}
    For nY := 1 To 1
        aCabec := {}
        aItens := {}
        aadd(aCabec,{"DA0_CODTAB" ,DA0->DA0_CODTAB,Nil})
        aadd(aCabec,{"DA0_DESCRI" ,"TESTE DE TABELA",Nil})
        //aadd(aCabec,{"DA0_CONDPG" ,"001",Nil})
        aLinha := {}
        aadd(aLinha,{"LINPOS","DA1_ITEM","0001"})
        aadd(aLinha,{"AUTDELETA","N",Nil})
        aadd(aLinha,{"DA1_CODPRO","PA001"})
        aadd(aLinha,{"DA1_PRCVEN",11,Nil})          
        aadd(aItens,aLinha)
        aLinha := {}
        aadd(aLinha,{"LINPOS","DA1_ITEM","0002"})
        aadd(aLinha,{"AUTDELETA","N",Nil})              
        aadd(aLinha,{"DA1_CODPRO","PA002"})
        aadd(aLinha,{"DA1_PRCVEN",11,Nil})          
        aadd(aItens,aLinha)
    Next nY
    ConOut(PadC("Teste de alteracao",80))
    ConOut("Inicio: "+Time())

    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
    //| Teste de alteracao |
    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

    aRotina := MenuDef()
    FWMVCRotAuto(ModelDef(),"DA0",4,{{"OMSA010_DA0",aCabec},{"OMSA010_DA1",aItens}})
    ConOut("Fim : "+Time())
    ConOut(Repl("-",80))

    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
    //| Teste de Exclusao |
    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

    ConOut(PadC("Teste de exclusao",80))
    ConOut("Inicio: "+Time())
    aRotina := MenuDef()
    FWMVCRotAuto(ModelDef(),"DA0",5,{{"OMSA010_DA0",aCabec},{"OMSA010_DA1",aItens}})

    If !lMsErroAuto
        ConOut("Exclusao com sucesso! "+DA0->DA0_CODTAB)
    Else
        ConOut("Erro na exclusao!")
    EndIf

    ConOut("Fim : "+Time())
    ConOut(Repl("-",80))    
EndIf

RESET ENVIRONMENT

Return(.T.)