From 5af313e4aa9034b5bc3b3036fbad12e9681097e3 Mon Sep 17 00:00:00 2001 From: alkoleft Date: Tue, 1 Aug 2023 01:48:48 +0300 Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D0=B0=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D0=B0=20?= =?UTF-8?q?=D0=B8=D1=81=D0=BF=D0=BE=D0=BB=D1=8C=D0=B7=D0=BE=D0=B2=D0=B0?= =?UTF-8?q?=D0=BD=D0=B8=D1=8F=20=D1=82=D0=BE=D0=BB=D1=8C=D0=BA=D0=BE=20?= =?UTF-8?q?=D0=BA=D0=BB=D0=B8=D0=B5=D0=BD=D1=82=D1=81=D0=BA=D0=BE=D0=B3?= =?UTF-8?q?=D0=BE=20=D0=BE=D0=B1=D1=80=D0=B0=D0=B1=D0=BE=D1=82=D1=87=D0=B8?= =?UTF-8?q?=D0=BA=D0=B0=20=D1=81=D0=BE=D0=B1=D1=8B=D1=82=D0=B8=D0=B9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../src/CommonModules/ЮТМетаданные/Module.bsl | 7 ++++--- .../CommonModules/ЮТМетаданныеПовтИсп/Module.bsl | 4 ++-- .../CommonModules/ЮТМетаданныеСервер/Module.bsl | 14 +++++++++++--- .../src/CommonModules/ЮТРасширения/Module.bsl | 12 +++++++++++- 4 files changed, 28 insertions(+), 9 deletions(-) diff --git a/exts/yaxunit/src/CommonModules/ЮТМетаданные/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТМетаданные/Module.bsl index 3187cd91..a0d98799 100644 --- a/exts/yaxunit/src/CommonModules/ЮТМетаданные/Module.bsl +++ b/exts/yaxunit/src/CommonModules/ЮТМетаданные/Module.bsl @@ -23,12 +23,13 @@ // Подсистема должна находится в подсистеме "ЮТФункциональность" // Параметры: // ИмяПодсистемы - Строка - Имя подсистемы -// +// Серверные - Булево - Возвращять модули доступные на сервере +// Клиентские - Булево - Возвращять модули доступные на клиенте // Возвращаемое значение: // Массив из Строка - Имена модулей входящих в подсистему -Функция МодулиПодсистемы(ИмяПодсистемы) Экспорт +Функция МодулиПодсистемы(ИмяПодсистемы, Серверные = Истина, Клиентские = Истина) Экспорт - Возврат ЮТМетаданныеПовтИсп.МодулиПодсистемы(ИмяПодсистемы); + Возврат ЮТМетаданныеПовтИсп.МодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские); КонецФункции diff --git a/exts/yaxunit/src/CommonModules/ЮТМетаданныеПовтИсп/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТМетаданныеПовтИсп/Module.bsl index 37613b03..2ffe07f7 100644 --- a/exts/yaxunit/src/CommonModules/ЮТМетаданныеПовтИсп/Module.bsl +++ b/exts/yaxunit/src/CommonModules/ЮТМетаданныеПовтИсп/Module.bsl @@ -18,9 +18,9 @@ #Область СлужебныйПрограммныйИнтерфейс -Функция МодулиПодсистемы(ИмяПодсистемы) Экспорт +Функция МодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские) Экспорт - Возврат ЮТМетаданныеСервер.МодулиПодсистемы(ИмяПодсистемы); + Возврат ЮТМетаданныеСервер.МодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские); КонецФункции diff --git a/exts/yaxunit/src/CommonModules/ЮТМетаданныеСервер/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТМетаданныеСервер/Module.bsl index 522b00ac..ecf3a960 100644 --- a/exts/yaxunit/src/CommonModules/ЮТМетаданныеСервер/Module.bsl +++ b/exts/yaxunit/src/CommonModules/ЮТМетаданныеСервер/Module.bsl @@ -49,10 +49,12 @@ // Подсистема должна находится в подсистеме "ЮТФункциональность" // Параметры: // ИмяПодсистемы - Строка - Имя подсистемы +// Серверные - Булево - Возвращять модули доступные на сервере +// Клиентские - Булево - Возвращять модули доступные на клиенте // // Возвращаемое значение: // Массив из Строка - Имена модулей входящих в подсистему -Функция МодулиПодсистемы(ИмяПодсистемы) Экспорт +Функция МодулиПодсистемы(ИмяПодсистемы, Серверные, Клиентские) Экспорт Подсистема = Метаданные.Подсистемы.ЮТФункциональность.Подсистемы.Найти(ИмяПодсистемы); @@ -68,8 +70,14 @@ Если Метаданные.ОбщиеМодули.Содержит(Объект) Тогда - Модули.Добавить(Объект.Имя); - + Если Серверные И Клиентские Тогда + Модули.Добавить(Объект.Имя); + ИначеЕсли Серверные И (Объект.Сервер) Тогда + Модули.Добавить(Объект.Имя); + ИначеЕсли Клиентские И (Объект.КлиентУправляемоеПриложение Или Объект.ВызовСервера) Тогда + Модули.Добавить(Объект.Имя); + КонецЕсли; // КлиентОбычноеПриложение сознательно не анализируется, он должен идти в паре с другой настройкой + КонецЕсли; КонецЦикла; diff --git a/exts/yaxunit/src/CommonModules/ЮТРасширения/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТРасширения/Module.bsl index 4b702282..4ef57924 100644 --- a/exts/yaxunit/src/CommonModules/ЮТРасширения/Module.bsl +++ b/exts/yaxunit/src/CommonModules/ЮТРасширения/Module.bsl @@ -26,7 +26,17 @@ Функция ОбработчикиСобытий() Экспорт - Возврат ЮТМетаданные.МодулиПодсистемы("ЮТОбработчикиСобытий"); + Серверные = Ложь; + Клиентские = Ложь; +#Если Сервер Тогда + Серверные = Истина; +#КонецЕсли + +#Если Клиент Тогда + Клиентские = Истина; +#КонецЕсли + + Возврат ЮТМетаданные.МодулиПодсистемы("ЮТОбработчикиСобытий", Серверные, Клиентские); КонецФункции