English
Español
BuscaComponente
Busca um componente da lista de componentes.
Sintaxe: BuscaComponente(Numero End pPos, Alfa End CodCmp,Alfa End CodDer, Numero CodEtg);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pPos | Numero | Variável que recebe a posição da lista de componentes que se quer ler. |
| CodCmp | Alfa | Variável que recebe o código do Componente que se quer ler. |
| CodDer | Alfa | Variável que recebe o código da derivação do componente que se quer ler. |
| CodEtg | Numero | Variável que recebe o código do estágio do Componente que se quer ler. |
Tipo de retorno: Componente e derivação lidos.
Exemplo:
Definir Alfa VCodPro
Definir Alfa VCodCMP
Definir Alfa VCodDer
Definir Alfa VCOdNiv
Definir Alfa VDerCmp
Definir Alfa VDesPro
Definir Alfa VuniMed
BuscaComponente(Pos,VCodCmp,VCodDer,VCodEtg);
Se (Pos = -1) @Nao achou - Imprime o componente da E900CMO com valores zerados@
inicio
VDesPro = Cur_E900CMO.DESPRO;
VDerCmp = Cur_E900CMO.CODDER;
FQtdTot = 0;
ListaSecao("Adicional_Comp");
fim;
Senao
inicio
LeMemListCompPro(Pos,FimMemList,VCodNiv,FCodEtg,FSeqMod,VTipPro,VCodCmp,VDesPro,
VDerCmp,VUniMed,FQtdTot,FPerPrd,VCodDer);
Se (FimMemList = 0)
ListaSecao("Adicional_Comp");
Fim;
Cur_E900CMO.proximo();
Utilização da Função (dependentes): ComposicaoProduto e LeMemListComPro.
Observações: Esta função é utilizada ro relatórios de OPs finalizadas (PRPO070.GER).
English
Español
