EP CTB390LOK

01. GENERAL DATA

Product:	TOTVS Backoffice
Product Line:	Protheus Line
Segment:	Services
Module:	TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGACTB)
Function:	CTBA390
Country:	Brazil
Ticket:	Internal
Requisite/Story/Issue	DSERCTR1-46829

The entry point CTB390LOK allows the user to insert custom validations, such as validating the maximum allowed size for the budget sequence.

Entry Point (EP) manipulation in the system

If lOk .And. ExistBlock("CTB390LOK") .And. ! ExecBlock("CTB390LOK", .F., .F.)
	lOk := .F.
Endif

EP Example

User Function CTB390LOK
	
	Local lRet := .F.
	MsgAlert("ENTRY POINT CALL: CTB390LOK")

Return lRet

Importante !!

It should be noted that the use of the Entry Point (PE) and its impacts on the system are the customer's responsibility.
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.