【结贴】关于批处理逐条流转问题**

jakek

procedure TBATCHMAINFORM.Button1Click(Sender: TObject);

var
  i : Integer;
  lTask : TTask;
  lTasks : TList;
begin
  Inherited;
  lTasks := TList.Create;
  try
    for i := 0 to FlowBroker.FlowControl.TaskCount - 1 do
    begin
      lTasks.Clear;
      lTask := FlowBroker.FlowControl.TaskByIndex;
      lTasks.Add(lTask);

      FlowBroker.FlowControl.FlowOut(lTasks);
      DataSetBroker1.DataSet.Next;
    end;
  finally
    lTasks.Free;
  end;
end;

我用了以上的方法去做批处理逐条流转，但是结果却是跟使用批处理窗体的效果一样。就是全流转到同一个地方，就是全流转到根据最后一条记录的数据判断的分支上。如图：

jakek

就是没有逐条记录去判断下一步流转到哪。但是有看不出代码有什么问题。请各位帮忙了。谢谢！

zfang

跟踪调试一下，流转时看看业务数据是否正确对应。
我这边做的简单例子是可以的。

jakek

调过了。而且数据差异很大。一个是51万，另外的事几百的。
我还尝试了对批处理列表窗体里的任务排列顺序。当51万那张在最后时，全留到总经理。当几百块的在最后时，就全流到审核了。
还有什么其他的设置吗？

zfang

没有什么别的设置。
我做的例子是这样的一个过程，入口环节允许批处理，然后用自己的按钮，代码实现如下
procedure TMainForm.Button1Click(Sender: TObject);
var
  i : Integer;
  lTask : TTask;
  lTasks : TList;
  lTaskGuid : String;
begin
  Inherited;
  lTasks := TList.Create;
  try
    for i := 0 to FlowBroker1.FlowControl.TaskCount - 1 do
    begin
      lTasks.Clear;
      lTask := FlowBroker1.FlowControl.TaskByIndex;
      lTaskGuid := lTask.FlowGUID;
      DataSetBroker1.DataSet.Locate('id',FlowBroker1.FlowControl.GetFlowByGUID(lTaskGuid).ID,[]);
      lTasks.Add(lTask);

      FlowBroker1.FlowControl.FlowOut(lTasks);
    end;
  finally
    lTasks.Free;
  end;

end;

jakek

还是和原来一样流转，估计跟批处理的beforeflowout等方法有关。

zfang

楼主，你的这个问题根源在于继承了流程模板（OA中的），那里面又没有对批处理（逐条流转）做相应的处理导致的。

jakek

谢谢！
请结贴！