MontaListPosEst
Traz a posição do estoque em determinada data, Saldo em Estoque, Quantidade em Estoque, Preço Médio.
Sintaxe: MontaListPosEst(Numero Empresa,Numero Data, Alfa Produto,Alfa Derivação, Alfa Depósito,Alfa Origem,Alfa Familia,Alfa Agrupar);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| Empresa | Numero | Variável que recebe o código da empresa. |
| Data | Numero | Busca a movimentação do estoque até a data informada. |
| Produto | Alfa | Variável que recebe o código do produto. |
| Derivação | Alfa | Variável que recebe o código da derivação. |
| Depósito | Alfa | Variável que recebe o código do depósito. |
| Origem | Alfa | Variável que recebe o código da origem. |
| Família | Alfa | Variável que recebe o código da família. |
| Agrupar | Alfa | Neste parâmetro será informado "S" ou "N" conforme necessidade de agrupar ou não o saldo em estoque por produto. |
Tipo de retorno: O retorno será trazido pela função "LEMEMLISTPOSEST".
Exemplo:
definir alfa vcodori;
definir alfa vcodfam;
definir alfa vcodpro;
definir alfa vcodder;
definir alfa vcoddep;
definir data vdatest;
definir alfa vdespro;
definir alfa vdesnfv;
definir alfa vcplpro;
definir alfa vclafis;
definir alfa vunimed;
definir alfa vflgagr;
vcodori= "ACA";
vcodfam= "FCON";
vcodpro= "CA00101";
vcodder= "";
vcoddep= "DEPACA";
vflgagr= "N"; /* flag que indica se irá ou não agrupar por produto */
MONTADATA (01,01,1999,vdatest);
FimMemList = 0;
Pos = 0;
/* Chamando a função para carregar a posição do estoque conforme os parâmetros informados*/
MONTALISTPOSEST(1,vdatest,vcodpro,vcodder,vcoddep,vcodori,vcodfam,vflgagr);
Enquanto (FimMemList = 0)
inicio /* Lendo a posição do estoque carregada anteriormente*/
LeMemListPosEst(Pos,FimMemList,vcoddep,vcodori,vcodfam,vcodpro,codder,vdespro, fqtdest, fpremed, fvlrest,
vdesnfv, vcplpro, vunimed, vclafis);
Se (FimMemList = 0)
Inicio VQtdEst=FQtdest; /* Quantidade em Estoque */
VVlrEst=FVlrESt; /* Valor do Estoque */
VPreMed=FPreMed; /* Preço Médio */
Pos = Pos + 1;
Fim;
Fim;
Utilização da Função (Dependentes): LEMEMLISTPOSEST.
English
Español
English
Español


