【搞定】如何获得岗位下的所有运行功能**

newjack

已经得到登录人的岗位，现在要获得该岗位下的所有运行功能，

有没有一个函数像GetPersonAllFuncs(personid, list)
得到岗位的所有运行功能保存到list中

因为在这个函数中GetOrgUnitsFuncs(lOrgURLs, list, True)我不知道如何知道该人员的lOrgURLs

yancm

楼主，不懂您已经得到岗位，却得不到orgurl？那您得到的岗位是什么？

newjack

谢谢，已解决这个问题，下边是整个代码
procedure TCT_PDGZT.InitUserPower;
var
  lBizURL: TBizURL;
  lOrgURL: Org.TOrgURL;
  lOrgURLs: Org.TOrgURLs;

  list: TOrgFuncItems;
  OrgUnit:TOrgUnit;
  I: integer;
  temp:boolean;
  personid:string;
  ChooseDeptID:string ;
  lContextCurrent: Business.Model.TContextCurrent;
begin
  try
  lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
  personid:= lContextCurrent.Operator.ID;
  OrgUnit:= lContextCurrent.OperatorPosition.PositionMember;

  lBizURL := TBizURL.Create;
  lBizURL.URL := OrgUnit.BizURL.URL ;
  lOrgURL := Org.TOrgURL.Create(lBizURL);
  lOrgURLs := Org.TOrgURLs.Create;
  lOrgURLs.Add(lOrgURL);

  list := TOrgFuncItems.Create;
    if OrgSys.OrgSystem.GetOrgUnitsFuncs(lOrgURLs, list, True)  then
      for I := 0 to list.Count - 1 do
      begin
        if list.Items[I].FuncURL.id= 'GN_PDSBDA' then //配电设备
        begin
        UserPower.SB:=true;
        end;
        if list.Items[I].FuncURL.id= 'GN_PDSBZTPJ' then//配电设备评价
        begin
        UserPower.PJ:=true;
        end;
        if list.Items[I].FuncURL.id= 'GN_PDDYZGZPTX' then  //配电一种工作票 申请
        begin
        UserPower.YZGZP:=true;
        end;
        if list.Items[I].FuncURL.id= 'GN_SQPDDEZGZP' then  //配电二种工作票 申请
        begin
        UserPower.RZGZP:=true;
        end;
        if list.Items[I].FuncURL.id= 'GN_PDSQRTXBDTDSQD' then//配电停电票申请
        begin
        UserPower.TDSQP:=true;
        end;
        if list.Items[I].FuncURL.id= 'GN_PDSBQXDJ' then  //配电缺陷
        begin
        UserPower.SBQX:=true;
        end;
      end;
  finally
  lContextCurrent.Free;
    list.Free;
  end;
end;

alang

似乎
OrgSys.OrgSystem.GetAllFunc(lContextCurrent.OperatorPosition.PositionMember, TOrgFuncKind.ofkRun, list)
就可以得到所有功能了吧

newjack

我再试试

newjack

采用如下方法解决掉
procedure TCT_PDGZT.InitUserPower;
var
  //list: TOrgFuncItems;
  list: TOrgFuncAllocItems;
  OrgUnit:TOrgUnit;
  I: integer;
  lContextCurrent: Business.Model.TContextCurrent;
begin
  try
  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
        if  TOrgFuncAllocItem(list.Items[I]).FuncURL= 'Biz:\SCMISYWKJ\GN_PDSBDA.Func' then //配电设备
        begin
        UserPower.SB:=true;
        end;
        if TOrgFuncAllocItem(list.Items[I]).FuncURL= 'Biz:\SCMISYWKJ\GN_BDSBZTPJ.Func' then//配电设备评价
        begin
        UserPower.PJ:=true;
        end;
        if TOrgFuncAllocItem(list.Items[I]).FuncURL= 'GN_PDDYZGZPTX' then  //配电一种工作票 申请
        begin
        UserPower.YZGZP:=true;
        end;
        if TOrgFuncAllocItem(list.Items[I]).FuncURL= 'GN_SQPDDEZGZP' then  //配电二种工作票 申请
        begin
        UserPower.RZGZP:=true;
        end;
        if TOrgFuncAllocItem(list.Items[I]).FuncURL= 'GN_PDSQRTXBDTDSQD' then//配电停电票申请
        begin
        UserPower.TDSQP:=true;
        end;
        if TOrgFuncAllocItem(list.Items[I]).FuncURL= 'Biz:\SCMISYWKJ\GN_PDSBQXDJ.Func' then  //配电缺陷
        begin
        UserPower.SBQX:=true;
        end;
      end;
      end;
  finally
   lContextCurrent.Free;
    list.Free;
  end;
end;