Добавление большого количества дат в сверку работ по дням. ППМ

Раньше приходилось много раз нажимать кнопку добавления даты в список сверки работ ППМ.

Сейчас я создал несколько кнопок, для массового добавления:

&НаСервере
Функция НоваяДатаНаСервере()
	З = Новый Запрос(
	"ВЫБРАТЬ
	|	МАКСИМУМ(Т.Дата) КАК Дата
	|ИЗ
	|	РегистрСведений.СверкаРаботПоДням КАК Т");
	
	Выборка = З.Выполнить().Выбрать();
	Если Выборка.Следующий() Тогда
		Дата = КонецДня(Выборка.Дата) + 1;
	Иначе
		Дата = ТекущаяДата();
	КонецЕсли;
	
	МЗ = РегистрыСведений.СверкаРаботПоДням.СоздатьМенеджерЗаписи();
	МЗ.Дата = Дата;
	МЗ.Записать();
	Возврат РегистрыСведений.СверкаРаботПоДням.СоздатьКлючЗаписи(Новый Структура("Дата", Дата));
КонецФункции

&НаКлиенте
Процедура НоваяДата(Команда) 
	
	Если Команда.Имя = "НоваяДата" Тогда
		Всего = 1;
	ИначеЕсли Команда.Имя = "НоваяДата7" Тогда
		Всего = 7;
	ИначеЕсли Команда.Имя = "НоваяДата30" Тогда
		Всего = 30;
	КонецЕсли;
	
	
	Элементы.Список.Обновить();
	Для Инд = 1 По Всего Цикл
		Элементы.Список.ТекущаяСтрока = НоваяДатаНаСервере();
	КонецЦикла;
	Элементы.Список.Обновить();
	
КонецПроцедуры

После этого записи добавляются. Немного медленно, но скорость тут не важна. Вот, добавил сразу три недели: