EXECAUTO FINA070 - INCLUSÃO

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