| 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 permite uma validação prévia 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) (PcoDetLan).
O retorno deste ponto de entrada decide ou não a entrada na função de escrituração, que se tiver o retorno verdadeiro executa, e se for falso não executa.
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 + " -Nao executara a rotina PcoDetlan de escrituração do movimneto orçamentário." ) EndIf Return lRet |
|