() Я с вами согласен. Я даже видел пример удаления, не помню у кого. Я на основании его создал регламентное задание.
Процедура УдалитьВерсии()
//Очистка регистра версионирования, по истечению срока хранения
КоличествоДней = Константы.ХранениеВерсионированияДней.Получить();
Если КоличествоДней > 0 Тогда
ДатаПо = НачалоДня(ТекущаяДата()) - КоличествоДней *60*60*24;
ЗаписьЖурналаРегистрации("ОчистаВерсий", УровеньЖурналаРегистрации.Информация, , , "Очистка регистра сведений версии объекта, до: " + Формат(ДатаПо, "ДЛФ=DD"));
ЗапросДаты = Новый Запрос;
ЗапросДаты.Текст="ВЫБРАТЬ РАЗЛИЧНЫЕ
| НАЧАЛОПЕРИОДА(ВерсииОбъектов.ДатаВерсии, ДЕНЬ) КАК ДатаВерсии
|ИЗ
| РегистрСведений.ВерсииОбъектов КАК ВерсииОбъектов
|ГДЕ
| НАЧАЛОПЕРИОДА(ВерсииОбъектов.ДатаВерсии, ДЕНЬ) <= &ДатаПо
|
|УПОРЯДОЧИТЬ ПО
| ДатаВерсии";
ЗапросДаты.Параметры.Вставить("ДатаПо",ДатаПо);
ВыборкаДаты = ЗапросДаты.Выполнить().Выбрать();
Пока ВыборкаДаты.Следующий() Цикл
ОчиститьНаДату(ВыборкаДаты.ДатаВерсии);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура ОчиститьНаДату(ДатаОчистки)
ЗапросОчистка = Новый Запрос;
ЗапросОчистка.Текст = "ВЫБРАТЬ
| ВерсииОбъектов.Объект,
| ВерсииОбъектов.НомерВерсии,
| ВерсииОбъектов.ВерсияОбъекта,
| ВерсииОбъектов.АвторВерсии,
| ВерсииОбъектов.ДатаВерсии,
| ВерсииОбъектов.Сжато
|ИЗ
| РегистрСведений.ВерсииОбъектов КАК ВерсииОбъектов
|ГДЕ
| ВерсииОбъектов.ДатаВерсии >= &НачПериода
| И ВерсииОбъектов.ДатаВерсии <= &КонПериода";
ЗапросОчистка.Параметры.Вставить("НачПериода",НачалоДня(ДатаОчистки));
ЗапросОчистка.Параметры.Вставить("КонПериода",КонецДня(ДатаОчистки));
Выборка = ЗапросОчистка.Выполнить().Выбрать();
НовыйНомерВерсии=1;
Пока Выборка.Следующий() Цикл
ВерсииОбъектов = РегистрыСведений.ВерсииОбъектов;
МенеджерЗаписиИИО = ВерсииОбъектов.СоздатьМенеджерЗаписи();
МенеджерЗаписиИИО.Объект = Выборка.Объект;
МенеджерЗаписиИИО.НомерВерсии = Выборка.НомерВерсии;
МенеджерЗаписиИИО.Прочитать();
МенеджерЗаписиИИО.Объект = Справочники.Номенклатура.ПустаяСсылка();
МенеджерЗаписиИИО.НомерВерсии = НовыйНомерВерсии;
МенеджерЗаписиИИО.ВерсияОбъекта = Неопределено;
МенеджерЗаписиИИО.Записать();
НовыйНомерВерсии=НовыйНомерВерсии+1;
КонецЦикла;
НаборЗаписей = РегистрыСведений.ВерсииОбъектов.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Объект.Установить(Справочники.Номенклатура.ПустаяСсылка());
НаборЗаписей.Записать();
//Сообщить ("за: "+Формат(ДатаОчистки,"ДЛФ=DD")+" очищено "+НовыйНомерВерсии+" записей." ,СтатусСообщения.Внимание);
КонецПроцедуры
Показать
