【结】代码启动流程能否定义任务协作？（续）**

kd_xjx

原帖：http://bbs.justep.com/forum.php?mod=viewthread&tid=23343

因为任务消息要发送给多个接收者，现代码修改如下：
procedure TCustomFLow.UserStartFlow
(FFlowUrl,FDept,FRole,FPerson,FStartProc,FFlowID,FSubject,FDescription: string; FContext: TContext; ExecutorCount : integer; Executors : TExecutors);
var
  lBizURL: TBizURL;
  lFlowValue: TFlowValue;
  lFlowControl: TFlowControl;
  lExecutor: TOrgURL;
  lQuery : TQuery;
  i, j : integer;
begin

  lBizURL := TBizURL.Create;
  lFlowValue := TFlowValue.Create;
  lFlowControl := TFlowControl.Create(FContext);
  lExecutor := TOrgURL.Create(FDept, FRole, FPerson);
  lBizURL.URL := FFlowUrl;
  try
    lFlowValue.IDs.Add(FFlowID);            //流程ID
    lFlowValue.Subject := FSubject;         //流程主题
    lFlowValue.Description := FDescription; //流程描述
    //启动流程实例
    lFlowControl.StartupFlow(lBizURL, FStartProc, lExecutor, lFlowValue);
    for i := 0 to ExecutorCount - 1 do
    begin
      lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages.Clear;
      lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages.AddTaskMessage(nil, TExecutor(Executors.FItems).FDept, TExecutor(Executors.FItems).FPostion, TExecutor(Executors.FItems).FPERSON);
    end;
    //流程实例数据保存到数据库
    lFlowControl.FlowRunnerbyIndex[0].CurrentTask.SaveToDB;
    SaveFLowID(FID);
  finally
    lFlowControl.Free;
    lFlowValue.Free;
    lBizURL.Free;
    lQuery.Free;
  end;
end;

任务消息能正常发送，接收者能正常接收消息，但是任务的执行方式还是不能达到“独占”的需求。
查询任务表中该任务发送的所有消息的执行方式均为“独占”。
麻烦版主再给看看！谢谢

atiger

在任务表中找到相应的这条任务后，到任务消息表 看到的是几条任务消息呢？
吧任务表和任务消息表的结果，截取图帖上来看看

kd_xjx

代码：lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages.Clear;
拿到循环外面

kd_xjx

结贴吧，麻烦版主了。不好意思

atiger

ok