EXECAUTO FINA080 - INCLUSÃO

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