代码控制到结束环节或执行者唯一时不弹出流转窗体

atiger

Static procedure AcceptUserModify(Command: TFlowOutCommand;ANextProcUnit:string);
var
  lFlowTask:TFlowTask;
begin
  if  Command.AllowFlowTasks.Count <= 0 then
       Command.UserConfirm:=False
  else
  begin
    lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);
    if lFlowTask <> nil then
    begin
      Command.UserConfirm:= lFlowTask.Executors.Count<>1;
    end;
  end;
end;