Product: |
TOTVS Backoffice
|
Product Line: | Protheus line |
Segment: | Technology |
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGAFIS)
|
Function: | CTBA105 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
The entry point CT105VLENT allows for the validation of accounting entities at the time the accounting entry is recorded, applicable to the CTBA102 and CTBA105 routines.
lRet := ExecBlock("CT105VLENT",.F.,.F.,{cDC,cDebito,cCredito, cContCCD,cContCCC, cItemD,cItemC, cCLVLD,cCLVLC,cEnt05Db,cEnt05Cr,cEnt07Db,cEnt07Cr,cEnt08Db,cEnt08Cr,cEnt09Db,cEnt09Cr})
User Function CT105VLENT() Local lRet := .T. Local cTipo := Paramixb[1] // Accounting entry type 1 -> Debit, 2 -> Credit, 3 -> Double-entry Local cDebito := Paramixb[2] // Debit Account Local cCredito := Paramixb[3] // Credit Account Local cCustoDeb := Paramixb[4] // Debit Cost Center Local cCustoCrd := Paramixb[5] // Credit Cost Center Local cItemDeb := Paramixb[6] // Debit Accounting Item Local cItemCrd := Paramixb[7] // Credit Accounting Item Local cCLVLDeb := Paramixb[8] // Debit Value Class Local cCLVLCrd := Paramixb[9] // Credit Value Class If cDebito == cCredito // Example of a condition that can be created for entity validation lRet := .F. // If lRet = .F., the system issues the message informing that the // entities cannot be the same and cancels the operation EndIf Return lRet
Important!