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:

• O sistema armazena em uma variável auxiliar a informação da quantidade atual do componente e em uma outra variável auxiliar, a quantidade que o usuário está alterando;
• Depois faz um comparativo, caso as quantidades entre as duas variáveis internas do sistema sejam diferentes, envia para o log (arquivo TXT) a informação que posteriormente é recebida via e-mail.

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: