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