根据人员ID，代码获得他（她）机构（部门、岗位）列表

atiger

可以根据对象的BIZURL判断对象的类型，是部门还是机构还是个人
procedure TMainForm.Button1Click(Sender: TObject);
var
  lBizUrl: TBizUrl;
  lPersonMembers: TList;
  lOrgUnit: TOrgUnit;
  lPersonMember: TOrgUnit;
  li: integer;
  lFileName: TFileName;
begin
  lPersonMembers := TList.Create;
  lBizUrl := TBizUrl.Create;
  lBizUrl.URL :='Org:\PERSON\test.psn';
  try
    OrgSys.OrgSystem.GetPersonMembers('test', lPersonMembers); // 当前人员ID为test
    for li := 0 to lPersonMembers.count-1 do
    begin
      lPersonMember := TOrgUnit(lPersonMembers.Items[li]);
      OrgTypeName(lPersonMember.Parent.BizURL);
      Dialogs.ShowMessage(lPersonMember.Parent.ID);  //岗位
   OrgTypeName(lPersonMember.Parent.Parent.BizURL);
      Dialogs.ShowMessage(lPersonMember.Parent.Parent.ID); //部门
   OrgTypeName(lPersonMember.Parent.Parent.parent.BizURL);
      Dialogs.ShowMessage(lPersonMember.Parent.Parent.Parent.ID); //机构
    end;
  finally
    lBizUrl.Free;
    lPersonMembers.Free;
  end;

end;
//用于判断机构对象类型的方法
procedure TMainForm.OrgTypeName(lBizUrl: TBizUrl);
begin
  case BizSys.BizSystem.GetObjectKind(lBizURL) of
   TBizObjectKind.boDept: dialogs.ShowMessage('dept');
   TBizObjectKind.boOrgan: dialogs.ShowMessage('organ');
   TBizObjectKind.boOrgRoot: dialogs.ShowMessage('orgroot');
   TBizObjectKind.boPosition: dialogs.ShowMessage('Position');
   TBizObjectKind.boPositionRoot: dialogs.ShowMessage('Positionroot');
   TBizObjectKind.boPerson: dialogs.ShowMessage('Person');
  end;
end;