| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CTBXATU |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada CTBPCO realiza uma validação prévia antes da execução da rotina de escrituração do movimento orçamentário na integração com o módulo Planejamento e Controle Orçamentário (SIGAPCO), através da função PcoDetLan. Ele permite que condições específicas sejam verificadas para autorizar ou impedir a execução da escrituração orçamentária. O retorno do ponto de entrada é um valor lógico: se retornar verdadeiro, a função de escrituração será executada; se retornar falso, o processo será interrompido. Este ponto de entrada é útil para cenários onde uma avaliação adicional é necessária para garantir a conformidade ou adequação dos movimentos orçamentários antes da gravação no sistema.
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. //somente para teste Alert(cRotina + " -Nao executara a rotina PcoDetlan de escrituração do movimneto orçamentário." ) EndIf Return lRet |
|