材料摊销费用计算，应缓存累计完成计量

DataModules/StageDm.pas

@@ -850,6 +850,8 @@ begin
     begin
       Rec.AddDifferValue(Rec.GatherTotalPrice, fDiffer);
       Rec.AddDifferValue(Rec.EndGatherTotalPrice, fDiffer);
+      with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsMeasureData do
+        UpdateGather(iPriceMarginID, fDiffer);
       UpdateParentRecord(Rec.BillsID.AsInteger, fDiffer, 'GatherTotalPrice');
     end;
   end;
@@ -1020,6 +1022,8 @@ begin
     begin
       Rec.AddDifferValue(Rec.GatherTotalPrice, fDiffer);
       Rec.AddDifferValue(Rec.EndGatherTotalPrice, fDiffer);
+      with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsMeasureData do
+        UpdateGather(iMaterialID, fDiffer)
       UpdateParentRecord(Rec.BillsID.AsInteger, fDiffer, 'GatherTotalPrice');
     end;
   end;