不能取到部分,可以取到全部的显示名称,如果只需要部分,需要楼主自己写函数去实现。
取显示路径名称的参考代码
procedure TMAINFORM.Button5Click(Sender: TObject);
var
lContextCurrent: Business.Model.TContextCurrent;
cPersonID,cGW,cDeptID : String;
lOrgUnit : TOrgUnit;
lObjectInfo: IObjectInfo;
begin
lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
cPersonID := lContextCurrent.Operator.ID; //当前操作者ID
cGW := lContextCurrent.PositionMember.ID; //当前操作者岗位ID
cDeptID := lContextCurrent.Dept.ID; //当前操作者部门ID
lOrgUnit := OrgSys.OrgSystem.FindUnit(cDeptID,cGW,cPersonID);
lObjectInfo := Bizsys.ObjectInfo(lOrgUnit.BizURL) as IObjectInfo;
dialogs.ShowMessage(lObjectInfo.DisplayNamePath+lObjectInfo.DisplayName);
end; |