【结贴】[新版]流程不能每个人都回退。。。

sunchenglin

按照录像，现在每个人都可以回退了，但是会签应该是一个人回退了 其他人的代办任务也跟着回退啊，就是整个环节就回退到上一个环节了。

zfang

楼主，发重复的话是什么意思呢？

sunchenglin

什么叫重复话，之前那个问题是解决了，但现在按我们的需求是：只要会签中有一个人回退的话，那么其他的也跟着回退，按你发的连接并不能解决我提出的问题，我的流程是这样的：只有一个环节

sunchenglin

不是这样的

zfang

跟几个环节没关系，思路是一样的。

我照着给你的链接里的5楼做的结果如下

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= 'ZJLQZ')
      or (lTask.ProcUnitID='JYFZJLQZ')
      or (lTask.ProcUnitID='SCFZJLQZ')
      or (lTask.ProcUnitID='JWSJQZ')
      or (lTask.ProcUnitID='ZGCSQZ')
      or (lTask.ProcUnitID='ZJLZLQZ')
      or (lTask.ProcUnitID='DWSJQZ')
      or (lTask.ProcUnitID='DWFSJQZ')
      or (lTask.ProcUnitID='GHZXQZ'))
      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;

上面这段代码中：lTask.ProcUnitID= '')获取的是环节的ID，现在情况是这样的，“招标领导小组这个环节”是会签，其中包括了9个人共同审批，我如何能获取这9个人对应的ID来达到其中任何一个人回退，其他任务也跟着回退的效果？

zfang

找到你自己这个环节的任务就可以了。
不用照抄那里的代码。
要学会理解人家这么做的含义。这样你这里的效果就很好实现了。

sunchenglin

问题解决了，谢谢了！结贴吧！