多审表报错

DataModules/ReportMemoryDm/rmFxBillsAddDm.pas

@@ -124,7 +124,7 @@ type
     function AddBills(ANode: TsdIDTreeNode; AParent: TAllPhaseCacheNode): TAllPhaseCacheNode;
 
     procedure LoadStageData(AStageData: TStageData; APhaseIndex: Integer);
-    procedure LoadPhaseData(APhaseIndex: Integer);
+    procedure LoadPhaseData(APhaseIndex: Integer; AProjectData: TProjectData = nil);
 
     procedure WriteBills(ANode: TAllPhaseCacheNode);
   public
@@ -168,7 +168,7 @@ begin
   try
     AddBills(FProjectData.BillsCompileData.BillsCompileTree.FirstNode, nil);
     for iPhase := 1 to FProjectData.ProjProperties.PhaseCount do
-      LoadPhaseData(iPhase);
+      LoadPhaseData(iPhase, FProjectData);
     WriteBills(TAllPhaseCacheNode(FAllPhaseCacheTree.FirstNode));
   finally
     Result := cdsBills;
@@ -177,12 +177,12 @@ begin
   end;
 end;
 
-procedure TrmFxBillsAddData.LoadPhaseData(APhaseIndex: Integer);
+procedure TrmFxBillsAddData.LoadPhaseData(APhaseIndex: Integer; AProjectData: TProjectData = nil);
 var
   PhaseData: TPhaseData;
   StageData: TStageData;
 begin
-  PhaseData := TPhaseData.Create(nil);
+  PhaseData := TPhaseData.Create(AProjectData);
   try
     PhaseData.SimpleOpen(Format('%s\Phase%d.dat', [FProjectData.TempPath, APhaseIndex]));
     if PhaseData.IsLastStage then