1С 8.3 БСП ХранилищеОбщихНастроекСохранить
Данные > 1С 8.3 БСП > Хранилище настроек
Перейти в раздел примеры кода 1С 8.3:
1С 8.3 БСП ХранилищеОбщихНастроекСохранить. Сохраняет настройку в хранилище общих настроек.
Примера кода от rayastar
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить(КлючОбъекта, КлючНастроек, Настройки, ОписаниеНастроек, ИмяПользователя, ОбновитьПовторноИспользуемыеЗначения);
//
&НаСервере
Процедура СохранитьНастройкиФормы()
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("Панель1СМаркировка", "Организация", Организация);
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("Панель1СМаркировка", "Ответственный", Ответственный);
КонецПроцедуры
//
&НаСервере
Процедура СохранитьПользовательскиеНастройки()
НастройкиФормы = Новый Структура;
НастройкиФормы.Вставить("УчитыватьПрикладныеПравила", УчитыватьПрикладныеПравила);
НастройкиФормы.Вставить("ОбластьПоискаДублей", ОбластьПоискаДублей);
НастройкиФормы.Вставить("НастройкиКД", КомпоновщикПредварительногоОтбора.Настройки);
НастройкиФормы.Вставить("ПравилаПоиска", ПравилаПоиска.Выгрузить());
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить(ИмяФормы, "", НастройкиФормы);
КонецПроцедуры
//
&НаСервере
Процедура СохранитьНастройкиФормы()
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("Панель1СМаркировка", "Организация", Организация);
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("Панель1СМаркировка", "Ответственный", Ответственный);
КонецПроцедуры
//
&НаСервере
Процедура СохранитьПользовательскиеНастройки()
НастройкиФормы = Новый Структура;
НастройкиФормы.Вставить("УчитыватьПрикладныеПравила", УчитыватьПрикладныеПравила);
НастройкиФормы.Вставить("ОбластьПоискаДублей", ОбластьПоискаДублей);
НастройкиФормы.Вставить("НастройкиКД", КомпоновщикПредварительногоОтбора.Настройки);
НастройкиФормы.Вставить("ПравилаПоиска", ПравилаПоиска.Выгрузить());
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить(ИмяФормы, "", НастройкиФормы);
КонецПроцедуры
// Автор библиотеки: ООО "1С-Софт". Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее - БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
Пример как сохранить/восстановить настройки табличной части
&НаСервере
Процедура СохранитьЗначения()
Ключ = "МатериальныйОтчет";
Настройки = Новый Соответствие;
Настройки.Вставить("ТЧМатериалы", Объект.Материалы.Выгрузить());
Настройки.Вставить("ТЧПоставщики", Объект.Поставщики.Выгрузить());
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("ОтчетПоМатериалам", Ключ, Настройки);
КонецПроцедуры
&НаСервере
Процедура ВосстановитьЗначения()
Ключ = "МатериальныйОтчет";
Настройки = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("ОтчетПоМатериалам", Ключ);
Если ТипЗнч(Настройки) = Тип("Соответствие") Тогда
Объект.Материалы.Загрузить(Настройки.Получить("ТЧМатериалы"));
Объект.Поставщики.Загрузить(Настройки.Получить("ТЧПоставщики"));
КонецЕсли;
КонецПроцедуры
Процедура СохранитьЗначения()
Ключ = "МатериальныйОтчет";
Настройки = Новый Соответствие;
Настройки.Вставить("ТЧМатериалы", Объект.Материалы.Выгрузить());
Настройки.Вставить("ТЧПоставщики", Объект.Поставщики.Выгрузить());
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("ОтчетПоМатериалам", Ключ, Настройки);
КонецПроцедуры
&НаСервере
Процедура ВосстановитьЗначения()
Ключ = "МатериальныйОтчет";
Настройки = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("ОтчетПоМатериалам", Ключ);
Если ТипЗнч(Настройки) = Тип("Соответствие") Тогда
Объект.Материалы.Загрузить(Настройки.Получить("ТЧМатериалы"));
Объект.Поставщики.Загрузить(Настройки.Получить("ТЧПоставщики"));
КонецЕсли;
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник