Перенос настроек данных формы между пользователями

Leonid_Isaev 13 1

Процедура для переноса настроек формы внешней обработки между двумя пользователями Для других форм - следует заменить КлючОбъекта. например "Обработка.АвтоматическоеИзвлечениеТекстов.Форма.Форма"

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

		Пока Выборка.Следующий() цикл
			ХранилищеНастроекДанныхФорм.Сохранить(КлючОбъекта, КлючНастроек, Выборка.Настройки, ОписаниеНастройки, "ИмяПользователяНастроек");	
		КонецЦикла;
		
	КонецЦикла; 

КонецПроцедуры