Salve salve....
EXECAUTO FINA080 - INCLUSÃO
#INCLUDE "TOTVS.CH"
User Function FINA080()
Private lMsErroAuto := .F.
dDataBase := Stod('20231231')
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 } )
aAdd( aBaixa, {"AUTMOTBX" , "DAC" , Nil } )
aAdd( aBaixa, {"AUTDTBAIXA" , dDataBase , Nil } )
aAdd( aBaixa, {"AUTDTCREDITO", dDataBase , Nil } )
aAdd( aBaixa, {"AUTHIST" , 'BAIXA X' , Nil } )
aAdd( aBaixa, {"AUTVLRPG" , SE2->E2_SALDO , Nil } )
MsExecAuto( {|ER,UD| FINA080(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
