Exemplo de chamada da execauto:
#Include "TOTVS.ch" #Include "TBICONN.ch" User Function TSTCSAA100() Local nOpr := 4 Local aHeader := {} Local aArea := {} Private lMsErroAuto := .F. Private lMsHelpAuto := .T.
aArea := GetArea()
AAdd(aHeader, {"QB_FILIAL" , "D MG " , NIL}) AAdd(aHeader, {"QB_DEPTO" , "000000003", NIL}) AAdd(aHeader, {"QB_DESCRIC", "DESCRIÇÃO ALTERADA COM SUCESSO" , NIL}) MsExecAuto({|w, x, y, z| CSAA100(w, x, y, z)}, NIL, NIL, aHeader, nOpr)
If (lMsErroAuto == .T.) MostraErro() ConOut(Repl("-", 80)) ConOut(PadC("CSAA100 - Execauto finalizada com erros", 80)) ConOut(PadC("Termino: " + Time(), 80)) ConOut(Repl("-", 80)) Else ConOut(Repl("-", 80)) ConOut(PadC("CSAA100 - Execauto finalizada com sucesso", 80)) ConOut(PadC("Termino: " + Time(), 80)) ConOut(Repl("-", 80)) EndIf RestArea(aArea) Return |