Regra por Processo 663 - Inserir 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 inserir e após inserir, 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 inserir e 1 se depois de inserir. 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.

Ejemplo:

/* Verifica antes de inserir se o usuário ativo esta associado ao colaborador para quem está sendo cadastrado o comunicado de desligamento */

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

Disponível para o módulo: TR.