ochistit_nezavisimyj_registr_svedenij_po_date [wiki.hostingcloud.com.ua]

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.
====== Очистить независимый регистр сведений по дате ======
<code>
&НаСервере
Процедура УдалитьЗаписиИзРегистраНаСервере(ДатаЗ, ДатаПо)

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

			Выборка = РезультатЗапроса.Выбрать();
            НаборЗаписей = РегистрыСведений.ЖурналОбменаОбектовСРМКреатио.СоздатьНаборЗаписей();
            
            Пока Выборка.Следующий() Цикл

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