Очистить независимый регистр сведений по дате

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