上报提示重复，屏蔽第一遍提示。

Frames/ProjectFme.pas

@@ -832,18 +832,20 @@ begin
   Screen.Cursor := crHourGlass;
   try
     FProjectData.CalculateAll;
-    sHint := Format('本期计量：￥%.2f元' + #13#10, [ProjectData.PhaseData.PhasePayData.Bqwc[1]]);
 
-    sHint := sHint + '审批流程：' + PHPWeb.RealName;
-    for i := 0 to ProjectData.Checkers.Count - 1 do
-    begin
-      c := ProjectData.Checkers.Item[i];
-      sHint := sHint + ' > ' + c.Name;
-    end;
-    sHint := sHint + #13#10;
-    sHint := sHint + '上报后将不可更改，确定要上报吗？';
-    if (not QuestMessageYesNo(sHint)) then Exit;
-    
+    // 这里的数据没更新，且提示重复，直接去掉。
+//    sHint := Format('本期计量：￥%.2f元' + #13#10, [ProjectData.PhaseData.PhasePayData.Bqwc[1]]);
+//
+//    sHint := sHint + '审批流程：' + PHPWeb.RealName;
+//    for i := 0 to ProjectData.Checkers.Count - 1 do
+//    begin
+//      c := ProjectData.Checkers.Item[i];
+//      sHint := sHint + ' > ' + c.Name;
+//    end;
+//    sHint := sHint + #13#10;
+//    sHint := sHint + '上报后将不可更改，确定要上报吗？';
+//    if (not QuestMessageYesNo(sHint)) then Exit;
+
     UpToWeb(True);
   finally
     Screen.Cursor := crDefault;