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