【结】关于流程问题请教**

zfang

那你说报错，具体报什么错误呢？

dongxt

我设的是岗位成员，范围是多个。代码如下：
procedure TMAINFORMChild.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
  var
  lFlowTask: TFlowTask;
  //ContextCurrent:TContextCurrent;
  lOrgURL: TOrgURL;
  Person: TPerson;
begin
    Inherited;
if  DataSetBroker1.DataSet.RecordCount=0 then
   begin
     Business.Forms.Dialogs.ShowMessage('流转时检测到项目数据集为零');
   end
  else
   begin
      lflowTask:=Command.FlowTasks.FindFlowTask(FlowBroker1.FlowControl.CurrentProcUnit.SuccedentUnits[0]);
      lFlowTask.Executors.Clear;
      DataSetBroker1.DataSet.First;
//DataSetBroker1.DataSet有n条记录，将产n个任务
      while not DataSetBroker1.DataSet.eof do
       begin
          Person:=OrgSys.OrgSystem.FindPerson(DataSetBroker1.DataSet.FieldByName('CGFZR').AsString) ;
//接受任务的人员ID
          //lOrgURL:=TOrgURL.Create('CGB','',Person.ID);
          //lflowTask.Executors.Add(lOrgURl);
          lFlowTask.Executors.Add('CGB','',Person.ID);
          lFlowTask.AllowExecutorInOrgURLs.Add('CGB','',Person.ID);
          lFlowTask.ExecuteMode := TTaskExecuteMode.emMonopolize;
          DataSetBroker1.DataSet.Next;
       end;
       lflowTask.ReLoadAllowExecutors;
       lflowTask.ReLoadExecutors;
       Dialogs.ShowMessage('分发任务到采购负责人成功');
      Command.UserModify := False;

   end

end;
错误如下：

atiger

楼主，请问你用的是哪个版本？也是2250吗？

dongxt

是的，2250，我问的问题都是2250版本的。

atiger

2250 是COM+版本吧。没有用加密锁吧。 是吗？

yt_zy

结贴吧，我们的问题解决了，是一个公司的。。。呵呵

atiger

ok，谢谢反馈
不过请楼主共享一下解决方法吧

dongxt

lflowTask:=Command.FlowTasks.FindFlowTask(FlowBroker1.FlowControl.CurrentProcUnit.SuccedentUnits[0]);
这一句，是默认下一环节吧，因为下一环节是个分支xor，我直接指定的下一环节，就不报错了。但还有新问题请看我发的新帖啊，谢谢。

atiger

收到，谢谢，结