feat: Реализованы "простые" методы получения списков сеансов и соедин…

…ений.
Wadus16 · Oct 10, 2019 · 9fd9660 · 9fd9660
1 parent 72dcde0
commit 9fd9660
Showing 1 changed file with 96 additions and 4 deletions.
diff --git a/src/Классы/УправлениеКластером1С.os b/src/Классы/УправлениеКластером1С.os
@@ -484,11 +484,9 @@
 
 	Описание.Вставить("ИнформационныеБазы",
 	                  ПолучитьСписокОбъектов(Кластер.ИнформационныеБазы().Список()));
-	Описание.Вставить("Соединения",
-	                  ПолучитьСписокОбъектов(Кластер.Соединения().Список()));
+	Описание.Вставить("Соединения", СоединенияКластера(Кластер));
 
-	Описание.Вставить("Сеансы",
-	                  ПолучитьСписокОбъектов(Кластер.Сеансы().Список()));
+	Описание.Вставить("Сеансы", СеансыКластера(Кластер));
 	Описание.Вставить("Сеансы.Лицензии",
 	                  ПолучитьСписокОбъектов(Кластер.Сеансы().Лицензии().Список(),
 	                                         Кластер.Сеансы().ПараметрыЛицензий()));
@@ -535,6 +533,100 @@
 
 КонецФункции // ОписаниеКластера()
 
+// Функция возвращает список сеансов всех кластеров центрального сервера 1С в виде массива
+//   
+// Возвращаемое значение:
+//    Массив (Соответствие) - список сеансов
+//
+Функция ВсеСеансы() Экспорт
+
+	ВсеКластеры = ЭтотОбъект.Кластеры.Список();
+
+	ВсеСеансы = Новый Массив();
+
+	Для Каждого ТекКластер Из ВсеКластеры Цикл
+		СеансыКластера = СеансыКластера(ТекКластер);
+
+		Для Каждого ТекСеанс Из СеансыКластера Цикл
+			ВсеСеансы.Добавить(ТекСеанс);
+		КонецЦикла;
+	КонецЦикла;
+
+	Возврат ВсеСеансы;
+
+КонецФункции // ВсеСеансы()
+
+// Функция возвращает список сеансов кластера 1С в виде массива
+//   
+// Параметры:
+//    КластерИлиАдрес  - Кластер, Строка   - объект или адрес кластера 1С
+//
+// Возвращаемое значение:
+//    Массив (Соответствие) - список сеансов кластера 1С
+//
+Функция СеансыКластера(Знач КластерИлиАдрес = Неопределено) Экспорт
+
+	Если НЕ ЗначениеЗаполнено(КластерИлиАдрес) Тогда
+		Возврат ВсеСеансы();
+	КонецЕсли;
+
+	Если ТипЗнч(КластерИлиАдрес) = Тип("Строка") Тогда
+		Кластер = ЭтотОбъект.Кластеры.Получить(КластерИлиАдрес);
+	Иначе
+		Кластер = КластерИлиАдрес;
+	КонецЕсли;
+
+	Возврат ПолучитьСписокОбъектов(Кластер.Сеансы().Список());
+
+КонецФункции // СеансыКластера()
+
+// Функция возвращает список соединений всех кластеров центрального сервера 1С в виде массива
+//   
+// Возвращаемое значение:
+//    Массив (Соответствие) - список соединений
+//
+Функция ВсеСоединения() Экспорт
+
+	ВсеКластеры = ЭтотОбъект.Кластеры.Список();
+
+	ВсеСоединения = Новый Массив();
+
+	Для Каждого ТекКластер Из ВсеКластеры Цикл
+		СоединенияКластера = СоединенияКластера(ТекКластер);
+
+		Для Каждого ТекСеанс Из СоединенияКластера Цикл
+			ВсеСоединения.Добавить(ТекСеанс);
+		КонецЦикла;
+	КонецЦикла;
+
+	Возврат ВсеСоединения;
+
+КонецФункции // ВсеСоединения()
+
+// Функция возвращает список соединений кластера 1С в виде массива
+//   
+// Параметры:
+//    КластерИлиАдрес  - Кластер, Строка   - объект или адрес кластера 1С
+//
+// Возвращаемое значение:
+//    Массив (Соответствие) - список соединений кластера 1С
+//
+Функция СоединенияКластера(Знач КластерИлиАдрес = Неопределено) Экспорт
+
+	Если НЕ ЗначениеЗаполнено(КластерИлиАдрес) Тогда
+		Возврат ВсеСоединения();
+	КонецЕсли;
+
+	Если ТипЗнч(КластерИлиАдрес) = Тип("Строка") Тогда
+		Кластер = ЭтотОбъект.Кластеры.Получить(КластерИлиАдрес);
+	Иначе
+		Кластер = КластерИлиАдрес;
+	КонецЕсли;
+
+	Возврат ПолучитьСписокОбъектов(Кластер.Соединения().Список());
+
+КонецФункции // СоединенияКластера()
+
 #КонецОбласти // ПростыеФункцииПолученияДанныхКластера
 
 #Область СлужебныеМетоды