LeMemListCompPro_2

Ler a Lista de componentes, que é carregada na função ComposicaoProduto_2 e  ComposicaoProduto_3.

Sintaxe: LeMemListCompPro_2(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);

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.

Tipo de retorno:

Exemplo:

Definir Alfa VCodNiv;
Definir Alfa VCodCmp;
Definir Alfa VDesPro;
Definir Alfa VDerCmp;
Definir Alfa VUniMed;
Definir Alfa VCodDer;
Definir Alfa VCodPro;
Definir Alfa VCodMod;
ComposicaoProduto ("CAM- 00022", "M",100,'N', 'P','S', 'S', 'S', 'S', 'P');
(VCodPro,VCodDer,EQtdInf,EUniEst,ETipDes,EDecPro,EDecMon);
FimMemList=0;
Pos=0;
Enquanto (FimMemList = 0)
Inicio
LeMemListCompPro_2(Pos, FimMemList, VCodNiv, FCodEtg, FSeqMod, VTipPro, VCodCmp, VDesPro, VDerCmp, VUniMed, FQtdTot, FPerPrd, VCodDer, VCodMod);
Se (FimMemList = 0)
Inicio
ListaSecao("Adicional_Componentes");
Pos = Pos + 1;
Fim;
Fim;

Utilização da Função (dependentes): Nenhum dependente.

Este artigo ajudou você?