Identificador de Regra

ENG-700RETCB01

Módulo: ENG - Engenharia Produto.

Finalidade: Retornar número da última combinação gerada para um agrupametos de modelos com a mesma referência.

Tela: Geração de Combinações

Transação: Não se aplica.

Regra:

Definir alfa VSCodMod;
Definir alfa VSCodFam;
Definir alfa VSCodFamAux;
Definir alfa VSCodModAux;
Definir numero VPosStr;
Definir numero VCodCbn;
Definir Cursor Cur_E700CBN;

PosicaoAlfa("-", VSCodMod, VPosStr);
Se (VPosStr > 1)
CopiarAlfa(VSCodMod, 0, VPosStr-1);

VCodCbn=0;
VCodEmp = CodEmp;
VSCodFamAux = VSCodFam;
VSCodModAux = " E700CBN.CODMOD LIKE '" + VSCodMod + "%'";

Cur_E700CBN.SQL"SELECT E700CBN.CODCBN FROM E700CBN,E700MOD WHERE E700CBN.CODEMP=:VCodEmp \
AND E700CBN.CODEMP = E700MOD.CODEMP \
AND E700CBN.CODMOD = E700MOD.CODMOD \
AND E700MOD.CODFAM = :VSCodFamAux AND \
__Inserir(:VSCodModAux) \
ORDER BY 1 DESC";
Cur_E700CBN.AbrirCursor();
Se(Cur_E700CBN.Achou)
VCodCbn=Cur_E700CBN.CodCbn;
Cur_E700CBN.FecharCursor();
VCodCbn=VCodCbn+1;

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
VSCodMod ALFA Código do Modelo N
VSCodFam ALFA Código da Família N
VCodCbn ALFA Código da Combinação 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ê?