Salve salve....
EXECAUTO FINA070 - INCLUSÃO
#INCLUDE "TOTVS.CH"
User Function FINA070()
Private lMsErroAuto := .F.
dDataBase := Stod('20231231')
aBaixa := {}
aAdd( aBaixa, {"E1_FILIAL" , SE1->E1_FILIAL , Nil } )
aAdd( aBaixa, {"E1_PREFIXO" , SE1->E1_PREFIXO , Nil } )
aAdd( aBaixa, {"E1_NUM" , SE1->E1_NUM , Nil } )
aAdd( aBaixa, {"E1_PARCELA" , SE1->E1_PARCELA , Nil } )
aAdd( aBaixa, {"E1_TIPO" , SE1->E1_TIPO , Nil } )
aAdd( aBaixa, {"E1_CLIENTE" , SE1->E1_CLIENTE , Nil } )
aAdd( aBaixa, {"E1_LOJA" , SE1->E1_LOJA , Nil } )
aAdd( aBaixa, {"AUTMOTBX" , "DAC" , Nil } )
aAdd( aBaixa, {"AUTDTBAIXA" , dDataBase , Nil } )
aAdd( aBaixa, {"AUTDTCREDITO", dDataBase , Nil } )
aAdd( aBaixa, {"AUTHIST" , 'BAIXA ' , Nil } )
aAdd( aBaixa, {"AUTVLRPG" , SE1->E1_SALDO , Nil } )
MsExecAuto( {|ER,UD| FINA070(ER,UD)}, aBaixa, 3 )
If lMsErroAuto
Endif
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima
