Salve salve....
Ponto de entrada F565CTB- ( Financeiro - Liquidação )
FINA565-F565CTB - Após gravar toda liquidação pagar
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} F565CTB
Após gravar toda liquidação pagar
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function F565CTB()
ChkFile("SE2")
dbChangeAlias("SE2","ERSE2")
TRB->( dbGoTop() )
Do While TRB->( !EOF() )
If TRB->MARCA == cMarca
If SE2->( MsSeek(TRB->CHAVE) )
If SE2->(E2_FORNECE+E2_LOJA) < cFornDe+cLojaDe .And. ;
SE2->(E2_FORNECE+E2_LOJA) > cFornAte+cLojaAte
TRB->( dbSkip() )
Loop
Endif
Endif
Endif
TRB->( dbSkip() )
EndDo
SE2->( dbCloseArea() )
dbChangeAlias("ERSE2","SE2")
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima