|
@@ -1019,6 +1019,12 @@ begin
|
|
|
begin
|
|
|
ProgressProHide;
|
|
|
WarningMessage('数据无法上传:' + sResult, ProgressProHandle);
|
|
|
+ if Pos('审批完毕', sResult) > 0 then
|
|
|
+ begin
|
|
|
+ btnSubmit.Enabled := False;
|
|
|
+ btnPass.Enabled := False;
|
|
|
+ btnNotPass.Enabled := btnPass.Enabled;
|
|
|
+ end;
|
|
|
end;
|
|
|
|
|
|
except
|