Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por Processo 665 - Excluir comunicação de desligamento

Regra por Processo 665 - Excluir comunicação de desligamento

Esta regra por processo é chamada na tela de cadastro de comunicação de desligamento (Pesquisa > Entrevistas de Desligamento > Agendamento), antes de excluir e após excluir, sendo que poderá ser utilizada a variável de sistema vExecucaoRegra para identificar em qual momento está executando.

Recursos utilizados: A variável retornará 0 se estiver sendo chamada antes de excluir e 1 se depois de excluir. Estarão disponíveis os campos da tabela R212COM - Entrevista de Desligamento - Comunicação de Desligamento e também os campos de usuário desta tabela. Outras tabelas deverão ser consultadas através de cursor.

Comando Cancel: O usuário poderá impedir o processo utilizando o comando Cancel() ou o comando Mensagem(Erro...) para cancelar apresentando uma mensagem para o usuário.

Exemplo:

/* Verifica antes de excluir se o usuário ativo esta associado ao colaborador no qual o comunicado de desligamento está sendo excluído */

vNumEmp = R212COM.NumEmp;
vTipCol = R212COM.TipCol;
vNumCad = R212COM.NumCad;
Se ((vExecucaoRegra = 0) e (RetCodUsuPorColab(vNumEmp, vTipCol, vNumCad) = CodUsu))
Mensagem(Erro, "Não é possível excluir um comunicado de desligamento de si mesmo. Verifique!");

Disponível para o módulo: TR.