【结】严重BUG**

danceyoung

这段代码是任务导航（基类），我们改过的，有没有问题。

procedure TTASKNAV.actViewDetailExecute(Sender: TObject);
var
   funcurl:string;
   Feng: TFlowEngine;
   guid: string;
   flag:string;
   tparam: TLoadTaskParam;
begin
   if sysUtils.SameText(TaskDataSet.FieldByName('FTYPE').AsString,'PINGEO') then //type为具体消息类型
    begin
        //在根据具体type的内容调用相对应的功能
        FuncURL := TaskDataSet.FieldByName('FFUNCURL').AsString;
        flag := TaskDataSet.FieldByName('FFLAG').AsString;
        Feng:=TFlowEngine.Create();
        tparam:=TLoadTaskParam.create();
        tparam.GUIDs.Add(TaskDataSet.FieldByName('FGUID').AsString);
        Feng.DeleteTasks(tparam);
        tparam.free;
        Feng.free;
        TaskDataSet.Refresh;
        //**************************************************************8

         //这里直接调用对应的处理功能就可以了,
         //也可以把记录的GUID传过去,在功能的参数处理时进行过滤,提醒等.
                //把Biz:\COLLABORATION\MyTaskFunc.Func 改为自已要调用的功能URL即可
         if FuncURL.Length > 0 then
            TSystemCore.FuncManager.RunFunc(Context,'', FuncURL, '-l'+flag,nil, False);   //aaa是要传的参数 ,不传应该也可以吧
    end
    else
    begin
      TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\COLLABORATION\MyTaskFunc.Func',
        SysUtils.Format('-vvmTaskDetail -f%s -l%s', [FilterTypeStr, TaskDataSet.FieldByName('FGUID').AsString]), False, nil, False);
    end;
end;

danceyoung

注释那个事件不管用。～～

jiahaiming

签入、刷新缓存了吗？

danceyoung

刷缓存了

jiahaiming

有环境吗？远程看一下吧。

pingeo

贾工修改了部分基础代码，确认为BUG，已解决，结贴!