1С 8.2 УП : Как очистить регистр накопления?!

 

РегистрыНакопления.ЗаказыМагазинов.УстановитьИспользованиеИтогов(Ложь);

    Запрос=Новый Запрос;

    Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ

    |    Регистр.Регистратор

    |ИЗ

    |    РегистрНакопления.ЗаказыМагазинов КАК Регистр

    |ГДЕ

    |    Регистр.Регистратор.Дата<&КонПериода";

    Запрос.УстановитьПараметр("КонПериода",КонПериода);

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

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

    Кол=0;

    БылиОшибки=Ложь;

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

        ОбработкаПрерыванийПользователя();

        Набор = РегистрыНакопления.ЗаказыМагазинов.СоздатьНаборЗаписей();

        Набор.Отбор.Регистратор.Значение = Выборка.Регистратор;

        Попытка

        Набор.Записать();

        Исключение

        БылиОшибки=Истина;

        КонецПопытки;

        Кол=Кол+1;

        ЕСЛИ Кол%100=0 Тогда

            Сообщить("Отработано "+Кол+" документов из "+Выборка.Количество());

        КонецЕсли;

    КонецЦикла;

Если БылиОшибки Тогда

    Предупреждение("Обработка завершена. Регистр очищен не до конца!!!");

КонецЕсли;

РегистрыНакопления.ЗаказыМагазинов.УстановитьИспользованиеИтогов(Истина);