审核人不一致检验，小Bug。

DataModules/PHPWebDm.pas

@@ -104,7 +104,7 @@ type
     procedure Debug(AFileName: string; AInFields, AInValues: array of string); overload;
     function NetError(AMid: string): string;
     function PageError(AMid: string): string;
-
+    function ExistInServer(AWebID: Integer): Boolean;
 
 
     property Account: string read FAccount write SetAccount;
@@ -662,6 +662,21 @@ begin
   Result := Search(sURL, [], [], vArr) = 1;
 end;
 
+function TPHPWeb.ExistInServer(AWebID: Integer): Boolean;
+var vArr: array of string;
+  iResult: Integer;
+  sSearchURL: string;
+begin
+  sSearchURL := Format('%stender/get/%d/exist', [PHPWeb.MeasureURL, AWebID]);
+  vArr := VarArrayOf(['id', 'name']);
+  iResult := PHPWeb.Search(sSearchURL, [''], [''], vArr);
+
+  if (iResult = 1) and (High(vArr) >= 0) then
+    Result := True
+  else
+    Result := False;
+end;
+
 initialization
 
 finalization

Dprs/CSL/Measure_Cloud.dof

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

Frames/ProjectFme.pas

@@ -1464,8 +1464,13 @@ begin
   begin
     if CheckerFrame.FirstChecker.CheckStatus = csNotBegin then
     begin
-      pnlProjectCheckStatus.Caption := '本期重新开始';
-      pnlProjectCheckStatus.Font.Color := clRed;
+      // 对于原报，要区分新建项目和打回重新开始两种情况。前者不能显示。
+      // 为了区分需要去服务器查询，势必影响速度。简单点，原报干脆不显示。
+      if not FProjectData.CurUserIsAuthor then
+      begin
+        pnlProjectCheckStatus.Caption := '本期重新开始';
+        pnlProjectCheckStatus.Font.Color := clRed;
+      end;
     end
     else if CheckerFrame.OwnerFrame.CheckStatus = csFinished then
     begin

Frames/ProjectManagerFme.pas

@@ -242,19 +242,6 @@ var
     bLock, bCanImp: Boolean;
     vFileCheck: TTenderFileChecker;
 
-    function HasWebBidInfo(AWebID: Integer): Boolean;
-    var vArr: array of string;
-      iResult: Integer;
-    begin
-      sSearchURL := Format('%stender/get/%d/exist', [PHPWeb.MeasureURL, AWebID]);
-      vArr := VarArrayOf(['id', 'name']);
-      iResult := PHPWeb.Search(sSearchURL, [''], [''], vArr);
-
-      if (iResult = 1) and (High(vArr) >= 0) then
-        Result := True
-      else
-        Result := False;
-    end;
   begin
     Result := False;
 
@@ -348,7 +335,7 @@ var
                 Application.MessageBox(PChar('已从云端下载原报上传的无锁文件到本地，但导入失败！请重试。'), '警告', MB_OK + MB_ICONWARNING);
                 Exit;
               end;
-              sHint := '【重要提示】：本期已重新开始，在上报云端之前，原报不能删除该项目或更换电脑操作。';
+              sHint := '【重要提示】：本期计量已重新开始，在本次上报完成前，请勿删除该标段或更换电脑。';
               Application.MessageBox(PChar(sHint), '提示', MB_OK + MB_ICONINFORMATION);
               // 导入更新---------------------------------↑↑↑↑↑↑↑↑↑↑↑
             end;
@@ -365,7 +352,7 @@ var
     end
     else if (iSearch = 10) then
     begin
-      if not HasWebBidInfo(FWebID) then
+      if not PHPWeb.ExistInServer(FWebID) then
       begin
         sHint :='该项目[' + FBidName + ']在云端已被删除，点击"确定"后，可手动删除该项目。';
         Application.MessageBox(PChar(sHint), '提示', MB_OK + MB_ICONINFORMATION);