O ponto de entrada PCOVLBLQ permite que a regra de validação seja efetuada pelo usuario para os pontos de bloqueio no controle orçamentário.

Este ponto de entrada permite que a regra de validação seja efetuada pelo usuario para os pontos de bloqueio no controle orçamentário.

São passados como parametros o valor apurado pela consulta de saldo ao cubo para as configurações "previstas" e "realizadas", conforme tipo de bloqueio informado.

PCOXFUN.PRW

PCOVLBLQ - Regra de validação ( < nMoedaCfg> , < nValReal> , < nValPrv> , < cChaveR> , < cProcesso> , < cItem> , < cPrograma> , < cChaveRD> , < aDataIniFim> , < aAuxFil> , < lUsaLote> , < aPcoBkpBlq> ) --> lRet

(logico)
• .T. Nao Bloqueia .F. Bloqueia Lancamento

Quando se utiliza este ponto de entrada a rotina  nao é avaliada pela condição padrão, portanto o usuário devera considerar que este atenda a todos os pontos de bloqueio.

#INCLUDE "PROTHEUS.CH"User Function PCOVLBLQ()Local nMoedaCfg 	:= ParamIXB[1] // Moeda Local nValReal 		:= ParamIXB[2] // Valor "Realizado" Local nValPrv 		:= ParamIXB[3] // Valor "Previsto" Local cChaveR 		:= ParamIXB[4] // Chave da Pesquisa Local cProcesso 	:= ParamIXB[5] // Código do Processo Local cItem 		:= ParamIXB[6] // Item do Processo Local cPrograma 	:= ParamIXB[7] // Nome do Programa Local cChaveRD 		:= ParamIXB[8] // Descricao da Chave Local aDataIniFim 	:= ParamIXB[9] // 1-Data Inicio;2-Data Fim Local aAuxFil 		:= ParamIXB[10] // 1-Param Cfg Prv;2-Cfg Real Local lUsaLote 		:= ParamIXB[11] // Indicador se utiliza lote Local aPcoBkpBlq 	:= ParamIXB[12] // Array contendo Recnos AKD para caso de restaurar Local lRet 			:= .T. If Alltrim(cPrograma) == "FINA050" .And. cProcesso == "000002" .And. cItem = "01"   //Somente bloqueara este processo acima....efetuar tratamento para os demais existentes	lRet := .F.EndIfReturn(lRet)