English
Español
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.
English
Español
