Создать внешний отчет

&НаКлиенте
Процедура ПриОткрытии(Отказ)
// Инициализация параметров формы
ПараметрыФормы.Период = ТекущаяДата();
ПараметрыФормы.Номенклатура = Неопределено;
КонецПроцедуры

&НаКлиенте
Процедура Сформировать(Команда)
// Проверка заполнения параметров
Если ПустаяДата(ПараметрыФормы.Период) Тогда
Сообщить("Необходимо выбрать период!");
Возврат;
КонецЕсли;

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

// Создание набора записей для отчета
НаборЗаписей = Новый ТаблицаЗначений;
НаборЗаписей.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"));
НаборЗаписей.Колонки.Добавить("Продукция", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));
НаборЗаписей.Колонки.Добавить("КоличествоПродукции", Новый ОписаниеТипов("Число"));
НаборЗаписей.Колонки.Добавить("Документ", Новый ОписаниеТипов("ДокументСсылка"));
НаборЗаписей.Колонки.Добавить("Материал", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));
НаборЗаписей.Колонки.Добавить("Факт", Новый ОписаниеТипов("Число"));
НаборЗаписей.Колонки.Добавить("MaxНорма", Новый ОписаниеТипов("Число"));
НаборЗаписей.Колонки.Добавить("Отклонение", Новый ОписаниеТипов("Число"));

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

Запрос.УстановитьПараметр("Номенклатура", ПараметрыФормы.Номенклатура);
Запрос.УстановитьПараметр("ДатаНачала", НачалоДня(ПараметрыФормы.Период));
Запрос.УстановитьПараметр("ДатаОкончания", КонецДня(ПараметрыФормы.Период));

РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();

Пока Выборка.Следующий() Цикл
НоваяСтрока = НаборЗаписей.Добавить();
НоваяСтрока.Дата = Выборка.Дата;
НоваяСтрока.Продукция = Выборка.Продукция;
НоваяСтрока.КоличествоПродукции = Выборка.КоличествоПродукции;
НоваяСтрока.Документ = Выборка.Документ;
НоваяСтрока.Материал = Выборка.Материал;
НоваяСтрока.Факт = Выборка.Факт;

// Расчет Max-нормы
MaxНорма = ПолучитьMaxНорму(Выборка.Материал, Выборка.КоличествоПродукции);
НоваяСтрока.MaxНорма = MaxНорма;

// Расчет отклонения
Отклонение = НоваяСтрока.Факт - НоваяСтрока.MaxНорма;
Если Отклонение > 0 Тогда
НоваяСтрока.Отклонение = Отклонение;
КонецЕсли;
КонецЦикла;

// Отображение отчета
ПоказатьОтчет(НаборЗаписей);
КонецПроцедуры

&НаСервере
Функция ПолучитьMaxНорму(Материал, КоличествоПродукции)
// Логика получения Max-нормы из спецификации
Возврат 0; // Реализовать логику
КонецФункции