Константы разделяют непериодические и периодические. К периодическим относят константы, старые значения которых нужно сохранять при вводе изменений.
72. Закомментируйте Пример 6 используя //
Значение непериодической константы можно получать или изменять, обращаясь к ней по имени Константа.ИдентификаторКонстанты или употребляя метод ПолучитьАтрибут.
73. Введите в модуле обработки код:
Пример 25.7. Вывод названия организации
// Пример 7
процедура Выполнить( ) // Связана с кнопкой Пуск
Сообщить(Константа.НазваниеОрганизации);
// То же сообщение выведет вызов
Сообщить(Константа.ПолучитьАтрибут("НазваниеОрганизации"));
конецПроцедуры
74. Проверьте синтаксис.
75. Сохраните обработку: Ctrl+S.
76. Запустите 1С:Предприятие: нажмите F11, выберите Начало | Пуск, нажмите Пуск, в окне сообщений должно появиться Енисей и Енисей.
77. Закомментируйте Пример 7 используя //
78. Введите в модуле обработки код, изменяющий значение константы с Енисей на ФУБ, а затем восстанавливающий старое название:
Пример 25.8. Измение непериодической константы
// Пример 8
процедура Выполнить( ) // Связана с кнопкой Пуск обработки Фузеева
перем новоеНазвание, староеНазвание, ответ;
новоеНазвание = "ФУБ";
староеНазвание = Константа.НазваниеОрганизации;
ОчиститьОкноСообщений( );
Сообщить("Прежнее название организации: " + староеНазвание);
ответ = Вопрос("Изменить название организации на " + новоеНазвание +
"?", "Да+Нет");
если ответ = "Да" тогда // Нажата кнопка Да
Константа.НазваниеОрганизации = новоеНазвание;
Сообщить("Название организации после изменения: " +
Константа.НазваниеОрганизации);
// Восстановим старое название константы
Предупреждение("Название организации будет восстановлено.");
Константа.НазваниеОрганизации = староеНазвание;
иначе // Выбрана кнопка Нет
Предупреждение("Название организации осталось без изменений.");
конецЕсли;
конецПроцедуры // Выполнить
79. Проверьте синтаксис.
80. Сохраните обработку: Ctrl+S.
81. Запустите 1С:Предприятие: F11, выберите Начало | Пуск, нажмите Пуск…
82. Закомментируйте Пример 8
83. Введите в модуле обработки код, который выводит список непериодических констант имеющих синоним, в окно сообщений. В нем используется метод Метаданные.Константа, используя который можно получить сведения о константах, например, идентификатор, синоним, тип, длина…
Пример 25.9. Вывод списка непериодических констант имеющих синоним
// Пример 9 процедура Выполнить( ) // Связана с кнопкой Пуск обработки Фузеева перем всегоКонстант; // Число констант в конфигурации перем иден, син, значен; ОчиститьОкноСообщений( ); // Очищаем окно сообщений всегоКонстант = Метаданные.Константа( ); для ин = 1 по всегоКонстант цикл если Метаданные.Константа(ин).Периодический = 1 тогда продолжить; // Значения периодических констант не выводятся конецЕсли; син = Метаданные.Константа(ин).Синоним; // Выводим сообщения о константах, для которых задан синоним если ПустоеЗначение(син) = 0 тогда иден = Метаданные.Константа(ин).Идентификатор; значен = Константа.ПолучитьАтрибут(иден); Сообщить(иден + " - " + син + " - " + значен); конецЕсли; конецЦикла; конецПроцедуры
85. Проверьте синтаксис.
86. Сохраните обработку: Ctrl+S.
87. Запустите 1С:Предприятие: F11, выберите Начало | Пуск, нажмите Пуск, в окне сообщений должен появиться список констант.