Сохранение настроек управляемой формы в файл и восстановление обратно

21.04.23

Интеграция - Файловый обмен (TXT, XML, DBF), FTP

Вариант возможного сохранения настроек между одинаковыми базами для обработки и не только.

Бесплатные

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Бесплатно
Сохранение настроек управляемой формы в файл и восстановление обратно:
.epf 7,30Kb
201 Скачать бесплатно

 

Данная обработка предназначена для переноса настроек формы из продуктовой среды на тестовую и наоборот.

Для использования можно создать обработку и добавить код ниже. Так же можно адаптировать под свои нужды. 

 

#Область СохранениеНастроек

&НаСервере
Функция ПолучитьСписокНастроек()
	
	Возврат ХранилищеНастроекДанныхФорм.ПолучитьСписок(ПолеВыбораФормы);
	
КонецФункции

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

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

&НаСервере
Функция ПолучитьЗаначениеСтрокиВнутр(СписокНастроек)
	Возврат ЗначениеВСтрокуВнутр(СписокНастроек);
КонецФункции

&НаКлиенте
Процедура ОкночаниеВыбораНастроек(ЗначениеВыбора, ДопПараметры) Экспорт
	Если ЗначениеВыбора = Неопределено Тогда
		ПоказатьОповещениеПользователя("Не выбрана настройка для сохранения");
		Возврат;
	КонецЕсли;
	
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
	//каталог по-умолчанию, можно не указывать
	Диалог.Фильтр = "Текстовый файл (*.txt)|*.txt|";
	
	//Если пользователь не нажал кнопку ОТМЕНА в диалоге
	Если Диалог.Выбрать() Тогда
		
		//Полное имя файла - с учетом «пути к нему» (имени каталога к нему)
		
		ИмяФайла = Диалог.ПолноеИмяФайла;
		ТекстовыйДокумент = Новый ТекстовыйДокумент;
		ТекстовыйДокумент.УстановитьТекст(ПолучитьЗаначениеСтрокиВнутр(ПолучитьНастройку(ЗначениеВыбора.Значение)));
		ТекстовыйДокумент.Записать(ИмяФайла);
		
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ВосстановитьНастройкиИзФайла(Команда)
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	//каталог по-умолчанию, можно не указывать
	Диалог.Фильтр = "Текстовый файл (*.txt)|*.txt|";
	
	//Если пользователь не нажал кнопку ОТМЕНА в диалоге
	Если Диалог.Выбрать() Тогда
		//Полное имя файла - с учетом «пути к нему» (имени каталога к нему)
		ИмяФайла = Диалог.ПолноеИмяФайла;
		ТекстовыйДокумент = Новый ТекстовыйДокумент;
		ТекстовыйДокумент.Прочитать(ИмяФайла);
		Текст = ТекстовыйДокумент.ПолучитьТекст();
		ДополнительныеПараметры = Новый Структура("ТекстНастроек", Текст);
		
		ОписаниеОповещенияОЗавершенииВвода = Новый ОписаниеОповещения(
				"ВводНаименованияНастройки",
				ЭтаФорма,
				ДополнительныеПараметры);
		
		ПоказатьВводСтроки(ОписаниеОповещенияОЗавершенииВвода, , "Введите наименование настроек");
		
	КонецЕсли;
КонецПроцедуры

&НаСервере
Функция ПолучитьЗаначениеИзСтрокиВнутр(СписокНастроек)
	Возврат ЗначениеИзСтрокиВнутр(СписокНастроек);
КонецФункции

&НаКлиенте
Процедура ВводНаименованияНастройки(НаименованиеНастроек, ДопПараметры) Экспорт
	// Процедура  обработки оповещений должна быть экспортной, должна иметь как минимум 2 параметра
	//Открываем стандартный диалог Windows выбора каталога/файла в режиме выбора файла на сохранение - ДиалогВыбораФайла 1С
	Если НЕ ЗначениеЗаполнено(НаименованиеНастроек) Тогда
		ПоказатьОповещениеПользователя("Не задано имя настройки");
		Возврат;
	КонецЕсли;
	СохранитьНастройку(ДопПараметры.ТекстНастроек, НаименованиеНастроек);
	
КонецПроцедуры

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


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

 

Данный код не претендует на чистоту и если есть какие пожелания, прошу под кат.

сохранение настройки УФ доработка

См. также

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27660 24894 руб.

12.06.2017    148490    864    302    

455

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.88.x) и УТ 11.5 (11.5.21.x).

35000 руб.

23.07.2020    58796    284    75    

224

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.246.x) и БП 3.0 (3.0.175.x). Правила подходят для версии ПРОФ и КОРП.

35000 руб.

15.12.2021    27860    198    58    

153

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

48278 43450 руб.

25.02.2015    175159    319    267    

388

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1C v8.2 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Россия Платные (руб)

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 2, УНФ 1.6 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

16260 руб.

18.02.2016    191404    626    536    

545

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Перенос данных из КА 1.1 в КА 2 | из КА 1.1 в УТ 11 | Воспользовались более 367 компаний! | Переносятся все возможные виды документов, начальных остатков и вся справочная информация из "1С:КА 1.1" в "1С:КА 2.х" / "1С:УТ 11" | Разработан в формате КД 2 (правила конвертации данных) | Фильтр по организациям при выгрузке | Выбор разных алгоритмов выгрузки начальных остатков | Можно проверить перенос до покупки!

55778 50200 руб.

04.12.2015    194271    254    351    

409

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Бухгалтер Пользователь 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 13.05.2025, версия 9.11 - 1010)

18000 руб.

20.11.2015    163390    406    386    

532
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. user1178010 21.04.23 16:48 Сейчас в теме
Очень востребованная функция для переноса настроек форм из тестовой среды в промышленную. Только было бы здорово, если не встраивать ее в конкретную форму, а сделать внешнюю обработку, в которой в параметрах указать имя формы, настройки которой нужно сохранить/в которую загрузить. Сразу бы воспользовались
Umka23; nemo888; ixijixi; mussolene; +4 Ответить
2. mussolene 25 21.04.23 20:54 Сейчас в теме
(1) По многочисленным заявкам)). Спасибо за идею.
3. triviumfan 102 24.04.23 10:58 Сейчас в теме
(2) лучше уж расширением тогда через подключаемые команды.
4. RenatKa 22 18.03.25 11:31 Сейчас в теме
Оставьте свое сообщение