Здравствуйте, уважаемые эксперты!
Бухгалтерия предприятия 8.1.
Помогите, пожалуйста, дописать запрос, чтобы в макет отчета добавить колонку Сумма. В запросе должна рассчитываться средняя цена по субконто "Материал" по счету 10.01 на дату документа (Наряд) = Сумма кон.остаток/ кол-во кон.остаток * "Количество" из запроса. Заранее спасибо.

Приложение:
Процедура СформироватьОтчет(ТабличныйДокумент) Экспорт
ТабличныйДокумент.Очистить();
Макет = ПолучитьМакет("Макет");
//Вывод шапки
Секция = Макет.ПолучитьОбласть("Шапка");
Секция.Параметры.НачалоПериода = Формат(НачалоПериода, "ДФ=dd.MM.yyyy");
Секция.Параметры.КонецПериода = Формат(КонецПериода, "ДФ=dd.MM.yyyy");
СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Организация);
НазваниеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации,"НаименованиеДляПечатныхФорм");
Секция.Параметры.НазваниеОрганизации = НазваниеОрганизации;
Секция.Параметры.ОтветственныйЗаВыполнение = ОтветственныйЗаВыполнение.Наименование;
ТабличныйДокумент.Вывести(Секция);

//Выполнение запроса
Результат = ПодготовитьОтчетКВыводуНаПечать();

Если Результат.Пустой() Тогда
Секция = Макет.ПолучитьОбласть("Строка");
ТабличныйДокумент.Вывести(Секция);
УправлениеОтчетами.УстановитьКолонтитулыПоУмолчанию(ТабличныйДокумент, ,Строка(глЗначениеПеременной("глТекущийПользователь")));
Возврат;
КонецЕсли;

Секция = Макет.ПолучитьОбласть("Строка");

Счетчик = 1;
Если ГруппироватьПоРазделам Тогда
СекцияРаздела = Макет.ПолучитьОбласть("Раздел");
ГруппировкаПоРазделу = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
ТабличныйДокумент.НачатьАвтогруппировкуСтрок();
Пока ГруппировкаПоРазделу.Следующий() Цикл
СекцияРаздела.Параметры.Заполнить(ГруппировкаПоРазделу);
ТабличныйДокумент.Вывести(СекцияРаздела, 1);
СекцияАдреса = Макет.ПолучитьОбласть("Адрес");
ГруппировкаПоАдресу = ГруппировкаПоРазделу.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ГруппировкаПоАдресу.Следующий() Цикл
СекцияАдреса.Параметры.Заполнить(ГруппировкаПоАдресу);
ТабличныйДокумент.Вывести(СекцияАдреса,1);

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

Документ = ГруппировкаПоАдресу.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Документ.Следующий() Цикл
Секция.Параметры.НПП = Счетчик;
Если ВыводСтроки(Документ, Секция) Тогда
ТабличныйДокумент.Вывести(Секция,2);
Счетчик = Счетчик + 1;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;

ТабличныйДокумент.ЗакончитьАвтогруппировкуСтрок();
ТабличныйДокумент.ПовторятьПриПечатиСтроки = ТабличныйДокумент.Области.ШапкаТаблицы;
УправлениеОтчетами.УстановитьКолонтитулыПоУмолчанию(ТабличныйДокумент, ,Строка(глЗначениеПеременной("глТекущийПользователь")));

КонецПроцедуры

Функция ВыводСтроки(Документ, Секция)
Секция.Параметры.Заполнить(Документ);
Секция.Параметры.Наряд = "№ " + ОбщегоНазначения.ПолучитьНомерНаПечать(Документ.Наряд)+ " от " + Формат(Документ.Наряд.Дата, "ДФ='дд.ММ.гг'") + " г.";
Возврат Истина;
КонецФункции

Функция ПодготовитьОтчетКВыводуНаПечать()

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| УК_НарядЗаказМатериалыФакт.Ссылка КАК Наряд,
| УК_НарядЗаказМатериалыФакт.Работа,
| УК_НарядЗаказМатериалыФакт.Материал КАК Материал,
| УК_НарядЗаказМатериалыФакт.ЕдиницаИзмерения,
| УК_НарядЗаказМатериалыФакт.ВОбъем КАК Объем,
| УК_НарядЗаказМатериалыФакт.ФОбъем КАК Количество,
| УК_НарядЗаказМатериалыФакт.ВидРаботы.Раздел КАК Раздел,";
Если ПоДомам Тогда
Запрос.Текст = Запрос.Текст + "
| ВЫБОР
| КОГДА УК_НарядЗаказМатериалыФакт.Ссылка.ВидОперации = ЗНАЧЕНИЕ(Перечисление.КВП_ВидыОперацийЗаявокНаВыполнениеРабот.ВыполнениеРаботПоДому)
| ТОГДА УК_НарядЗаказМатериалыФакт.Ссылка.Здание
| ИНАЧЕ УК_НарядЗаказМатериалыФакт.Ссылка.ЛицевойСчет.Адрес.Владелец
| КОНЕЦ КАК Адрес";
Иначе
Запрос.Текст = Запрос.Текст + "
| УК_НарядЗаказМатериалыФакт.Ссылка.Адрес КАК Адрес";
КонецЕсли;
Запрос.Текст = Запрос.Текст + "
|ИЗ
| Документ.УК_НарядЗаказ.МатериалыФакт КАК УК_НарядЗаказМатериалыФакт
|ГДЕ
| УК_НарядЗаказМатериалыФакт.Ссылка.Организация = &Организация
| И (НЕ УК_НарядЗаказМатериалыФакт.Ссылка.ПометкаУдаления)
| И (УК_НарядЗаказМатериалыФакт.Ссылка.Дата МЕЖДУ &НачалоПериода И &КонецПериода)
|УПОРЯДОЧИТЬ ПО
| Адрес,
| Наряд,
| Материал";

Если ГруппироватьПоРазделам Тогда
Запрос.Текст = Запрос.Текст + "
|ИТОГИ ПО
|Раздел,
|Адрес";
Иначе
Запрос.Текст = Запрос.Текст + "
|ИТОГИ ПО
|Адрес";
КонецЕсли;
Запрос.УстановитьПараметр("НачалоПериода",НачалоПериода);
Запрос.УстановитьПараметр("КонецПериода",КонецПериода);
Запрос.УстановитьПараметр("Организация",Организация);
Возврат Запрос.Выполнить();
КонецФункции