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