【结帖】通知问题**

anla

代码修改如下,可以发通知,但是打开后会报错.错误如下图.
-------------------------------
var
  lOrgURL: TOrgURL;
  lTask: TTask;
  taskmessage:TTaskMessage;
begin
  try
      lTask := TTask.Create;
      lOrgURl := TOrgURL.Create('','','test'); //通过部门、岗位、人员创建组织单元
      lTask.Subject:='代码启动通知' ;
      lTask.Kind:='ftkNotify';   //任务类型为通知
      lTask.SenderDeptID := '';
      lTask.SenderPositionID := '';
      lTask.SenderID := 'test';

      taskmessage:=lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend, 0, False);   //添加到任务列表
      taskmessage.Task.FuncURL:= 'Biz:BJRLJTSBYTBZFBFUNC.Func';
      taskmessage.Task.TaskTypeName:='标准发布';
      taskmessage.Task.ProcURL:='Biz:BJRLJTSBYTJSBZXDGLLC.Proc';
      taskmessage.Task.ProcUnitID:='BZFBFUNC';
      taskmessage.Task.FlowGUID:='361BABE28BE249E8922035577DE7BBD5';
      taskmessage.Task.ExecuteMode:=ttaskExecuteMode.emSimultaneous;


      //添加到任务消息列表里
      Flow.FlowEngine.SaveTask(lTask);   //保存任务
  finally
    lTask .Free;
  end;
end;

lixy

在任务表里面看看真正的消息任务和你造的消息任务数据有什么差别。

anla

没有什么区别啊.
都是那样的.
还有别的办法吗?

jiahaiming

调试运行一下，看看具体的错误信息

anla

呵呵,搞定了。.
刚弄这块,不太懂啊.
谢谢支持,结帖.