1С 8.3 Константы
Данные > Примеры кода 1С > 1С 8.3 Константы
Константы в 1С 8.3 это объект метаданных, используемый для хранения значений, которые или неизменны, или меняются редко. Например: "Название организации", "Юридический адрес", "Руководитель"... Увидеть весь список констант в режиме 1С Предприятие можно в разделе "Все функции" (если данный пункт меню недоступен, включить его можно в разделе Сервис - Параметры - Отображать команду Все функции).
Оглавление:
Получение и установка значения константы в 1С 8.3:
&НаСервере
Процедура ПолучениеИУстановкаЗначенияКонстанты()
// создание менеджера значений и использование неявно
Сообщить(Константы.ОсновнойСклад.Получить());
Константы.ОсновнойСклад.Установить(Справочники.МестаХранения.НайтиПоНаименованию("Центральный склад г.Минск"));
КонецПроцедуры
Процедура ПолучениеИУстановкаЗначенияКонстанты()
// создание менеджера значений и использование неявно
Сообщить(Константы.ОсновнойСклад.Получить());
Константы.ОсновнойСклад.Установить(Справочники.МестаХранения.НайтиПоНаименованию("Центральный склад г.Минск"));
КонецПроцедуры
Работа с константой через менеджер значений в 1С 8.3:
&НаСервере
Процедура РаботаСКонстантойЧерезМенеджерЗначений()
// создание и использование менеджера значений константы напрямую
ЭлектронныйАдрес = Константы.ЭлектронныйАдрес.СоздатьМенеджерЗначения();
// чтение значения константы
ЭлектронныйАдрес.Прочитать();
Сообщить(ЭлектронныйАдрес.Значение);
// замена значения константы
ЭлектронныйАдрес.Значение = Справочники.ЭлАдреса.НайтиПоРеквизиту("Email", "v83@1Cnik.by");
// запись значения константы
ЭлектронныйАдрес.Записать();
КонецПроцедуры
Процедура РаботаСКонстантойЧерезМенеджерЗначений()
// создание и использование менеджера значений константы напрямую
ЭлектронныйАдрес = Константы.ЭлектронныйАдрес.СоздатьМенеджерЗначения();
// чтение значения константы
ЭлектронныйАдрес.Прочитать();
Сообщить(ЭлектронныйАдрес.Значение);
// замена значения константы
ЭлектронныйАдрес.Значение = Справочники.ЭлАдреса.НайтиПоРеквизиту("Email", "v83@1Cnik.by");
// запись значения константы
ЭлектронныйАдрес.Записать();
КонецПроцедуры
Работа с константами через набор в 1С 8.3:
&НаСервере
Процедура РаботаСКонстантамиЧерезНабор()
// подходит для работы с группой констант
НазванияКонстант = "ЭлектронныйАдрес, ОсновнойСклад";
НаборКонстант = Константы.СоздатьНабор(НазванияКонстант);
// чтение значения констант
НаборКонстант.Прочитать();
Сообщить(НаборКонстант.ЭлектронныйАдрес);
Сообщить(НаборКонстант.ОсновнойСклад);
// замена значения констант
НаборКонстант.ЭлектронныйАдрес = Справочники.ЭлАдреса.НайтиПоНаименованию("v77@1Cnik.by");
НаборКонстант.ОсновнойСклад = Справочники.МестаХранения.НайтиПоНаименованию("Склад г.Барановичи");
// запись значения констант
НаборКонстант.Записать();
КонецПроцедуры
Процедура РаботаСКонстантамиЧерезНабор()
// подходит для работы с группой констант
НазванияКонстант = "ЭлектронныйАдрес, ОсновнойСклад";
НаборКонстант = Константы.СоздатьНабор(НазванияКонстант);
// чтение значения констант
НаборКонстант.Прочитать();
Сообщить(НаборКонстант.ЭлектронныйАдрес);
Сообщить(НаборКонстант.ОсновнойСклад);
// замена значения констант
НаборКонстант.ЭлектронныйАдрес = Справочники.ЭлАдреса.НайтиПоНаименованию("v77@1Cnik.by");
НаборКонстант.ОсновнойСклад = Справочники.МестаХранения.НайтиПоНаименованию("Склад г.Барановичи");
// запись значения констант
НаборКонстант.Записать();
КонецПроцедуры
Получение значений всех констант в цикле в 1С 8.3:
&НаСервере
Процедура ПолучениеЗначенийВсехКонстантВЦикле()
Для Каждого Константа Из Константы Цикл
Сообщить(СокрЛП(Константа.Получить())+ "/" +Строка(Константа));
КонецЦикла;
КонецПроцедуры
Процедура ПолучениеЗначенийВсехКонстантВЦикле()
Для Каждого Константа Из Константы Цикл
Сообщить(СокрЛП(Константа.Получить())+ "/" +Строка(Константа));
КонецЦикла;
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник