Медленная запись в регистр расчета

Если ВидОперации <> Перечисления.ВидыОперацийНачислениеЗарплатыРаботникамОрганизаций.РасчетНДФЛ Тогда
			
			НачатьТранзакцию();
			
			НаборЗаписейДляПроверки.ОбменДанными.Загрузка = Истина;
// !!! ТУТ НЕ ОЧЕНЬ ДЛИТЕЛЬНОЕ ЗАВИСАНИЕ !!!
			НаборЗаписейДляПроверки.Записать(Истина, Ложь, Истина, Ложь);
			
			ЗапросПроверки = Новый Запрос(
			"ВЫБРАТЬ 
			|	Начисления.Сотрудник,
			|	Начисления.ВидРасчета,
			|	Начисления.ДатаНачала,
			|	Начисления.ДатаОкончания,
			|	Начисления.НомерСтроки
			|ПОМЕСТИТЬ ВТНачисления
			|ИЗ &парамНачисления КАК Начисления
			|ИНДЕКСИРОВАТЬ ПО Сотрудник, ВидРасчета;
			|
			|ВЫБРАТЬ РАЗЛИЧНЫЕ
			|	Начисления.НомерСтроки КАК НомерСтроки
			|ИЗ
			|	РегистрРасчета.ОсновныеНачисленияРаботниковОрганизаций КАК ОсновныеНачисленияРаботниковОрганизации
			|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрРасчета.ОсновныеНачисленияРаботниковОрганизаций.ФактическийПериодДействия(Регистратор = &парамСсылка) КАК ОсновныеНачисленияРаботниковОрганизацииФактическийПериодДейс­твия
			|		ПО ОсновныеНачисленияРаботниковОрганизации.НомерСтроки = ОсновныеНачисленияРаботниковОрганизацииФактическийПериодДейс­твия.НомерСтроки
			|			И ОсновныеНачисленияРаботниковОрганизации.Регистратор = ОсновныеНачисленияРаботниковОрганизацииФактическийПериодДейс­твия.Регистратор
			|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТНачисления КАК Начисления
			|		ПО 	(Начисления.Сотрудник = ОсновныеНачисленияРаботниковОрганизации.Сотрудник)
			|			И (Начисления.ВидРасчета = ОсновныеНачисленияРаботниковОрганизации.ВидРасчета)
			|			И (Начисления.ДатаНачала = ОсновныеНачисленияРаботниковОрганизации.ПериодДействияНачало)
			|			И (КОНЕЦПЕРИОДА(Начисления.ДатаОкончания, День) = КОНЕЦПЕРИОДА(ОсновныеНачисленияРаботниковОрганизации.ПериодДействияКонец, День))
			|ГДЕ
			|	ОсновныеНачисленияРаботниковОрганизации.Регистратор = &парамСсылка
			|	И ОсновныеНачисленияРаботниковОрганизацииФактическийПериодДейс­твия.Регистратор ЕСТЬ NULL 
			|
			|УПОРЯДОЧИТЬ ПО
			|	НомерСтроки УБЫВ");

			
			ЗапросПроверки.УстановитьПараметр("парамСсылка", СcылкаОбъекта);
			ЗапросПроверки.УстановитьПараметр("парамНачисления", Начисления.Выгрузить());
			СтрокиКУдалению = ЗапросПроверки.Выполнить().Выгрузить();
			// удалим проверочный набор записей
			НаборЗаписейДляПроверки.Очистить();
// !!! ТУТ ДЛИТЕЛЬНОЕ ЗАВИСАНИЕ !!!
			НаборЗаписейДляПроверки.Записать(Истина, Ложь, Истина, Ложь);
			
			ЗафиксироватьТранзакцию();
			
			Для Каждого СтрокаТЗ Из СтрокиКУдалению Цикл
				Начисления.Удалить(СтрокаТЗ.НомерСтроки - 1);
			КонецЦикла;
			
		КонецЕсли;