1
0
mirror of https://github.com/bia-technologies/yaxunit.git synced 2024-12-03 08:45:31 +02:00

Исправлена ошибка использования только клиентского обработчика событий

This commit is contained in:
alkoleft 2023-08-01 01:48:48 +03:00
parent f4a3d5220a
commit 5af313e4aa
4 changed files with 28 additions and 9 deletions

View File

@ -23,12 +23,13 @@
// Подсистема должна находится в подсистеме "ЮТФункциональность"
// Параметры:
// ИмяПодсистемы - Строка - Имя подсистемы
//
// Серверные - Булево - Возвращять модули доступные на сервере
// Клиентские - Булево - Возвращять модули доступные на клиенте
// Возвращаемое значение:
// Массив из Строка - Имена модулей входящих в подсистему
Функция МодулиПодсистемы(ИмяПодсистемы) Экспорт
Функция МодулиПодсистемы(ИмяПодсистемы, Серверные = Истина, Клиентские = Истина) Экспорт
Возврат ЮТМетаданныеПовтИсп.МодулиПодсистемы(ИмяПодсистемы);
Возврат ЮТМетаданныеПовтИсп.МодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские);
КонецФункции

View File

@ -18,9 +18,9 @@
#Область СлужебныйПрограммныйИнтерфейс
Функция МодулиПодсистемы(ИмяПодсистемы) Экспорт
Функция МодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские) Экспорт
Возврат ЮТМетаданныеСервер.МодулиПодсистемы(ИмяПодсистемы);
Возврат ЮТМетаданныеСервер.МодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские);
КонецФункции

View File

@ -49,10 +49,12 @@
// Подсистема должна находится в подсистеме "ЮТФункциональность"
// Параметры:
// ИмяПодсистемы - Строка - Имя подсистемы
// Серверные - Булево - Возвращять модули доступные на сервере
// Клиентские - Булево - Возвращять модули доступные на клиенте
//
// Возвращаемое значение:
// Массив из Строка - Имена модулей входящих в подсистему
Функция МодулиПодсистемы(ИмяПодсистемы) Экспорт
Функция МодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские) Экспорт
Подсистема = Метаданные.Подсистемы.ЮТФункциональность.Подсистемы.Найти(ИмяПодсистемы);
@ -68,7 +70,13 @@
Если Метаданные.ОбщиеМодули.Содержит(Объект) Тогда
Модули.Добавить(Объект.Имя);
Если Серверные И Клиентские Тогда
Модули.Добавить(Объект.Имя);
ИначеЕсли Серверные И (Объект.Сервер) Тогда
Модули.Добавить(Объект.Имя);
ИначеЕсли Клиентские И (Объект.КлиентУправляемоеПриложение Или Объект.ВызовСервера) Тогда
Модули.Добавить(Объект.Имя);
КонецЕсли; // КлиентОбычноеПриложение сознательно не анализируется, он должен идти в паре с другой настройкой
КонецЕсли;

View File

@ -26,7 +26,17 @@
Функция ОбработчикиСобытий() Экспорт
Возврат ЮТМетаданные.МодулиПодсистемы("ЮТОбработчикиСобытий");
Серверные = Ложь;
Клиентские = Ложь;
#Если Сервер Тогда
Серверные = Истина;
#КонецЕсли
#Если Клиент Тогда
Клиентские = Истина;
#КонецЕсли
Возврат ЮТМетаданные.МодулиПодсистемы("ЮТОбработчикиСобытий", Серверные, Клиентские);
КонецФункции