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: