Linha Microsiga Protheus - Inglês

Páginas filhas
  • DT_PE_CT020EXC_Validates_the_Deletion_of_the Ledger_Account

Validates the Deletion of the Ledger Account

Requirement Characteristics

Product Line:

Microsiga Protheus

Segment:

Services

Module:

SIGACTB

Routine:

Routine

Technical Name

CTBA020


Register of Chart of Accounts

Parameters

nOpc

Entry Point:

CT020EXC

Countries:

Brazil

Database:

All

Operating Systems:

All

Description

The purpose of this entry point is to validate the deletion of the ledger account. If its return is .T. (True), the ledger account will be deleted; if the return is .F. (False), the ledger account will not be deleted.

Entry Point

Description:

The entry point CT020EXC is used to validate the deletion of the ledger account.

Events:

If lRet .And. lCT020Exc
lRet:= ExecBlock("CT020EXC",.F.,.F.,nOpc)
Endif

Source Program:

CTBA020

Return:

Logical


Example: 

User Function CT020EXC()

Local lRet := .F.

If MsgYesNo ("Confirm Deletion?")
lRet:= .T.
MsgAlert("Deletion Confirm")
Else
MsgAlert("Deletion Canceled")
Endif

Return lRet