|
---XX分公司
|___ 领导办公室
|___ 经理
|___ 张三
|___ 副经理
|___ 李四
|___ 发电部
|___ 部长
|___ 王五
|___ 员工
|___ 赵六
现在在副经理的岗位上分配了发电部的管理权限,在经理岗位上分配了XX分公司的管理权限,当我用赵六登录,用代码获取发电部的管理者
lBizURL := TBizURL.Create;
ABizURLs:=tstringlist.Create;
AExpr := 'OrgChildren(OrgManager(OrgKey('''+TSystemCore.Operator.Positions
[0].PositionMember.Parent.ID+''', '''',''''),'''', False),'''',False,False)';
Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(AExpr, ABizURLs);
for i:=0 to ABizURLs.Count-1 do
begin
lBizURL.URL:=ABizURLs;
lOrgUnit := OrgSys.OrgSystem.GetUnit(lBizURL);
end;
ABizURLs.Count的值为2,最后获得的lOrgUnit.ID是ZS,我想得到的结果是LS,请问我该怎么设置? |
|