LeMemListCompPro

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

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

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 numérica que retorna 0 ou 1. Quando for 1 indica que acabou a lista.
CodNiv	Alfa	Nível do Componente na estrutura do Produto (retorno).
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ódígo da Derivação do Componente.
UniMed	Alfa	Unidade de Medida do Componente. Quando a variável de entrada U.M. Estoque do relatório Composição do Produto recebe 'S', mostra a unidade de U.M. de estoque (E075PRO.UniMed) e quando recebe 'N' mostra a U.M. de consumo da ficha técnica (E700CTM.UniMe2).
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.

Tipo de retorno: CodNiv: Nível do Componente na estrutura do Produto.

Exemplo:

Definir Alfa VCodNiv;

Definir Alfa VCodCmp;

Definir Alfa VDesPro;

Definir Alfa VDerCmp;

Definir Alfa VUniMed;

Definir Alfa VCodDer;

Definir Alfa VCodPro;

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(Pos, FimMemList, VCodNiv, FCodEtg, FSeqMod, VTipPro, VCodCmp, VDesPro, VDerCmp, VUniMed, FQtdTot, FPerPrd, VCodDer);

Se (FimMemList = 0)

Inicio

ListaSecao("Adicional_Componentes");

Pos = Pos + 1;

Fim;

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

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.3 (XTended)