Оптимизация регистра

[Жабка]

               Рег=СоздатьОбъект("Регистр.СерийныеНомера");
                  Рег.УстановитьФильтр(ТекПлан);
                  Рег.ВыбратьДвижения();      
                  
                  Пока Рег.ПолучитьДвижение()=1 Цикл       
                     
                     Если Рег.Расход =1 Тогда 
                     СерийныеНомера = стрЗаменить(СерийныеНомера,Рег.Серийный, "");   
                     КонецЕсли;
                     
                  КонецЦикла;

Очень долго работает, можно ли его как то оптимизировать?

[rasp]

можно установить галку "Отбор движений" в измерениях регистра

[AntS]

Либо можно попробовать запросом получить данные.