#315 Переработка работы с событиями.

Добавлена возможность подписки на события из других расширений
bia-technologies · Apr 5, 2024 · 60df3c9 · 60df3c9
1 parent 6cd2bdf
commit 60df3c9
Show file tree

Hide file tree

Showing 33 changed files with 406 additions and 58 deletions.
diff --git a/exts/yaxunit/src/CommonModules/ЮТЗависимостиСлужебный/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТЗависимостиСлужебный/Module.bsl
@@ -123,13 +123,6 @@
 
 КонецФункции
 
-Функция ЗависимостьРазрешена(КлючЗависимости)
-
-	Результат = РезультатРазрешенияЗависимости(КлючЗависимости);
-	Возврат Результат <> Неопределено И Результат.Успешно;
-
-КонецФункции
-
 #Область Контексты
 
 Процедура ИнициализацияКонтекста(ДанныеКонтекста) Экспорт

diff --git a/exts/yaxunit/src/CommonModules/ЮТМетаданные/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТМетаданные/Module.bsl
@@ -20,7 +20,7 @@
 
 // Модули подсистемы.
 //  Возвращает список модулей подсистемы
-//  Подсистема должна находится в подсистеме "ЮТДинамическиПодключаемые"
+//  Подсистема должна находится в подсистеме "ЮТПодключаемыеМодули"
 // Параметры:
 //  ИмяПодсистемы - Строка - Имя подсистемы
 //  Серверные - Булево - Возвращять модули доступные на сервере

diff --git a/exts/yaxunit/src/CommonModules/ЮТМетаданныеСлужебныйВызовСервера/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТМетаданныеСлужебныйВызовСервера/Module.bsl
@@ -46,7 +46,7 @@
 
 // Модули подсистемы.
 //  Возвращает список модулей подсистемы
-//  Подсистема должна находится в подсистеме "ЮТДинамическиПодключаемые"
+//  Подсистема должна находится в подсистеме "ЮТПодключаемыеМодули"
 // Параметры:
 //  ИмяПодсистемы - Строка - Имя подсистемы
 //  Серверные - Булево - Возвращять модули доступные на сервере
@@ -56,12 +56,10 @@
 //  Массив из Строка - Имена модулей входящих в подсистему
 Функция МодулиПодсистемы(Знач ИмяПодсистемы, Знач Серверные, Знач Клиентские) Экспорт
 
-	Подсистема = Метаданные.Подсистемы.ЮТДинамическиПодключаемые.Подсистемы.Найти(ИмяПодсистемы);
+	Подсистема = Метаданные.Подсистемы.ЮТПодключаемыеМодули.Подсистемы.Найти(ИмяПодсистемы);
 
 	Если Подсистема = Неопределено Тогда
-
 		ВызватьИсключение СтрШаблон("Подсистема ""%1"" не найдена", ИмяПодсистемы);
-
 	КонецЕсли;
 
 	Модули = Новый Массив();
@@ -376,4 +374,24 @@
 
 КонецФункции
 
+Функция ПодсистемыПодключаемыхМодулей() Экспорт
+
+	ИмяПодсистемы = "ПодключаемыеМодули";
+	Результат = Новый Массив();
+	Результат.Добавить("ЮТПодключаемыеМодули");
+	Для Каждого Подсистема Из Метаданные.Подсистемы Цикл
+
+		Если Подсистема.ВключатьВКомандныйИнтерфейс Тогда
+			Продолжить;
+		КонецЕсли;
+
+		Если СтрЗаканчиваетсяНа(Подсистема.Имя, "_" + ИмяПодсистемы) Тогда
+			Результат.Добавить(Подсистема.Имя);
+		КонецЕсли;
+	КонецЦикла;
+
+	Возврат Результат;
+
+КонецФункции
+
 #КонецОбласти
diff --git a/exts/yaxunit/src/CommonModules/ЮТМетаданныеСлужебныйПовтИсп/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТМетаданныеСлужебныйПовтИсп/Module.bsl
@@ -67,4 +67,10 @@
 
 КонецФункции
 
+Функция ПодсистемыПодключаемыхМодулей() Экспорт
+
+	Возврат ЮТМетаданныеСлужебныйВызовСервера.ПодсистемыПодключаемыхМодулей();
+
+КонецФункции
+
 #КонецОбласти
diff --git a/exts/yaxunit/src/CommonModules/ЮТРасширенияСлужебный/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТРасширенияСлужебный/Module.bsl
@@ -20,11 +20,11 @@
 
 Функция ГенераторыОтчетов() Экспорт
 
-	Возврат МодулиПодсистемы("ЮТФормированиеОтчета");
+	Возврат МодулиПодсистемы("ФормированиеОтчета", Ложь, Истина);
 
 КонецФункции
 
-Функция ОбработчикиСобытий() Экспорт
+Функция ОбработчикиСобытий(Подсистема) Экспорт
 
 	Серверные = Ложь;
 	Клиентские = Ложь;
@@ -36,17 +36,23 @@
 	Клиентские = Истина;
 #КонецЕсли
 
-	Возврат ЮТМетаданные.МодулиПодсистемы("ЮТОбработчикиСобытий", Серверные, Клиентские);
+	Возврат ЮТРасширенияСлужебныйВызовСервера.ОбработчикиСобытий(Подсистема, Серверные, Клиентские);
+
+КонецФункции
+
+Функция ПодсистемыПодключаемыхМодулей() Экспорт
+
+	Возврат ЮТМетаданныеСлужебныйПовтИсп.ПодсистемыПодключаемыхМодулей();
 
 КонецФункции
 
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции
 
