Bug 接收上报文件后，未升级最新审核人调差工料计算数据

Units/ProjectData.pas

@@ -580,6 +580,21 @@ begin
 end;
 
 procedure TProjectData.UpdatePhaseData;
+
+  procedure UpdateGLPriceData;
+  const
+    sUpdateSql = 'Update GLPrice Set PM_Quantity%d = PM_Quantity%d, PM_TotalPrice%d = PM_TotalPrice%d'+
+                 '  Where PhaseID = %d';
+  var
+    sSql: string;
+  begin
+    if (ProjProperties.PhaseCount < 1) or (ProjProperties.AuditStatus < 1) then Exit;
+
+    with ProjProperties do
+      sSql := Format(sUpdateSql, [AuditStatus, AuditStatus-1, AuditStatus, AuditStatus-1, PhaseCount]);
+    ExecuteSql(sSql);
+  end;
+
 var
   iPhase: Integer;
 begin
@@ -589,6 +604,7 @@ begin
     SetPhaseIndexSimple(iPhase);
     PhaseData.CreateNewAuditData;
     StaffData.UpdateDataForNewAudit;
+    UpdateGLPriceData;
   end;
 end;