TOTVS DevForum - Moderar question

Problema com MsExecAuto FINA080

Pessoal, bom dia.

Estou construindo uma rotina que preciso colocar CMAB de Retorno do Banco e percorrer as linhas e enviar as informações para MsExecAuto (FINA080) e realizar a baixa dos Títulos de acordo com o valor do pagamento mesmo que seja parcial o pagamento.

aAdd( aTitBx, {"E2_FILIAL", xFilial("SE2"),Nil} ) aAdd( aTitBx, {"E2_PREFIXO", SE2->E2_PREFIXO,Nil} ) aAdd( aTitBx, {"E2_NUM", SE2->E2_NUM,Nil} ) aAdd( aTitBx, {"E2_PARCELA", SE2->E2_PARCELA,Nil} ) aAdd( aTitBx, {"E2_TIPO", SE2->E2_TIPO,Nil} ) aAdd( aTitBx, {"E2_FORNECE", SE2->E2_FORNECE,Nil} ) aAdd( aTitBx, {"E2_LOJA", SE2->E2_LOJA,Nil} ) aAdd( aTitBx, {"E2_NATUREZ", SE2->E2_NATUREZ,Nil} ) aAdd( aTitBx, {"E2_EMISSAO", SE2->E2_EMISSAO,Nil} ) aAdd( aTitBx, {"E2_EMIS1", SE2->E2_EMIS1,Nil} ) aAdd( aTitBx, {"E2_VENCTO", SE2->E2_VENCTO,Nil} ) aAdd( aTitBx, {"E2_VENCREA", SE2->E2_VENCREA,Nil} ) aAdd( aTitBx, {"E2_VALOR", SE2->E2_VALOR,Nil} ) aAdd( aTitBx ,{"E2_VLCRUZ", SE2->E2_VLCRUZ,Nil} ) aAdd( aTitBx, {"AUTMOTBX", "DEBITO CC",Nil} ) aAdd( aTitBx, {"AUTBANCO", cBanco,Nil} ) aAdd( aTitBx, {"AUTAGENCIA", PadR(cAgencia, 5),Nil} ) aAdd( aTitBx, {"AUTCONTA", PadR(Str(Val(cConta)), 10),Nil} ) aAdd( aTitBx, {"AUTDTBAIXA", dDataBase,Nil} ) aAdd( aTitBx, {"AUTDTCREDITO", dDataBase,Nil} ) aAdd( aTitBx, {"AUTJUROS", SE2->E2_JUROS,Nil} ) aAdd( aTitBx, {"AUTDESCONT", SE2->E2_DESCONT,Nil} ) aAdd( aTitBx, {"AUTHIST", "Valor pago via cnab",Nil} ) aAdd( aTitBx, {"AUTVLRPG", Val(Left(aTitVlPg[nCont], 13) + "." + Right(aTitVlPg[nCont], 2)) , Nil} )

// # REALIZAR BAIXA ACESSAPERG("FIN080", .F.) MsExecAuto( {|x,y| FINA080(x,y)}, aTitBx, nOpc )

if ( lMsErroAuto == .T. ) MostraErro() cBaixa := 'Ocorreu um erro ao realizar baixa' DisarmTransaction() return cBaixa else nExec := MsgYesNo("Deseja desfazer baixa?", "Aviso") if(nExec == 1) DisarmTransaction() endIf endIf

Ao executar o MsExecAuto ele me retorna um erro: