EXECAUTO FINA070 - ESTORNO

Salve salve....

EXECAUTO FINA070  - ESTORNO

#INCLUDE "TOTVS.CH"



User Function FINA070()
Private lMsErroAuto 	 := .F.


//nOpbaixa é a linha que é mostrada para seleção no estorno, linha do grid. 

nOpbaixa         := 1 // primeira baixa
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 } )  

MsExecAuto( {|ER,UD,AM,RO| FINA070(ER,UD,AM,RO)}, aBaixa, 5, Nil, nOpbaixa )
If lMsErroAuto
Endif

Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima