Список констант можно также распечатать. Для этого его нужно предварительно представить либо в виде табличного отчета, либо в виде текстового документа.
Расширим обработку Фузеева до внешнего отчета 1С, использовав в ней вывод данных в таблицу, созданную на вкладке Таблица.
95. Выберите закладку Таблица, МП, выберите Задать имя таблицы, введите Константы.
96. Создайте секцию: выделите строки R1 и R2 и R3, выберите Таблица | Включить в секцию, введите имя Заголовок (в модуле будет именно это имя!).
97. Введите в секцию шаблон заголовка: выберите R1C2:R1C4, выберите Таблица | Объединить, нажмите МП, выберите Свойства, выберите вкладку Текст, введите Список непериодических констнат, [ТекущаяДата()], в списке Тип выберите Шаблон, выберите вкладку Шрифт, выберите Жирн, выберите Цвет красный, нажмите ОК.
98. Введите в секцию текст: выберите R3C2, нажмите МП, выберите Свойства, выберите вкладку Текст, введите Идентификатор, в списке Тип выберите Текст, выберите вкладку Шрифт, выберите Жирн, нажмите ОК.
99. Введите в ячейку R3C3 текст Синоним, в ячейку R3C4 текст Значения — см. 98.
100. Создайте секцию: выделите строку R5, выберите Таблица | Включить в секцию, введите имя оКонстанте.
101. Введите выражение: выберите R5C2, нажмите МП, выберите Свойства, выберите вкладку Текст, введите иден, в списке Тип выберите Выражение, нажмите ОК.
102. Введите в ячейку R5C3 выражение син, в ячейку R5C4 выражение значен — см. 101.
103. Создайте секцию: выделите строку R7, выберите Таблица | Включить в секцию, введите имя Всего
104. Введите шаблон заголовка: выберите R7C3:R7C4, выберите Таблица | Объединить, нажмите МП, выберите Свойства, выберите вкладку Текст, введите Всего непериодических констант: [ЧислоКонст], в списке Тип выберите Шаблон, нажмите ОК.
105. Выберите Модуль, закомментируйте Пример 10.
106. Макет готов, направим в него данные и отобразим результат, использовав следующий код:
Пример 25.11. Формирование отчета со списком констант
// Пример 11
процедура Выполнить( ) // Связана с кнопкой Пуск обработки (отчета) Фузеева
перем ин, числоКонст, син, иден, значен;
перем табл;
ОчиститьОкноСообщений( );
табл = СоздатьОбъект ("Таблица");
// Свяжем переменную табл с таблицей Константы, содержащей макет отчета
табл.ИсходнаяТаблица("Константы");
// Выводим, используя шаблон Список непериодических констант, [ТекущаяДата( )],
// секцию Заголовок
табл.ВывестиСекцию("Заголовок");
числоКонст = 0; // Число непериодических констант
для ин = 1 по Метаданные.Константа( ) цикл
е сли Метаданные.Константа(ин).Периодический = 1 тогда
продолжить; // Значения периодических констант не выводятся
конецЕсли;
числоКонст = числоКонст + 1; // Еще одна константа
// Определяем значения переменных иден, син и значен
// Эти значения будут использованы при выводе секции оКонстанте
иден = Метаданные.Константа(ин).Идентификатор;
син = Метаданные.Константа(ин).Синоним;
значен = сокрЛ(Константа.ПолучитьАтрибут(иден));
// Вывод очередной строки в отчет
табл.ВывестиСекцию("оКонстанте");
конецЦикла;
табл.ВывестиСекцию("Всего");// Вывод данных о числе непериодических
констант
// Запрещаем редактирование результирующей таблицы
табл.ТолькоПросмотр(1);
// Задаем в методе Показать заголовок окна с результирующей таблицей
табл.Показать("Отчет о константах");
конецПроцедуры // Выполнить
107. Проверьте синтаксис.
108. Сохраните обработку: Ctrl+S.
109. Запустите 1С:Предприятие: F11, выберите Начало | Пуск, нажмите Пуск, должен появиться отчет с константами и число констант. Если нет ищите ошибочки!