Конструктор макета 1С. Печатная форма документа

Объект конфигурации Макет предназначен:

1. для хранения различных форм представления данных какого-либо объекта конфигурации или всего прикладного решения;
2. для создания печатной формы табличного документа, подчиненного какому-либо объекту конфигурации.

Макет может содержать:

• табличный или текстовый документ;
• двоичные данные;
• HTML-документ или Active Document;
• графическую или географическую схему;
• схему компоновки данных или макет оформления схемы компоновки данных.

Конструктор макета 1С

Конструктор макета позволяет создавать макеты, используемые как объектами прикладного решения, так и самим прикладным решением в целом. Макеты могут содержать различные данные, которые требуются для отображения информации в процессе работы.

Конструктор макетов позволяет создавать:

1. пустые макеты (например, пустой макет табличного или текстового документа);
2. макеты, содержащие некоторую информацию  (например, макет, содержащий двоичные данные);
3. макеты, содержащие ActiveDocument (например, документ Word, лист Excel или рисунок CorelDRAW);
4. макеты, содержащие HTML-документы;
5. макеты, содержащие графические схемы или географические схемы;
6. макеты, содержащие схему компоновки данных и макет оформления компоновки данных;
7. макеты, содержащие внешнюю компоненту.

ВАЖНО! 

1. В качестве макета нельзя использовать ActiveX элемент управления .
2. При работе с конструктором макета необходимо выполнять загрузку из файла при работе с типами макета:
   • Двоичные данные, Active document, Географическая схема, Графическая схема, Внешняя компонента.

Вызов конструктора макета:

1. при создании нового макета объекта конфигурации (например, при создании нового макета справочника в окне конфигурации);
2. при создании нового общего макета (дерево конфигурации, ветка "Общие макеты" - "Добавить").

Результатом работы конструктора будет являться готовый макет.

Особенности работы в 1С с ActiveX:

1. Элементы управления ActiveX могут использоваться в диалоге формы без ограничения.
2. Для обращения к свойствам элементов управления ActiveX из модуля формы используется свойство "ЭлементыФормы".

Порядок создания печатной формы 1С

Для создания макета печатной формы в общем случае необходимо описать:

1. макет (графический);
2. команду;
3. программный код (в модуле менеджера и в модуле команды) согласно общему алгоритму:
   • создать новый табличный документ ( ТабДок = Новый ТабличныйДокумент; );
   • получить макет печатной формы;
   • заполнить табличный документ, используя области из макета:
     1. получить область из макета;
     2. заполнить параметры области (если они есть);
     3. вывести область в табличный документ;
   • настроить свойства табличного документа (ориентация страницы, отступы и т.д.);
   • показать заполненный табличный документ пользователю.

Порядок создания печатной формы 1С:

1. Создать в конфигураторе новый макет печатной формы для соответствующего документа ("Документы - <нужный документ> - Макеты - Добавить - Табличный документ").
   Особенности настройки макета печатной формы

   Особенности настройки макета печатной формы табличного документа в 1С:

   1. Желательно получить от заказчика форму в Exel (и затем вставить её во вновь создаваемый макет, что позволит сократить время на создание графического шаблона).
   2. Области макета могут создаваться как для строк, так и для колонок или отдельной ячейки.
   3. В общем случае макет может содержать следующие области:
      • шапка;
      • шапка таблицы;
      • строка таблицы;
      • подвал;
      • подписи;
      • подпись факсимиле.
   4. Для автопереноса текста в ячейке установить для соответствующей строки  "Высота строк... - Автовысота строки", свойство ячейки "Размещение текста - Переносить". 
   5. Ввод в ячейку формул для расчета значений (как в Exel) не реализован (можно только программно).

   [свернуть]

2. Создать графический макет (шаблон) печатной формы (или средствами 1С, или скопировав из документа Exel)
   Пример шаблона печатной формы

   

   [свернуть]
