English
Español
LeMemListSaldosMensais2
Esta função faz a leitura complementar uma lista em memória criada no Fechamento de Saldos da Tesouraria, retornando os saldos.
Sintaxe: LeMemListSaldosMensais2(Numero pPos,Numero End pFim,Alfa End Conta)
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pPos | Numero | Posição da lista em memória. |
| pFim | Numero | Final da lista (0 - não e 1- sim) . |
| Conta | Alfa | Conta interna. |
Tipo de retorno:
pFim - Final da lista (0 - não e 1- sim) .
Conta - Conta interna.
Exemplo:
Definir Alfa VHisMov[30];
Definir Alfa VCodTns[05];
Definir Alfa VDebCre[01];
Definir Alfa VSitMcc[01];
Definir Alfa VConta[14];
Definir Alfa Conta[14];
se (IniciouRel = 0)
{
IniciouRel = 1;
PosMemListMes = 0;
FimMemListMes = 0;
LeMemListSaldosMensais(PosMemListMes, FimMemListMes, FDatCmp, FSAnMes,
FSAnCal, FSAnDif, FSCrMes, FSCrCal, FSCrDif,
FSDeMes, FSDeCal, FSDeDif, FSMeMes, FSMeCal, FSMeDif);
LeMemListSaldosMensais2(PosMemListMes,FimMemListMes,VConta);
enquanto (FimMemListMes = 0)
{
ListaSecao("Adicional_Cabecalho_Mes");
ListaSecao("Adicional_Mes");
PosMemListMes++;
DatCmp = FDatCmp;
Conta = VConta;
PosMemListMcc = 0;
FimMemListMcc = 0;
InicioMcc = 0;
enquanto (FimMemListMcc = 0)
{
LeMemListMovimentosMensais(PosMemListMcc,
FimMemListMcc, DatCmp, FDatPer, FSeqMov, VCodTns, VHisMov,
FVlrMov, VDebCre,
FSalCal, VSitMcc,Conta);
se ((FDatCmp = DatCmp)
e (VConta = Conta) e (FimMemListMcc = 0))
{
Se
(InicioMcc = 0)
{
ListaSecao("Adicional_Cabecalho_Mcc");
InicioMcc
= 1;
}
ListaSecao("Adicional_Mcc");
}
PosMemListMcc++;
}
LeMemListSaldosMensais(PosMemListMes,
FimMemListMes, FDatCmp, FSAnMes, FSAnCal, FSAnDif, FSCrMes, FSCrCal, FSCrDif,
FSDeMes, FSDeCal, FSDeDif, FSMeMes, FSMeCal,
FSMeDif);
LeMemListSaldosMensais2(PosMemListMes,FimMemListMes,VConta);
}
}
Utilização da Função (dependentes): LeMemListSaldosMensais
Observações: O relatório que utiliza esta função só funcionará através do Fechamento de Saldos da Tesouraria.
English
Español
