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.
Exemplo:
/* 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.