功能层检测不到啊,特急!!!**

luoyb

我2936版本中做的测试代码
procedure TMainForm.Button1Click(Sender: TObject);
var
  lFunc: TFunc;
  tmpUniqueId:string;
begin
  tmpUniqueId:= SYSTEMCORE.TFuncManager.GetFuncUniqueID(context.parent,'Biz:\ZHAJ_DS\XXYRGN.Func','');
  lFunc:= SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);
  if lFunc <> nil then
    Dialogs.showmessage('have run')
  else
    Dialogs.showmessage('have not run');
end;

功能层检测不到
我不是点左边的功能树调用功能  而是在一个功能中通过点击按钮通过代码SystemCore.TSystemCore.FuncManager.RunFunc(
    Context.GetParentContext(BizSys.IL_POSITION),
    'XXYRGN' , 'Biz:\ZHAJ_DS\XXYRGN.Func',nil, nil, False)调用的另一个功能，
为什么检测不到被调用的另一个功能  真的不知道是哪里有问题

lixy

看看环境链，应该是查询的环境不对。

luoyb

看看环境链，应该是查询的环境不对??你是说主界面的环境路径吗,能否说具体一点啊

jiahaiming

2楼意思是，楼主在business运行后，按CTRL+ALT+SHIFT+O打开对象查看器，看一下功能'Biz:\ZHAJ_DS\XXYRGN.Func'所在的环境位置。

或者，楼主也可以调试运行，跟踪代码（SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning）看看具体原因

luoyb

楼主在business运行后，按CTRL+ALT+SHIFT+O打开对象查看器，看一下功能'Biz:\ZHAJ_DS\XXYRGN.Func'所在的环境位置,环境位置要怎么看,因为这个是第一次用这个快捷方式

jiahaiming

楼主，请参考一下这个帖子：
http://bbs.justep.com/forum.php?mod=viewthread&tid=2357