【结帖】组织机构问题**

欧诺万德

1.根据机构ID获取机构对象
2.根据部门ID 获取获取TDEPT
3.根据岗位ID 获取TPOSITION
4,根据人员ID获取TPERSON
5.如何判断某岗位已分配到某部门下

zfang

NameSpace: Business.Model.Org
--------------------------------------------------------------------------------
TOrgSystem = class(Business.System.TObject)
public
  constructor create;
  function AddNodeToCache(ParentGUID: string; URL: string; FileName: string; DisplayName: string; Sequence: Longint): TOrgUnitNode;
  function AssignPerson(APositionMember: Business.Model.TBizURL; APerson: Business.Model.TBizURL): TOrgUnit;
  function AssignPosition(ADept: Business.Model.TBizURL; APosition: Business.Model.TBizURL): TOrgUnit;
  function CreateDept(Parent: Business.Model.TBizURL; AID: string; ADisplayName: string): TDept;
  function CreateOrgan(Parent: Business.Model.TBizURL; AID: string; ADisplayName: string): TDept;
  function CreatePerson(ADept: Business.Model.TBizURL; AID: string; ADisplayName: string): TPerson;
  function CreatePosition(Parent: Business.Model.TBizURL; AID: string; ADisplayName: string): TPosition;
  function CreateUnit(Parent: Business.Model.TBizURL; AID: string; AKind: Business.Model.TBizObjectKind; ADisplayName: string): TOrgUnit;
  function CreateWorkGroup(Parent: Business.Model.TBizURL; AID: string; ADisplayName: string): TOrgUnit;
  procedure DeleteFromRecycleBin(AOrgURLs: TOrgURLs);
  procedure DeleteUnit(AURL: Business.Model.TBizURL);
  procedure Destroy; override;
  function EnsureNodeCache(URL: string; FileName: string; DisplayName: string; Sequence: Longint): TOrgUnitNode;
  procedure EnsureUnitCache(OrgUnit: TOrgUnit);
  function FindCorrespondingOrgUnit(AMemberFileName: string): TOrgUnit;
  function FindNodeInCache(FileName: string): TOrgUnitNode;
  function FindPerson(AID: string): TPerson;
  function FindPersonByLoginID(AID: string): TPerson;
  function FindPosition(AID: string): TPosition;
  function FindUnit(AURL: Business.Model.TBizURL; AIncludeRecycled: Boolean): TOrgUnit; overload;
  function FindUnit(ADeptID: string; APositionID: string; APersonID: string; AIncludeRecycled: Boolean): TOrgUnit; overload;
  function FindUnit(AURL: Business.Model.TBizURL): TOrgUnit; overload;
  function FindUnit(ADeptID: string; APositionID: string; APersonID: string): TOrgUnit; overload;
  function FindUnitInCache(FileName: string): TOrgUnit;
  procedure GetAllFunc(AOrgUnit: TOrgUnit; AFuncKind: TOrgFuncKind; AOrgFuncs: TOrgFuncAllocItems);
  procedure GetAllFuncItems(AOrgUnit: TOrgUnit; AFuncKinds: TOrgFuncKinds; AOrgFuncs: TOrgFuncAllocItems);
  procedure GetAllSubordination(AOrgUnit: TOrgUnit; AOrgSubordination: TOrgSubordinationItems);
  procedure GetAllSubordinationItems(AOrgUnit: TOrgUnit; AOrgSubordination: TOrgSubordinationItems);
  procedure GetBizURLsByOrgExpr(AExpr: string; ABizURLs: Business.System.TStrings);
  function GetDeputized(APersonID: string; AList: Business.System.TStrings): Boolean;
  function GetDeputizeFor(APersonID: string; AList: Business.System.TStrings): Boolean;
  function GetFuncOwners(AFuncURL: string; List: Business.System.TStrings): Boolean; overload;
  function GetFuncOwners(AFuncURL: string; AOrgFuncKind: TOrgFuncKind; List: Business.System.TStrings): Boolean; overload;
  procedure GetInheritedFuncs(AOrgUnit: TOrgUnit; AFuncKind: TOrgFuncKind; AOrgFuncs: TOrgFuncAllocItems);
  procedure GetInheritedOrgUnit(AOrgUnit: TOrgUnit; List: Business.System.TList);
  procedure GetInheritedSubordination(AOrgUnit: TOrgUnit; AOrgSubordination: TOrgSubordinationItems);
  function GetMemberDisplayName(AOrgUnit: TOrgUnit): string;
  function GetMemberFileName(AOrgUnit: TOrgUnit): string;
  function GetOrgUnitsFuncs(AOrgURLs: TOrgURLs; AList: TOrgFuncItems; SelfOnly: Boolean): Boolean;
  procedure GetOrgURLsByOrgExpr(AExpr: string; AOrgURLs: TOrgURLs);
  function GetParentUnit(AURL: Business.Model.TBizURL): TOrgUnit;
  function GetPerson(AID: string): TPerson;
  function GetPersonAllFuncs(AID: string; List: TOrgFuncItems): Boolean;
  function GetPersonMembers(AID: string; List: Business.System.TList): Boolean;
  function GetPosition(AID: string): TPosition;
  function GetPositionMembers(AID: string; List: Business.System.TList): Boolean;
  function GetRecycleBinURLs(AParent: Business.Model.TBizURL; AOrgURLs: TOrgURLs): Boolean;
  function GetUnit(ADeptID: string; APositionID: string; APersonID: string): TOrgUnit; overload;
  function GetUnit(ADeptID: string; APositionID: string; APersonID: string; AIncludeRecycled: Boolean): TOrgUnit; overload;
  function GetUnit(AURL: Business.Model.TBizURL): TOrgUnit; overload;
  function GetUnit(AURL: Business.Model.TBizURL; AIncludeRecycled: Boolean): TOrgUnit; overload;
  function GetURL(ADeptID: string; APositionID: string; APersonID: string): Business.Model.TBizURL;
  procedure RecoverFromRecycleBin(AOrgURLs: TOrgURLs);
  procedure Refresh(AURL: Business.Model.TBizURL);
  procedure RefreshCache;
  procedure SaveUnit(AUnit: TOrgUnit);
  property IsFast: Boolean;
end;

jiahaiming

使用FindUnit函数可以满足楼主的需求。
NameSpace: Business.Model.Org
--------------------------------------------------------------------------------
TOrgSystem = class(Business.System.TObject)
public
……
function FindUnit(ADeptID: string; APositionID: string; APersonID: string): TOrgUnit; overload;
用3个ID的方式来查找组织单元，如果没有，返回nil

欧诺万德

.如何判断某岗位已分配到某部门下
这个我还是不知道怎么处理

欧诺万德

FindUnit可以满足判断某岗位已分配到某部门下的需求吗，我先试试

jiahaiming

find('部门ID', '岗位ID', '')，如果已经分配，则返回对应的岗位成员，否则返回nil

Akon

楼主,问题解决了没?

欧诺万德

OK了

zfang

好，谢谢反馈，揭帖。