diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\260\321\217\320\221\320\260\320\267\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\260\321\217\320\221\320\260\320\267\320\260.os" index d713484..4c8bbd2 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\260\321\217\320\221\320\260\320\267\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\260\321\217\320\221\320\260\320\267\320\260.os" @@ -277,6 +277,41 @@ КонецПроцедуры // УстановитьАдминистратора() +// Функция - возвращает параметры подключения к СУБД для информационной базы 1С +// +// Возвращаемое значение: +// Структура - параметры подключения к СУБД +// * ТипСУБД - Строка - тип СУБД (MSSQLServer, PostgreSQL, IBMDB2, OracleDatabase) +// * Сервер - Строка - адрес сервера СУБД +// * Пользователь - Строка - имя пользователя СУБД +// * Пароль - Строка - пароль пользователя СУБД +// * База - Строка - имя базы данных на сервере СУБД +// +Функция ПараметрыСУБД() Экспорт + + Возврат Кластер_Агент.ПараметрыСУБДИБ(Ид()); + +КонецФункции // ПараметрыСУБД() + +// Процедура устанавливает параметры подключения к СУБД для информационной базы 1С +// +// Параметры: +// ТипСУБД - Строка - тип СУБД (MSSQLServer, PostgreSQL, IBMDB2, OracleDatabase) +// Сервер - Строка - адрес сервера СУБД +// Пользователь - Строка - имя пользователя СУБД +// Пароль - Строка - пароль пользователя СУБД +// База - Строка - имя базы данных на сервере СУБД +// +Процедура УстановитьПараметрыСУБД(ТипСУБД, Сервер, Пользователь, Пароль, Знач База = Неопределено) Экспорт + + Если НЕ ЗначениеЗаполнено(База) Тогда + База = Имя(); + КонецЕсли; + + Кластер_Агент.ДобавитьПараметрыСУБДИБ(Ид(), ТипСУБД, Сервер, Пользователь, Пароль, База); + +КонецПроцедуры // УстановитьПараметрыСУБД() + // Функция возвращает идентификатор информационной базы 1С // // Возвращаемое значение: diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\243\320\277\321\200\320\260\320\262\320\273\320\265\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\276\320\2741\320\241.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\243\320\277\321\200\320\260\320\262\320\273\320\265\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\276\320\2741\320\241.os" index 22e9b4f..b76559b 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\243\320\277\321\200\320\260\320\262\320\273\320\265\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\276\320\2741\320\241.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\243\320\277\321\200\320\260\320\262\320\273\320\265\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\276\320\2741\320\241.os" @@ -13,6 +13,7 @@ Перем Агент_Администратор; // текущий администратор агента Перем Кластеры_Администраторы; // список параметров авторизации для кластеров Перем ИБ_Администраторы; // список параметров авторизации для информационных баз +Перем ИБ_ПараметрыСУБД; // список параметров подключения к СУБД для информационных баз Перем ВыводКоманды; // результат выполнения команды RAC Перем Кластеры; // доступ к списку кластеров агента @@ -350,6 +351,56 @@ КонецФункции // ПолучитьАдминистратораИБ() +// Процедура добавляет параметры подключения к СУБД для указанной информационной базы +// +// Параметры: +// ИБ_Ид - Строка - идентификатор информационной базы в кластере +// ТипСУБД - Строка - тип СУБД (MSSQLServer, PostgreSQL, IBMDB2, OracleDatabase) +// Сервер - Строка - адрес сервера СУБД +// Пользователь - Строка - имя пользователя СУБД +// Пароль - Строка - пароль пользователя СУБД +// База - Строка - имя базы данных на сервере СУБД +// +Процедура ДобавитьПараметрыСУБДИБ(ИБ_Ид, ТипСУБД, Сервер, Пользователь, Пароль, База) Экспорт + + Если НЕ ТипЗнч(ИБ_ПараметрыСУБД) = Тип("Соответствие") Тогда + ИБ_ПараметрыСУБД = Новый Соответствие(); + КонецЕсли; + + ПараметрыСУБД = Новый Структура(); + ПараметрыСУБД.Вставить("ТипСУБД" , ТипСУБД); + ПараметрыСУБД.Вставить("Сервер" , Сервер); + ПараметрыСУБД.Вставить("Пользователь", Пользователь); + ПараметрыСУБД.Вставить("Пароль" , Пароль); + ПараметрыСУБД.Вставить("База" , База); + + ИБ_ПараметрыСУБД.Вставить(ИБ_Ид, ПараметрыСУБД); + +КонецПроцедуры // ДобавитьПараметрыСУБДИБ() + +// Функция возвращает параметры подключения к СУБД для указанной информационной базы +// +// Параметры: +// ИБ_Ид - Строка - идентификатор информационной базы в кластере +// +// Возвращаемое значение: +// Структура - параметры подключения к СУБД +// * ТипСУБД - Строка - тип СУБД (MSSQLServer, PostgreSQL, IBMDB2, OracleDatabase) +// * Сервер - Строка - адрес сервера СУБД +// * Пользователь - Строка - имя пользователя СУБД +// * Пароль - Строка - пароль пользователя СУБД +// * База - Строка - имя базы данных на сервере СУБД +// +Функция ПараметрыСУБДИБ(ИБ_Ид) Экспорт + + Если НЕ ТипЗнч(ИБ_ПараметрыСУБД) = Тип("Соответствие") Тогда + Возврат Неопределено; + КонецЕсли; + + Возврат ИБ_ПараметрыСУБД.Получить(ИБ_Ид); + +КонецФункции // ПараметрыСУБДИБ() + #КонецОбласти // СписокАдминистраторовИБ #Область ИсполнительКоманд