Вариант организации хранения настроек подсистем

Вводные

• При создании функционального блока нужно зафиксировать его настройки
• Доработки производятся в расширении

Вариант решения

Хранить настройки в одном служебном регистре, для нормализации использовать обработки.

Структура РС НастройкиПодсистемы

• Измерения
  • Настройка - Строка(50)
  • Подсистема - Строка(50)
• Ресурсы
  • ХранилищеЗначения - ХранилищеЗначения

Общий модуль "НастройкиПодсистемПовтИсп"

// Возвращает обработку с заполненными настройками подсистемы
// Параметры
//  Подсистема - Строка
// Результат Обработка, при отсутствии Неопределено
Функция ПолучитьНастройки(ИмяПодсистемы) Экспорт
	
	Результат = Неопределено;
	
	Попытка
		Результат = Обработки["НастройкиПодсистемы_" + ИмяПодсистемы].Создать();	
	Исключение
		ОбщегоНазначения.Лог(СтрШаблон("ПолучениеНастроек.СозданиеОбработки.%1", ИмяПодсистемы), ОписаниеОшибки(),, Истина);
		Отказ = Истина;
	КонецПопытки;
	
	Если Результат <> Неопределено Тогда
		НастройкиПодсистем.ПолучитьНастройки(Результат);
	КонецЕсли;
	
	Возврат Результат;
	
КонецФункции

Общий модуль "НастройкиПодсистем"

Процедура ЗаписатьНастройки(обОбработка) Экспорт
	
	НаборЗаписей = РегистрыСведений.НастройкиПодсистемы.СоздатьНаборЗаписей();
	НаборЗаписей.Отбор.Подсистема.Установить(обОбработка.ПолучитьИмяПодсистемы());
	
	Для Каждого Реквизит Из обОбработка.Метаданные().Реквизиты Цикл
		
		Запись = НаборЗаписей.Добавить();
		Запись.Подсистема = обОбработка.ПолучитьИмяПодсистемы();
		Запись.Настройка = Реквизит.Имя;
		Запись.ХранилищеЗначения = Новый ХранилищеЗначения(обОбработка[Реквизит.Имя]);
		
	КонецЦикла;
	
	Для Каждого ТабличнаяЧасть Из обОбработка.Метаданные().ТабличныеЧасти Цикл
		
		Запись = НаборЗаписей.Добавить();
		Запись.Подсистема = обОбработка.ПолучитьИмяПодсистемы();
		Запись.Настройка = "ТЧ_" + ТабличнаяЧасть.Имя;
		Запись.ХранилищеЗначения = Новый ХранилищеЗначения(обОбработка[ТабличнаяЧасть.Имя].Выгрузить());
		
	КонецЦикла;
	
	НаборЗаписей.Записать(Истина);
	
	ОбновитьПовторноИспользуемыеЗначения();
	
КонецПроцедуры

Процедура ПолучитьНастройки(обОбработка) Экспорт
	
	Подсистема = обОбработка.ПолучитьИмяПодсистемы();
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	НастройкиПодсистемы.Настройка КАК Настройка,
	|	НастройкиПодсистемы.ХранилищеЗначения КАК ХранилищеЗначения
	|ИЗ
	|	РегистрСведений.НастройкиПодсистемы КАК НастройкиПодсистемы
	|ГДЕ
	|	НастройкиПодсистемы.Подсистема = &Подсистема";
	
	Запрос.УстановитьПараметр("Подсистема", Подсистема);
	ТЗ = Запрос.Выполнить().Выгрузить();
	Для Каждого Реквизит Из обОбработка.Метаданные().Реквизиты Цикл
		нСтроки = ТЗ.НайтиСтроки(Новый Структура("Настройка", Реквизит.Имя));
		Если нСтроки.Количество() = 0 Тогда
			Продолжить;
		КонецЕсли;
		
		обОбработка[Реквизит.Имя] = нСтроки[0].ХранилищеЗначения.Получить();	
		
	КонецЦикла;
	
	Для Каждого ТабличнаяЧасть Из обОбработка.Метаданные().ТабличныеЧасти Цикл
		нСтроки = ТЗ.НайтиСтроки(Новый Структура("Настройка", "ТЧ_" + ТабличнаяЧасть.Имя));
		Если нСтроки.Количество() = 0 Тогда
			Продолжить;
		КонецЕсли;
		
		Значение = нСтроки[0].ХранилищеЗначения.Получить();
		
		Попытка
			обОбработка[ТабличнаяЧасть.Имя].Загрузить(Значение);
		Исключение
			ОбщегоНазначения.Лог(СтрШаблон("НастройкиПодсистемы.ПолучениеИзРС.%1.%2", Подсистема, ТабличнаяЧасть.Имя), ОписаниеОшибки());
		КонецПопытки;
	КонецЦикла;
	
КонецПроцедуры

Модуль Формы обработки настроек

&НаКлиенте
Процедура ЗаписатьНастройки(Команда)
	ЗаписатьНастройкиНаСервере();
КонецПроцедуры

&НаСервере
Процедура ЗаписатьНастройкиНаСервере()
	обОбработка = РеквизитФормыВЗначение("Объект");
	обобработка.ЗаписатьНастройки();
КонецПроцедуры

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

Модуль объекта обработки

Функция ПолучитьИмяПодсистемы() Экспорт
	Возврат "DataLens";
КонецФункции

Процедура ЗаписатьНастройки() Экспорт
	НастройкиПодсистем.ЗаписатьНастройки(ЭтотОбъект);
КонецПроцедуры

Процедура ПолучитьНастройки() Экспорт
	НастройкиПодсистем.ПолучитьНастройки(ЭтотОбъект);
КонецПроцедуры

Пример использования

Создаю в расширении обработку "НастройкиПодсистемы_ДаДата", в модуле объекта изменяю 

Функция ПолучитьИмяПодсистемы() Экспорт
	Возврат "ДаДата";
КонецФункции

В обработку "НастройкиПодсистемы_ДаДата" добавляю реквизиты "ИспользованиеСервиса" - Булево и КлючДоступа - Строка (50), вывожу на форму обработки.

В модуле подсистемы использую

НастройкиПодсистемы = НастройкиПодсистемПовтИсп.ПолучитьНастройки("ДаДата");

СоответствиеОтвет = Новый Соответствие;

Если НЕ НастройкиПодсистемы.ИспользованиеСервиса Тогда
    Возврат СоответствиеОтвет;
КонецЕсли;
ДополнительныеПараметры = Новый Структура;
ДополнительныеПараметры.Вставить("Заголовки", Новый Соответствие);
ДополнительныеПараметры.Заголовки.Вставить("Content-type", "application/json");
ДополнительныеПараметры.Заголовки.Вставить("Accept", "application/json");
ДополнительныеПараметры.Заголовки.Вставить("Authorization", "Token " + НастройкиПодсистемы.КлючДоступа);

ДанныеОтвет = КоннекторHTTP.Post("https://suggestions.dadata.ru" + АдресРесурса, СтрокаДанные, ДополнительныеПараметры);
	

Итог

Без изменения структуры (если РС уже создан) возможно добавлять необходимые настройки.

Как сделать универсальную валидацию не придумал, проверяю на уровне модуля подсистемы.

Благодарю за внимание.