Кнопка «Заполнить цены» на форме заказа работает 40 секунд на 200 строках

&НаКлиенте
Процедура ЗаполнитьЦены(Команда)
    Для Каждого Строка Из Объект.Товары Цикл
        Строка.Цена = ЦенаНоменклатуры(Строка.Номенклатура);
    КонецЦикла;
КонецПроцедуры

&НаСервереБезКонтекста
Функция ЦенаНоменклатуры(Номенклатура)
    // запрос к регистру цен
КонецФункции

Пользователи работают через тонкий клиент по сети филиала. Что изменить в первую очередь?