【结贴】请教代码关闭功能的问题

dahaigegege

请教：现在我想通过代码来关闭当前的功能，情景如下：我在任务关联管理中定义了一个任务关联，在没有流程的情况下通过代码发起的待办任务，待办任务成功发起了，现在想在处理完待办任务后，自动关闭“我的任务”功能，用了如下代码：
var
   lFunc: TFunc;
   tmpUniqueId:string;
begin
     
     //  下面语句返回的结果 ：Biz:\COLLABORATION\MYTASKFUNC.FUNC||||AJHB||AJHBJL||HYQ   我的任务
     tmpUniqueId:= SystemCore.TFuncManager.GetFuncUniqueID(self.Context,'Biz:\COLLABORATION\MYTASKFUNC.FUNC' ,'');
    lFunc:= SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);

   //  lFunc := SystemCore.TSystemCore.FuncManager.FindRunning('Biz:\COLLABORATION\MYTASKFUNC.FUNC'+ '.MainForm.Run' + '|' +'');
  if lFunc <> nil then
    SystemCore.TSystemCore.FuncManager.TerminateFunc(lFunc, True);
end;
但是lFunc的返回值总是nil,如何解决?

lixy

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

dahaigegege

我已经看过这个帖子了，我用的代码就是从上面的链接中提取出来的。

dahaigegege

自己顶一下!

dahaigegege

没有回应,准备发起新贴了

dahaigegege

有人在吗

zfang

楼主，你的意思是 按上面的方式 找不到功能，对么？
你这样试试吧，你把功能url都大写试试。
另外，你是studio中调试运行的还是 business运行的？

dahaigegege

我是初始化运行的。把功能url 全部变成大写了，也不行。
下图是我操作的页面，单击一个按钮的时候想关闭“我的任务”功能,对象查看器也有这个功能

dahaigegege

对象查看器内容见下图

zfang

楼主，我在3102试了是好的，你那边什么版本？
procedure TMainForm.Button2Click(Sender: TObject);
var
  lFunc: TFunc;
  tmpUniqueId:String;
begin
  tmpUniqueId := SystemCore.TFuncManager.GetFuncUniqueID(Context,
    SysUtils.UpperCase('Biz:\CSLZ\CSLZ4\ZGN.Func'),'');//功能url

  lFunc := SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);
  if lFunc <> nil then
    SystemCore.TSystemCore.FuncManager.TerminateFunc(lFunc, True);
end;