【结帖】[新版]实现判定某个登陆用户有没有一个特定的功能

newjack

我们需要实现判定某个登陆用户有没有一个特定的功能

比如登陆人“张三”，要查看他有没有管理设备的功能

我调用OrgCondition函数，但是得不到我想要的结果
str_Temp:=Business.Model.Org.OrgExpr.OrgCondition('','','Biz:\SCMISYWKJ\GN_PDGZTGN.Func');

如果采用论坛上的贴子，采用 OrgCondition('','',:OrgUnit.FuncRef = ''Biz:\SCMISYWKJ\GN_PDGZTGN.Func')
编译时通过不了

sun4559

static function TCOMMONFUNCTIONLIB.isfunc(personid:string;funcid:string):boolean;
var
  list: TOrgFuncItems;
  I: integer;
begin
  result:=false;
  list := TOrgFuncItems.Create;
  try
    if OrgSys.OrgSystem.GetPersonAllFuncs(personid, list) then
      for I := 0 to list.Count - 1 do
      begin
        if list.Items[I].FuncURL.id= funcid then
        begin
           result:=true;
           break;
        end;
      end;
  finally
    list.Free;
  end;
end;

jiahaiminghr

OrgCondition('','',:OrgUnit.FuncRef = ':\SCMISYWKJ\GN_PDGZTGN.Func')
使用这个表达式。

另外，不要用
str_Temp:=Business.Model.Org.OrgExpr.OrgCondition('','','Biz:\SCMISYWKJ\GN_PDGZTGN.Func');

用Business.Model.Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr来执行表达式

可以参考一下用户手册

jiahaiminghr

还有问题吗？
没有就结帖了！