English
Español
LeMemListMovMensaisMoeda
Esta função lê uma lista em memória criada no Fechamento de Saldos da Tesouraria, retornando os valores dos movimentos na moeda da conta.
Sintaxe: Funcao LeMemListMovimentosMensaisMoeda(Numero pPos, Numero End pFim, Numero End p0,Numero End p1, Numero End p2, Alfa End p3);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pPos | Numero | |
| pFim | Numero | |
| p0 | Numero | |
| p1 | Numero | |
| p2 | Numero | |
| p3 | Alfa |
Exemplo:
Definir Alfa VHisMov[30];
Definir Alfa VCodTns[05];
Definir Alfa VDebCre[01];
Definir Alfa VSitMcc[01];
se (IniciouRel = 0)
{
IniciouRel = 1;
PosMemListMes = 0;
FimMemListMes = 0;
PosMemListMcc = 0;
FimMemListMcc = 0;
LeMemListSaldosMensais(PosMemListMes, FimMemListMes, FDatCmp, FSAnMes, FSAnCal, FSAnDif,
FSCrMes, FSCrCal, FSCrDif, FSDeMes,
FSDeCal, FSDeDif, FSMeMes, FSMeCal, FSMeDif);
LeMemListSaldosMensaisMoeda(PosMemListMes, FimMemListMes, FSAnMem, FSAnCam, FSAnDim,
FSCrMem, FSCrCam, FSCrDim, FSDeMem,
FSDeCam, FSDeDim, FSMeMem, FSMeCam, FSMeDim);
enquanto (FimMemListMes = 0)
{
ListaSecao("Adicional_Cabecalho_Mes");
ListaSecao("Adicional_Mes");
PosMemListMes++;
DatCmp = FDatCmp;
LeMemListMovimentosMensais(PosMemListMcc, FimMemListMcc, DatCmp, FDatPer, FSeqMov,
VCodTns, VHisMov, FVlrMov, VDebCre,
FSalCal, VSitMcc);
LeMemListMovimentosMensaisMoeda(PosMemListMcc, FimMemListMcc, FVlrMoe, FSalCmo, FVlrMol,
FSalCml);
PosMemListMcc++;
se ((FimMemListMcc = 0) e (FDatCmp = DatCmp))
ListaSecao("Adicional_Cabecalho_Mcc");
enquanto ((FDatCmp = DatCmp) e (FimMemListMcc = 0))
{
ListaSecao("Adicional_Mcc");
PosMemListMcc++;
LeMemListMovimentosMensais(PosMemListMcc, FimMemListMcc, DatCmp, FDatPer, FSeqMov,
VCodTns, VHisMov, FVlrMov, VDebCre,
FSalCal, VSitMcc);
LeMemListMovimentosMensaisMoeda(PosMemListMcc, FimMemListMcc, FVlrMoe, FSalCmo, FVlrMol,
FSalCml);
}
LeMemListSaldosMensais(PosMemListMes, FimMemListMes, FDatCmp, FSAnMes, FSAnCal, FSAnDif,
FSCrMes, FSCrCal, FSCrDif,
FSDeMes, FSDeCal, FSDeDif, FSMeMes, FSMeCal, FSMeDif);
LeMemListSaldosMensaisMoeda(PosMemListMes, FimMemListMes, FSAnMem, FSAnCam, FSAnDim,
FSCrMem, FSCrCam, FSCrDim, FSDeMem,
FSDeCam, FSDeDim, FSMeMem, FSMeCam, FSMeDim);
}
Observações: O relatório que utiliza esta função só funcionará através do Fechamento de Saldos da Tesouraria, e utilizando a função em conjunto com a LeMemListMovimentosMensais.
English
Español
