如何获取人员的所有运行功能

蔚蓝海岸

可以通过系统提供的函数获取人员的所有运行功能，包括从上层组织单元继承的运行功能。

函数声明：function  GetPersonAllFuncs(const AID: string; List: TOrgFuncItems): Boolean;
命名空间：Business.Model.Org
所属对象（类）：OrgSys.OrgSystem
函数作用：通过组织单元ID获取组织单元的所有运行功能（包括继承的业务功能）

参数说明：
返回值：布尔类型，表示是否有返回结果；
AID： 人员ID；
List： 返回取得的功能，其中每一项是一个TOrgFuncItem对象，该对象包含了功能的显示名称、BizURL。

procedure TMainForm. btnGetAllFuncClick (Sender: TObject);
var
  list: TOrgFuncItems;
  I: integer;
begin
  MemoResult.Clear;
  list := TOrgFuncItems.Create;
  try
    if OrgSys.OrgSystem.GetPersonAllFuncs('ZXX', list) then
      for I := 0 to list.Count - 1 do
        MemoResult.Lines.Add(list.Items[I].FuncDisplayName);
  finally
    list.Free;
  end;
end;