From 66b826e5cf959745bd5ef7f289c47f70e47dd3f2 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 8 Sep 2023 11:29:09 +0000
Subject: [PATCH] RxFPC:fix cal footer row

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8922 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdb/rxdbgrid.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/rx/trunk/rxdb/rxdbgrid.pas b/components/rx/trunk/rxdb/rxdbgrid.pas
index 093c4b6a2..052e61c05 100644
--- a/components/rx/trunk/rxdb/rxdbgrid.pas
+++ b/components/rx/trunk/rxdb/rxdbgrid.pas
@@ -6090,7 +6090,7 @@ begin
 
   for C in Columns do
   begin
-    if (C.Footer.ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and C.Visible then
+    if (C.Footer.ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and C.Visible and (C.Footer.FieldName<>'') then
     begin
       FCList.Add(C);
       C.Footer.FField:=DHS.FieldByName(C.Footer.FieldName);
@@ -6098,7 +6098,7 @@ begin
 
     for F in C.Footers do
     begin
-      if (F.ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and C.Visible then
+      if (F.ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and C.Visible and (F.FieldName<>'') then
       begin
         if FCList.IndexOf(C) < 0 then
           FCList.Add(C);