День добрый. Хочу создать печатную форму на управляемых формах. Ориентация - ландшафт. В левой части макета 3 области(сверху вниз): шапка, ТЧ, подвал. В правой части 2 области: договор и информация(выводится в цикле). Помогите, пожалуйста, вывести область договор(правая часть макета) вверху справа.
Конфигурация самописная. Версия платформы: 8.2.15.289
Вот такой макет:
и такой результат печатной формы:
Вол листинг процедуры печати:
Процедура СпецификацияДоговорЗаказ(ТабДок, Ссылка) Экспорт
Макет = Документы.Заказы.ПолучитьМакет("СпецификацияДоговорЗаказ");
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТЧ = Макет.ПолучитьОбласть("ТЧ");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьИнформация = Макет.ПолучитьОбласть("Информация");
ОбластьДоговор = Макет.ПолучитьОбласть("Договор");
ТабДок.Очистить();
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Заказы.СуммаПоДокументу КАК СуммаИтого
|ИЗ
| Документ.Заказы КАК Заказы
|ГДЕ
| Заказы.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", Ссылка[0]);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Если Выборка.Следующий() Тогда
ТабДок.Вывести(ОбластьШапка);
ОбластьПодвал.Параметры.Заполнить(Выборка);
КонецЕсли;
ЗапросТЧ = Новый Запрос;
ЗапросТЧ.Текст =
"ВЫБРАТЬ
| ЗаказыСпецификация.НомерСтроки КАК Номер,
| ЗаказыСпецификация.Номенклатура,
| ЗаказыСпецификация.ЕдиницаИзмерения КАК Единица,
| ЗаказыСпецификация.Количество,
| ЗаказыСпецификация.Цена,
| ЗаказыСпецификация.Сумма
|ИЗ
| Документ.Заказы.Спецификация КАК ЗаказыСпецификация
|ГДЕ
| ЗаказыСпецификация.Ссылка = &Ссылка
| И ЗаказыСпецификация.Номенклатура.ЭтоГруппа = ЛОЖЬ";
ЗапросТЧ.УстановитьПараметр("Ссылка", Ссылка[0]);
РезультатТЧ = ЗапросТЧ.Выполнить();
ВыборкаТЧ = РезультатТЧ.Выбрать();
Пока ВыборкаТЧ.Следующий() Цикл
ОбластьТЧ.Параметры.Заполнить(ВыборкаТЧ);
ТабДок.Вывести(ОбластьТЧ, ВыборкаТЧ.Уровень());
КонецЦикла;
ТабДок.Вывести(ОбластьПодвал);
ЗапросДоговор = Новый Запрос;
ЗапросДоговор.Текст =
"ВЫБРАТЬ
| Заказы.ДатаВыполнения КАК Выполнить,
| Заказы.Модель КАК Тип,
| Заказы.Аванс,
| Заказы.Дата
|ИЗ
| Документ.Заказы КАК Заказы
|ГДЕ
| Заказы.Ссылка = &Ссылка
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ЗаказыИнформация.Фамилия,
| ЗаказыИнформация.Имя,
| ЗаказыИнформация.Отчество,
| ЗаказыИнформация.ДатаРождения
|ИЗ
| Документ.Заказы.Информация КАК ЗаказыИнформация
|ГДЕ
| ЗаказыИнформация.Ссылка = &Ссылка";
ЗапросДоговор.УстановитьПараметр("Ссылка", Ссылка[0]);
РезультатДоговор = ЗапросДоговор.ВыполнитьПакет();
Выборка0 = РезультатДоговор[0].Выбрать();
Если Выборка0.Следующий() Тогда
ОбластьДоговор.Параметры.Заполнить(Выборка0);
ОбластьДоговор.Параметры.Выполнить = Формат(Выборка0.Выполнить, "ДФ=dd.MM.yyyy");
ОбластьДоговор.Параметры.Дата = Формат(Выборка0.Дата, "ДФ=dd.MM.yyyy");
ТабДок.Вывести(ОбластьДоговор);
ТабДок.Присоединить(ОбластьДоговор);
КонецЕсли;
Выборка1 = РезультатДоговор[1].Выбрать();
Пока Выборка1.Следующий() Цикл
ОбластьИнформация.Параметры.Заполнить(Выборка1);
ОбластьИнформация.Параметры.ДатаРождения = Формат(Выборка1.ДатаРождения, "ДФ=dd.MM.yyyy");
ТабДок.Вывести(ОбластьИнформация, Выборка1.Уровень());
ТабДок.ПРисоединить(ОбластьИнформация);
КонецЦикла;
КонецПроцедуры