【搞定】取出当前操作者信息**

ccseasy

怎么取出当前操作者所有信息：姓名，ID，部门，部门ID，岗位，岗位ID，公司，公司ID？

目前我利用核心库能取出部分。

jiahaiminghr

可以利用TOperator对象来获取1楼希望的相关信息。
NameSpace: Business.Model
--------------------------------------------------------------------------------
TOperator = class(TBizObject)
protected
  procedure ContextProvideParams(ContextNeed: Boolean; ContextIsolationLevel: string); override;
  function GetDisplayName: string; virtual;
public
  constructor create(AContext: TContext);
  function ChangePassword(NewPassword: string): Boolean; virtual;
  procedure Destroy; override;
  function FindPosition(DeptID: string; PositionID: string; PersonID: string; OperatorPositions: array of TOperatorPosition): Boolean;
  property DefaultPosition: TOperatorPosition; readonly;  //默认的岗位相关信息
  property DisplayName: string; readonly;  //姓名
  property FuncItems: TOperatorFuncItems; readonly;
  property ID: string; readonly; //人员ID
  property LoginID: string; readonly;
  property PositionCount: Longint; readonly;
  property Positions[Longint]: TOperatorPosition; readonly; //所有的岗位信息
end;



NameSpace: Business.Model
--------------------------------------------------------------------------------
TOperatorPosition = class(TBizObject)
protected
  procedure ContextProvideParams(ContextNeed: Boolean; ContextIsolationLevel: string); override;
public
  constructor create(AContext: TContext);
  procedure Destroy; override;
  function IsThis(DeptID: string; PositionID: string; PersonID: string): Boolean;
  property DeptID: string; readonly;
  property Operator: TOperator; readonly;
  property PersonID: string; readonly;
  property PersonMember: Org.TOrgUnit; readonly;
  property Position: Org.TOrgUnit; readonly;
  property PositionID: string; readonly;
  property PositionMember: Org.TOrgUnit; readonly; //岗位成员对象，可以获取岗位相关信息
end;

TOperatorPosition.PositionMember.Parent //返回TOrgUnit对象，指向对应的部门
TOperatorPosition.PositionMember.Parent.Parent //返回TOrgUnit对象，指向对应的机构

ccseasy

收到，结了吧