Как быстро очистить СУБД

Пожалуйста только без пафоса и по существу.

Задача така необходимо удалить все документы, кроме тех по которым есть движения по договору определенного свойства.

Я сделал так: для начала отобрал все документы которые необходимо удалить и начал помечать на удаление - ДОЛГО!!!
просто документов в базе реально - МНОГО порядка 6 млн.
пробовал удалять по движениям тож не быстро.

Вот собственно как все делается:

Процедура ПометитьНаУдаленияИОчиститьНаборы(ПометкаУдаления=Ложь)

Если Прайс.Пустая() Тогда
Предупреждение("Необходимо выбрать прайс, по которому не должны удалятся документы!");
Возврат;
КонецЕсли;

ЭлементыФормы.ИндикаторВсего.Значение = 0;
ЭлементыФормы.ИндикаторТек.Значение = 0;

Запрос = Новый Запрос("ВЫБРАТЬ
| ЗначенияСвойствОбъектов.Объект
|ИЗ
| РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
|ГДЕ
| ЗначенияСвойствОбъектов.Свойство В
| (ВЫБРАТЬ
| Константы.VWGСвойствоПрайс
| ИЗ
| Константы)
| И ЗначенияСвойствОбъектов.Значение <> &Прайс");

Запрос.УстановитьПараметр("Прайс",Прайс);
РезЗапр = Запрос.Выполнить();
ВыборкаДоговора = РезЗапр.Выбрать();
ЭлементыФормы.ИндикаторВсего.МаксимальноеЗначение = ВыборкаДоговора.Количество();
Сч1 = ВыборкаДоговора.Количество();

НачатьТранзакцию();
СчетчикТранзакций=0;
Состояние("Помечаются на удаление...");

Пока ВыборкаДоговора.Следующий() Цикл

сч1=сч1-1;

ЭлементыФормы.ИндикаторВсего.Значение = ЭлементыФормы.ИндикаторВсего.Значение+1;
ОбработкаПрерыванияПользователя();

ЗапросКритерий = Новый Запрос("ВЫБРАТЬ
| ДокументыПоДоговоруКонтрагента.Ссылка КАК ТекущийДокумент
|ИЗ
| КритерийОтбора.ДокументыПоДоговоруКонтрагента(&Значение) КАК ДокументыПоДоговоруКонтрагента
|ГДЕ
| (НЕ ДокументыПоДоговоруКонтрагента.Ссылка.ПометкаУдаления)");

ЗапросКритерий.УстановитьПараметр("Значение",ВыборкаДоговора.Объект);

РезЗапрКрит = ЗапросКритерий.Выполнить();
ВыборкаПоДокументам = РезЗапрКрит.Выбрать();
ЭлементыФормы.ИндикаторТек.МаксимальноеЗначение = ВыборкаПоДокументам.Количество();
ЭлементыФормы.ИндикаторТек.Значение = 0;

сч2= ВыборкаПоДокументам.Количество();
Пока ВыборкаПоДокументам.Следующий() Цикл

сч2=сч2-1;

СчетчикТранзакций=СчетчикТранзакций+1;
ЭлементыФормы.ТекТаблица.Заголовок = ВыборкаПоДокументам.ТекущийДокумент.Метаданные().Синоним;
ЭлементыФормы.ИндикаторТек.Значение = ЭлементыФормы.ИндикаторТек.Значение+1;
ЭлементыФормы.ПредставлениеОбъекта.Заголовок = ВыборкаПоДокументам.ТекущийДокумент;
ОбработкаПрерыванияПользователя();

УдаляемыйОбъект = ВыборкаПоДокументам.ТекущийДокумент.ПолучитьОбъект();
ДвиженияОбъекта = УдаляемыйОбъект.Движения;

Если Не ПометкаУдаления Тогда

Для каждого НаборДвижений из ДвиженияОбъекта Цикл

ИмяТаблицы = НаборДвижений.Метаданные().Имя;
Если ОбщегоНазначения.ПринадлежностьКлассуМетаданных("РегистрыНакопления",НаборДвижений.Метаданные()) Тогда

НаборЗаписей = РегистрыНакопления[ИмяТаблицы].СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(ВыборкаПоДокументам.ТекущийДокумент);
//НаборЗаписей.Прочитать();
НаборЗаписей.Записать();

ИначеЕсли ОбщегоНазначения.ПринадлежностьКлассуМетаданных("РегистрыСведений",НаборДвижений.Метаданные()) Тогда

НаборЗаписей = РегистрыСведений[ИмяТаблицы].СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(ВыборкаПоДокументам.ТекущийДокумент);
//НаборЗаписей.Прочитать();
НаборЗаписей.Записать();

ИначеЕсли ОбщегоНазначения.ПринадлежностьКлассуМетаданных("РегистрыБухгалтерии",НаборДвижений.Метаданные()) Тогда

НаборЗаписей = РегистрыБухгалтерии[ИмяТаблицы].СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(ВыборкаПоДокументам.ТекущийДокумент);
//НаборЗаписей.Прочитать();
НаборЗаписей.Записать();

КонецЕсли;

КонецЦикла;

КонецЕсли;

Если ПометкаУдаления Тогда
УдаляемыйОбъект.УстановитьПометкуУдаления(Истина);
КонецЕсли;

Если СчетчикТранзакций >= 200 Тогда
Состояние("Запись транзакции...");ЗафиксироватьТранзакцию();
НачатьТранзакцию(); Состояние("Помечаются на удаление...");
СчетчикТранзакций=0;
КонецЕсли;

Состояние("Помечаются на удаление... "+СчетчикТранзакций);

КонецЦикла;

КонецЦикла;

ЗафиксироватьТранзакцию();

ЭлементыФормы.ИндикаторВсего.Значение = 0;
ЭлементыФормы.ИндикаторТек.Значение = 0;

КонецПроцедуры