Внешняя обработка

Следующая задача. в регистре сведений найти все записи у которых дата ввода меньше даты принятия. На СКД сделан весь отбор. в форме эту дату изменяю

Процедура ИзменитьНажатие(Кнопка)
    НачатьТранзакцию();

    Для Каждого Стр Из ЭлементыФормы.таблицаВыборки.Значение Цикл
        Сообщить("Обработка " + Стр.СистемныеПоляНомерПоПорядку +" номера "+ Стр.НомерСтроки);
        Док = Стр.Регистратор;

        //регистр Событие ОС
        Набор = РегистрыСведений.СобытияОС.СоздатьНаборЗаписей();
        Набор.Отбор.Регистратор.Установить(Док);
        Набор.Прочитать();
        Ин = стр.НомерСтроки;
        СтрНабора = Набор.Получить(Ин-1);

        СтрНабора.ДатаСобытия = стр.ДатаВвода;
        Набор.Записать(Истина);

    КонецЦикла;

    ЗафиксироватьТранзакцию();

    Предупреждение("Обработка завершена!");

КонецПроцедуры

Отбору соответствут 7000 строк. обработка выдает ошибку "недостаточно памяти". как поступить? обрабатывать в несколько этапов?