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