已知部门ID，获取部门显示名称的方法

atiger

代码参考如下：

var
  lDept: Business.Model.Org.Torgunit;
begin
   lDept :=Business.Model.Org.OrgSys.OrgSystem.FindUnit('BM1','','');
   if lDept = nil then
      Dialogs.ShowMessage('没有ID为BM1的部门')
    else
    begin
        Dialogs.ShowMessage(lDept.DisplayName)
        Dialogs.ShowMessage(lDept.BizURL.URL);
    end;
end;

atiger

例如，已知一个部门的 BizURL ，可以通过BizSys.BizSystem.URLExists 获知该部门是否存在，参考代码如下：

if BizSys.BizSystem.URLExists('Org:\ROOT\JG1.OGN\BM2.dpt') then
   Dialogs.ShowMessage(lDept.DisplayName)
else
   Dialogs.ShowMessage('不存在');