Validar Exclusão

GFEA1002 - Incluir validação na Exclusão/Cancelamento de Contrato de Autônomos

Características do Requisito

Descrição:

Validar Permite incluir uma validação específica para Exclusão\Cancelamento de Contrato de Autônomos

Localização:GFEA100

Após a mensagem de confirmação de cancelamento do contrato.

Programa Fonte:

GFEA1002

Função:

User Function GFEA1002()

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	L	Define se o retorno será Verdadeiro ou Falso	Sim

Exemplo:

Bloco de código

language	delphi

#Include 'Protheus.ch'


User Function GFEA1002()


Local lRet := .T.


If IsInCallStack ("GFEA100CA") // Operação de cancelamento



MsgAlert("TESTE PE GFEA1002 - Cancelamento")



ElseIf IsInCallStack ("GFEA100VA") // Operação de Exclusão



MsgAlert("TESTE PE GFEA1002 - Exclusão")



Endif


Return lRet