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

Regra por processo 380 - Inserir Distribuição de EPI

Esta regra será executada ao cadastrar a distribuição de um EPI nas telas de distribuição individual e 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 executadas.
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 inclusã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 = "Inseriu 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 processamento na tela Segurança/EPI/Distribuição/Individual - botão Inserir e Segurança/EPI/Distribuição/Coletiva - grade de EPIs.

Disponível para o Módulo: SM.

Este artigo ajudou você?