【结】急急 客户端与初始化结果不符**

newjack

客户端与初始化结果不符

  程序取得用户所有的权限，然后判断哪些功能可以使用，可是初始化

达到目的，客户端不是期望的结果

关键代码如下

procedure TCT_PDGZT.InitUserPower;
var
  //list: TOrgFuncItems;
  list: TOrgFuncAllocItems;
  OrgUnit:TOrgUnit;
  I: integer;
  lContextCurrent: Business.Model.TContextCurrent;
  strOrgFunc:string;
begin
  try
  UserPower:=TUserPower.Create;
  lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
  list := TOrgFuncAllocItems.Create;
  OrgSys.OrgSystem.GetAllFunc(lContextCurrent.OperatorPosition.PersonMember, TOrgFuncKind.ofkRun, list);
   if (list.Count>0) then
    begin
      for I := 0 to list.Count - 1 do
      begin
        strOrgFunc:=SysUtils.UpperCase(TOrgFuncAllocItem(list.Items[I]).FuncURL.Trim);
        if strOrgFunc= SysUtils.UpperCase('BIZ:\SCMISYWKJ\GN_PDSBDA.FUNC') then //配电设备
        begin
        UserPower.SB:=true;
        end;
        if strOrgFunc=SysUtils.UpperCase('BIZ:\SCMISYWKJ\GN_PDSBZTPJ.FUNC') then//配电设备评价
        begin
        UserPower.PJ:=true;
        end;
        if strOrgFunc=SysUtils.UpperCase('BIZ:\SCMISYWKJ\GN_PDDYZGZPTX.FUNC')  then  //配电一种工作票 申请
        begin
        UserPower.YZGZP:=true;
        end;
        if strOrgFunc= SysUtils.UpperCase('BIZ:\SCMISYWKJ\GN_SQPDDEZGZP.FUNC') then  //配电二种工作票 申请
        begin
        UserPower.RZGZP:=true;
        end;
        if strOrgFunc=SysUtils.UpperCase('BIZ:\SCMISYWKJ\GN_PDSQRTXBDTDSQD.FUNC')  then//配电停电票申请
        begin
        UserPower.TDSQP:=true;
        end;
        if strOrgFunc=SysUtils.UpperCase('BIZ:\SCMISYWKJ\GN_PDSBQXDJ.FUNC')  then  //配电缺陷
        begin
        UserPower.SBQX:=true;
        end;
      end;
      end;
  finally
   lContextCurrent.Free;
    list.Free;
  end;
end;

jiahaiminghr

客户端不是期望的结果。

有什么具体表现呢？如：
某个已经分配的功能在list中不存在？

Akon

楼主,1、你看一下Studo中的中工具/选项/调试/登录中的人员,与你的business登陆的是同一个人吗?
2、重新刷一下缓存，若刷过不管用，把缓存关了，再试一下

alang

OrgSys.OrgSystem.GetAllFunc(lContextCurrent.OperatorPosition.PersonMember, TOrgFuncKind.ofkRun, list);
只是得到运行这个功能的岗位环境的对应人员成员的所有功能权限，如果这个人有多个岗位，那么这里只能得到一个岗位的

newjack

我也是这么想的，那么，有什么办法可以得到这个人的所有岗位的功能呢？

newjack

搞定

jiahaiminghr

lContextCurrent.Operator.Positions[1].PersonMember