Bug #1073 清单汇总--详细清单--调差工料，删除调差工料应实时计算

DataModules/PriceMarginBillsDm.pas

@@ -327,16 +327,18 @@ begin
     with TProjectData(FProjectData).ProjectGLData do
       CalculateGL_PM(ARec.GLID.AsInteger);
     // 更新清单调差数据，材料调差节点数据
-    {with TProjectData(FProjectData).PhaseData.StageData do
+    with TProjectData(FProjectData).PhaseData.StageData do
     begin
       CalculatePriceMargin(ARec.BillsID.AsInteger);
-      CalculatePriceMarginNode;
-    end;}
+      //CalculatePriceMarginNode;
+    end;
     // 更新价差清单内存表信息
     with TProjectData(FProjectData).PriceMarginBillsData do
       RefreshDetailBills(ARec.BillsID.AsInteger);
     // 更新合同支付
     //TProjectData(FProjectData).PhaseData.PhasePayData.CalculateAll;
+    // 更新合计值
+    TProjectData(FProjectData).ProjectGLData.RefreshGatherData;
   end;
 end;