【结贴】同一条任务提交了三次**

zfang

你的资源我有的，我这边试一下。然后告诉你结果。
是从副总经理流转到财务审核员处吧，一条任务，多个财务审核员处理，对吗？

jakek

对，还要用那个批处理流转。代码在最后作了些修改
procedure TBATCHLISTFORMDOC.fbMainBeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  lWarningMsg: string;
  i : Integer;
  lStrings : TStrings;
  lTask : TTask;
  lTasks : TList;
begin
  if FMyFlowOut then
    exit;

  Command.Accept := False;

  FFlowFinished := False;
  FFlowArchived := False;

  GetBizInfo.SaveBizData;

  if (not GetCanFlowOut(lWarningMsg)) then
  begin
    jsDialogs.ShowWarning(lWarningMsg, '警告');
    Command.Accept := False;
    exit;
  end
  else if GetBizInfo.ProcUnitInfo.NeedProcess then
  begin
    GetBizInfo.AutoGenerateBatchProcessData;
    GetBizInfo.SaveBizData;
  end;

  lStrings := TStringList.Create;
  lTasks := TList.Create;
  try
    FMyFlowOut := True;
    GetBizInfo.GetBatchSelectedTaskGUIDs(lStrings); 的guid
    for i := 0 to lStrings.Count - 1 do
    begin
      lTasks.Clear;
      lTask := Command.FlowControl.FindTaskByGUID(lStrings);
      if lTask <> nil then
      begin
        dsbBizMain.DataSet.Locate('FFLOWID',Command.FlowControl.FindFlowByGUID(lTask.FlowGUID).ID,[]);  
        lTasks.Add(lTask);
        Command.FlowControl.FlowOut(lTasks);
      end;
   
    end;
  finally
    lStrings.Free;
    lTasks.Free;
  end;


  FMyFlowOut := False; //循环后打开开关

  GetBizInfo.GenerateBatchFinishPolicy;
  dvBatchListGrid.SetFocus;
  GetBizInfo.OpenBizData;

end;

zfang

我这边试了，没什么问题。
试验步骤：
走两条备用金申请，备用金金额分别是：2和11111
然后一直流转到副总经理审批，副总经理是批处理执行，财务审核员的执行规则是多人，任务协作定义是共同分配、同时执行。
副总经理流转时，一个走到财务审核员，一个走到总经理审批，在财务审核员环节我选择两个执行者。最后用这两个人登陆进去，都能看到这个任务，分别能处理。

jakek

就是说其中一个审核处理了任务就流转了（就是只有一条任务，两个人都看到，但一个人批了就过了）？

可以的话，明天能给我看看吗？

zfang

我任务协作里定义的是共同分配--同时执行，那么就是说一个任务，两个人都能看到，分别处理（先处理的人会有一个提示等待的，最后一个处理时才会流转下去）；如果你要一个任务两个人都看到，只要一个人处理就算过了的话，那任务协作定义的是功能分配--独占执行。

这个还用看吗？你具体试试就可以知道了。
如果实在不行，那你回个帖，我给你抓动画吧。

jakek

那就是说我14楼的设置没问题了。但任务只流到一个人那。

jakek

是在任务接收着的执行规则中设置吗？

zfang

回27楼，任务接收者的执行规则中设置是什么意思？

你看我23楼和25楼说的。

jakek

恩，可以先结贴了。