[AP] 比對部門是否有權限顯示該動作

'//比對部門是否有權限顯示該動作

Dim itemAuthors As NotesItem

'//----------------by 20131122 added--------------------
Set itemAuthors = doc.GetFirstItem ("Authors")
Print "GetEmpInfo(doc.SignerNo(0))(2) = " + Cstr(GetEmpInfo(doc.SignerNo(0))(3))
Call itemAuthors.AppendToTextList(GetEmpInfo(doc.SignerNo(0))(3))
'-------------------------------------------------------------------



tUser := @Name([Abbreviate];@UserName);
tNowSigner := @Name([Abbreviate];NowSigner);
tDeptNo :=@DbLookup("NOTES":"NoCache"; @ServerName:"ap\\sys\\sys0001.nsf";"EngView";tUser;"Dept_No");

@If(SignStatus = "Status2":"Status5" & (tUser = tNowSigner | @IsMember("[QC OP.]"; @UserRoles ) |  @IsMember("[TEST OP.]";@UserRoles)) | (@Contains(Authors; tDeptNo))
;  @False; @True)