进度条小毛病。

Dprs/CSL/Measure_Cloud.dof

@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=3
 MinorVer=1
 Release=3
-Build=1057
+Build=1062
 Debug=0
 PreRelease=0
 Special=0
@@ -126,4 +126,4 @@ CodePage=936
 [Version Info Keys]
 CompanyName=珠海纵横创新软件有限公司
 FileDescription=纵横结算决算计量一体化云版
-FileVersion=3.1.3.1057
+FileVersion=3.1.3.1062

Forms/mProgressProFrm.dfm

@@ -1,10 +1,10 @@
 object ProgressProForm: TProgressProForm
-  Left = 1179
-  Top = 324
+  Left = 810
+  Top = 350
   BorderIcons = []
   BorderStyle = bsNone
   Caption = #25552#31034
-  ClientHeight = 236
+  ClientHeight = 198
   ClientWidth = 428
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
@@ -21,7 +21,7 @@ object ProgressProForm: TProgressProForm
     Left = 0
     Top = 0
     Width = 428
-    Height = 236
+    Height = 198
     Align = alClient
     Brush.Style = bsClear
     OnMouseDown = Shape1MouseDown
@@ -73,7 +73,7 @@ object ProgressProForm: TProgressProForm
     Left = 16
     Top = 125
     Width = 393
-    Height = 104
+    Height = 68
     TabStop = False
     BorderStyle = bsNone
     Font.Charset = DEFAULT_CHARSET

Frames/ProjectFme.pas

@@ -870,7 +870,7 @@ begin
         vExportor.Free;
       end;
       ProgressProRun('生成无锁文件。OK');
-      ProgressProRun('生成并检验待审核文件...', 0);
+      ProgressProRun('生成检验文件...', 0);
       if not ProjectData.SubmitProject(sAppFile) then
         if not ProjectData.SubmitProject(sAppFile) then
         begin
@@ -878,7 +878,7 @@ begin
           Application.MessageBox('Sorry！待审核文件连续2次生成失败！如果重试后仍不能解决该问题，请联系纵横客服。', '提示', MB_OK + MB_ICONWARNING);
           Exit;
         end;
-      ProgressProRun('生成并检验待审核文件。OK', 10, pmtEdit);
+      ProgressProRun('生成检验文件。OK', 10, pmtEdit);
     end
     else if ProjectData.CurUserIsChecker then
     begin
@@ -905,7 +905,7 @@ begin
       ProgressProCreate(100, '本地数据文件上传到云端');
       ProjectData.Save;
       ProgressProRun('保存本地数据。OK');
-      ProgressProRun('生成并检验待审核文件...', 0);
+      ProgressProRun('生成检验文件...', 0);
       if not ProjectData.SubmitProject(sAppFile) then
         if not ProjectData.SubmitProject(sAppFile) then
         begin
@@ -913,7 +913,7 @@ begin
           Application.MessageBox('Sorry！待审核文件连续2次生成失败！如果重试后仍不能解决该问题，请联系纵横客服。', '提示', MB_OK + MB_ICONWARNING);
           Exit;
         end;
-      ProgressProRun('生成并检验待审核文件。OK', 10, pmtEdit);
+      ProgressProRun('生成检验文件。OK', 10, pmtEdit);
     end
     else if ProjectData.CurUserIsOwner then
     begin
@@ -942,7 +942,7 @@ begin
       ProjectData.Save;
       ProgressProRun('保存本地数据。OK', 10, pmtEdit);
 
-      ProgressProRun('生成并检验待批复文件...', 0);
+      ProgressProRun('生成检验文件...', 0);
       if not ProjectData.ReplyProject(sAppFile) then
         if not ProjectData.ReplyProject(sAppFile) then
         begin
@@ -950,7 +950,7 @@ begin
           Application.MessageBox('Sorry！批复文件连续2次生成失败！如果重试后仍不能解决该问题，请联系纵横客服。', '提示', MB_OK + MB_ICONWARNING);
           Exit;
         end;
-      ProgressProRun('生成并检验待批复文件。OK', 10, pmtEdit);
+      ProgressProRun('生成检验文件。OK', 10, pmtEdit);
     end;
   finally
     vCF.Free;
@@ -959,17 +959,17 @@ begin
   end;
 
   try
-    ProgressProRun('导出用于Web展示的清单、汇总数据等...', 0);
+    ProgressProRun('生成汇总数据...', 0);
     sJsonFile_Bills := ExtractFilePath(sAppFile) + 'JsonFile_Bills.json';
     sJsonFile_Common := ExtractFilePath(sAppFile) + 'JsonFile_Common.json';
     sMD5_JL := MD5_File(sAppFile);
     // 上传清单，每期都传，可覆盖旧的。
     ProjectData.ExportJson_Bills(sJsonFile_Bills);
     ProjectData.ExportJson_Common(sJsonFile_Common);
-    ProgressProRun('导出用于Web展示的清单、汇总数据等。OK', 10, pmtEdit);
+    ProgressProRun('生成汇总数据。OK', 10, pmtEdit);
 
 
-    ProgressProRun('生成并检验up数据包文件...', 0);
+    ProgressProRun('校验数据包...', 0);
     if FileExists(sAppFile_UnLock) then    // 要在压缩前判断，压缩完会删除
       iFile := 4
     else
@@ -982,7 +982,7 @@ begin
       Application.MessageBox('up数据包文件无法通过检验请重试！如果重试后仍不能解决该问题，请联系纵横客服。', '提示', MB_OK + MB_ICONWARNING);
       Exit;
     end;
-    ProgressProRun('生成并检验up数据包文件。OK', 10, pmtEdit);
+    ProgressProRun('校验数据包。OK', 10, pmtEdit);
     
     try
       ProgressProRun('上传数据包到云端...(温馨提示：请不要乱点哦，Windows容易死机)', 0);
@@ -990,7 +990,7 @@ begin
         sZipFile, sMD5_JL, bSubmit, sResult, ACheckPassed, sCheckerMemo) then
       begin
         DeleteFile(sAppFile);
-        ProgressProRun('上传数据包到云端。OK', 90, pmtEdit, pptSet);
+        ProgressProRun('上传数据包到云端。OK', 100, pmtEdit, pptSet);
         if ProjectData.CurUserIsChecker then
           ProjectData.Checkers.FindByID(PHPWeb.UserID).Memo := sCheckerMemo;
 

Units/ProjectData.pas

@@ -699,7 +699,8 @@ procedure TProjectData.ExportJson_Bills(const AFileName: string);
     for i := 0 to BillsMeasureData.BillsMeasureTree.Count - 1 do
     begin
       vRec := BillsMeasureData.BillsMeasureTree.Items[i].Rec;
-      ProgressProRun('导出用于Web展示的清单、汇总数据等... ' + IntToStr(i + 1), 0, pmtEdit);
+      if (i mod 100) = 0 then
+        ProgressProRun('生成汇总数据... ' + IntToStr(i), 0, pmtEdit, pptSet);
       if i = 0 then
         sSplit := ''
       else