debug版本，控制报表所需数据生成，以供制作报表时使用

Forms/ReportsFrm.pas

@@ -209,7 +209,8 @@ begin
     ReportsForm.ShowModal;
   finally
     ReportsForm.Free;
-    AProjectData.ClearReportCacheData;
+    if not _IsDebugView then
+      AProjectData.ClearReportCacheData;
   end;
 end;
 

Units/ProjectData.pas

@@ -1144,7 +1144,10 @@ begin
   if _IsCloud then
     SaveCloudInfo;
   if _IsDebugView then
+  begin
+    sleep(2000);
     SaveDebugFile('Report.dat');
+  end;
 
   MeasureLog.AppendLogTo('Display Reports Prepare --> Pass');
 end;