3. В конфигураторе создать команду вызова печатной формы:
   • "Документы - <нужный документ> - Команды - Добавить", дать имя;
   • "Группа - <место вывода команды на форме>";
   • "Тип параметра команды - <ссылка на нужный документ>";
   • "Режим использования параметра":
     1. Одиночный - в параметр передается одна ссылка на документ (печать сразу нескольких документов невозможна);
     2. Множественный - в параметр могут передаваться несколько ссылок на документы (одновременная печать нескольких документов);
   • запустить приложение и проверить появление созданной кнопки на форме нужного документа.
     Процедура обрaботки команды

     &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) // ПараметрКоманды - значение (единичное или массив) от источника, в котором реализована команда // ПараметрыВыполненияКоманды - описывает структуру, передаваемую в обработчик команды: // Источник – окно (ОкноКлиентскогоПриложения) или форма (Форма, ФормаКлиентскогоПриложения)вызова команды; // Окно – тип ОкноКлиентскогоПриложения, в котором требуется открыть форму // Уникальность - уникальность формы: // Ложь - искать с ключом уникальности формы по умолчанию, // Истина - не искать форму вообще, любое другое значение устанавливает ключ уникальности, по которому будет произведен поиск. КонецПроцедуры

     1 2 3 4 5 6 7 8 9 10

     &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) // ПараметрКоманды - значение (единичное или массив) от источника, в котором реализована команда // ПараметрыВыполненияКоманды - описывает структуру, передаваемую в обработчик команды: // Источник – окно (ОкноКлиентскогоПриложения) или форма (Форма, ФормаКлиентскогоПриложения)вызова команды; // Окно – тип ОкноКлиентскогоПриложения, в котором требуется открыть форму // Уникальность - уникальность формы: // Ложь - искать с ключом уникальности формы по умолчанию, // Истина - не искать форму вообще, любое другое значение устанавливает ключ уникальности, по которому будет произведен поиск. КонецПроцедуры

     [свернуть]
4. Описать процедуру обработки команды на клиенте.
   пример

   &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) // 1. Создать новый табличный документ ТабДок = Новый ТабличныйДокумент; // 2. Передать ТабДок и ПараметрКоманды из клиента на сервер для обработки // (заполнить табличный документ данными на сервере) ОбработкаКомандыНаСервере(ПараметрКоманды, ТабДок); // 3. Показать пользователю заполненную на сервере печатную форму на клиенте ТабДок.Показать(); КонецПроцедуры

   1 2 3 4 5 6 7 8 9 10

   &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) // 1. Создать новый табличный документ ТабДок = Новый ТабличныйДокумент; // 2. Передать ТабДок и ПараметрКоманды из клиента на сервер для обработки // (заполнить табличный документ данными на сервере) ОбработкаКомандыНаСервере(ПараметрКоманды, ТабДок);   // 3. Показать пользователю заполненную на сервере печатную форму на клиенте ТабДок.Показать(); КонецПроцедуры

   [свернуть]
