Chenshilong 8 rokov pred
rodič
commit
24e68b3e26

+ 2 - 2
Dprs/CSL/Measure_Cloud.dof

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

BIN
Dprs/CSL/Measure_Cloud.res


+ 7 - 1
Frames/ProjectManagerFme.pas

@@ -172,7 +172,8 @@ type
     function CurRec: TsdDataRecord;
     function CurRecAttachmentPath: string;
     function AttachmentFileCountsWithoutManageFile(ANode: TsdIDTreeNode): Integer;
-    function UserIsChecker(UserID: Integer): Boolean; // 判断该用户是否是参与人
+    function UserIsChecker(UserID: Integer): Boolean; // 判断指定ID的用户是否是参与人
+    function CurUserIsGuest: Boolean;
     property ProjectCheckStatus: TCheckStatus read FWebCheckStatusProject;
   end;
 
@@ -1934,4 +1935,9 @@ begin
   end;
 end;
 
+function TProjectManagerFrame.CurUserIsGuest: Boolean;
+begin
+  Result := not UserIsChecker(PHPWeb.UserID);
+end;
+
 end.