PE CTBPCO

01. DADOS GERAIS

02. DESCRIÇÃO

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.

03. DEMAIS INFORMAÇÕES

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

04. ASSUNTOS RELACIONADOS

• Não se aplica.