【结帖】如何得到人员成员所拥有的操作权限列表？**

巧克力味

如题!

atiger

操作权限？具体指哪些呢？是能运行的功能？还是...

巧克力味

是能运行功能的!包括显示继承功能!  如图!

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=6792

巧克力味

用上这段代码就OK了!
var
  lOrgFuncAllocItems: TOrgFuncAllocItems;
  I: integer;
  lOrgUnit: TOrgUnit;
  lBizURL: TBizURL;
  lOrgFuncKind: TOrgFuncKind;
  lBizNode: TBizNode;
begin
  MemoResult.Clear;
  lBizURL := TBizURL.Create;
  lBizURL.URL := 'Org:\ROOT\GXYT.OGN\RJB.DPT\RJGCS.PTM\MK.psm';
  lOrgUnit := TOrgUnit.Create(lBizUrl);
  lOrgFuncKind:= TOrgFuncKind.ofkRun;

  lOrgFuncAllocItems := TOrgFuncAllocItems.Create;
  try
    lBizNode := TBizNode.Create;
    OrgSys.OrgSystem.GetAllFunc(lOrgUnit,lOrgFuncKind,lOrgFuncAllocItems);
      for I := 0 to lOrgFuncAllocItems.Count - 1 do
      begin
        lBizNode.BizURL.URL := TOrgFuncAllocItem(lOrgFuncAllocItems.Items).FuncURL;
        MemoResult.Lines.Add(lBizNode.BizURL.URL);
      end;
  finally
    lOrgFuncAllocItems.Free;
  end;

巧克力味

搞定,谢谢atiger,结贴!