From 9fd9660f7b35c3c2056df440dd3adb7c944619bd Mon Sep 17 00:00:00 2001
From: AKuznetsov <arkuznetsov@gmail.com>
Date: Thu, 10 Oct 2019 13:54:45 +0300
Subject: [PATCH] =?UTF-8?q?feat:=20=D0=A0=D0=B5=D0=B0=D0=BB=D0=B8=D0=B7?=
 =?UTF-8?q?=D0=BE=D0=B2=D0=B0=D0=BD=D1=8B=20"=D0=BF=D1=80=D0=BE=D1=81?=
 =?UTF-8?q?=D1=82=D1=8B=D0=B5"=20=D0=BC=D0=B5=D1=82=D0=BE=D0=B4=D1=8B=20?=
 =?UTF-8?q?=D0=BF=D0=BE=D0=BB=D1=83=D1=87=D0=B5=D0=BD=D0=B8=D1=8F=20=D1=81?=
 =?UTF-8?q?=D0=BF=D0=B8=D1=81=D0=BA=D0=BE=D0=B2=20=D1=81=D0=B5=D0=B0=D0=BD?=
 =?UTF-8?q?=D1=81=D0=BE=D0=B2=20=D0=B8=20=D1=81=D0=BE=D0=B5=D0=B4=D0=B8?=
 =?UTF-8?q?=D0=BD=D0=B5=D0=BD=D0=B8=D0=B9.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 ...0\265\321\200\320\276\320\2741\320\241.os" | 100 +++++++++++++++++-
 1 file changed, 96 insertions(+), 4 deletions(-)

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 027724e..026049b 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"
@@ -484,11 +484,9 @@
 
 	Описание.Вставить("ИнформационныеБазы",
 	                  ПолучитьСписокОбъектов(Кластер.ИнформационныеБазы().Список()));
-	Описание.Вставить("Соединения",
-	                  ПолучитьСписокОбъектов(Кластер.Соединения().Список()));
+	Описание.Вставить("Соединения", СоединенияКластера(Кластер));
 
-	Описание.Вставить("Сеансы",
-	                  ПолучитьСписокОбъектов(Кластер.Сеансы().Список()));
+	Описание.Вставить("Сеансы", СеансыКластера(Кластер));
 	Описание.Вставить("Сеансы.Лицензии",
 	                  ПолучитьСписокОбъектов(Кластер.Сеансы().Лицензии().Список(),
 	                                         Кластер.Сеансы().ПараметрыЛицензий()));
@@ -535,6 +533,100 @@
 
 КонецФункции // ОписаниеКластера()
 
+// Функция возвращает список сеансов всех кластеров центрального сервера 1С в виде массива
+//   
+// Возвращаемое значение:
+//    Массив (Соответствие) - список сеансов
+//
+Функция ВсеСеансы() Экспорт
+
+	ВсеКластеры = ЭтотОбъект.Кластеры.Список();
+
+	ВсеСеансы = Новый Массив();
+
+	Для Каждого ТекКластер Из ВсеКластеры Цикл
+		СеансыКластера = СеансыКластера(ТекКластер);
+
+		Для Каждого ТекСеанс Из СеансыКластера Цикл
+			ВсеСеансы.Добавить(ТекСеанс);
+		КонецЦикла;
+	КонецЦикла;
+
+	Возврат ВсеСеансы;
+
+КонецФункции // ВсеСеансы()
+
+// Функция возвращает список сеансов кластера 1С в виде массива
+//   
+// Параметры:
+//    КластерИлиАдрес  - Кластер, Строка   - объект или адрес кластера 1С
+//
+// Возвращаемое значение:
+//    Массив (Соответствие) - список сеансов кластера 1С
+//
+Функция СеансыКластера(Знач КластерИлиАдрес = Неопределено) Экспорт
+
+	Если НЕ ЗначениеЗаполнено(КластерИлиАдрес) Тогда
+		Возврат ВсеСеансы();
+	КонецЕсли;
+
+	Если ТипЗнч(КластерИлиАдрес) = Тип("Строка") Тогда
+		Кластер = ЭтотОбъект.Кластеры.Получить(КластерИлиАдрес);
+	Иначе
+		Кластер = КластерИлиАдрес;
+	КонецЕсли;
+
+	Возврат ПолучитьСписокОбъектов(Кластер.Сеансы().Список());
+
+КонецФункции // СеансыКластера()
+
+// Функция возвращает список соединений всех кластеров центрального сервера 1С в виде массива
+//   
+// Возвращаемое значение:
+//    Массив (Соответствие) - список соединений
+//
+Функция ВсеСоединения() Экспорт
+
+	ВсеКластеры = ЭтотОбъект.Кластеры.Список();
+
+	ВсеСоединения = Новый Массив();
+
+	Для Каждого ТекКластер Из ВсеКластеры Цикл
+		СоединенияКластера = СоединенияКластера(ТекКластер);
+
+		Для Каждого ТекСеанс Из СоединенияКластера Цикл
+			ВсеСоединения.Добавить(ТекСеанс);
+		КонецЦикла;
+	КонецЦикла;
+
+	Возврат ВсеСоединения;
+
+КонецФункции // ВсеСоединения()
+
+// Функция возвращает список соединений кластера 1С в виде массива
+//   
+// Параметры:
+//    КластерИлиАдрес  - Кластер, Строка   - объект или адрес кластера 1С
+//
+// Возвращаемое значение:
+//    Массив (Соответствие) - список соединений кластера 1С
+//
+Функция СоединенияКластера(Знач КластерИлиАдрес = Неопределено) Экспорт
+
+	Если НЕ ЗначениеЗаполнено(КластерИлиАдрес) Тогда
+		Возврат ВсеСоединения();
+	КонецЕсли;
+
+	Если ТипЗнч(КластерИлиАдрес) = Тип("Строка") Тогда
+		Кластер = ЭтотОбъект.Кластеры.Получить(КластерИлиАдрес);
+	Иначе
+		Кластер = КластерИлиАдрес;
+	КонецЕсли;
+
+	Возврат ПолучитьСписокОбъектов(Кластер.Соединения().Список());
+
+КонецФункции // СоединенияКластера()
+
 #КонецОбласти // ПростыеФункцииПолученияДанныхКластера
 
 #Область СлужебныеМетоды