Regra por Processo 664 - Alterar 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 alterar e após alterar, 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 alterar e 1 se depois de alterar. 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 alterar se o usuário ativo esta associado ao colaborador no qual o comunicado de desligamento está sendo alterado */

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

Disponível para o módulo: TR.