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

dahaigegege

我刚才也试过了，
SysUtils.UpperCase('Biz:\CSLZ\CSLZ4\ZGN.Func'),'');//功能url
我随便建立一个普通的功能,能够得到  lFunc
但是我换成 "业务模型\协同系统\任务\我的任务
"    其功能url : Biz:\COLLABORATION\MYTASKFUNC.FUNC
时就得不到 lFunc了

zfang

说明你的环境给的不对

你看看 环境链。

dahaigegege

麻烦您看看No. 9中的环境，我该如何写?

zfang

12楼说的不对。
你是指 工作台中的 待办任务 点那个更多打开的我的任务（待办）功能吧。
发现的问题是 那个是带参数的 Biz:\COLLABORATION\MyTaskFunc.Func||-fftNeedProcess -vvmTaskGrid -d待办||||||RY1 ，而通过上面的方式得到的是 BIZ:\COLLABORATION\MYTASKFUNC.FUNC||||BM3||GW1||RY1

dahaigegege

我是通过代码发起的无流程待办任务，是通过任务关联管理中定义了一个任务关联，现在我通过工作台上的待办任务点击打开了No.8的窗体,刚才测试了一下,还是没有得到，代码如下,:
tmpUniqueId := SystemCore.TFuncManager.GetFuncUniqueID(Context,SysUtils.UpperCase('Biz:\COLLABORATION\MyTaskFunc.Func||-fftNeedProcess -vvmTaskGrid -d待办'),'');//功能url

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

zfang

楼主，你 在 这句话处打个断点
lFunc := SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);

然后看看 tmpUniqueId 值，并且进入到 FindRunning 这个函数的实现部分，也就是 业务模型\系统空间\系统运行库\系统核心库 中的这段代码
function TFuncManager.FindRunning(const AUniqueID: string): TFunc;
var
  I: Integer;
begin
  I := -1;
  if RunningFuncIDs.Find(AUniqueID, I) then
    Result := TFunc(RunningFuncIDs.Objects[I])
  else
    Result := nil;
end;

然后你看看 RunningFuncIDs 这里的值，比如 RunningFuncIDs[0/1/2/...]

dahaigegege

tmpUniqueId 的值 : BIZ:\COLLABORATION\MYTASKFUNC.FUNC||-FFTNEEDPROCESS -VVMTASKGRID -D待办||||SBWHB||SBWHBZHGL||BAIYIN
Result := TFunc(RunningFuncIDs.Objects[I]) 没有执行

zfang

特殊处理一下tmpUniqueId  的值吧，让它与 RunningFuncIDs这里的一致。

dahaigegege

没有明白您的意思，这好像也不是解决之路吧。

dahaigegege

能不能换种思路，来解决这个问题，比如说： 因为NO.8中的操作页面，是嵌套在"我的任务"中的,在单击No.8中的窗体(整改情况处理)中的一个按钮的时候，我可以通过此按钮的Close方法将"整改情况处理"窗体关闭，现在留下了"我的任务"的外壳，有什么样的代码可以直接关闭这个外壳吗，请给指点.