【结帖】如何获取操作人员的BizURL?

巧克力味

如题,.

atiger

通过啥获取操作人员的BizURL呢？条件是啥呢？

巧克力味

就是有个按钮，只有组织机构里有里的A部门点击有效，其他部门点击不执行代码，想获取操作人员的ID，然后再获取BizUrl，最后根据Ａ部门的BIZURL判断该人员是不是Ａ部门的

zfang

获取当前操作者的bizurl，参考代码
procedure TMAINFORM.Button4Click(Sender: TObject);
var
lContextCurrent: Business.Model.TContextCurrent;
cPersonID,cGW,cDeptID : String;
lOrgUnit : TOrgUnit;
begin
  lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
  try
    cPersonID := lContextCurrent.Operator.ID;           //当前操作者ID
    cGW       := lContextCurrent.PositionMember.ID;  //当前操作者岗位ID
    cDeptID   := lContextCurrent.Dept.ID;               //当前操作者部门ID

    lOrgUnit := OrgSys.OrgSystem.FindUnit(cDeptID,cGW,cPersonID);
    MemoResult.Clear;
    MemoResult.Lines.Add(lOrgUnit.BizURL.URL);
  finally
    lContextCurrent.Free;
  end;
end;

巧克力味

搞定，结贴。