如何获得组织单元的所有运行功能

atiger

可以通过系统提供的函数获取组织单元的所有运行功能。

函数声明：function GetOrgUnitsFuncs( const AOrgURLs: TOrgURLs; AList:
TOrgFuncItems; const SelfOnly: Boolean = False): Boolean;
命名空间：Business.Model.Org
所属对象（类）：OrgSys.OrgSystem
函数作用：通过组织单元的URL获取组织单元的所有运行功能

参数说明：
AOrgURLs：组织单元的OrgURL列表；
AList：返回取得的功能，其中每一项是一个TOrgFuncItem对象，该对象包含了功能的BizURL；
SelfOnly：是否包含继承的运行功能。为False，返回该组织单元的所有功能（包括继承）；为True，只返回该组织单元的功能（不包括继承）。

procedure TMainForm.btnGetOrgUnitFuncClick(Sender: TObject);
var
  lBizURL: TBizURL;
  lOrgURL: Org.TOrgURL;
  lOrgURLs: Org.TOrgURLs;
  list: Org.TOrgFuncItems;
  I: integer;
begin
  MemoResult.Clear;
  lBizURL := TBizURL.Create;
  lBizURL.URL := 'Org:\ROOT\YGJT.OGN\XSB.DPT\XSY.PTM\ZXX.psm';
  lOrgURL := Org.TOrgURL.Create(lBizURL);
  lOrgURLs := Org.TOrgURLs.Create;
  lOrgURLs.Add(lOrgURL);
  list := Org.TOrgFuncItems.Create;
  try
       if Org.OrgSys.OrgSystem.GetOrgUnitsFuncs(lOrgURLs, list, True) then
         for I := 0 to list.Count - 1 do
        MemoResult.Lines.Add(list.Items[I].FuncDisplayName);
  finally
    list.Free;
    lBizURL.Free;
    lOrgURLs.Free;
  end;
end;