Это старая версия документа!

Сохранение настроек пользователя через хранилище общих настроек под конкретного пользователя

&НаСервере
Процедура ЗагрузитьНастройки()
	
	мНастройки	=	ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("НастройкиЗагрузкиСпецификацииНовойПочты",,,,ПараметрыСеанса.ТекущийПользователь);
	
	Если мНастройки<>Неопределено Тогда 
		ЗаполнитьЗначенияСвойств(ЭтотОбъект,мНастройки);
	КонецЕсли;
		
КонецПроцедуры

&НаСервере
Процедура СохранитьНастройки()
	
	мНастройки	=	Новый Структура;
	мНастройки.Вставить("excel_СтрокаНачала",excel_СтрокаНачала);
	мНастройки.Вставить("СтатьяРасходовВнутреннееПеремещение",СтатьяРасходовВнутреннееПеремещение);
	мНастройки.Вставить("СтатьяРасходовДляПередачиДокументов",СтатьяРасходовДляПередачиДокументов);
	мНастройки.Вставить("СтатьяРасходовОтгрузкаКлиентам",СтатьяРасходовОтгрузкаКлиентам);
	
	ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("НастройкиЗагрузкиСпецификацииНовойПочты",,мНастройки,,ПараметрыСеанса.ТекущийПользователь);
	
КонецПроцедуры

Сохранение настроек через хранилище настроек общее для всех пользователей

&НаСервере
Процедура ЗагрузитьНастройки()
	мНастройки	=	ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("НастройкиОповещенийОЗаявкахСборкиРазборки","ТаблицаВариантовНастройкиОповещенийОЗаявкахСборкиРазборки",,,"ПользовательВариантовНастройкиОповещений");
	
	Если мНастройки<>Неопределено Тогда 
		ЗаполнитьЗначенияСвойств(ЭтотОбъект,мНастройки);
	КонецЕсли;			
КонецПроцедуры

&НаСервере
Процедура СохранитьНастройки()
	
	мНастройки	=	Новый Структура;
	мНастройки.Вставить("НастройкиОповещений",НастройкиОповещений.Выгрузить());
	
	ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("НастройкиОповещенийОЗаявкахСборкиРазборки","ТаблицаВариантовНастройкиОповещенийОЗаявкахСборкиРазборки",мНастройки,,"ПользовательВариантовНастройкиОповещений");	
	
КонецПроцедуры