Переглянути джерело

关注人菜单弹出时,重新查一遍标段审核人信息。

Chenshilong 8 роки тому
батько
коміт
8d923180b7

+ 2 - 2
Dprs/CSL/Measure_Cloud.dof

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

BIN
Dprs/CSL/Measure_Cloud.res


+ 6 - 0
Frames/ProjectManagerFme.pas

@@ -1900,6 +1900,12 @@ procedure TProjectManagerFrame.actnGuestExecute(Sender: TObject);
 var
   SetGuestForm: TSetGuestForm;
 begin
+  CreateProgress('ÔÆ¶ËÈ¡×îÐÂÉóºËÈËÁбí');
+  try
+    ShowProjectInfoTopAndCheckers;
+  finally
+    CloseProgress;
+  end;
   SetGuestForm := TSetGuestForm.Create(CurRec.ValueByName('WebID').AsInteger);
   SetGuestForm.Owner := Self;
   try