Regra por processo 381 - Alterar Distribuição de EPI

Esta regra será executada ao alterar 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 alteração dos registros.

<div class="Code"><p>Definir Alfa xCodEpi;<br></br>Definir Alfa xMsg;<br></br><br></br>IntParaAlfa(R096DIE.CodEPI, xCodEpi);<br></br><br></br>/* Se a regra foi chamada pela tela de Distribuição Individual de EPI, cancela o registro em específico. */<br></br>Se (TipDisEPI = "I")<br></br> Cancel(1);<br></br><br></br>/* Se o código do EPI for igual a 2, cancela todo o processo. */<br></br>Se (R096DIE.CodEPI = 2)<br></br> Cancel(2);<br></br><br></br>/* Se o código do EPI for igual a 3, apresenta mensagem. */<br></br>Se (R096DIE.CodEPI = 3)<br></br>{<br></br> xMsg = "Alteração do EPI " + xCodEpi + "."; <br></br> Mensagem(Retorna, xMsg);<br></br>}</p></div>

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 Alterar e Segurança/EPI/Distribuição/Coletiva - grade de EPIs.

Disponível para o Módulo: SM.