【结贴】如何获取流程的下一环节 ？

zfang

看我的动画

jianth2005

咳！
能远程吗？

zfang

不用远程了吧？
就这样的一个流程和这样的代码，获取后续环节的代码也可以参考29楼的链接。
我把我的完整代码贴出来你看下。
procedure TMainForm.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  i,j : Integer;
  mFlowTask:TFlowTask;
begin
  for i := 0 to Command.FlowControl.CurrentProcUnit.SuccedentUnitCount - 1 do
  begin
    if Command.FlowControl.CurrentProcUnit.SuccedentUnits.ID = 'OR' then
    begin
      for j := 0 to Command.FlowControl.CurrentProcUnit.SuccedentUnits.SuccedentUnitCount - 1 do
      begin
        mFlowTask := Command.FlowTasks.FindFlowTask(
            Command.FlowControl.CurrentProcUnit.SuccedentUnits.SuccedentUnits[j].ID);//根据环节找任务
        if mFlowTask <> nil then
          Dialogs.ShowMessage('选择了：'+Command.FlowControl.CurrentProcUnit.SuccedentUnits.SuccedentUnits[j].DisplayName);
      end;
    end
    else
    begin
      mFlowTask := Command.FlowTasks.FindFlowTask(
          Command.FlowControl.CurrentProcUnit.SuccedentUnits.ID);//根据环节找任务
      if mFlowTask <> nil then
        Dialogs.ShowMessage('选择了：'+Command.FlowControl.CurrentProcUnit.SuccedentUnits.DisplayName);
    end;
  end;

  Command.Accept := False;//此句仅仅是为了测试方便，不允许流转
end;

jianth2005

搞了几天
现在知道，我一直选中两个，
难怪我说怎么老是Show出两次的，郁闷!
请问下，如何在流转窗体运行的时候，选择人员那里都是空的呢？

zfang

在OnCreateFlowOutFlowTasks事件中对任务执行者（Executors）作控制就可以了。

jianth2005

如何控制啊？
我流程这快比较模糊啊，时间来不急去慢慢看了，
就是把选择人员那里的清空就得了
帮帮忙

zfang

论坛里找一下就有这样的用例
http://bbs.justep.com/forum.php?mod=viewthread&tid=18672

jianth2005

搞定 非常感谢 zfang
结贴