|
|
@@ -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
|
