Product: |
TOTVS Backoffice
|
Product Line: | Protheus line |
Segment: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGAFIS)
|
Function: | CTBA102,CTBA103,CTBA105,CTBXVLD,CTBA104,CTBXMI |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
The entry point CT105TOK is used to validate the accounting entry after the validation performed by the MSGETDB function. This entry point allows for the customization of the accounting validation, checking, for example, whether the debit and credit values are correct or if other specific accounting rules need to be applied. The function's return is a boolean value, where true indicates that the validation was successful, and false signals that the entry contains inconsistencies and cannot be processed.
This entry point offers flexibility for users to adjust business rules, ensuring that specific compliance validations are met.
lRet := ExecBlock("CT105TOK",.f.,.f.,{nValDeb,nValCrd,;
aTotRdpe[1][1],;
nTotInf })
User Function CT105TOK()
Local nValDeb := PARAMIXB[1]
Local nValCrd := PARAMIXB[2]
Local nTotRdpe := PARAMIXB[3] // debit value
Local nTotInf := PARAMIXB[4] //
Local lRet := .T.
// Checks if there is a discrepancy in the entry value and total debits
If nTotInf != nTotRdpe // Example of total value verification
MsgAlert("Total debit does not match. Check the entry.")
Return .F.
EndIf
Return lRet
Important!