如何根据当前登录者信息获取上一级机构的ID、名称

Jrl_Justep

如题。3Q！！如图：小李登录时 显示项目管理中心机构的名称和ID

zfang

组织单元 是 有parent 属性的。

Jrl_Justep

顶一下

zfang

这还顶啊。。。。
贴给你代码
var
  lContextCurrent: TContextCurrent;
begin
  lContextCurrent := TContextCurrent.Create(Self.Context);
  try
    Dialogs.ShowMessage(lContextCurrent.Organ.DisplayName + #13#10 +
    lContextCurrent.Dept.DisplayName + #13#10 +
    lContextCurrent.PositionMember.DisplayName + #13#10 +
    lContextCurrent.PersonMember.DisplayName + #13#10      );
  finally
    lContextCurrent.Free;
  end;
end;