01. GENERAL DATA

Product:

TOTVS Backoffice

Product Line:

Protheus line

Segment:

Technology

Module:

TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGAFIS)

Function:

CTBA105

Country:

Brazil

Ticket:

Internal

Requisite/Story/Issue

DSERCTR1-46829

02. DESCRIPTION


The entry point CT105VLENT allows for the validation of accounting entities at the time the accounting entry is recorded, applicable to the CTBA102 and CTBA105 routines.

03. OTHER INFORMATION


Entry Point (EP) manipulation in the system
lRet := ExecBlock("CT105VLENT",.F.,.F.,{cDC,cDebito,cCredito, cContCCD,cContCCC, cItemD,cItemC, cCLVLD,cCLVLC,cEnt05Db,cEnt05Cr,cEnt07Db,cEnt07Cr,cEnt08Db,cEnt08Cr,cEnt09Db,cEnt09Cr})
EP Example
User Function  CT105VLENT()

	Local lRet	    := .T.
	Local cTipo	    := Paramixb[1] // Accounting entry type 1 -> Debit, 2 -> Credit, 3 -> Double-entry
	Local cDebito	:= Paramixb[2] // Debit Account
	Local cCredito	:= Paramixb[3] // Credit Account
	Local cCustoDeb	:= Paramixb[4] // Debit Cost Center
	Local cCustoCrd	:= Paramixb[5] // Credit Cost Center
	Local cItemDeb	:= Paramixb[6] // Debit Accounting Item
	Local cItemCrd	:= Paramixb[7] // Credit Accounting Item
	Local cCLVLDeb	:= Paramixb[8] // Debit Value Class
	Local cCLVLCrd	:= Paramixb[9] // Credit Value Class

	If cDebito == cCredito // Example of a condition that can be created for entity validation	
		lRet := .F.
		// If lRet = .F., the system issues the message informing that the            
		// entities cannot be the same and cancels the operation	
	EndIf

Return lRet 
  


Important!

  • It is noteworthy that the customer is responsible for EP utilization and its impacts on the system.
  • The examples used in this documentation are for demonstration purposes only; each customer must determine the behavior they wish to implement according to the scope of the entry point.

04. RELATED ISSUES

  • It does not apply.