【结】请问如何取到部门字段的FullName？

Hexc · 发表于 2009-9-8 14:58:25

在我的表中有一“部门”字段，显示属性设置为“组织机构部门编码”，能不能显示完整名称。如：
机构\部门\子部门

shangxy · 发表于 2009-9-8 15:23:17

不能直接在字段中存这个值
在使用的时候可以通过组织机构表达式orgkey或者getunit函数来根据存取的部门id来取到组织机构的url。

Hexc · 发表于 2009-9-8 15:27:13

我这个部门字段是显示在DateGrid中的，因为公司下各个分厂都有重复名称的子部门，因此要显示部门的全名，按您的方法如果用字段的SetText填充，速度是否能满足？

shangxy · 发表于 2009-9-8 18:10:17

给段代码你参考一下：
procedure TMainForm.Button1Click(Sender: TObject);
var lOrgUnit : org.TOrgUnit;
lObjectInfo: IObjectInfo;
begin
  lOrgUnit :=org.OrgSys.OrgSystem.GetUnit('bm1','GW1','');

  lObjectInfo := Bizsys.ObjectInfo(lOrgUnit.BizURL) as IObjectInfo;
  dialogs.ShowMessage(lObjectInfo.DisplayNamePath+lObjectInfo.DisplayName);
end;

Hexc · 发表于 2009-9-9 08:25:15

感谢，另加一显示字段来处理了。结贴

		自动登录	找回密码
密码			立即注册