【结帖】通知问题**

anla

我用代码来发送一条通知给某个人,参照代码如下:
procedure TMainForm.RunNotify();
var
  lOrgURL: TOrgURL;
  lTask: TTask;
begin
  lTask := TTask.Create;
  lOrgURl := TOrgURL.Create('','','test'); //通过部门、岗位、人员创建组织单元
  lTask.Subject:='代码启动通知' ;
  lTask.Kind:='ftkNotify';   //任务类型为通知
  lTask.SenderDeptID := '';
  lTask.SenderPositionID := '';
  lTask.SenderID := 'test';
  lTask.FuncURL := 'Biz:\BJRLJTSBYT\BZFBFUNC.Func';
  try
    begin
      lTask.TaskMessages.AddTaskMessage(nil, lOrgURl,
      TTaskmessagestate.tmsSend, 0, False);
      //添加到任务消息列表里
      Flow.FlowEngine.SaveTask(lTask);   //保存任务
    end
  finally
    lTask .Free;
  end;
end;
-----------------------------------------------------
能够产生通知,
但是在任务里打开是出错:"任务类型不存在：",
请问应如何来设置?

anla

版本是2918

atiger

检查一下是否少了流程ID，把流程ID加进去试试，

anla

我这个是用代码来发布的非流程通知.
还需要流程id是吗?
如果要加,是哪个属性?

anla

procedure TMainForm.RunNotify();
var
  lOrgURL: TOrgURL;
  lTask: TTask;
begin
  lTask := TTask.Create;
  lOrgURl := TOrgURL.Create('','','test'); //通过部门、岗位、人员创建组织单元
  lTask.Subject:='代码启动通知' ;
  lTask.Kind:='ftkNotify';   //任务类型为通知
  lTask.SenderDeptID := '';
  lTask.SenderPositionID := '';
  lTask.SenderID := 'test';
  lTask.FuncURL := 'Biz:\BJRLJTSBYT\BZFBFUNC.Func';
  lTask.FlowGUID := '361BABE28BE249E8922035577DE7BBD5';
  try
    begin
      lTask.TaskMessages.AddTaskMessage(nil, lOrgURl,
      TTaskmessagestate.tmsSend, 0, False);
      //添加到任务消息列表里
      Flow.FlowEngine.SaveTask(lTask);   //保存任务
    end
  finally
    lTask .Free;
  end;
end;
-----------------------------------
我这样写,
然后还是那个错误,说"任务类型不存在"

anla

请问,应该怎样更改呢?

anla

顶下

anla

有人在吗?

anla

如图中,没有任务类型...

lixy

http://bbs.justep.com/forum.php? ... highlight=ftkNotify