【结贴】急！客户端运行提示“当前环境链中,隔离级为[POSITION]的不存在”！**

hfchen · 发表于 2008-7-14 11:23:02

我在【简介风格】里修改【标准风格主窗体】后，在设计平台里用【从初始化运行】没有提示‘隔离级’的提示。但在客户端运行的时候出现了‘隔离级’的提示。
这是我添写的代码：
procedure TSTANDARDSTYLEMAINFORM.BizFormShow(Sender: TObject);
var
  lCntContext: TContextCurrent;
  orgID: String;
  lDept: Business.Model.Org.Torgunit;
begin
  lCntContext := TContextCurrent.Create(Context);
  orgID:= lCntContext.Organ.ID;
  lCntContext.Free;
  lDept :=Business.Model.Org.OrgSys.OrgSystem.FindUnit(orgID,'','');
if lDept = nil then
   Dialogs.ShowMessage('没有找到当前部门！')
else
begin
   Label1.Caption:=lDept.DisplayName+'办公平台';
end;

请帮忙解决一下！！谢谢了！

lixy · 发表于 2008-7-14 11:37:58

是否签入并刷新缓存了？

hfchen · 发表于 2008-7-14 13:40:52

签入了！也不关缓存的事儿！.....郁闷！下午继续找！

jiahaiming · 发表于 2008-7-14 14:02:13

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

loworth · 发表于 2008-7-14 17:32:57

涉及到组织机构的应该从初始化运行

atiger · 发表于 2008-7-14 18:01:02

楼主，你怎么知道"也不关缓存的事儿" 呢？

你这样，重新签入一下所有资源，然后重新启动服务，然后再用客户端连接上去看看，对了
你检查一下，Studio 和 exe 是否连接的是同一个服务哦

hfchen · 发表于 2008-7-16 14:21:47

呵呵！谢谢各位亲人！问题已经解决！
正如jiahaiming所说用TSystemCore.Operator.Positions[0].PositionMember.Parent.Parent.ID //当前操作者机构I
再次感谢jiahaiming！可以结贴了！

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