Salve salve....
Ponto de entrada F460CTB- ( Financeiro - Liquidação )
FINA460-F460CTB - Executado após a contabilização da Liquidação de Contas a Receber
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} F460CTB
FINA460-F460CTB - Executado após a contabilização da Liquidação de Contas a Receber
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function F460CTB()
ChkFile("SE1")
dbChangeAlias("SE1","ERSE1")
TRB->( dbGoTop() )
Do While TRB->( !EOF() )
If TRB->MARCA == cMarca
If SE1->( MsSeek(TRB->CHAVE) )
If SE1->(E1_CLIENTE+E1_LOJA) < cCliDe+cLojaDe .And. ;
SE1->(E1_CLIENTE+E1_LOJA) > cCliAte+cLojaAte
TRB->( dbSkip() )
Loop
Endif
Endif
Endif
TRB->( dbSkip() )
EndDo
SE1->( dbCloseArea() )
dbChangeAlias("ERSE1","SE1")
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima