【结贴】如何得到流程下一环节的名称**

lxs202

http://bbs.justep.com/forum.php? ... B%B8%F6%BB%B7%BD%DA
这个贴子已看,里面的方法我不适用。
因为在操作两个“审批物资申购单”时
我这里会得到3个，所以无法判断下一环节。如下流程图：

atiger

1楼图中楼主想取到哪个呢？
因为你用的是XOR，且没有任何条件，那么这三条路都可以走，只是最终只能走一条，

lxs202

想得到两个“审批物资申购单”的下一个环节的名称。

atiger

楼主，你是在附件红色框 的 功能还是绿色框的功能上，根据1楼的帖子得到 三个 “审批物资申购单”吗？

另外，把你的代码贴出来看看

lxs202

是在操作楼上红框时。
得到的是 “审批物资申购单”、“接收物资申购单”、“审批物资申购单”
我想判断如果下一个环节是"接收物资申购单" ，那么我想做其它的处理。

lxs202

procedure TBZWZSGD_FORM.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  lid:string;
  lUnits:Tlist;
  i:integer;
  x:TProcUnit;
begin
   lUnits := TList.Create;
   FindSuccedentActivityUnit(FlowBroker1.FlowControl.CurrentProcUnit, lUnits);
  for i:=0 to lunits.Count-1 do
  begin
    x:=lunits.Items as  TProcUnit;
    lid:=lid+x.DisplayName+'#';
  end;
end;
procedure TBZWZSGD_FORM.FindSuccedentActivityUnit(AUnit: TProcUnit; ASuccedentUnits: TList);
var
  i: Integer;
begin
  if AUnit.Kind in [TProcUnitKind.ukStart, TProcUnitKind.ukFinish] then Exit;
  for i:=0 to AUnit.SuccedentUnitCount-1 do
  begin
    if AUnit.SuccedentUnits.Kind = TProcUnitKind.ukActivity then
      ASuccedentUnits.Add(AUnit.SuccedentUnits)
    else FindSuccedentActivityUnit(AUnit.SuccedentUnits, ASuccedentUnits);
  end;
end;
lid的值为："审批物资申购单#接收物资申购单#审批物资申购单#
"

在操作4楼上红框t和绿色框 时。
都得到的是 “审批物资申购单”、“接收物资申购单”、“审批物资申购单”
我想判断如果下一个环节是"接收物资申购单" ，那么我想做其它的处理。

atiger

参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=27548

lxs202

结贴,谢谢