Пока Выборка.Следующий() Цикл
       Если Выборка.Количество = 0 Тогда
           Продолжить;
       КонецЕсли;
       Если Выборка.Регистратор <> Регистратор Тогда
           Если Регистратор <> Неопределено Тогда
               Набор.Записать(Ложь);
           КонецЕсли;
           Набор = РегистрыНакопления.Ф_ПопулярныеВпечатления.СоздатьНаборЗаписей();
           Набор.Отбор.Регистратор.Установить(Выборка.Регистратор);
           Набор.Прочитать();
           Регистратор = Выборка.Регистратор;
       КонецЕсли;
       Движение = Набор.Добавить();
       ЗаполнитьЗначенияСвойств(Движение, Выборка);
   КонецЦикла;
   Набор.Записать(Ложь);

(0) а что она делает? не пойму
ограничивай выборку. используй запросы.

непонятна задача

Если Регистратор <> Неопределено Тогда
               Набор.Записать(Ложь);
           КонецЕсли;
Набор - по всей видимости до цикла описан?
Тогда лучше вынести его запись так же за пределы цикла.

выборка у меня большая но по другому нельзя. Сделал еще один регистр для одного документа и теперь надо заполнить его движениями за весь период работы компании без того чтобы перепроводить его регистраторы.

(4) порциями делай, по 10 тыщ записей например

если съедает память - предположу что это всё в транзакции ещё?

(4) Так вызови процедуру (или кусок процедуры) по созданию записей из модуля объекта.

kexit, pfghjc gjrfpfk

упс. лучшеб запрос показал

(4)

1.  вынеси за цикл           Набор = РегистрыНакопления.Ф_ПопулярныеВпечатления.СоздатьНаборЗаписей();

2.           Набор.Прочитать();
 вообще не нужно

3. в запросе

пиши ВЫБРАТЬ РАЗЛИЧНЫЕ
       Регистратор

тогда проверка

       Если Выборка.Регистратор <> Регистратор Тогда


тоже не понадобится

(7)+1

(6) нет в транзакции не делаю
(5) обрезал запрос и вроде стало записывать нормально
Всем СПАСИБО!!