-Функция МодулиПодсистемы(ИмяПодсистемы)
+Функция МодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские)
 
-	ИменаМодулей = ЮТМетаданные.МодулиПодсистемы(ИмяПодсистемы);
+	ИменаМодулей = ЮТРасширенияСлужебныйВызовСервера.ПодключаемыеМодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские);
 
 	Модули = Новый Массив();
 

diff --git a/exts/yaxunit/src/CommonModules/ЮТРасширенияСлужебныйВызовСервера/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТРасширенияСлужебныйВызовСервера/Module.bsl
@@ -0,0 +1,106 @@
+//©///////////////////////////////////////////////////////////////////////////©//
+//
+//  Copyright 2021-2024 BIA-Technologies Limited Liability Company
+//
+//  Licensed under the Apache License, Version 2.0 (the "License");
+//  you may not use this file except in compliance with the License.
+//  You may obtain a copy of the License at
+//
+//      http://www.apache.org/licenses/LICENSE-2.0
+//
+//  Unless required by applicable law or agreed to in writing, software
+//  distributed under the License is distributed on an "AS IS" BASIS,
+//  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+//  See the License for the specific language governing permissions and
+//  limitations under the License.
+//
+//©///////////////////////////////////////////////////////////////////////////©//
+
+#Область СлужебныйПрограммныйИнтерфейс
+
+Функция ОбработчикиСобытий(Знач ГруппаОбработчиков, Знач Серверные = Истина, Знач Клиентские = Истина) Экспорт
+
+	Модули = Новый Массив();
+
+	Для Каждого ПодсистемаОбработчикиСобытий Из ПодсистемыПодключаемыхМодулей("ОбработчикиСобытий") Цикл
+
+		ЮТКоллекции.ДополнитьМассив(Модули, МодулиПодсистемы(ПодсистемаОбработчикиСобытий, Серверные, Клиентские));
+
+		ПодсистемаГруппыОбработчиков = ПодсистемаОбработчикиСобытий.Подсистемы.Найти(ГруппаОбработчиков);
+
+		Если ПодсистемаГруппыОбработчиков <> Неопределено Тогда
+			ЮТКоллекции.ДополнитьМассив(Модули, МодулиПодсистемы(ПодсистемаГруппыОбработчиков, Серверные, Клиентские));
+		КонецЕсли;
+
+	КонецЦикла;
+
+	Возврат Модули;
+
+КонецФункции
+
+Функция ПодключаемыеМодулиПодсистемы(Знач ИмяПодсистемы, Знач Серверные = Истина, Знач Клиентские = Истина) Экспорт
+
+	Модули = Новый Массив();
+
+	Для Каждого Подсистема Из ПодсистемыПодключаемыхМодулей(ИмяПодсистемы) Цикл
+
+		ЮТКоллекции.ДополнитьМассив(Модули, МодулиПодсистемы(Подсистема, Серверные, Клиентские));
+
+	КонецЦикла;
+
+	Возврат Модули;
+
+КонецФункции
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Функция ПодсистемыПодключаемыхМодулей(ИмяПодсистемы)
+
+	ИменаПодсистем = ЮТМетаданныеСлужебныйПовтИсп.ПодсистемыПодключаемыхМодулей();
+
+	Подсистемы = Новый Массив();
+
+	Для Каждого ИмяПодсистемыПодключаемыхМодулей Из ИменаПодсистем Цикл
+
+		ПодсистемаПодключаемыхМодулей = Метаданные.Подсистемы[ИмяПодсистемыПодключаемыхМодулей];
+
+		ВложеннаяПодсистема = ПодсистемаПодключаемыхМодулей.Подсистемы.Найти(ИмяПодсистемы);
+
+		Если ВложеннаяПодсистема <> Неопределено Тогда
+			Подсистемы.Добавить(ВложеннаяПодсистема);
+		КонецЕсли;
+
+	КонецЦикла;
+
+	Возврат Подсистемы;
+
+КонецФункции
+
+Функция МодулиПодсистемы(Знач Подсистема, Знач Серверные, Знач Клиентские)
+
+	Модули = Новый Массив();
+
+	Для Каждого Объект Из Подсистема.Состав Цикл
+
+		Если Метаданные.ОбщиеМодули.Содержит(Объект) Тогда
+
+			Добавить = (Серверные И Клиентские)
+				ИЛИ (Серверные И (Объект.Сервер))
+				ИЛИ (Клиентские И (Объект.КлиентУправляемоеПриложение Или Объект.ВызовСервера));
+				// КлиентОбычноеПриложение сознательно не анализируется, он должен идти в паре с другой настройкой
+
+			Если Добавить Тогда
+				Модули.Добавить(Объект.Имя);
+			КонецЕсли;
+
+		КонецЕсли;
+
+	КонецЦикла;
+
+	Возврат Модули;
+
+КонецФункции
+
+#КонецОбласти
diff --git a/...src/CommonModules/ЮТРасширенияСлужебныйВызовСервера/ЮТРасширенияСлужебныйВызовСервера.mdo b/...src/CommonModules/ЮТРасширенияСлужебныйВызовСервера/ЮТРасширенияСлужебныйВызовСервера.mdo
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<mdclass:CommonModule xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="d6ce6d0e-c302-447d-81e7-706f9a31464b">
+  <name>ЮТРасширенияСлужебныйВызовСервера</name>
+  <synonym>
+    <key>ru</key>
+    <value>Расширения служебный вызов сервера</value>
+  </synonym>
+  <server>true</server>
+  <serverCall>true</serverCall>
+  <returnValuesReuse>DuringSession</returnValuesReuse>
+</mdclass:CommonModule>