Identificador de Regra

ENG-700PRODE01

Módulo: ENG - Engenharia Produto.

Finalidade: Esse identificador é chamado no momento da geração do novo código do produto gerado pela tela de Combinação (F700CBN) ou pela tela de Pedidos em grade. Permite nesse momento que o usuário monte a sua própria regra para montar as descrições do Produto, da Nota Fiscal e da descrição Complementar do produto.

Transação: Não se aplica.

Regra:

Definir ...
...
Cur_E700IBN.AbrirCursor();
Enquanto (Cur_E700IBN.Achou)
Inicio
VCodCmp= Cur_E700IBN.CodCmp; @ Seleciono o Componente @
VDerCmp= Cur_E700IBN.DerCmp; @ Seleciono a Derivação do componente @
@ Pega do cad. Produto @
Cur_E075PRO.SQL "SELECT CPLPRO,CODMDP FROM E075PRO WHERE CODEMP= :VCODEMP AND CODPRO= :VCODCMP";
Cur_E075PRO.AbrirCursor();
Se (Cur_E075PRO.Achou)
Inicio
VCplPro= Cur_E075PRO.CplPro;
Se (VCplPro <> " ")
VDesPro= VDesPro + "/" + VCplPro;
Definir alfa Vcodmdp;
Vcodmdp= Cur_E075PRO.CodMdp;
Fim;
Cur_E075PRO.FecharCursor();

@ Pega da Derivação @
se((Vcodmdp="MATCOR")ou(Vcodmdp="COR"))
inicio
Cur_E084CMD.SQL "SELECT ABRDER FROM E084CMD WHERE CODEMP= :VCODEMP AND CODMDP= :VCODMDP AND CODDER= :VDerCmp ";
Cur_E084CMD.AbrirCursor();
Se (Cur_E084CMD.Achou)
Inicio
VDesDer= Cur_E084CMD.ABRDER;
Se (VDesDer <> " ")
VDesPro= VDesPro + "_" + VDesDer;
Fim;
Cur_E084CMD.FecharCursor();
fim;

Cur_E700IBN.Proximo();
Fim;
Cur_E700IBN.FecharCursor();

VSDesPro= VDesPro;

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
VSCodFam ALFA Código da Família N
VSCodPro ALFA Código do Produto N
VSCodMod ALFA Código do Modelo N
VCOdCbn NÚMERO Código da Combinação N
VSDesPro ALFA Descrição do Produto S
VSCplPro ALFA Complemento do Produto S
VSDesNfv ALFA Descrição da NF do Produto 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ê?