如何根据人员列表限制环节执行者

julio

这个方式比较安全合理
Static procedure TFlowUtils.ModifyExecutorsByPersonList(Command:TFlowOutCommand;ANextProcUnit:string;APersonList:Tstrings;AAssignMode:TTaskAssignMode;AExecutorAmount:TTaskExecutorAmount);
var
  lFlowTask:TFlowTask;
  lRange:String;
  i,j:integer;
  lPersonList : TOrgUrls;
  lPersonMembers: TList;
  lPersonMember: TOrgUnit;
begin
  lRange := '';
  lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);
  if lFlowTask <> nil then
  begin
    lPersonList := TOrgUrls.Create;
    lPersonMembers := TList.Create;
    try
      lFlowTask.ExecutorMustBeFuncOwner := True ;
      lFlowTask.ExecutorAmount := AExecutorAmount; //TTaskExecutorAmount.teaMulti;
      lFlowTask.ExecutorKinds := [TTaskExecutorKind.ekPersonMember]; //执行者类型   人员成员
      lFlowTask.AssignMode := AAssignMode;// TTaskAssignMode.amSingleness;
      case  AAssignMode of
        TTaskAssignMode.amSingleness:
        begin
          lFlowTask.ExecuteMode := TTaskExecuteMode.emExclusive;
        end;
        TTaskAssignMode.amTogether:
        begin
          lFlowTask.ExecuteMode := TTaskExecuteMode.emSimultaneous ;  //任务执行方式  同时执行
        end;
      end;
      lFlowTask.AllowExecutors.Clear;
      lFlowTask.Executors.Clear;
      for i := 0 to  APersonList.Count -1 do
      begin
        lPersonMembers.Clear;
        OrgSys.OrgSystem.GetPersonMembers(APersonList.Strings[I], lPersonMembers);
        for J := 0 to  lPersonMembers.Count - 1 do
        begin
          lFlowTask.AllowExecutors.Add(TOrgUnit(lPersonMembers.Items[J]).BizURL) ;
          lFlowTask.Executors.Add(TOrgUnit(lPersonMembers.Items[J]).BizURL);
        end;
      end;
     finally
      lPersonList.Free;
      lPersonMembers.Free;
    end;
  end;

end;