EXECAUTO FINA080 - ESTORNO

Salve salve....

EXECAUTO FINA080 - ESTORNO

#INCLUDE "TOTVS.CH"



User Function FINA080()
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, {"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 } )  

MsExecAuto( {|ER,UD,AM,RO| FINA080(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