报表，清单汇总，生成数据前清空一次旧数据

Report/ReportPrepare.pas

@@ -16,7 +16,7 @@ type
     procedure PrepareGclGatherData;
   public
     constructor Create(AProjectData: TProjectData);
-    destructor Destroy;
+    destructor Destroy; override;
 
     procedure PrepareData(AFlag: Integer);
   end;
@@ -33,6 +33,7 @@ constructor TReportPrepare.Create(AProjectData: TProjectData);
 begin
   FProjectData := AProjectData;
   FPrepareGclGather := False;
+  FProjectData.ClearReportPrepareData;
 end;
 
 destructor TReportPrepare.Destroy;