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