Identificador de Regra

ENG-700ERAMC01

Módulo: ENG - Engenharia Produto.

Finalidade: Quando este identificador estiver ativo, ao inserir/alterar/excluir componentes de um modelo ou da composição exclusiva multi-nível de um item de pedido, o sistema enviará um e-mail para o(s) endereço(s) definido(s) na regra, com um log das alterações feitas.

Características:Caso não seja declarada a variável "EngACorEml" o sistema informará texto padrão para o corpo do e-mail.

Caso não seja descrita a variável "EngADesAnx" o sistema informará um texto padrão para a descrição do anexo.

A busca das informações referente a quantidade alterada de um componente ocorre de forma on-line, dessa forma:

Assim, por exemplo, as informação não são buscadas de uma tabela, logo haverá formas para customizar as informações ou alterações que serão colocadas neste e-mail que será enviado.

Tela: Comp. Exclusiva Multi-Nível e Cadastro de Modelos (F120EMN e F700CMC)

Transação: Não se aplica.

Regra:

Deve estar ligado a uma regra.

Exemplo de regra:

Definir Alfa EngATipExe;
Definir Alfa EngACodMod;
Definir Numero EngNCodFil;
Definir Numero EngNNumPed;
Definir Numero EngNSeqIpd;
Definir Alfa EngAIndEnv;
Definir Alfa EngAEndDes;


Definir Cursor Cur_IndEnv;

EngAIndEnv = "N"; @ por padrão, não envia o e-mail @

Se (EngATipExe = "M") /* indica que foi alterado um modelo */
inicio
EngAEndDes = "pcp@empresa.com.br";
@ ver se tem alguma O.P. em aberto usando este modelo @
Cur_IndEnv.Sql "SELECT E900COP.NUMORP FROM E900COP,E900QDO WHERE E900QDO.CODEMP = E900COP.CODEMP AND \
E900QDO.CODORI = E900COP.CODORI AND E900QDO.NUMORP = E900COP.NUMORP AND \
E900COP.SITORP IN ('A','L','E') AND E900QDO.CODMOD = :EngACodMod";
Cur_IndEnv.AbrirCursor();
Se (Cur_IndEnv.Achou) @ se tiver O.P. em aberto, envia o e-mail @
EngAIndEnv = "S";
fim;
Senao /* indica que alterou a composição exclusiva */
inicio
EngAEndDes = "pcp@empresa.com.br;vendas@empresa.com.br";
@ ver se tem alguma O.P. em aberto deste item @
Cur_IndEnv.Sql "SELECT E900COP.NUMORP FROM E900COP,E900QDO WHERE E900QDO.CODEMP = E900COP.CODEMP AND \
E900QDO.CODORI = E900COP.CODORI AND E900QDO.NUMORP = E900COP.NUMORP AND \
E900COP.SITORP IN ('A','L','E') AND E900COP.NUMPED = :EngNNumPed AND E900QDO.SEQIPD = :EngNSeqIpd";
Cur_IndEnv.AbrirCursor();
Se (Cur_IndEnv.Achou) @ se tiver O.P. em aberto, envia o e-mail @
EngAIndEnv = "S";
fim;

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
EngATipExe ALFA Indica se foi alterado um modelo (valor "M") ou a composição exclusiva multi-nível (valor "C") N
EngACodMod ALFA Código do modelo que está sendo alterado N
EngNCodFil NÚMERO Código da filial do item de pedido alterado N
EngNNumPed NÚMERO Número do pedido cujo item está sendo alterado N
EngNSeqIpd NÚMERO Seqüência do item de pedido que está sendo alterado N
EngAEndDes ALFA Endereço(s) do(s) destinatário(s) do e-mail S
EngAIndEnv ALFA Indica se deve enviar ou não o e-mail (S ou N) S
EngACorEml ALFA Corpo do Email S
EngADesAnx ALFA Descrição do Anexo S

Atenção

Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.

Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.

Este artigo ajudou você?