代码发通知？

dupit

通知代码如下：
  try
  lTaskBizDatarec.BizField:='Biz:\ZBGLXT\ZBGLSJK.DATABASE\TBSQB.Table\BH.Field';
  lTaskBizDataRec.Value:=ZBGLYWXX.TTBSHD(DocViewZBGLYWXX_TBSHD.Doc).DataSetBroker1.DataSet.FieldByName('BH').AsString;
  lTaskBizData.BizDataKeys.Add(lTaskBizDataRec);
  lOrgURl := TOrgURL.Create('','',ZBGLYWXX.TTBSHD(DocViewZBGLYWXX_TBSHD.Doc).DataSetBroker1.DataSet.FieldByName('TBR').AsString);
    lTask.Subject:='替班通知' ;
  lTask.Kind:='ftkNotify'; //任务类型为通知
  lTask.TaskType:='INFORMATION';
  lTask.TaskTypeName:='通知替班人';
  //下面这句话是把那个功能以通知的方式发出去
   lTask.FuncURL:='Biz:\ZBGLXT\FUNC\TBTZGN.Func';
   lTask.BizDatas.Add(lTaskBizData);
   lTask.TaskMessages.AddTaskMessage(nil, lOrgURl,
      TTaskmessagestate.tmsSend, 0, False);
      //添加到任务消息列表里
      Flow.FlowEngine.SaveTask(lTask);   //保存任务
   finally
    lTask .Free;
    end;

待办任务中处理进入功能后，待办任务还是存在的。

通知规则产生的通知任务是点击处理后自己完成。

如何设置。

atiger

楼主，你的意思是给某个人发送一个任务的通知又发送了一个通知任务，该人员处理完任务后，通知任务还是在代办任务中，需要点击一下通知任务，关闭，通知任务才会消失（完成）是这样吗？
如果是，就是这样的，因为实际产生的任务和通知是两个任务，都需要处理，如果此人有此任务，就不需要给该人发送通知了，

dupit

给某人发一个通知任务， 通知任务在代办任务中点击一下任务自己关闭

dupit

通知任务 点击后 启动 lTask.FuncURL 功能

shangxy

代码发起通知类型的任务和流程通知任务是不一样的。
平台在处理任务的时候如果任务的procurl不为空，那么就是流程的通知任务，平台在代办任务的右键上会自动添加上处理菜单，并且关闭任务关联的功能后自动的把任务状态置为已完成
如果Task.ProcURL为空那么就需要定义任务关联管理中分配【处理】的操作权限，才能出现处理菜单，当关闭功能的时候不会去处理任务状态。
如果想实现处理的时候关闭功能自动处理任务状态需要自己在任务中心信息中使用代码处理
具体的处理位置在：
业务模型\协同系统\任务\任务中心信息
procedure TTASKCENTERINFO.TaskProcess;
函数中：
处理方式类似于：
if (Task.Kind ='ftkNotify') and (Task.State <> TTaskState.tsFinished) then  
  //找到属于自己的任务消息，然后把任务消息的状态置为已完成
//把任务的状态置为已完成
TTaskLib.SaveTask(Task);