Regra por processo 880 - Confirmar Autenticação Eletrônica - Distribuição EPI

Esta regra será executada ao confirmar a autenticação do protocolo eletrônico na distribuição de Equipamentos de Proteção Individual (EPI).

Recursos Utilizados: na regra, os registros podem ser consultados diretamente através do comando "TABELA.CAMPO", considerando que os campos da tabela Distribuição Epi (R096DIE) estão disponíveis para leitura ou alteração dos valores, inclusive campos de usuário.

Comando Cancel: ao utilizá-lo, cancela a autenticação eletrônica.

Ejemplo:

Definir Alfa xCodEpi;
Definir Alfa xMsg;

IntParaAlfa(R096DIE.CodEPI, xCodEpi);

/* Se o código do EPI for igual a 2, cancela a autenticação */
Se (R096DIE.CodEPI = 2)
Cancela (1);

/* Se o código do EPI for igual a 3, apresenta mensagem. */
Se (R096DIE.CodEPI = 3)
{ xMsg = "Inseriu EPI " + xCodEpi + ". Confirmar com equipe de compras e almoxarifado necessidade de reposição."; 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 confirmar a autenticação eletrônica pelo botão Confirmar da tela Autenticação Eletrônica (FRBIOSEN). Esta tela, por sua vez, é acessada pelo botão Protocolo Eletrônico, da tela Distribuição do EPI - Individual (FR096DIE).

Disponível para o módulo: Segurança e Medicina.