如何获取后继活动环节的列表

刘加庆

要想获取当前环节的后继环节，由于流程还没有流转到下一个环节，无法从流程实例(TFlow)中得到，需要通过过程模型(TProc)获取当前环节的继活动环节。

函数声明：function GetSuccedentUnits(AUnits: TList; AInKinds: TProcUnitKinds; AStopKinds: TProcUnitKinds):Boolean;

命名空间：Business.Model.Flow

函数作用：获取流程环节符合条件的后继环节，这里不是单一的下一个环节，而是所有符合条件的后继环节。

参数说明：
1、返回值：布尔类型，表示是否有返回结果；
2、AUnits：返回符合条件的环节，每一个Item都是一个环节（TProcUnit）；
3、InKinds：返回的流程环节应该包含的环节类型，此类型之外都是不返回的；
4、AStopKinds：找到哪一种类型的后继环节结束。


Uses
  Business.Model.Flow,Business.Model.Org
procedure TMainForm.GetSuccedentUnits();
var
  I: Integer;
  lUnits: TList;
begin
  lUnits := TList.Create;
  try   
    FlowDDLR.FlowControl.CurrentProcUnit.GetSuccedentUnits(lUnits,
      [TProcUnitKind.ukActivity], [TProcUnitKind.ukActivity]);  // ukActivity表示活动环节
    AComboBox.Items.Add('下一活动环节列表');
    for I := 0 to lUnits.Count - 1 do
    begin
      AComboBox.Items.Add(TProcUnit(lUnits[I]).ID);   //环节列表中的环节ID
      AComboBox.Items.Add(TProcUnit(lUnits[I]).DisplayName);  
    end;
  finally
    lUnits.Free;
  end;
  AComboBox.ItemIndex:=0;
end;


程序示例：BusinessFAQ\业务流程\业务流程功能\订单录入