【结贴】怎么通过ID获得完整的人员URL

拓思科技

A机构
-B机构
--C部门
---D部门
----E岗位
-----F人员

怎么能得到
Org:\ROOT\AJG.OGN\BJG.OGN\CBM.DPT\DBM.DPT\EGW.PTM\FRY.psm

zfang

以GetBizURLsByOrgExpr在论坛里搜索看看。

拓思科技

var
  ABizURLs:Tstringlist;
  lExpr: string;
begin
    ABizURLs:=TStringList.Create;
    //lExpr:='OrgSelect(OrgCondition('''+edit4.Text+'.PSM'', '''', ''''))';
    //lExpr:='OrgChildren(OrgSelect(OrgCondition(''*.DPT'', '''', '''')), OrgCondition(''*.*'', '''', ''''), True)';
    lExpr:= 'OrgSelect(OrgCondition(''*.DPT'', '''', ''''))';
    business.Model.Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(lExpr,ABizURLs);
    label2.Caption := '';
    for i:=0 to ABizURLs.count-1 do
    begin
         label2.Caption := label2.Caption + #13 + ABizURLs;
    end;
end

谢谢

alang

Business.Model.Org.OrgSys.OrgSystem 中定义了很多有关组织机构的方法
楼主可以调用GetUnit得到单元，例如

Business.Model.Org.OrgSys.OrgSystem.GetUnit('XSB', '', '').BizURL.URL
可以得到 XSB部门的BizURL的字符串

拓思科技

function GetUnit(ADeptID: string; APositionID: string; APersonID: string): TOrgUnit; overload;//部门ID、岗位ID、人员ID
  function GetUnit(ADeptID: string; APositionID: string; APersonID: string; AIncludeRecycled: Boolean): TOrgUnit; overload;
  function GetUnit(AURL: Business.Model.TBizURL): TOrgUnit; overload;//BizURL
  function GetUnit(AURL: Business.Model.TBizURL; AIncludeRecycled: Boolean): TOrgUnit; overload;
帮助文件没有汉字。。。
:blowup:  AIncludeRecycled是在回收站里找？

jiahaiming

对，true表示要搜索回收站

拓思科技

嗯 谢谢，建议更新帮助文件，有汉字帮助的
还有，能不能做一个网站，想msdn在线一样的把帮助都放到上面，也便于更新

Akon

呵呵,目前没有,谢谢您的建议