【结帖】求实现流程回退功能的代码**

tang_cy

求实现流程回退功能的代码

atiger

FlowBroker1.FlowControl.FlowBack(nil)

tang_cy

就这样就行了吗？谁回退的，回退到哪一步等，不用指定？
这是在非流程环境下实现的，这是贾工上次来我们这的遗留问题。
：）

tang_cy

启动、流转、结束他都做了，回退也顺便以下巴。
：）

atiger

哦，我还以为在流程里面呢，贾工 出差了，
启动、流转、结束他都做了，回退你参考一下他写流转的代码，都类似的。

tang_cy

我先看看

atiger

好，别忘记把结果反馈一下

tang_cy

这有一段流程流转的代码，能不能帮解释一下
function TFlowCreator.FlowOut(AProcUnitID, ASubject: String; ASender, AReceiver: TOrgUrl;
  AStartTime: TDateTime): Boolean;
var
  lTask: TTask;
  lProcUnit: TProcActivity;
begin
  try
    if (not Assigned(FFlow)) or (FFlow.Tasks.Count=0) then
      raise Exception.Create('FlowOut : 流程未启动');
    if FFlow.State = TFlowState.fsFinished then
      raise Exception.Create('FlowFinish : 流程已结束');
    lProcUnit := FindProcUnit(AProcUnitID);
    if not Assigned(lProcUnit) then
      raise Exception.Create('FlowOut : 错误的环节ID');
    lTask := CreateTask(lProcUnit, ASubject, ASender, AReceiver, AStartTime, AStartTime,
      TTaskState.tsStarted, TTaskMessageState.tmsSend);
    if not Assigned(lTask) then
      raise Exception.Create('FlowOut : 创建任务失败');
    {流转处理}
    lTask.PrevGUID := FCurrentTask.GUID;
    FCurrentTask.NextGUID := lTask.GUID;
    FCurrentTask.State := TTaskState.tsFinished;
    FCurrentTask.FinishTime := AStartTime;
    FCurrentTask.TaskMessages[0].State := TTaskmessagestate.tmsFinished;
    Flow.Tasks.Add(lTask);

    FlowEngine.SaveTask(FCurrentTask);
    FlowEngine.SaveTask(lTask);
    FCurrentTask := lTask;
    result := true;
  except
    result := false;
  end;
end;

tang_cy

还有就是，说明以下，回退的时候要做哪些工作

atiger

楼主，8楼的代码，哪句不理解呢，其实你设置断点跟踪一下，看一下值，结合你的需求就知道了。

回退需要做的需要看你的实际的需求了，
例如 回退到哪个环节、回退的主题、任务的接收者、紧迫程度、最后的完成期限等等