Perguntas MSexecauto FINA080

cHistBaixa := "PGTO PROF - ID PG: " + cIdPgto
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
//³Monta array com os dados da baixa a pagar do título³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
aBaixa := {}
AADD(aBaixa, {"E2_FILIAL" , SE2->E2_FILIAL , Nil})
AADD(aBaixa, {"E2_PREFIXO" , SE2->E2_PREFIXO , Nil})
AADD(aBaixa, {"E2_NUM" , SE2->E2_NUM , Nil})
AADD(aBaixa, {"E2_PARCELA" , SE2->E2_PARCELA , Nil})
AADD(aBaixa, {"E2_TIPO" , SE2->E2_TIPO , Nil})
AADD(aBaixa, {"E2_FORNECE" , SE2->E2_FORNECE , Nil})
AADD(aBaixa, {"E2_LOJA" , SE2->E2_LOJA , Nil})
If SE2->E2_TIPO == 'NDF' // Se for Adiantamento Entao Baixa sem Movimento Bancario.
AADD(aBaixa, {"AUTMOTBX" , "DAC" , Nil})
AADD(aBaixa, {"AUTDTBAIXA" , dDataBase , Nil})
AADD(aBaixa, {"AUTDTCREDITO", dDataBase , Nil})
AADD(aBaixa, {"AUTHIST" , cHistBaixa , Nil})
AADD(aBaixa, {"AUTVLRPG" , SE2->E2_SALDO , Nil})
ElseIf SE2->E2_TIPO <> 'NDF'
AADD(aBaixa, {"AUTMOTBX" , "NOR" , Nil})
AADD(aBaixa, {"AUTBANCO" , cBancoA , Nil})
AADD(aBaixa, {"AUTAGENCIA" , cAgencA , Nil})
AADD(aBaixa, {"AUTCONTA" , cContaA , Nil})
AADD(aBaixa, {"AUTDTBAIXA" , dDataBase , Nil})
AADD(aBaixa, {"AUTDTCREDITO", dDataBase , Nil})
AADD(aBaixa, {"AUTHIST" , cHistBaixa , Nil})
AADD(aBaixa, {"AUTVLRPG" , SE2->E2_SALDO , Nil})
Endif
ACESSAPERG("FIN080", .F.)
MSEXECAUTO({|x,y| FINA080(x,y)}, aBaixa, 3)

If lMsErroAuto
MOSTRAERRO()
DisarmTransaction()
Alert("Falha nas Baixas dos Titulos - Pagamento de Instrutores " + SE2->E2_NUM)
Return .F.
EndIf