Report, Final 02, add Gather Data

DataModules/ReportMemoryDm/rmBillsGatherDm.pas

@@ -1200,7 +1200,7 @@ begin
   WriteEstimateNode(TReportCacheNode(FCacheTree.FirstNode));
   if GatherType = bgtG_Final06_1 then
     ReWriteENodeDataAsGather(TReportCacheNode(FCacheTree.FirstNode), '土地征用及拆迁补偿费用合计');
-  if GatherType = bgtEstimate1 then
+  if GatherType in [bgtEstimate, bgtEstimate1] then
     WriteEstimateGatherNode;
 end;