【结贴】流程问题！！！

sunchenglin

问题：流程中有一个会签环节，流程的执行规则中的任务协作设置成共同分配，同时执行，但是却不能同时回退，然后用代码procedure TZBLDXZ.FlowBroker1AfterFlowBack(Sender: TObject; Command: TFlowBackCommand);
var
  i, j: Integer;
  lTask: TTask;
begin
// Dialogs.ShowMessage('流程回转');
  for i:=0 to FlowBroker1.FlowControl.Flow.Tasks.Count-1 do
  begin
    lTask := FlowBroker1.FlowControl.Flow.Tasks;
    if ((lTask.ProcUnitID='ZBLDXZQZ'))//得到环节，下面的就都回退了
      and (lTask.State in Task.SUnFinishedTaskStates) then
    begin
      for j := 0 to lTask.TaskMessages.Count-1 do
        if lTask.TaskMessages[j].State in Task.SUnFinishedTaskMessageStates then
          lTask.TaskMessages[j].State := TTaskMessageState.tmsCanceled;

      lTask.State := TTaskState.tsCanceled;
      lTask.SaveToDB
    end;
  end;
end;
实现了同时回退，但流程执行规则的协作定义 必须设置成独立分配，同时执行 才可以回退，但是这样的话，就变成每个任务都是独立的了。
我现在想既能同时回退，又可以再每个人都审批完了共同的流转到下一个环节，请高手指教啊，急急急！或者直接QQ远程也可以。

sunchenglin

问题：流程中有一个会签环节，流程的执行规则中的任务协作设置成共同分配，同时执行，但是却不能同时回退，然后用代码procedure TZBLDXZ.FlowBroker1AfterFlowBack(Sender: TObject; Command: TFlowBackCommand);
var
  i, j: Integer;
  lTask: TTask;
begin
// Dialogs.ShowMessage('流程回转');
  for i:=0 to FlowBroker1.FlowControl.Flow.Tasks.Count-1 do
  begin
    lTask := FlowBroker1.FlowControl.Flow.Tasks;
    if ((lTask.ProcUnitID='ZBLDXZQZ'))//得到环节，下面的就都回退了
      and (lTask.State in Task.SUnFinishedTaskStates) then
    begin
      for j := 0 to lTask.TaskMessages.Count-1 do
        if lTask.TaskMessages[j].State in Task.SUnFinishedTaskMessageStates then
          lTask.TaskMessages[j].State := TTaskMessageState.tmsCanceled;

      lTask.State := TTaskState.tsCanceled;
      lTask.SaveToDB
    end;
  end;
end;
实现了同时回退，但流程执行规则的协作定义 必须设置成独立分配，同时执行 才可以回退，但是这样的话，就变成每个任务都是独立的了。
我现在想既能同时回退，又可以再每个人都审批完了共同的流转到下一个环节，请高手指教啊，急急急！或者直接QQ远程也可以。

zfang

如果是独立分配，同时执行的模式下，你回退实现了，流转时要等所有人都流转了再往下走，那么就设置 会签环节 的流转规则 任务合并勾选，任务等待勾选（两个勾），这样做了后，只有当最后一个会签的人处理后才会走到下一环节，其他人处理后都会有一个提示信息，大概意思是你的任务已经处理请等待别人处理。

sunchenglin

张工你太牛了！解决了！谢谢！

zfang

不是我牛，是你没好好看用户手册或者参考论坛的相关贴子。