Запрос = Новый Запрос; 
Запрос.Текст = " 
|  ВЫБРАТЬ 
|      ЦеныНоменклатурыКонтрагентов.Регистратор 
|ИЗ 
|        РегистрСведений.ЦеныНоменклатурыКонтрагентов КАК ЦеныНоменклатурыКонтрагентов"; 
Результат = Запрос.Выполнить(); 
Выборка = Результат.Выбрать(); 
НаборЗаписей = РегистрыСведений.ЦеныНоменклатурыКонтрагентов.СоздатьНаборЗаписей(); 
Пока Выборка.Следующий() Цикл 
      НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор); 
 НаборЗаписей.Записать(); 
КонецЦикла;