English
Español
LeMemListTRegCdp
Transportar para o relatório os dados do registro que é carregado na consulta de divergências entre produtos solicitados e ordens de compras.
Sintaxe: LeMemListTRegCdp (Numero Pos,Numero End pFim,Alfa End CodPro,Alfa End CodDer, 'Numero End QtdSol,Numero End QtdCot,Numero End QtdPed,Numero End PerDif,Numero End VlrCpr,Alfa End Status);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| Pos | Numero | Variável que recebe a posição inicial da lista. |
| pFim | Numero | Variável que retorna a posição final da lista. |
| CodPro | Alfa | Variável que retorna o código do produto. |
| CodDer | Alfa | Variável que retorna o código da derivação. |
| QtdSol | Numero | Variável que retorna a quantidade solicitada. |
| QtdCot | Numero | Variável que retorna a quantidade cotada. |
| QtdPed | Numero | Variável que retorna a quantidade pedida. |
| PerDif | Numero | Variável que retorna o percentual de diferença. |
| VlrCpr | Numero | Variável que retorna valor da compra. |
| Status | Alfa | Variável que retorna Status do percentual de diferença. |
Tipo de retorno:
pFim: Variável numérica que retorna a posição final da lista.
CodPro: Variável alfanumérica que retorna o código do produto.
CodDer: Variável alfanumérica que retorna o código da derivação.
QtdSol: Variável numérica que retorna a quantidade solicitada.
QtdCot: Variável numérica que retorna a quantidade cotada.
QtdPed: Variável numérica que retorna a quantidade pedida.
PerDif: Variável numérica que retorna o percentual de diferença
VlrCpr: Variável numérica que retorna valor da compra;
Status: Variável alfanumérica que retorna Status do percentual de diferença.
Exemplo:
Definir Alfa LCodPro;
Definir Alfa LCodDer;
Definir Alfa LStatus;
Definir Alfa CodPro;
Definir Alfa CodDer;
Definir Alfa Status;
FimMemList = 0;
Pos = 0;
Enquanto (FimMemList = 0)
inicio
LeMemListTRegCdp(Pos,FimMemList,CodPro,CodDer,QtdSol,QtdCot,QtdPed,PerDif,VlrCpr,Status);
se (FimMemList = 0)
inicio
LcodPro = CodPro;
LCodDer = CodDer;
LqtdSol = QtdSol;
LQtdCot = QtdCot;
LqtdPed = QtdPed;
LPerDif = PerDif;
LVlrCpr = VlrCpr;
LStatus = Status;
ListaSecao("Adicional_Itens");
Pos = Pos + 1;
Fim;
Fim;
Utilização da Função (dependentes): Nenhum dependente.
Observações: Esta tela é chamada à partir do botão imprimir da tela de Consulta Divergências entre Produtos Solicitados e O.C. que fica em Estoques \ Consultas \ Divergências.
English
Español
