Удаление большого количества записей

        
	
МенеджерЗаписи = РегистрыСведений.СведенияОТоварах.СоздатьМенеджерЗаписи();

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

		Выборка = РезультатЗапроса.Выбрать();

		Пока Выборка.Следующий() Цикл
			
			НоваяСтрока = ВТ_ТЗ.Добавить();
			ЗаполнитьЗначенияСвойств(НоваяСтрока, Выборка);	               
                        ЗаполнитьЗначенияСвойств(МенеджерЗаписи, Выборка);
			МенеджерЗаписи.Прочитать();
			МенеджерЗаписи.Удалить();
						
		КонецЦикла;
		
				
	КонецЦикла;