Product: | |
Product line: | Protheus line |
Segment: | |
Module: | TOTVS Backoffice (Protheus Line) - Management Accounting (SIGACTB) |
Function: | CTBA101 |
Country: | Brazil |
Ticket: | Internal |
Requirement/Story/Issue | DSERCTR1-46748 |
The CT101TOK entry point is used to perform the validation of all fields in the accounting folder, being triggered within the Accounting Entry Folder Validation routine. It allows the client to check every field in the folder before finalizing the validation, ensuring that all data is correct and meets the established accounting rules.
With CT101TOK, it is possible to implement additional validation rules, guaranteeing that the information contained in the folder is consistent and accurate, thereby contributing to the quality and compliance of the company's accounting records.
lRet := ExecBlock( "CT101TOK" , .F. , .F. , {cTipo,cDebito,cCredito,cCustoDeb,cCustoCrd,cItemDeb,cItemCrd,cClVlDeb,cClVlCrd,cTpSald,nOpc,@cTexto } ) |
#INCLUDE "PROTHEUS.CH"
User Function CT101TOK
Local lRet := .F.
Local cTipo := PARAMIXB[1]
Local cDebito := PARAMIXB[2]
Local cCredito := PARAMIXB[3]
Local cCustoDeb := PARAMIXB[4]
Local cCustoCrd := PARAMIXB[5]
Local cItemDeb := PARAMIXB[6]
Local cItemCrd := PARAMIXB[7]
Local cClVlDeb := PARAMIXB[8]
Local cClVlCrd := PARAMIXB[9]
Local cTpSald := PARAMIXB[10]
Local nOpc := PARAMIXB[11]
Local cTexto := PARAMIXB[12]
MsgAlert("ENTRY POINT CALL: CT101TOK")
Return lRet |
|