FINA460-F460CTB - Executado após a contabilização da Liquidação de CR

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