Cross Segmento - Backoffice Linha Protheus - ADVPL - Exemplo da rotina automática FINA050

#Include "protheus.ch"
#Include "parmtype.ch"
#Include "tbiconn.ch"

USER FUNCTION FIN050EXC()
    
LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"

aArray := {{ "E2_PREFIXO" , "" , NIL },;
           { "E2_NUM" , "000000035" , NIL },;
           { "E2_TIPO" , "BOL" , NIL },;
           { "E2_NATUREZ" , "0000000001" , NIL },;
           { "E2_FORNECE" , "FOR001" , NIL },;
           { "E2_EMISSAO" , CtoD("30/01/2019"), NIL },;
           { "E2_VENCTO" , CtoD("30/01/2019"), NIL },;
           { "E2_VENCREA" , CtoD("30/01/2019"), NIL },;
           { "E2_VALOR" , 250 , NIL },;
         
MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão

If lMsErroAuto
   MostraErro()
     ConOut(Repl("-", 80))
     ConOut(PadC("Teste FINA050 finalizado com erro!", 80))
     ConOut(PadC("Fim: "+Time(), 80))
     ConOut(Repl("-", 80))
Else
     ConOut(Repl("-", 80))
     ConOut(PadC("Teste FINA050 finalizado com sucesso!", 80))
     ConOut(PadC("Fim: "+Time(), 80))
     ConOut(Repl("-", 80))
EndIf

RESET ENVIRONMENT

Return