Как очистить регистр расчета?!

 

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

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

    |    УправленческиеНачисления.Регистратор

    |ИЗ

    |    РегистрРасчета.УправленческиеНачисления КАК УправленческиеНачисления";

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

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

    Кол=0;

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

    

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

 

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

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

 

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

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

        Попытка

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

        Исключение

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

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

        Кол=Кол+1;

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

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

        КонецЕсли;

    КонецЦикла;

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

 

    

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

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

    КонецЕсли;