Использование констант

 Хранение в константах значений

&НаСервере
Процедура ЗаписатьНастройкиПорталаНаСервере()
 Константы.ПорталПротей_КодКомпании.Установить(ЭтаФорма.КодКомпании);
 Константы.ПорталПротей_Отладка.Установить(ЭтаФорма.ПризнакОтладки);
 Константы.ПорталПротей_ПутьКЛогам.Установить(ЭтаФорма.ПутьКЛогФайлу);
 Константы.ПорталПротей_URLПортала.Установить(ЭтаФорма.АдресПортала);
КонецПроцедуры

&НаКлиенте
Процедура ЗаписатьНастройкиПортала(Команда)
 ЗаписатьНастройкиПорталаНаСервере();
КонецПроцедуры

&НаСервере
Процедура ПриОткрытииНаСервере()
 ЭтаФорма.КодКомпании = Константы.ПорталПротей_КодКомпании.Получить();
 ЭтаФорма.ПризнакОтладки = Константы.ПорталПротей_Отладка.Получить();
 ЭтаФорма.ПутьКЛогФайлу = Константы.ПорталПротей_ПутьКЛогам.Получить();
 ЭтаФорма.АдресПортала = Константы.ПорталПротей_URLПортала.Получить(); 
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
 ПриОткрытииНаСервере();
КонецПроцедуры