【结贴】真不知道啥是对的了，哎！**

cdz0451

procedure TDBJMAIN.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask:TFlowTask;
  nNum :integer;
  i:integer;
  sUserId:string;
  sDeptId:string;
  oDataSet:TSQLDataSet;
begin
//
if(DataSetBroker1.DataSet.RecNo > 0)then
begin
    sUserId := DataSetBroker1.DataSet.FieldByName('SBR').asString;
    sDeptId := DataSetBroker1.DataSet.FieldByName('SBRBM').asString;
end;

if(sUserId.Length > 0) and (sDeptId.Length > 0)then
begin
   lFlowTask := Command.FlowTasks.FindFlowTask('SBJ');   //下一个流程环节的ID
   if(lFlowTask <> nil)then
   begin
      lFlowTask.Executors.Clear();

      lFlowTask.Executors.Add(TOrgURL.Create(sDeptId,'',sUserId));

      lFlowTask.ReLoadAllowExecutors;
      lFlowTask.ReLoadExecutors;
   end;
end;

end;
这代码没有问题吧，为何流程还是发给了两个人

cdz0451

人呢

gaihl

TOrgURL.Create(sDeptId,'',sUserId)  能查到执行者吗?

cdz0451

啥叫能查到吗？ 该用户是下一个功能环节中的一个。
数值测试通过，都有值

gaihl

lFlowTask.Executors.Add(TOrgURL.Create(sDeptId,'',sUserId));
lFlowTask.Executors.Add是加入执行者,    TOrgURL.Create(sDeptId,'',sUserId)能得到执行者的URL吗?   调试一下,它的返回值, 是一个执行者,还是多个,还是空?

cdz0451

有值

cdz0451

流程上有没有其他设置呀？

cdz0451

nRes := lFlowTask.Executors.Count;
      nRes := nRes;   // 等于 2

      lFlowTask.Executors.Clear();

      oRes := TOrgURL.Create(sDeptId,'',sUserId);
      lFlowTask.Executors.Add(oRes);

      lFlowTask.ReLoadAllowExecutors;
      lFlowTask.ReLoadExecutors;

      nRes := lFlowTask.Executors.Count;
      nRes := nRes;  // 等于 2

这代码不起作用呀，清除了后添加应该 nRes = 1呀
  lFlowTask.Executors.Clear();
      oRes := TOrgURL.Create(sDeptId,'',sUserId);
      lFlowTask.Executors.Add(oRes);

gaihl

在lFlowTask.Executors.Add后面 遍历一下,看加入了几个URL
lFlowTask.Executors.Count

cdz0451

8楼的消息，你没有注意到吗？
我在最后测试了COUNT 还是没有变