Browse Source

* Fix AV in case of group header without group footer

git-svn-id: trunk@38433 -
michael 7 years ago
parent
commit
8359a6fc50
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-report/src/fpreport.pp

+ 1 - 1
packages/fcl-report/src/fpreport.pp

@@ -10197,7 +10197,7 @@ begin
     if ReprintedHeader and
     ( not lGrp.GroupChanged or
     lGrp.FNeedsReprintedHeader) and
-    ( not lGrp.GroupFooter.FIsOverflowed or
+    ( not (Assigned(lGrp.GroupFooter) and lGrp.GroupFooter.FIsOverflowed) or
       OverflowedFooterNeedsReprintedHeader ) then
     begin
       Report.FRTInRepeatedGroupHeader := True;