English
Español
AgrupaComponentes
Agrupa, na lista de componentes de um produto, os componentes do mesmo estágio e sequência do Componente no Modelo.
Sintaxe: AgrupaComponentes(Numero End pPos) ;
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pPos | Numero |
Variável numérica que deve conter a posição atual na lista de componentes. É o próprio parâmetro "pos" que é passado por referência, e portando retorna a posição atual da lista de componentes. |
Tipo de retorno: Pos: é o próprio parâmetro "pos" que é passado por referência, e portando retorna a posição atual da lista de componentes.
Exemplo:
Definir Alfa VCodPro
Definir Alfa VCodDer
Definir Alfa VCodNiv
Definir Alfa VCodCmp
Definir Alfa VDesPro
Definir Alfa VDerCmp
Definir Alfa VuniMed
ComposicaoProduto(VCodPro,VCodDer,EQtdInf,EUniEst,EDecPro,EDecMon,DelMon,LmpLis,JunDer,ETipDes);
Enquanto (FimMemList = 0)
inicio
LeMemListCompPro(Pos,FimMemList,VCodNiv,FCodEtg,FSeqMod,VTipPro,VCodCmp,VDesPro,
VDerCmp,VUniMed,FQtdTot,FPerPrd,VCodDer);
Se (FimMemList = 0)
Inicio
ListaSecao("Adicional_Composicao2");
ListaSecao("Adicional_Composicao");
Enquanto (Pos >= 0)
Inicio
AgrupaComponentes(Pos);
Se (Pos >= 0)
Inicio
LeMemListCompPro(Pos,FimMemList,VCodNiv,FCodEtg,FSeqMod,VTipPro,VCodCmp,VDesPro,
VDerCmp,VUniMed,FQtdTot,FPerPrd,VCodDer);
ListaSecao("Adicional_Composicao");
Fim;
Fim;
Pos = 0;
Fim;
Fim;
Utilização da Função (dependentes): ComposicaoProduto e LeMemListCompPro.
Observações: Esta função é utilizada no modelo de Ficha Técnica do produto - PRGE030.ger.
English
Español
