FINA050 - Inclusão de Pagamento Antecipado via rotina automática

Exemplo de implementação da rotina automática FINA050 para inclusão de pagamento antecipado.

//------------------------------------------------------------------------------------------------------------------------

User Function FIN050PA()
Local aArray := {}

Private lMsErroAuto := .F.

aAdd(aArray,{ "E2_PREFIXO" , "ANT" , NIL })
aAdd(aArray,{ "E2_NUM" , "0001" , NIL })
aAdd(aArray,{ "E2_TIPO" , "PA" , NIL })
aAdd(aArray,{ "E2_NATUREZ" , "001" , NIL })
aAdd(aArray,{ "E2_FORNECE" , "0001" , NIL })
aAdd(aArray,{ "E2_EMISSAO" , CtoD("17/02/2012"), NIL })
aAdd(aArray,{ "E2_VENCTO" , CtoD("17/02/2012"), NIL })
aAdd(aArray,{ "E2_VENCREA" , CtoD("17/02/2012"), NIL })
aAdd(aArray,{ "E2_VALOR" , 5000 , NIL })
aAdd(aArray,{ "AUTBANCO" , "001" , NIL })
aAdd(aArray,{ "AUTAGENCIA" , "12345" , NIL })
aAdd(aArray,{ "AUTCONTA" , "0000012345" , NIL })

MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão


If lMsErroAuto
MostraErro()
Else
Alert("Título de adiantamento incluído com sucesso!")
Endif

Return