5. Описать процедуру обработки команды на сервере:

   • получить макет печатной формы;

   • создать запрос для получения данных параметров печатной формы из базы;

   • заполнить табличный документ, используя области из макета:

     1. получить область из макета;

     2. заполнить параметры области (если они есть) (составные представления и табличные суммы - через объект Структура);

   • вывести область в табличный документ.

     пример

     &НаСервере Процедура ОбработкаКомандыНаСервере(МассивДокументов,ТабДок) // 2. Получить макет печатной формы Макет = Документы.ЗаказКлиента.ПолучитьМакет("ПФ_MXL_СчетНаОплатуМой"); // 2.1 Создать запрос для получения данных параметров печатной формы из базы Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ЗаказКлиента.Номер КАК Номер, | ЗаказКлиента.Дата КАК Дата, | ЗаказКлиента.Организация.Наименование КАК Организация, | ЗаказКлиента.Организация.ИНН КАК ИНН, | ЗаказКлиента.Контрагент.Наименование КАК КонтрагентНаименование, | ЗаказКлиента.Контрагент.ИНН КАК КонтрагентИНН, | ЗаказКлиента.Организация.ОсновнойБанковскийСчет.Банк КАК Банк, | ЗаказКлиента.Организация.ОсновнойБанковскийСчет.НомерСчета КАК НомерСчета, | ЗаказКлиента.Организация.ОсновнойБанковскийСчет.Банк.Код КАК БИК, | ЗаказКлиента.Договор.Номер КАК НомерДоговора, | ЗаказКлиента.Договор.ДатаДоговора КАК ДатаДоговора, | ЗаказКлиента.Организация.Руководитель КАК Руководитель, | ЗаказКлиента.Товары.( | НомерСтроки КАК НомерСтроки, | Номенклатура КАК Номенклатура, | Количество КАК Количество, | Цена КАК Цена, | СтавкаНДС КАК СтавкаНДС, | Сумма КАК Сумма, | СуммаНДС КАК СуммаНДС, | СуммаВсего КАК СуммаВсего, | ЕдиницаИзмерения КАК ЕдиницаИзмерения | ) КАК Товары |ИЗ | Документ.ЗаказКлиента КАК ЗаказКлиента | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации КАК Организации | ПО ЗаказКлиента.Организация = Организации.Ссылка |ГДЕ | ЗаказКлиента.Ссылка В(&МассивДокументов)"; Запрос.УстановитьПараметр("МассивДокументов", МассивДокументов); РезультатЗапроса = Запрос.Выполнить(); Выборка = РезультатЗапроса.Выбрать(); // 3. Заполнить табличный документ, используя области из макета: Пока Выборка.Следующий() Цикл // 3.1 получить область из макета; ОбластьШапка = Макет.ПолучитьОбласть("Шапка"); // 3.2 заполнить параметры области (если они есть): // 3.2.1 составные представления - через объект Структура СтруктураПредставление = Новый Структура; СтруктураПредставление.Вставить("ПредставлениеОрганизации",""+Выборка.Организация+", ИНН:"+Выборка.ИНН); СтруктураПредставление.Вставить("ПредставлениеКонтрагента",""+Выборка.КонтрагентНаименование+", ИНН:"+Выборка.КонтрагентИНН); // 3.2.2 обычные параметры // или для каждого параметра, например // Область.Параметры.БИК = Выборка.БИК; // или специальным методом ОбластьШапка.Параметры.Заполнить(Выборка); ОбластьШапка.Параметры.Заполнить(СтруктураПредставление); // 3.3 вывести область в табличный документ; ТабДок.Вывести(ОбластьШапка); // для остальных областей - аналогично ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы"); ОбластьШапкаТаблицы.Параметры.Заполнить(Выборка); ТабДок.Вывести(ОбластьШапкаТаблицы) ; ВыборкаТовары = Выборка.Товары.Выбрать(); СтруктураИтогов = Новый Структура("ИтогоСумма, ИтогоСуммаНДС, ИтогоСуммаВсего, ИтогоСуммаВсегоПрописью",0,0,0); Пока ВыборкаТовары.Следующий() Цикл Область = Макет.ПолучитьОбласть("СтрокаТаблицы"); Область.Параметры.Заполнить(ВыборкаТовары); СтруктураИтогов.ИтогоСумма = СтруктураИтогов.ИтогоСумма+ВыборкаТовары.Сумма; СтруктураИтогов.ИтогоСуммаНДС = СтруктураИтогов.ИтогоСуммаНДС+ВыборкаТовары.СуммаНДС; СтруктураИтогов.ИтогоСуммаВсего = СтруктураИтогов.ИтогоСуммаВсего+ВыборкаТовары.СуммаВсего; ТабДок.Вывести(Область); КонецЦикла; ОбластьПодвал = Макет.ПолучитьОбласть("Подвал"); ПараметрыПредметаИсчисления = "рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2"; СтруктураИтогов.ИтогоСуммаВсегоПрописью = ЧислоПрописью(СтруктураИтогов.ИтогоСуммаВсего, "ДП=Истина",ПараметрыПредметаИсчисления); ОбластьПодвал.Параметры.Заполнить(СтруктураИтогов); ТабДок.Вывести(ОбластьПодвал); ОбластьПодписи = Макет.ПолучитьОбласть("Подписи"); ОбластьПодписи.Параметры.Заполнить(Выборка); ТабДок.Вывести(ОбластьПодписи); КонецЦикла; КонецПроцедуры // ОбработкаКомандыНаСервере()

     1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

     &НаСервере Процедура ОбработкаКомандыНаСервере(МассивДокументов,ТабДок) // 2. Получить макет печатной формы Макет = Документы.ЗаказКлиента.ПолучитьМакет("ПФ_MXL_СчетНаОплатуМой"); // 2.1 Создать запрос для получения данных параметров печатной формы из базы Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ЗаказКлиента.Номер КАК Номер, | ЗаказКлиента.Дата КАК Дата, | ЗаказКлиента.Организация.Наименование КАК Организация, | ЗаказКлиента.Организация.ИНН КАК ИНН, | ЗаказКлиента.Контрагент.Наименование КАК КонтрагентНаименование, | ЗаказКлиента.Контрагент.ИНН КАК КонтрагентИНН, | ЗаказКлиента.Организация.ОсновнойБанковскийСчет.Банк КАК Банк, | ЗаказКлиента.Организация.ОсновнойБанковскийСчет.НомерСчета КАК НомерСчета, | ЗаказКлиента.Организация.ОсновнойБанковскийСчет.Банк.Код КАК БИК, | ЗаказКлиента.Договор.Номер КАК НомерДоговора, | ЗаказКлиента.Договор.ДатаДоговора КАК ДатаДоговора, | ЗаказКлиента.Организация.Руководитель КАК Руководитель, | ЗаказКлиента.Товары.( | НомерСтроки КАК НомерСтроки, | Номенклатура КАК Номенклатура, | Количество КАК Количество, | Цена КАК Цена, | СтавкаНДС КАК СтавкаНДС, | Сумма КАК Сумма, | СуммаНДС КАК СуммаНДС, | СуммаВсего КАК СуммаВсего, | ЕдиницаИзмерения КАК ЕдиницаИзмерения | ) КАК Товары |ИЗ | Документ.ЗаказКлиента КАК ЗаказКлиента | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации КАК Организации | ПО ЗаказКлиента.Организация = Организации.Ссылка |ГДЕ | ЗаказКлиента.Ссылка В(&МассивДокументов)"; Запрос.УстановитьПараметр("МассивДокументов", МассивДокументов); РезультатЗапроса = Запрос.Выполнить(); Выборка = РезультатЗапроса.Выбрать(); // 3. Заполнить табличный документ, используя области из макета: Пока Выборка.Следующий() Цикл // 3.1 получить область из макета; ОбластьШапка = Макет.ПолучитьОбласть("Шапка"); // 3.2 заполнить параметры области (если они есть):   // 3.2.1 составные представления - через объект Структура СтруктураПредставление = Новый Структура; СтруктураПредставление.Вставить("ПредставлениеОрганизации",""+Выборка.Организация+", ИНН:"+Выборка.ИНН); СтруктураПредставление.Вставить("ПредставлениеКонтрагента",""+Выборка.КонтрагентНаименование+", ИНН:"+Выборка.КонтрагентИНН); // 3.2.2 обычные параметры // или для каждого параметра, например // Область.Параметры.БИК = Выборка.БИК; // или специальным методом ОбластьШапка.Параметры.Заполнить(Выборка); ОбластьШапка.Параметры.Заполнить(СтруктураПредставление); // 3.3 вывести область в табличный документ; ТабДок.Вывести(ОбластьШапка); // для остальных областей - аналогично ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы"); ОбластьШапкаТаблицы.Параметры.Заполнить(Выборка); ТабДок.Вывести(ОбластьШапкаТаблицы) ; ВыборкаТовары = Выборка.Товары.Выбрать(); СтруктураИтогов = Новый Структура("ИтогоСумма, ИтогоСуммаНДС, ИтогоСуммаВсего, ИтогоСуммаВсегоПрописью",0,0,0); Пока ВыборкаТовары.Следующий() Цикл Область = Макет.ПолучитьОбласть("СтрокаТаблицы"); Область.Параметры.Заполнить(ВыборкаТовары); СтруктураИтогов.ИтогоСумма = СтруктураИтогов.ИтогоСумма+ВыборкаТовары.Сумма; СтруктураИтогов.ИтогоСуммаНДС = СтруктураИтогов.ИтогоСуммаНДС+ВыборкаТовары.СуммаНДС; СтруктураИтогов.ИтогоСуммаВсего = СтруктураИтогов.ИтогоСуммаВсего+ВыборкаТовары.СуммаВсего; ТабДок.Вывести(Область); КонецЦикла;   ОбластьПодвал = Макет.ПолучитьОбласть("Подвал"); ПараметрыПредметаИсчисления =  "рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2"; СтруктураИтогов.ИтогоСуммаВсегоПрописью = ЧислоПрописью(СтруктураИтогов.ИтогоСуммаВсего, "ДП=Истина",ПараметрыПредметаИсчисления); ОбластьПодвал.Параметры.Заполнить(СтруктураИтогов); ТабДок.Вывести(ОбластьПодвал);     ОбластьПодписи = Макет.ПолучитьОбласть("Подписи"); ОбластьПодписи.Параметры.Заполнить(Выборка); ТабДок.Вывести(ОбластьПодписи); КонецЦикла; КонецПроцедуры // ОбработкаКомандыНаСервере()

     [свернуть]