* * *

Author Topic: Relatório totalização com saldo acumulado Fortes Report  (Read 333 times)

TeoUrbana

  • New member
  • *
  • Posts: 13
Olá pessoal, tentarei ser claro.

Estou com dificuldades no Fortes Report.
É um relatório com a movimentação diária, ordenado por dia e ao fim do dia, um resumo das entradas e saídas, o saldo do dia e o saldo acumulado (saldo anterior + atual).

O problema está no SALDO ACUMULADO.

Quero o seguinte, exemplo:

Consideremos ter um saldo anterior de R$10,00

01/01/2017  fulano1  entrada  90,00
01/01/2017  fulano2  saída    10,00
01/01/2017  fulano3  saída     5,00
--------------------------------------
Total entrada  90,00
Total saída    15,00

Saldo do dia  75,00 (90,00 - 15,00)
Saldo acumulado  85,00 (10,00 + 75,00) 
---------------------------------------

02/01/2017  fulano1  saída  20,00
---------------------------------------
Total entrada   0,00
Total saída    20,00

Saldo do dia  - 20,00 (0,00 - 20,00)
Saldo acumulado  65,00 (- 20,00 + 85,00)
---------------------------------------


Uso um RLGroup e dentro tem o RLBandDetail e RLBandSummary.
Dentro do Summary uso RLDBResult para a totalização.
Cheguei perto da solução com o seguinte código:

Code: Pascal  [Select]
  1. procedure TfrmRelatorioMovCaixa.RLDBResult10BeforePrint(Sender: TObject; var OutputText: string; var PrintIt: boolean);
  2. begin
  3.    saldo := saldo + RLDBResult9.Value;  // saldo já com valor inicializado
  4.    RLDBResult10.DataFormula := FloatToStr(saldo);
  5. end;

O problema é que está jogando o saldo acumulado no dia seguinte. No exemplo acima o saldo de R$75,00 do dia 01 é lançado no acumulado do dia 02/01/2017 e o saldo do dia 02 no Saldo cumulado do dia 03/01/2017 e assim por diante.

Tentei este código no BeforePrint e AfterPrint das bandas também, mas sem sucesso.

Tentei ser breve e claro, espero que possam me ajudar.
« Last Edit: May 31, 2017, 04:27:19 pm by TeoUrbana »

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus