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

zfang

那还是用这种方式来的简单些，先判断一下 tmpUniqueId，是否是 这个功能，如果是，那么保证让它的值 和 RunningFuncIDs 中所记录的值一致，这样就可以实现通过FindRunning方式找到该功能，那就可以 正常关闭了。

dahaigegege

你能远程给看一下吗

zfang

不用远程吧，你把 你跟踪到的 tmpUniqueId 和 RunningFuncIDs  贴出来看看，然后我告诉你怎么弄一下。

dahaigegege

tmpUniqueId 的值 :
BIZ:\COLLABORATION\MYTASKFUNC.FUNC||-FFTNEEDPROCESS -VVMTASKGRID -D待办||||SBWHB||SBWHBZHGL||BAIYIN

if RunningFuncIDs.Find(AUniqueID, I) then   这个条件的返回值为false
根本取不到  RunningFuncIDs

zfang

if RunningFuncIDs.Find(AUniqueID, I) then   
这里打个断点，然后 ctrl+F7，可以看 RunningFuncIDs的值，i 从0开始，一直到 RunningFuncIDs.Count

dahaigegege

明天给您反馈，谢谢！

dahaigegege

昨天的问题已经解决，功能url不正确的原因，现将代码如下,仅供参考:
   tmpUniqueId:= SystemCore.TFuncManager.GetFuncUniqueID('Biz:\COLLABORATION\MyTaskFunc.Func','-vvmTaskDetail -fftNeedProcess -l'+ GUID,'','',APersonID); // APersonID 是任务表中的"提交人id";  GUID 是任务表的GUID
    lFunc:= SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);
  
  if lFunc <> nil then
    SystemCore.TSystemCore.FuncManager.TerminateFunc(lFunc, false);// 强制关闭为false

dahaigegege

现有一个新的问题,在上面问题的基础上,在将当前的"我的任务"窗口关闭之后，通过代码刷新待办任务，我用的刷新待办任务代码也是从论坛上找的，但是没有达到刷新的效果：刷新代码如下:  请明示:
const
  cDesktopURL = 'Biz:\COLLABORATION\DesktopFunc.Func';    //Biz:\COLLABORATION\MYTASKFUNC.FUNC
  cTaskCenterURL = 'Biz:\COLLABORATION\TASKCENTERINFO.INFO';
var
  lBizObject: TBizObject;
  i: Integer;
  lContext: TContext;
begin
  lContext := AContext.FindParentContext(BizSys.IL_PERSON);    //人员环境  ; 查找某个隔离级的父环境  
   //在人员环境找工作台功能
  for i:=0 to lContext.ChildCount-1 do
  try
    if (lContext.Children.Owner is TFunc) then  //**********这边必须加上类型判断，不然会出错。
      if SysUtils.SameText(cDesktopURL, (lContext.Children.Owner as TFunc).BizClassURL.BizURL.URL) then
        lBizObject := lContext.Children.Owner;
  except
   end;

if lBizObject=nil then exit;
  //在工作台功能上找任务中心信息
  lContext := lBizObject.Context;
  for i:=0 to lContext.ChildCount-1 do
  try
    if SysUtils.SameText(cTaskCenterURL, (lContext.Children.Owner as TInfo).BizClassURL.BizURL.URL) then
    begin
      lBizObject := lContext.Children.Owner;
    //刷新数据集
      if (lBizObject as TInfo).DataSetByID('TaskIndex').Active then
    (lBizObject as TInfo).DataSetByID('TaskIndex').Refresh;
    end;
  except
  end;

我在对象查看器 没有看到Biz:\COLLABORATION\DesktopFunc.Func这个功能

zfang

正好有另一个帖子正在说这个问题呢，你看看吧
http://bbs.justep.com/forum.php?mod=viewthread&tid=31395

dahaigegege

我们现在用的是3158版本，在环境中没有Biz:\COLLABORATION\DesktopFunc.Func这个功能，
用Biz:\COLLABORATION\CUSTOMDESKTOPFUNC.Func 这个功能的时候，找不到Biz:\COLLABORATION\TASKCENTERINFO.INFO 这个任务中心信息? 请明示