GP240OK - Configuração do Botão OK -- 25004

Esse ponto de entrada permite complementar a validação do botão Ok da rotina de Cadastro de Afastamentos

GPEA240.PRX

GP240OK - Configuração do Botão OK ( [ ] ) --> lRet

lRet(logico)
• Indica se efetiva a gravação

O ponto de entrada deve retornar um valor lógico para indicar se realiza a gravação. O retorno .T. indica que a rotina deve efetuar a gravação e, o retorno .F. indica que a rotina não irá efetuar a gravação.

//Nesse exemplo, se o funcionário for do Centro de Cuto 200100001, não permite gravar o afastamento#INCLUDE 'PROTHEUS.CH'User Function Gp240Ok()Local aArea := GetArea()Local lRet 	:= .T.Alert( "Passou pelo PE Gp240Ok" )If SRA->RA_CC == "200100001"	lRet := .F.EndIfRestArea(aArea)Return(lRet)