2014年11月7日 星期五

[AP] 判斷編輯權限

'//從系統設定文件來比對可用權限

tCode := "Form-SystemSetup1";
tUserDept := @DbLookup ("";@Subset(@DbName;1):"ap\\sys\\sys0001.nsf";"EngView";@V3UserName ;"Dept_No");
tAllowDept := @DbLookup ("";@DbName;"View-SystemSetup";tCode;"hasDelete_1");
tUserID := @V3UserName;
@If(@IsMember(tUserDept;tAllowDept) | @IsMember(tUserID;tAllowDept) | @Contains(@UserRoles; "[ITM OP.]":"[DBAdmin]");
@False; @True)

@If(SignStatus = "Status2" &
       (@UpperCase(@V3UserName)=@UpperCase(NowSigner) |
       (@IsMember("[TEST OP]";@UserRoles ) |

        @IsMember("[ITM OP]";@UserRoles ))); @False; @True)

沒有留言:

張貼留言