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

zfang

？
可以通过 12楼代码获取到后续的环节，然后你根据17楼的代码根据环节找任务的方式。

jianth2005

还是不明白啊！
你看看我的流程图

jianth2005

送检清单往下流到“委托单”或者“报告流程”，这个两个是用户自己选择的，
怎么获取用户选择了哪个功能？

说明：“委托单”是一个功能环节，“报告流程”是一个子流程

zfang

请问楼主，你按上面说得试了么？如果没有，请按
//取后续环节的功能名称
FlowsBroker.FlowControl.CurrentProcUnit.SuccedentUnits[0].DisplayName
//如果有逻辑环节
FlowsBroker.FlowControl.CurrentProcUnit.SuccedentUnits[0].SuccedentUnits.DisplayName

和
var
  mFlowTask:TFlowTask;
begin
  mFlowTask := Command.FlowTasks.FindFlowTask('orhj');//根据环节找任务
  if mFlowTask <> nil then
    Dialogs.ShowMessage('1')
  else
    Dialogs.ShowMessage('0');

试试，如果不可以你再反馈。

jianth2005

var
  i :integer;
  mFlowTask :TFlowTask;
begin
   for i :=0 to  FlowBroker1.FlowControl.CurrentProcUnit.SuccedentUnitCount-1 do
   begin
      mFlowTask := Command.FlowTasks.FindFlowTask(FlowBroker1.FlowControl.CurrentProcUnit.SuccedentUnits[0].SuccedentUnits.ID);
      if mFlowTask<>nil then
      begin
          Dialogs.ShowMessage(FlowBroker1.FlowControl.CurrentProcUnit.SuccedentUnits[0].SuccedentUnits.DisplayName);
      end;
   end;
end;
---------------------------------
是这样吗？
我这样写了，结果还是一样

zfang

当然不对，上面 25楼的逻辑上还缺少一个逻辑
//取后续环节的功能名称
FlowsBroker.FlowControl.CurrentProcUnit.SuccedentUnits[0].DisplayName
//如果有逻辑环节 ------------少了这层逻辑
FlowsBroker.FlowControl.CurrentProcUnit.SuccedentUnits[0].SuccedentUnits.DisplayName

jianth2005

不懂怎么加上去了。。
你帮我补上去吧。
谢谢

zfang

类似于这样
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
       //根据环节找任务 ....

此方法不一定是最好的，但是可以实现。

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=21073

jianth2005

回28楼：
for i :=0 to Command.FlowControl.CurrentProcUnit.SuccedentUnitCount-1 do
   begin
       if Command.FlowControl.CurrentProcUnit.SuccedentUnits.ID = 'OR1' then
       begin
           for j:=0 to Command.FlowControl.CurrentProcUnit.SuccedentUnits.SuccedentUnitCount-1 do
           begin
               mFlowTask := Command.FlowTasks.FindFlowTask(FlowBroker1.FlowControl.CurrentProcUnit.SuccedentUnits[0].SuccedentUnits[j].ID);
               if mFlowTask<>nil then
               begin
                   Dialogs.ShowMessage(FlowBroker1.FlowControl.CurrentProcUnit.SuccedentUnits[0].SuccedentUnits[j].DisplayName);
               end;
           end;
       end;
   end;

------
结果还是一样啊。