LeMemListSaldosMensais

Esta função lê uma lista em memória criada no Fechamento de Saldos da Tesouraria, retornando os saldos.

Sintaxe: Funcao LeMemListSaldosMensais(Numero pPos,Numero End pFim,Numero End p0,Numero End p1,Numero End p2,Numero End p3,Numero End p4,Numero End p5,Numero End p6,Numero End p7,Numero End p8,Numero End p9,Numero End pa,Numero End pb,Numero End pc);

Parâmetros:

Nome	Tipo	Descrição
pPos	Numero	Posição inicial da lista a ser lida.
pFim	Numero	Posição final a ser lida na lista.
p0	Numero
p1	Numero
p2	Numero
p3	Numero
p4	Numero
p5	Numero
p6	Numero
p7	Numero
p8	Numero
p9	Numero
pa	Numero
pb	Numero
pc	Numero

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);

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);
  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);
  }
  LeMemListSaldosMensais(PosMemListMes, FimMemListMes, FDatCmp, FSAnMes, FSAnCal, FSAnDif, FSCrMes, FSCrCal, FSCrDif, FSDeMes, FSDeCal, FSDeDif, FSMeMes, FSMeCal, FSMeDif);
}

Observações: O relatório que utiliza esta função só funcionará através do Fechamento de Saldos da Tesouraria.

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.3 (XTended)