Ponto de Entrada GP040EXC - Exclusão de Rescisão

Ponto de Entrada

Descrição:	Este ponto de entrada é utilizado para o usuário definir se deve ou não excluir a rescisão. Deve retornar .T. para não permitir a exclusão ou .F. para permitir a exclusão.
Localização:	GPEM040
Eventos:	GPEM040
Programa Fonte:	GPEM040.PRX
Função:	GPEM040
Retorno:	Lógico (.T. ou .F.)

Exemplo:

#Include 'Protheus.ch'

User Function GP040EXC()

Local lRet := .F.
Local cMesAno := SuperGetMv("MV_FOLMES",,"")

If MesAno(SRA->RA_DEMISSA) == cMesAno
Alert("A exclusão será efetuada")
lRet := .T.
EndIf

Return lRet

Page tree