Просмотр исходного кода

Epure Online, show hint text after upload report

MaiXinRong 8 лет назад
Родитель
Сommit
c3cfba38b0
2 измененных файлов с 2 добавлено и 0 удалено
  1. 1 0
      Forms/SignOnlineReportsFrm.pas
  2. 1 0
      Frames/ProjectManagerFme.pas

+ 1 - 0
Forms/SignOnlineReportsFrm.pas

@@ -1258,6 +1258,7 @@ begin
           TipMessage('ÉÏ´«Íê³É¡£');
       finally
         FPostedSignReports.AddSignReport(FSignPhase, ReportTemplateManager.Current.TemplateName, PHPWeb.UserID);
+        lblAlreadyUpload.Visible := True;
         vJ := nil;
       end;
     end;

+ 1 - 0
Frames/ProjectManagerFme.pas

@@ -230,6 +230,7 @@ begin
     Application.HintHidePause := 60000;
 
     LoadSignOnlineSwitch;
+    LoadEpureOnlineSwitch;
 
     tobtnImport.Visible := False;
     stdProjects.TreeOptions := stdProjects.TreeOptions - [aoAllowUpLevel, aoAllowDownLevel];