p align="justify"> Область.Параметры.ИННОрганизации = Константи.ІНН.Получіть ();
Область.Параметры.КППОрганизации = Константи.КПП.Получіть ();
Область.Параметры.АдресОрганизации = Константи.Адрес.Получіть ();
Область.Параметры.ТелефоныОрганизации = Константы.Телефоны.Получить ();
Область.Параметры.РасчетныйСчет = Константы.РасчетныйСчет.Получить ();
ТабДок.Вивесті (Область);
// Владельци1
Для Кожного ТекСтрокаВладельци З Власники Цикл
Область = Макет.ПолучітьОбласть ("Владельци1");
Область.Параметры.НаименованиеПродавца =
Область.Параметры.АдресПродавца = ТекСтрокаВладельцы.УчастникВладения.Адрес;
Область.Параметры.ТелефонПродавца = ТекСтрокаВладельцы.УчастникВладения.Телефон;
Якщо ТекСтрокаВладельцы.УчастникВладения.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тоді
Область.Параметры.Параметр1 = "дата р." + ТекСтрокаВладельцы.УчастникВладения.ДатаРождения;
Область.Параметры.Параметр2 = ТекСтрокаВладельцы.УчастникВладения.Документ;
Інакше Область.Параметры.Параметр1 = "ІПН" + ТекСтрокаВладельцы.УчастникВладения.ИНН;
Область.Параметры.Параметр2 = "КПП" + ТекСтрокаВладельцы.УчастникВладения.КПП;
Область.Параметры.Представитель =
КонецЕсли;
ТабДок.Вивесті (Область);
КонецЦікла;
ТабДок.ОтображатьСетку = Брехня;
ТабДок.Защіта = Брехня;
ТабДок.ТолькоПросмотр = Брехня;
ТабДок.ОтображатьЗаголовки = Брехня;
ТабДок.Показать ();
КонецПроцедури
В В
Додаток 2
Текст процедури "Друк ()", макет і попередній перегляд документа "Попит"
Процедура Друк () Експорт
ТабДок = Новий ТаблічнийДокумент;
Макет = Документы.Спрос.ПолучитьМакет ("Друк");
// Тема
Область = Макет.ПолучітьОбласть ("Тема");
Область.Параметри.Номер = Номер;
ТабДок.Вивесті (Область);
// Текст
Область = Макет.ПолучітьОбласть ("Текст");
Область.Параметри.Дата = Формат (Дата, "ДЛФ = ДД");
Область.Параметри.Адрес = Константи.Адрес.Получіть ();
Область.Параметри.Телефони = Константы.Телефоны.Получить ();
Область.Параметры.НазваниеОрганизации = Константы.НазваниеОрганизации.Получить ();
...
