Linha Microsiga Protheus - Inglês

Páginas filhas
  • EP CTA60DEL

01. GENERAL DATA

Product:

TOTVS Backoffice

Product Line:

Protheus Line

Segment:

Services

Module:

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

Function:

CTBA060

Country:

Brazil

Ticket:

Internal

Requisite/Story/Issue

DSERCTR1-46829

02. DESCRIPTION

The entry point CTA60DEL is executed after the deletion of an accounting value class. It is triggered at the moment the routine responsible for the deletion of the accounting value class successfully completes the deletion, allowing for the execution of additional procedures after this process.

This entry point is useful for performing complementary actions, such as updating related records, validations, or any other processing that needs to occur after the deletion of the accounting value class.

03. OTHER INFORMATION


Entry Point (EP) manipulation in the system
If ExistBlock("CTA60DEL")
	If ExecBlock("CTA60DEL",.F.,.F.,nOpc)
		Return .F.
	EndIf
EndIf
EP Example
User Function CTA60DEL()

    // Control variables
    Local cAlias := "CTH"         // Alias of the Accounting Value Class table
    Local nReg   := CTH->(Recno())  // Current record number of the class
    Local nOpc   := ARAMIXB[1]               // Selected option number, generic example.

	If CTH->CTH_CLASSE == "1"			// Synthetic
		If !Eof() .And. CTH->CTH_FILIAL == xFilial("CTH") .AND. Alltrim(M->CTH_CLVL) == ALLTRIM(CTH->CTH_CLSUP)
			Help(" ",1,"CLVLSINT")
		EndIf
	EndIf

Return

Important!

  • 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.

04. RELATED ISSUES

  • N/A