LeMemListMovimentosMensais

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

Sintaxe: Funcao LeMemListMovimentosMensais(Numero pPos, Numero End pFim, Numero End p0,Numero End p1, Numero End p2, Alfa End p3, Alfa End p4, Numero End p5, Alfa End p6, Numero End p7, Alfa End p8, Alfa End p9);

Parâmetros:

Nome	Tipo	Descrição
pPos	Numero	Posição da lista a ser lida.
pFim	Numero	Posição final a ser lida na lista.
p1
p2
p3
p4
p5
p6
p7
p8
p9		Conta interna do movimento.

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)