Product: |
TOTVS Backoffice
|
Product Line: | Protheus Line |
Segment: | Technology |
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGAFIS)
|
Function: | CTBA150 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
The entry point CTB150TOK is used to execute validations according to specific user rules.
IF ExistBlock("Ctb150TOk")
lRet := ExecBlock( "Ctb150TOk", .F. , .F.,{ dData,lInclui,lExclui } )
Endif
User Function Ctb150TOk()
Local dData := PARAMIXB[1]
Local lInclui := PARAMIXB[2]
Local lExclui := PARAMIXB[3]
Local lRet := .T.
MsgAlert(dData)
If !lExclui .And. !lInclui
MsgAlert("Content of the variables lInclui and lExclui FALSE")
lRet := .F.
Else
MsgAlert("Content of the variables lInclui and lExclui are not FALSE")
EndIf
Return (lRet)
Important!