如何获取下属成员列表**

wangyf

如题，如何获取下属成员的列表，包括继承得到的管理权限，以及下属的下属？
比如A有个下属B，B又有个下属C，则BC都是A的下属！

lixy

{取指定人员的管理权限,所有的岗位}
static function TZYJ.GetSubordinations(APersonID: String; IncludeSelf: boolean): TStrings;
var
  i, j  : integer;
  lList : TList;
  lPersonMember: TOrgUnit;
  lSubs : TStrings;
  ResultUrls :Tstrings;
begin
  ResultUrls := TStringlist.Create;                             //隐式向上转型
  lList := TList.Create;
  try
    OrgSys.OrgSystem.GetPersonMembers(APersonID, lList);        //取出所有的人员成员
    for i := 0 to lList.Count-1 do
      begin
        lPersonMember := lList.Items As TOrgUnit;
        lSubs := GetSubordinations(lPersonMember As TPersonMember, IncludeSelf);    //取出该人员成员对应的管理权限
        for j := 0 to lSubs.Count-1 do
          if ResultUrls.IndexOf(lSubs[j]) < 0 then
            ResultUrls.Add(lSubs[j]);
        lSubs.Free;
      end;
  finally
    lList.Free;
    Result := ResultUrls;
  end;
end;

static function TZYJ.GetSubordinations(AContext: TContext; IncludeSelf: boolean): TStrings;
var
  lOperator : TOPerator;
begin
  lOperator := TContextUtils.GetOperator(AContext);  //取出操作者
  Result := GetSubordinations(lOperator.ID, IncludeSelf);
end;

wangyf

lSubs := GetSubordinations(lPersonMember As TPersonMember, IncludeSelf);    //取出该人员成员对应的管理权限

这个哪个类下的方法啊？

zfang

需要自己定义。
主要是要调用OrgSys.OrgSystem.GetAllSubordinationItems(APersonMember, lOrgSubordinationItems);

Akon

{取指定人员成员的管理权限}
static function TZYJ.GetSubordinations(APersonMember: TPersonMember; IncludeSelf: boolean): TStrings;
var
  lOrgUnit : TOrgUnit;
  lOrgSubordinationItems : TOrgSubordinationItems;
  i : integer;
  ResultUrls : TStrings;
begin
  ResultUrls := TStringList.Create;
  lOrgSubordinationItems := TOrgSubordinationItems.Create;
  try
    OrgSys.OrgSystem.GetAllSubordinationItems(APersonMember, lOrgSubordinationItems);
    if lOrgSubordinationItems.Count > 0 then
      for i := 0 to lOrgSubordinationItems.Count-1 do
        begin
          lOrgUnit := OrgSys.OrgSystem.FindUnit(lOrgSubordinationItems.DeptID,
            lOrgSubordinationItems.PositionID, lOrgSubordinationItems.PersonID);
          ResultUrls.Add(lOrgUnit.BizUrl.URL);
        end
    else
      if IncludeSelf then                //如果没有管理权限，则返回自己的URL
        ResultUrls.Add(APersonMember.BizUrl.URL);
  finally
    lOrgSubordinationItems.Free;
    Result := ResultUrls;
  end;
end;

zfang

请楼主反馈下问题。