Product: |
TOTVS Backoffice
|
Product Line: | Protheus Line |
Segment: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGAFIS)
|
Function: | CTBA102 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46748 |
The entry point CTB102ESTL is used to perform the validation of the reversal of accounting entries by batch. It offers the customer the possibility to implement specific rules to ensure that the batch reversal of the entries is performed in a controlled manner and in compliance with the company's accounting policies.
With CTB102ESTL, it is possible to define custom criteria to validate whether the accounting entries are eligible for reversal, ensuring the consistency of the records and minimizing the risks of inconsistencies in the accounting process.
lOk := ExecBlock("CTB102ESTL",.F.,.F.,{nOpc})
#INCLUDE "PROTHEUS.CH"
User Function CTB102ESTL()
// nopc = 5 -> deletion// nopc = 6 -> reversal
Local nOpc := ParamIXB[1]
Local lRet := .T.
If nOpc == 5
If Notification("Attention -", "Confirm deletion of entries", {"Yes","No"} )!= 1
lRet := .F.
EndIf
ElseIf nOpc == 6
If Notification("Attention -", "Confirm reversal of entries", {"Yes","No"} )!= 1
lRet := .F.
EndIf
EndIf
Return( lRet )
Important!