LeMemListCompPro_3

Ler a Lista de componentes, que é carregada na função ComposicaoProduto e/ou na função ComposicaoCombinacao.

Sintaxe: LeMemListCompPro_3(Numero Pos, Numero End Fim, Alfa End CodNiv,Numero End CodEtg,Numero End SeqMod,Numero End TipPro,Alfa End CodCmp,Alfa End DesPro,Alfa End DerCmp,Alfa End UniMed,Numero End QtdTot,Numero End PerPrd, Alfa end CodDer, Alfa end CodMod, Alfa end ObsCmp);

Parâmetros:

Nome Tipo Descrição
Pos Numero Variável que deve conter a posição atual na lista de componentes.
Fim Numero Variável que retorna 0 ou 1. Quando for 1 indica que acabou a lista.
CodNiv Alfa Nível do Componente na estrutura do Produto.
CodEtg Numero Estágio de Fabricação do Componente.
SeqMod Numero Seq. do Componente no Modelo de Produção.
TipPro Numero Tipo do Componente.
CodCmp Alfa Código do Componente.
DesPro Alfa Descrição do Produto.
DerCmp Alfa Código da Derivação do Componente.
UniMed Alfa Unidade de Medida do Componente.
QtdTot Numero Qtde que foi utilizada explosão do Produto, e que foi utilizada pelos componentes.
PerPrd Numero Qtde de Perda do Componente.
CodDer Alfa Código da derivação do produto final.
CodMod Alfa Código do modelo do produto pai onde está inserido componente/produto intermediário.
ObsCmp Alfa Observação do componente (mensagem de erro, se houver).

Tipo de retorno:

Exemplo:

Definir Alfa ecodmod;
Definir numero ecodcbn;
Definir Alfa pcodmod;
Definir Alfa pcodder;
Definir Alfa VCodCmp[14];
Definir Alfa VDesPro[20];
Definir Alfa VDerCmp[07];
Definir Alfa VUniMed[03];
Definir Alfa VCodNiv[20];
Definir Alfa pCodDer[07];
Definir Alfa StrAux;
Definir Alfa VObsCmp;

pCodmod=ecodmod;
pCodcbn=ecodcbn;
Pos = 0;
pTipDes='P';
pjunDer = 'S'; @Adiciona Codder no COmparSize@
pLmpLis = 'S'; @Limpa a lista a cada nova derivação@
pDelMon = 'N';
pCodDer = "1";
pQtdInf = 10;
pDecPro = 'S';
pDecMon = 'S';

FimMemList = 0;

ComposicaoCombinacao(pCodMod,pCodCbn,pCodDer,pQtdInf,pUniEst,pDecPro,pDecMon,pDelMon,pLmpLis,pJunDer,pTipDes);
Enquanto (FimMemList = 0)
inicio
LeMemListCompPro_3(Pos,FimMemList,VCodNiv,FCodEtg,FSeqMod,VTipPro,VCodCmp,VDesPro,VDerCmp,VUniMed,FQtdTot,FPerPrd,pCodDer,StrAux,VObsCmp);
Se (FimMemList = 0)
Inicio
ListaSecao ("Adicional_1");
Pos = Pos + 1;
Fim;
Fim;

Este artigo ajudou você?