From a6b0e4badc1fccc6a702f6eac6e1ac0e184dfdfc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 10 Jan 2025 22:10:20 +0100
Subject: [PATCH] * Fix aggregates calculation. Fixes issue #41018

(cherry picked from commit 7fa6fa257b0db7472a5261721abff092ef59eb9b)
---
 packages/fcl-report/src/fpreport.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-report/src/fpreport.pp b/packages/fcl-report/src/fpreport.pp
index 4e05c19610..c1515a4738 100644
--- a/packages/fcl-report/src/fpreport.pp
+++ b/packages/fcl-report/src/fpreport.pp
@@ -12226,11 +12226,11 @@ begin
         {$endif}
         // DumpData(aPageData);
         PrepareRecord(aData);
-        Report.UpdateAggregates(aPage,aData);
         if FNewPage then
           StartNewPage;
         ShowDataHeaderBand;
         HandleGroupBands;
+        Report.UpdateAggregates(aPage,aData);
         ShowDataBand;
         aData.Next;
         end;