v7: Оптимизация процедуры

Всем привет! С 7кой не работал, но есть процедура, которая как мне кажется нуждается в оптимизации. Можно ли как то это все сделать одним запросом?

Процедура Сформировать()
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"
|Период с ВыбНачПериода по ВыбКонПериода;
|
|Контрагент = Документ.РеализацияПродукции.Контрагент;
|Экспорт = Документ.РеализацияПродукции.Контрагент.Экспорт;
|МодельныйРяд = Документ.РеализацияПродукции.Товар.МодельныйРяд;
|Количество = Документ.РеализацияПродукции.Количество;
|Всего = Документ.РеализацияПродукции.Всего;
|НДС = Документ.РеализацияПродукции.НДС;
|ТекДок = Документ.РеализацияПродукции.ТекущийДокумент;
|
|Функция КоличествоСумма= Сумма(Количество);
|Функция ВсегоСумма = Сумма(Всего) Когда (Экспорт = 0);
|Функция ВсегоСуммаЭ = Сумма(Всего) Когда (Экспорт = 1);
|Функция НДССумма = Сумма(НДС);
|
|Группировка Контрагент без групп;
|Группировка МодельныйРяд без групп;
|Группировка День;
|Группировка ТекДок;
|
|";

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Сообщить("Не удалось обработать данные по реализациям");
Возврат;
КонецЕсли;

Пока Запрос.Группировка(1) = 1 Цикл
Пока Запрос.Группировка(2) = 1 Цикл
Пока Запрос.Группировка(3) = 1 Цикл
Пока Запрос.Группировка(4) = 1 Цикл
Коэф = 1;

Если ПустоеЗначение(Запрос.ТекДок.ДокументОснование) = 0 Тогда
Если Запрос.ТекДок.ДокументОснование.Вид() = "Заявка" Тогда
Валюта = Запрос.ТекДок.ДокументОснование.Валюта;

Если ПустоеЗначение(Валюта) = 0 Тогда
Коэф = Валюта.Курс.Получить(Запрос.ТекДок.ДатаДок);
Кратность = Валюта.Кратность.Получить(Запрос.ТекДок.ДатаДок);

Если Кратность > 0 Тогда
Коэф = Коэф / Кратность;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;

День = Запрос.День;
Контрагент = Запрос.Контрагент;
МодельныйРяд = Запрос.МодельныйРяд;
СуммаСНДС = Запрос.ВсегоСумма + Запрос.ВсегоСуммаЭ * 1.18 * Коэф;
СуммаНДС = Запрос.НДССумма + Запрос.ВсегоСуммаЭ * 0.18 * Коэф;
Количество = Запрос.КоличествоСумма;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецПроцедуры