English
Español
LeMemListExtCli
Esta função lê uma lista em memória criada na Consulta Extrato de Clientes.
Sintaxe: LeMemListExtCli (Numero pPos,Numero End pFim,Numero End pF,Alfa End pT,Alfa End pTpt,Numero End pSeq,Numero End pCli,Alfa End pTns,Numero End pDat,Numero End pVlr,Alfa End pSin,Numero End pDup,Numero End pOut,Numero End pCre,Alfa End pApe);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pPos | Numero | |
| pFim | Numero | |
| pF | Numero | |
| pT | Alfa | |
| pTpt | Alfa | |
| pSeq | Numero | |
| pCli | Numero | |
| pTns | Alfa | |
| pDat | Numero | |
| pVlr | Numero | |
| pSin | Alfa | |
| pDup | Numero | |
| pOut | Numero | |
| pCre | Numero | |
| pApe | Alfa |
Exemplo:
Se (IniciouRel=0)
Inicio
IniciouRel=1;
PosMemList = 0;
CodCliAux = 0;
Enquanto (FimMemList = 0)
Inicio
LeMemListExtCli(PosMemList,FimMemList,FCodFil,VNumTit,VCodTpt,FSeqMov,FCodCli,VCodTns,FDatMov,
FVlrMov,VSomSub,FSalDup, FSalOut, FSalCre, VApeCli);
Se (FimMemList = 0)
Inicio
Se (CodCliAux <> FCodCli)
Inicio
CodCliAux = FCodCli;
ListaSecao("Adicional_2");
Fim;
ListaSecao("Adicional_1");
PosMemList++;
Fim;
Fim;
Fim;
Utilização da Função (dependentes): Nenhum dependente.
Observações: O relatório que utiliza esta função só funcionará através da Consulta Extrato de Clientes.
English
Español
