Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 100 - Exclusão de avaliação de excelência

Regra por processo 100 - Exclusão de avaliação de excelência

Este recurso não está disponível no Gestão de Pessoas | HCM GO UP. Saiba mais.

Esta regra é executada na exclusão das avaliações de Excelência, sendo sempre executada antes da exclusão. Desta forma, é possível impedir a exclusão através do uso do Cancel(1) na regra. É possível ler os campos de usuário da tabela R079AEA (Avaliação de Excelência-Avaliação).

Recursos utilizados: Esta regra utiliza as variáveis de sistema TipoAvaGer e TipoAvaReg, conforme segue:

TipoAvaGer = 'C' - Inclusão coletiva, através da tela de geração de avaliações.
TipoAvaGer = 'I' - Inclusão individual, através da tela de cadastro da avaliação.

Quando a variável TipoAvaReg for igual a 'P', será possível alterar o registro da tabela R077APA.
Quando a variável TipoAvaReg for igual a 'C', será possível alterar o registro da tabela R077ACT.
Quando a variável TipoAvaReg for igual a 'E', será possível alterar o registro da tabela R079AEA.

Exemplo:

/* Exemplo simples com o uso da variável de sistema TipoAvaReg e campo de usuário. */
Definir Alfa xMsg;
Definir Alfa xCampoUsu;

Se (TipoAvaReg = 'C')
xCampoUsu = R077ACT.USU_TESTE;
Senao
Se (TipoAvaReg = 'P')
xCampoUsu = R077APA.USU_TESTE;
Senao
Se (TipoAvaReg = 'E')
xCampoUsu = R079AEA.USU_TESTE;

xMsg = "Campo de Usuário = " + xCampoUsu + "[&OK]";
Mensagem(Retorna, xMsg);

Utilização: Esta regra por processo está relacionada à rotina de exclusão de avaliações do CS e TR, tanto pela tela de cadastramento individual como pela tela de exclusão do lote na geração coletiva.