Помогите с запросом

Есть вот такой запрос, но выполняется жутко медленно. (в целом задача получить оптовую цену товара чтобы сравнить ее с ценой в документе РеализацияТоваровИУслуг для того чтобы увидеть прибыть.) Подскажите если есть у кого-нибудь опыт по данному вопросу. Заранее спасибо )

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

РезультатЗапроса = ЗапросПроц.Выполнить().Выбрать();
Пока РезультатЗапроса.Следующий() Цикл
//НайденныйПроцент = РезультатЗапроса.Цена;
ЦенаТовараОптовая = РезультатЗапроса.Цена;
КонецЦикла;
Возврат ЦенаТовараОптовая;

КонецФункции