如何获取当前任务的下一个和上一个环节ID

john

procedure TMainForm.GetNextProcUnit;
var
  lID:string;
begin
  lID:=FlowBroker1.FlowControl.CurrentProcUnit.SuccedentUnits[0].ID;
  lID:=FlowBroker1.FlowControl.CurrentProcUnit.LeadingUnits[0].ID;
end;

alang

下一环节的ProcUnit
  FlowBroker1.FlowControl.CurrentProcUnit.GetSuccedentUnits(AUnits: TList; AInKinds: TProcUnitKinds; AInclude: Boolean)
AUnits返回的是下一环节的ProcUnit，可以有多个，需要用AUnits[Index]来访问
AInKinds是TProdUnitKind的集合，表示取下一个环节的时候，包括哪一类的环节，如： TProcUnitKind.ukActivity为活动环节, TProcUnitKind.ukAnd为与环节
AInclude是否包括所有的后续环节，False只取后面一个环节


上一环节的ProcUnit
  FlowBroker1.FlowControl.CurrentProcUnit.GetLeadingUnits(AUnits: TList; AInKinds: TProcUnitKinds;
      AInclude: Boolean)
参数的说明同上

SuccedentUnits[0]这样得到的是直接的下一个环节，因此就是那个逻辑环节了。