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 | 