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

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
exts/yaxunit/src/CommonModules/ЮТМетаданные/Module.bsl
View File

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

4
exts/yaxunit/src/CommonModules/ЮТМетаданныеПовтИсп/Module.bsl
View File

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

14
exts/yaxunit/src/CommonModules/ЮТМетаданныеСервер/Module.bsl
View File

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

12
exts/yaxunit/src/CommonModules/ЮТРасширения/Module.bsl
View File

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