Программно удаляем записи из регистра накопления

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

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

  Пока Выборка.Следующий() цикл
        ОбработкаПрерыванийПользователя();
        Набор = РегистрыНакопления.Остатки.СоздатьНаборЗаписей();
        Набор.Отбор.Регистратор.Значение = Выборка.Регистратор;
        Попытка
           Набор.Записать();
        Исключение
           БылиОшибки=Истина;
        КонецПопытки;
        Кол=Кол+1;
        ЕСЛИ Кол%100=0 Тогда
            Сообщить("Отработано "+Кол+" документов из "+Выборка.Количество());
        КонецЕсли;
    КонецЦикла;
    Если БылиОшибки Тогда
       Предупреждение("Обработка завершена. Регистр очищен не до конца!!!");
    КонецЕсли;
    РегистрыНакопления.Остатки.УстановитьИспользованиеИтогов(Истина);