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:
- CodNiv: Nível do Componente na estrutura do Produto.
- CodEtg: Estágio de Fabricação do Componente.
- SeqMod: Seq. do Componente no Modelo de Produção.
- TipPro: Tipo do Componente.
- CodCmp: Código do Componente.
- DesPro: Descrição do Produto.
- DerCmp: Código da Derivação do Componente.
- UniMed: Unidade de Medida do Componente.
- QtdTot: Qtde que foi utilizada explosão do Produto, e que foi utilizada pelos componentes.
- PerPrd: Qtde de Perda do Componente.
- CodDer: Código da derivação do produto final.
- CodMod: Código do modelo do produto pai onde está inserido componente/produto intermediário.
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.