Bug 材料摊销费用实时计算问题

DataModules/StageDm.pas

@@ -996,7 +996,7 @@ var
   Rec: TStageRecord;
   fDiffer: Double;
 begin
-  if not HasPriceMarginBills then Exit;
+  if not HasMaterialBills then Exit;
 
   with TProjectData(TPhaseData(FPhaseData).ProjectData) do
   begin

DataModules/StageLeafXmjGlDm.pas

@@ -298,6 +298,7 @@ begin
       ProjGLRec := ProjectGLData.ProjectGLRec(Rec.GLID);
       CalculatePALRela(Rec, ProjGLRec);
       ProjectGLData.CalculatePALRela(ProjGLRec);
+      PhaseData.StageData.CalculateMaterialNode;
     end;
   end;
 end;