【结贴】请问怎么获得当前人员的路径**

shanshengsheng

请问怎么获得当前人员的路径，如Org:\ROOT\MGRDZC.OGN\GH.DPT\GHFZX.PTM\0002302.psm

谢谢

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=9474

shanshengsheng

楼上的连接这些我知道啊，但是我不想用这个拼出一个路径，难道没有直接取路径的函数？

lixy

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;
  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;




NameSpace: Business.Model.Org
--------------------------------------------------------------------------------
TOrgUnit = class(Business.System.TObject)
protected
  function CreateModule: TOrgModule; virtual;
  function GetDisplayName: string; virtual;
  procedure SetDisplayName(Value: string); virtual;
public
  constructor create; overload;
  constructor create(ABizURL: Business.Model.TBizURL); overload;
  constructor create(URL: string; FileName: string); overload;
  procedure CreateModuleFromStream(Stream: Business.System.TStream);
  procedure CreateNullModule;
  procedure Destroy; override;
  procedure EnsureAttributes;
  procedure SetNoModule;
  property Attribute: TOrgAttribute; readonly;
  property BizURL: Business.Model.TReadOnlyBizURL; readonly;
  property DisplayName: string;
  property ID: string; readonly;
  property Module: TOrgModule; readonly;
  property OrgKind: Business.Model.TBizObjectKind; readonly;
  property Parent: TOrgUnit;
end;

-----------------------一路推导下来，楼主应该可以获得url了

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=24147
http://bbs.justep.com/forum.php?mod=viewthread&tid=23628

shanshengsheng

好，谢谢。结了