Product: | |
Product Line: | Protheus Line |
Segment: | Technology |
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGACTB) |
Function: | CTBXATU |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
The entry point CTBPCO allows for a preliminary validation of the execution of the budgetary movement posting routine during the integration with the Budget Planning and Control module (SIGAPCO) (PcoDetLan).
The return value of this entry point decides whether or not to proceed to the posting function; if the return is true, it executes, and if it is false, it does not execute.
lPcoLanc := ExecBlock("CTBPCO",.f.,.f.,{ "000082","01","CTBA105" } ) |
#Include "Protheus.ch" User Function CTBPCO() Local cProcesso := ParamIXB[1] Local cItem := ParamIXB[2] Local cRotina := ParamIXB[3] Local lRet := .T. If cProcesso == "000082" .And. cItem=="01" lRet := .F. Alert(cRotina + " -It will not execute the PcoDetlan routine for budgetary movement bookkeeping." ) EndIf Return lRet |
|