English
Español
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:
- 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ódígo do Componente.
- DesPro: Descrição do Produto
- DerCmp: Códígo 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.
- ObsCmp: Observação do componente (mensagem de erro, se houver).
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;
English
Español
