Merge branch 'feature/store-db-params' into develop

arkuznetsov · Jun 17, 2022 · 81a05eb · 81a05eb
2 parents 6fd29c3 + c8a73d1
commit 81a05eb
Show file tree

Hide file tree

Showing 2 changed files with 86 additions and 0 deletions.
diff --git a/src/Классы/ИнформационнаяБаза.os b/src/Классы/ИнформационнаяБаза.os
@@ -277,6 +277,41 @@
 
 КонецПроцедуры // УстановитьАдминистратора()
 
+// Функция - возвращает параметры подключения к СУБД для информационной базы 1С
+//   
+// Возвращаемое значение:
+//   Структура         - параметры подключения к СУБД
+//     * ТипСУБД            - Строка    - тип СУБД (MSSQLServer, PostgreSQL, IBMDB2, OracleDatabase)
+//     * Сервер             - Строка    - адрес сервера СУБД
+//     * Пользователь       - Строка    - имя пользователя СУБД
+//     * Пароль             - Строка    - пароль пользователя СУБД
+//     * База               - Строка    - имя базы данных на сервере СУБД
+//
+Функция ПараметрыСУБД() Экспорт
+
+	Возврат Кластер_Агент.ПараметрыСУБДИБ(Ид());
+
+КонецФункции // ПараметрыСУБД()
+
+// Процедура устанавливает параметры подключения к СУБД для информационной базы 1С
+//   
+// Параметры:
+//   ТипСУБД            - Строка    - тип СУБД (MSSQLServer, PostgreSQL, IBMDB2, OracleDatabase)
+//   Сервер             - Строка    - адрес сервера СУБД
+//   Пользователь       - Строка    - имя пользователя СУБД
+//   Пароль             - Строка    - пароль пользователя СУБД
+//   База               - Строка    - имя базы данных на сервере СУБД
+//
+Процедура УстановитьПараметрыСУБД(ТипСУБД, Сервер, Пользователь, Пароль, Знач База = Неопределено) Экспорт
+
+	Если НЕ ЗначениеЗаполнено(База) Тогда
+		База = Имя();
+	КонецЕсли;
+
+	Кластер_Агент.ДобавитьПараметрыСУБДИБ(Ид(), ТипСУБД, Сервер, Пользователь, Пароль, База);
+
+КонецПроцедуры // УстановитьПараметрыСУБД()
+
 // Функция возвращает идентификатор информационной базы 1С
 //   
 // Возвращаемое значение:

diff --git a/src/Классы/УправлениеКластером1С.os b/src/Классы/УправлениеКластером1С.os
@@ -13,6 +13,7 @@
 Перем Агент_Администратор;       // текущий администратор агента
 Перем Кластеры_Администраторы;   // список параметров авторизации для кластеров
 Перем ИБ_Администраторы;         // список параметров авторизации для информационных баз
+Перем ИБ_ПараметрыСУБД;          // список параметров подключения к СУБД для информационных баз
 Перем ВыводКоманды;              // результат выполнения команды RAC
 Перем Кластеры;                  // доступ к списку кластеров агента
 
@@ -350,6 +351,56 @@
 
 КонецФункции // ПолучитьАдминистратораИБ()
 
+// Процедура добавляет параметры подключения к СУБД для указанной информационной базы
+// 
+// Параметры:
+//   ИБ_Ид              - Строка    - идентификатор информационной базы в кластере
+//   ТипСУБД            - Строка    - тип СУБД (MSSQLServer, PostgreSQL, IBMDB2, OracleDatabase)
+//   Сервер             - Строка    - адрес сервера СУБД
+//   Пользователь       - Строка    - имя пользователя СУБД
+//   Пароль             - Строка    - пароль пользователя СУБД
+//   База               - Строка    - имя базы данных на сервере СУБД
+//
+Процедура ДобавитьПараметрыСУБДИБ(ИБ_Ид, ТипСУБД, Сервер, Пользователь, Пароль, База) Экспорт
+
+	Если НЕ ТипЗнч(ИБ_ПараметрыСУБД) = Тип("Соответствие") Тогда
+		ИБ_ПараметрыСУБД = Новый Соответствие();
+	КонецЕсли;
+
+	ПараметрыСУБД = Новый Структура();
+	ПараметрыСУБД.Вставить("ТипСУБД"     , ТипСУБД);
+	ПараметрыСУБД.Вставить("Сервер"      , Сервер);
+	ПараметрыСУБД.Вставить("Пользователь", Пользователь);
+	ПараметрыСУБД.Вставить("Пароль"      , Пароль);
+	ПараметрыСУБД.Вставить("База"        , База);
+
+	ИБ_ПараметрыСУБД.Вставить(ИБ_Ид, ПараметрыСУБД);
+
+КонецПроцедуры // ДобавитьПараметрыСУБДИБ()
+
+// Функция возвращает параметры подключения к СУБД для указанной информационной базы
+//   
+// Параметры:
+//   ИБ_Ид              - Строка    - идентификатор информационной базы в кластере
+//
+// Возвращаемое значение:
+//   Структура         - параметры подключения к СУБД
+//     * ТипСУБД            - Строка    - тип СУБД (MSSQLServer, PostgreSQL, IBMDB2, OracleDatabase)
+//     * Сервер             - Строка    - адрес сервера СУБД
+//     * Пользователь       - Строка    - имя пользователя СУБД
+//     * Пароль             - Строка    - пароль пользователя СУБД
+//     * База               - Строка    - имя базы данных на сервере СУБД
+//
+Функция ПараметрыСУБДИБ(ИБ_Ид) Экспорт
+
+	Если НЕ ТипЗнч(ИБ_ПараметрыСУБД) = Тип("Соответствие") Тогда
+		Возврат Неопределено;
+	КонецЕсли;
+
+	Возврат ИБ_ПараметрыСУБД.Получить(ИБ_Ид); 
+
+КонецФункции // ПараметрыСУБДИБ()
+
 #КонецОбласти // СписокАдминистраторовИБ
 
 #Область ИсполнительКоманд