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