起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 217|回复: 4

【结贴】获取管理者

[复制链接]
发表于 2010-4-29 16:51:49 | 显示全部楼层 |阅读模式
---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,请问我该怎么设置?
回复

使用道具 举报

发表于 2010-4-29 17:02:45 | 显示全部楼层
OrgManager(OrgKey('''+TSystemCore.Operator.Positions
                 [0].PositionMember.Parent.ID+''', '''',''''),'''', False
把False改成TRue取直接管理者
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-29 17:12:18 | 显示全部楼层
改成
AExpr := 'OrgChildren(OrgManager(OrgKey('''+TSystemCore.Operator.Positions[0].PositionMember.Parent.ID+''', '''',''''),'''', True),'''',True,False)';
之后 Count的值为1,求出的管理者就是李四了,结贴吧
回复 支持 反对

使用道具 举报

发表于 2010-4-29 17:15:40 | 显示全部楼层
说什么呢?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-29 17:25:52 | 显示全部楼层
结账
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-9 00:46 , Processed in 0.038912 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表