Product: |
TOTVS Backoffice
|
Product Line: | Protheus Line |
Segment: | Services |
Module: | TOTVS Backoffice (Linha Protheus) - Contabilidade Gerencial (SIGACTB)
|
Function: | CTBA230 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
The CT230TRB entry point is executed at the time the consolidation record is written (or saved), allowing for additional validations during this process.
lRet := ExecBlock("CT230TRB",.F.,.F.,{CTB->CTB_CTADES,CTB->CTB_CCDES,CTB->CTB_ITEMDE,CTB->CTB_CLVLDE})
User Function CT230TRB()
Local cConta := ParamIxb[1]
Local cCCusto := ParamIxb[2]
Local cItem := ParamIxb[3]
Local cCLVL := ParamIxb[4]
Local lRet := .T.
If Empty(cCusto)
Alert('Invalid registration .')
lRet := .F.
Endif
Return lRet
Important!