|
|
@@ -288,7 +288,18 @@ var
|
|
|
#10#13 +'点击【否(N)】查看不通过计量，软件将打开本期最后审批的数据，重新打开标段' + '可再次打开本确认窗口。';
|
|
|
if Application.MessageBox(PChar(sHint), '询问', MB_YESNO + MB_ICONQUESTION) = ID_Yes then
|
|
|
begin
|
|
|
- // 无锁文件机制取消。直接从原位置再下载一遍，这次不插表。
|
|
|
+ // 查找原报的文件
|
|
|
+ sSearchURL := Format('%suser/get/%d/%d/report/file', [PHPWeb.MeasureURL, FWebID, FPhaseNo]);
|
|
|
+ case SearchFileOnline(sSearchURL, sDownURL, FWebFolder_OnLine, FWebSubFolder_OnLine, FWebBidName_OnLine, sMD5_UnLock, sError, iFolderID, iSubFolderID) of
|
|
|
+ 1: ; // 原报文件已正确找到
|
|
|
+ 0, -1:
|
|
|
+ begin
|
|
|
+ sHint := sError + ' 因网络出错，无法连接到云端以获取本期原报上传的文件，无法重新开始本期，请重试。';
|
|
|
+ Application.MessageBox(PChar(sHint), '警告', MB_OK + MB_ICONWARNING);
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
if FileDownAndReceive(sDownURL, 2) then
|
|
|
begin
|
|
|
// 这里主要是为了线上创建新一期审批人列表、更改标段状态。不再使用同步更新等。
|
|
|
@@ -302,7 +313,7 @@ var
|
|
|
|
|
|
0, -1:
|
|
|
begin
|
|
|
- sHint := sError + '（因网络出错，无法连接到云端以获取本期原报上传的无锁文件，无法重新开始本期，本次操作已取消。请重试。';
|
|
|
+ sHint := sError + ' 因网络出错，无法在线上创建新一期审批人列表、提交项目状态等，请重试。';
|
|
|
Application.MessageBox(PChar(sHint), '警告', MB_OK + MB_ICONWARNING);
|
|
|
Exit;
|
|
|
end;
|
