【结】从人员环境中得到工作台功能问题

crskyp

我想从人员环境中得到工作台功能，
代码如下：
var
  lBizClassURL :TBizClassURL;
begin
lBizClassURL =CreateBizClassURL('Biz:\COLLABORATION\CUSTOMDESKTOPFUNC.FUNC');
lWorktableFunc :=Context.GetBizObjectEx(lBizClassURL,BizSys.IL_PERSON) as TFunc;   

但是，得到的工作台功能是新new的工作台实例，而不是现有的工作台实例，

atiger

呵呵，GetBizObjectEx 这个方法是在当前调用的环境中如果找不到就创建新的，如果找到，就用找到的那个，
从的描述看，1 当前环境不是人员环节，2就是工作台不在人员环境中，
楼主可以通过调用对象查看器
http://bbs.justep.com/forum.php?mod=viewthread&tid=2551
http://bbs.justep.com/forum.php?mod=viewthread&tid=2357

看一下

crskyp

呵呵，atiger，你没有看清我用的方法，

GetBizObject(AClass: TBizClassURL): TBizObject;
GetBizObjectEx(AClass: TBizClassURL; AIsolationLevel: string): TBizObject;
GetBizObjectEx(AClass: TBizClassURL; AIsolationLevel: string; UseExtSpace: Boolean): TBizObject;

我用的是第二个方法，在BizSys。IL_PERSON环境中得到我想要的TBizObject，如果没有就新建；
顺便问atiger，第三个方法的第三个参数是什么意思？

crskyp

atiger？问题怎么样了，

atiger

你掉对象查看器了，登陆不一样，工作台存在的环境也是不一样的
这个是自动登陆， 工作台 存放在 TOrgOperator

atiger

而此楼就是用某个岗位登陆的，工作台就在TOpeatorPositiont

crskyp

我用的是 自动登陆，
然后运行下面代码 ：
var
  lBizClassURL :TBizClassURL;
begin
lBizClassURL =CreateBizClassURL('Biz:\COLLABORATION\CUSTOMDESKTOPFUNC.FUNC');
lWorktableFunc :=Context.GetBizObjectEx(lBizClassURL,BizSys.IL_PERSON) as TFunc;   

atiger，你测试下，确实会出现两个 工作台实例，

atiger

呵呵，你7楼的代码能编译过去？我拷贝编译不了。

我是在3088版本上测试的，代码参考如下
参考http://bbs.justep.com/forum.php?mod=viewthread&tid=14250
这个帖子

var
  lBizObject: TBizObject;
  i: Integer;
  lContext: TContext;
  cDesktopURL :string;
begin
  cDesktopURL := 'Biz:COLLABORATIONDesktopFunc.Func';
  lContext := Context.FindParentContext(BizSys.IL_PERSON);    //人员环境
  //在人员环境找工作台功能
  for i:=0 to lContext.ChildCount-1 do
  try
    if SysUtils.SameText(cDesktopURL, (lContext.Children.Owner as TFunc).BizClassURL.BizURL.URL) then
      lBizObject := lContext.Children.Owner;
  except
  end;
end;

运行效果

crskyp

测试通过，同意楼上代码，
我想知道为什么Context.GetBizObjectEx 方法不行？

atiger

楼主，好像是这个方法出问题了，需要跟踪底层代码，先用8楼的方法做吧。