任务提醒功能？**

dupit

通过下面的函数生成的任务提醒, 点阅毕 无效?

procedure TTASKPUBFUNC.UserStartTask(AFuncURL, ATaskTypeName, ATaskTypeID,
  ASubject,ADescription, ABizField, ABizFieldValue, ADept, APosition, APerson : string);
VAR
  lOrgURL : TOrgURL;
  lTask   : TTask;
  lTaskBizData : TTaskBizData;
  lTaskBizDataRec : TTaskBizDataRec;
begin
  lTask := TTask.Create;

  {任务接受者}
  lOrgURl := TOrgURL.Create(ADept, APosition, APerson);

  {任务业务关联数据定义}
  lTaskBizData := TTaskBizData.Create;
  lTaskBizDataRec := TTaskBizDataRec.Create;
try
  lTaskBizDatarec.BizField := ABizField;       //业务数据的关键字段，用于检索业务数据
  lTaskBizDataRec.Value := ABizFieldValue;     //业务数据的关键字段值
  lTaskBizData.BizDataKeys.Add(lTaskBizDataRec);
  //lTaskBizData.BizDatas.Add(lTaskBizDataRec);

  {任务信息的定义}
  lTask.Subject := ASubject;                   //主题
  lTask.Description := ADescription;           //描述
  lTask.Kind:= '';                             //无流程任务为空
  lTask.TaskType := ATaskTypeID;               //任务类型，如：工作任务：WORKTASKDEAL， WORKTASK
  lTask.TaskTypeName := ATaskTypeName;
  lTask.FuncURL := AFuncURL;                   //处理任务的功能
  lTask.SenderDeptID := ADept;
  lTask.SenderPositionID := APosition;
  lTask.SenderID := APerson;
  lTask.BizDatas.Add(lTaskBizData);            //设置业务数据与任务关联关系, 保存任务业务关联信息到‘系统空间\系统数据库\任务业务数据表’

  lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend, 0,
    False);                                    //添加到任务列表

  {保存任务}
  Flow.FlowEngine.SaveTask(lTask);             //保存任务信息到‘系统空间\系统数据库\任务表’，任务消息到‘任务消息表’
finally
  //lTaskBizDataRec.Free;
  //lTaskBizData.Free;
  lTask .Free;
  lOrgURL.Free;
end;

dupit

任务关联关联 配置如下图:

shangxy

楼主使用的是那个版本？

dupit

3012

shangxy

楼主自己创建过其他业务类型的任务关联么？如果没有导入下面的包测试一下。

dupit

这功能刚开始是好的 ,后来很长一段时间 ,不知道那里修修改改后  就不行了 .

dupit

图示中的 3001 ,3002,3003   是自己建的 任务关联

dupit

你的资源包导入后  , 阅毕 还是没效果

shangxy

1.你如果有计划中心的话，就先新建一条计划，然后对这个计划建立一个计划协助类型的任务，看看这个计划协助能不能月别，如果不能可能就需要导入上面的包了，如果能阅毕，你就对比一下计划协助这个任务与你新建的这种类型的任务在任务表中有什么不一样的地方。

如果要导入上面的包，你先把系统数据库备份一下，在导入，如果导入之后有问题我们可以还原回来。

dupit

计划中心运行 提示 如下错误 :