GP40VALPE - Inclusão e Alteração no Cadastro de Verbas -- 24815

Esse ponto de entrada verifica e valida o processo de inclusão e alteração na rotina de Cadastro de Verbas.

GPEA040.PRX

GP40VALPE - Inclusão e Alteração no Cadastro de Verbas ( [ ] ) --> lRet

lRet(logico)
• Indica se realiza o procedimento de manutenção ou não.

O ponto de entrada deve retornar um valor lógico para indicar se prossegue ou não com a operação de manutenção. .T. indica que a rotina deve seguir o processo e .F. indica que não seguirá o processo de manutenção.

Para a operação de exclusão deve ser usado o ponto de entrada GP040CHK .

//Verifica se o id de calculo da verba é 031 e não permito a finalização da operação de manutenção.#INCLUDE 'PROTHEUS.CH'User Function Gp40ValPE()Local lRet := .T.//Alert( "Passou pelo PE Gp40ValPE" )If SRV->RV_CODFOL == "031"	lRet := .F.EndIfReturn(lRet)