Имя: Пароль:
1C
 
Константы в 8-ке
0 Front
 
17.10.04
14:03
Вот такой вопрос, когда хочу вывести содержание константы с помощью менеджера констант следующим образом, все в порядке.

Процедура ПримерыОбращенияККонстантам()

Если Константы.ДатаРегистрации.Получить()='00010101' Тогда

Константы.ДатаРегистрации.Установить(НачалоГода(ТекущаяДата()));
КонецЕсли;

Сообщить("Дата регистрации:"+Константы.ДатаРегистрации.Получить()+".");
Сообщить("Наименование организации:"+Константы.НаименованиеОрганизации.Получить()+".");
КонецПроцедуры

Процедура ПриНачалеРаботыСистемы()
ПримерыОбращенияККонстантам();
КонецПроцедуры


А как вывести тоже самое, но с помощью набора констант?

очень хочется разобраться, но пока затрудняюсь...
1 Волшебник
 
17.10.04
14:09
Набор = Константы.СоздатьНабор("Константа1,Константа2,Константа3");
Набор.Прочитать();
   
Сообщить(Набор.Константа1);
Сообщить(Набор.Константа2);
   
Набор.Константа1 = НовоеЗначение1;
Набор.Константа2 = НовоеЗначение2;
   
Набор.Записать();

----
см. также:
v8: Будни: Форма констант
2 Front
 
17.10.04
15:13
Большое спасибо!
3 Front
 
17.10.04
15:23
А можно вывести константу1 и константу2 одной операцией?
Что-то типа такого:
Сообщить(Набор.Прочитать);
4 Волшебник
 
17.10.04
15:43
(3) Сообщить(СокрЛП(Набор.Константа1) + "" + СокрЛП(Набор.Константа2));