Rotina de Baixas a Pagar Automática através de ExecAutoPessoalSegue um exemplo de como utilizar a baixa automática através de execauto. Este é um tópico que gera muita dúvida no nosso atendimento. Abaixo segue um exemplo de como implementar de forma rápida.Deve ser passado um array (aTitulos), com oito posições, sendo que cada posição deverá conter a seguinte composição:Composição de aTitulosaTitulos [1]:= aRecnos   (array contendo os Recnos dos registros a serem baixados)aTitulos [2]:= cBanco     (Banco da baixa)aTitulos [3]:= cAgencia   (Agência da baixa)aTitulos [4]:= cConta     (Conta da baixa)aTitulos [5]:= cCheque   (Cheque da Baixa)aTitulos [6]:= cLoteFin    (Lote Financeiro da baixa)aTitulos [7]:= cNatureza (Natureza do movimento bancário)aTitulos [8]:= dBaixa     (Data da baixa) Caso a contabilização seja online e a tela de contabilização possa ser mostrada em caso de erro no lançamento (falta de conta, débito/crédito não batem, etc) a baixa automática em lote não poderá ser utilizada. Somente será processada se:MV_PRELAN = SMV_CT105MS = NMV_ALTLCTO = N Exemplo da chamada da ExecAuto: User Function TST090AUTO()Local aTitulos := Array(8)

Private lMsErroAuto := .F.

aTitulos[1]:= {3,4,5}aTitulos[2]:= "000"aTitulos[3]:= "00000"aTitulos[4]:= "0000000000"aTitulos[5]:= "001"aTitulos[6]:= "1"aTitulos[7]:= "1"aTitulos[8]:= dDataBase

MSExecAuto({|x,y| Fina090(x,y)},3,aTitulos)  

If lMsErroAutoMostraErro()Endif       

Return Nil