Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 382 - Excluir Distribuição de EPI

Regra por processo 382 - Excluir Distribuição de EPI

Esta regra será executada ao excluir a distribuição de um EPI nas telas de distribuição individual e de exclusão coletiva de EPIs.

Recursos Utilizados: Na regra, os registros podem ser alterados diretamente através do comando 'TABELA.CAMPO', sendo que está disponível os campos da tabela R096DIE para leitura ou alteração dos valores, inclusive campos de usuário.

Nesta regra é possível utilizar a variável de sistema TipDisEpi, que indica de qual tela a regra foi executada. Os valores que a variável TipDisEpi pode assumir são I-Individual e C-Coletivo.

Comando Cancel: Na tela de Distribuição Coletiva de EPIs, o comando Cancel() funciona da seguinte forma:
Cancel(1) = Cancela a regra para o registro em específico. Caso exista mais EPIs na grade que chamarão regras, estas continuarão a serem deletados.
Cancel(2) = Cancela todo o processo. Ou seja, irá cancelar a execução da regra atual e nenhuma outra regra será executada, cancela o processo de exclusão dos registros.

Exemplo:

Definir Alfa xCodEpi;
Definir Alfa xMsg;

IntParaAlfa(R096DIE.CodEPI, xCodEpi);

/* Se a regra foi chamada pela tela de Distribuição Individual de EPI, cancela o registro em específico. */
Se (TipDisEPI = "I")
Cancel(1);

/* Se o código do EPI for igual a 2, cancela todo o processo. */
Se (R096DIE.CodEPI = 2)
Cancel(2);

/* Se o código do EPI for igual a 3, apresenta mensagem. */
Se (R096DIE.CodEPI = 3)
{
xMsg = "Exclusão do EPI " + xCodEpi + ".";
Mensagem(Retorna, xMsg);
}

Utilização: Esta regra por processo está relacionada aos procedimentos de distribuição de EPIs no módulo Segurança e Medicina, e será chamada ao efetuar a exclusão de EPIs nas telas de Segurança/EPI/Distribuição/Individual - botão Excluir e Segurança/EPI/Distribuição/Coletiva - botão Excluir - tela de exclusão coletiva de EPIs.

Disponível para o Módulo: SM.