From 2754aa04f3e02ff1c4eefbc82bb33bd22130a4a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=90=D0=B4=D0=BC=D0=B8=D0=BD=D0=B8=D1=81=D1=82=D1=80?=
=?UTF-8?q?=D0=B0=D1=82=D0=BE=D1=80?= <Администратор@localhost>
Date: Wed, 1 Feb 2023 19:51:31 +0300
Subject: [PATCH] .
---
src/CommonModules/ирКлиент/Ext/Module.bsl | 7 ++-
src/CommonModules/ирОбщий/Ext/Module.bsl | 54 +++++++++++--------
src/ConfigDumpInfo.xml | 22 ++++----
src/Configuration.xml | 2 +-
.../Ext/ObjectModule.bsl | 2 +-
.../ирПортативный/Ext/ObjectModule.bsl | 5 ++
.../ирСлужебный/Ext/ObjectModule.bsl | 5 ++
src/VERSION | 2 +-
8 files changed, 62 insertions(+), 37 deletions(-)
diff --git a/src/CommonModules/ирКлиент/Ext/Module.bsl b/src/CommonModules/ирКлиент/Ext/Module.bsl
index 58e9d5810..52b60015a 100644
--- a/src/CommonModules/ирКлиент/Ext/Module.bsl
+++ b/src/CommonModules/ирКлиент/Ext/Module.bsl
@@ -4382,7 +4382,9 @@
Менеджер = Неопределено;
ТекущеееЗначение = ирОбщий.ДанныеЭлементаФормыЛкс(Элемент);
Если ТипЗнч(ТекущеееЗначение) = Тип("Строка") Тогда
- Элемент.Значение = Текст; // Восстановим значение, т.к. при чтении из него в режиме пароля оно меняется на "*************"
+ // Опасно. Сбрасывает позицию каретки (при вызове из АвтоподборТекста)
+ // Восстановим значение, т.к. при чтении из него в режиме пароля оно меняется на "*************"
+ ирОбщий.ПрисвоитьЕслиНеРавноЛкс(Элемент.Значение, Текст);
Попытка
ТипЗначенияПоля = ирОбщий.ТипЗначенияЭлементаФормыЛкс(Элемент);
Исключение
@@ -4792,6 +4794,9 @@
КонецФункции
Процедура НачатьОтслеживаниеФормыЛкс(Форма, РазрешитьСвоюФорму = Ложь) Экспорт
+ Если Форма = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
Если Не РазрешитьСвоюФорму И ирКэш.ОткрытыеФормыПодсистемыЛкс().Найти(Форма) <> Неопределено Тогда
Возврат;
КонецЕсли;
diff --git a/src/CommonModules/ирОбщий/Ext/Module.bsl b/src/CommonModules/ирОбщий/Ext/Module.bsl
index ec6a6bdac..0a4a04959 100644
--- a/src/CommonModules/ирОбщий/Ext/Module.bsl
+++ b/src/CommonModules/ирОбщий/Ext/Module.bsl
@@ -12216,7 +12216,8 @@
Функция НайтиДоступноеПолеКомпоновкиПоПолномуИмениЛкс(Знач ТекущееПоле, Знач ПолноеИмяПоля, Знач ДопустимоеКоличествоТипов = 100, Знач МожноРодителя = Ложь, Знач ПрефиксПараметра = "&") Экспорт
- Фрагменты = ирОбщий.СтрРазделитьЛкс(НРег(ПолноеИмяПоля));
+ ПолноеИмяПоля = НРег(ПолноеИмяПоля);
+ Фрагменты = СтрРазделитьЛкс(ПолноеИмяПоля);
#Если Сервер И Не Сервер Тогда
Фрагменты = Новый Массив;
ТекущееПоле = Новый НастройкиКомпоновкиДанных;
@@ -27320,7 +27321,7 @@ _РежимОтладки = Ложь;
Для Каждого ПолеПоискаПоСтроке Из ОбъектМД.ВводПоСтроке Цикл
ГруппаИ = ГруппаИли.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных"));
Для Каждого СловоПоиска Из СловаПоиска Цикл
- НайтиДобавитьЭлементОтбораКомпоновкиЛкс(ГруппаИ, ПолеПоискаПоСтроке.Имя, СловоПоиска, ВидСравненияПоиска);
+ НайтиДобавитьЭлементОтбораКомпоновкиЛкс(ГруппаИ, ПолеПоискаПоСтроке.Имя, СловоПоиска, ВидСравненияПоиска,, Ложь);
КонецЦикла;
КонецЦикла;
КонецЕсли;
@@ -27344,29 +27345,38 @@ _РежимОтладки = Ложь;
// Формируем представления ссылок по полям ввода по строке с учетом поглощения
ТаблицаРезультата.Колонки.Добавить("Представление");
- Для Каждого СтрокаРезультата Из ТаблицаРезультата Цикл
- ПолноеПредставление = Новый Массив;
- ПолноеПредставление.Добавить("" + СтрокаРезультата.Ссылка);
- Для Каждого ПолеПоискаПоСтроке Из ОбъектМД.ВводПоСтроке Цикл
- ЗначениеРеквизита = СтрокаРезультата[ПолеПоискаПоСтроке.Имя];
- НадоДобавлять = Истина;
- УдалитьЭлементы = Новый Массив;
- Для Каждого Представление Из ПолноеПредставление Цикл
- Если СтрНайтиЛкс(ЗначениеРеквизита, Представление,,,, Ложь) Тогда
- УдалитьЭлементы.Добавить(Представление);
- ИначеЕсли СтрНайтиЛкс(Представление, ЗначениеРеквизита,,,, Ложь) Тогда
- НадоДобавлять = Ложь;
+ ИмяПоляПорядка1 = "Важность" + СуффиксСлужебногоСвойстваЛкс();
+ ТаблицаРезультата.Колонки.Добавить(ИмяПоляПорядка1, Новый ОписаниеТипов("Число"));
+ ИмяПоляПорядка2 = "ОсновнойПорядок" + СуффиксСлужебногоСвойстваЛкс();
+ ТаблицаРезультата.Колонки.Добавить(ИмяПоляПорядка2);
+ Для Каждого СтрокаРезультата Из ТаблицаРезультата Цикл
+ СтрокаРезультата[ИмяПоляПорядка2] = ТаблицаРезультата.Индекс(СтрокаРезультата);
+ ПолноеПредставление = Новый Массив;
+ ПолноеПредставление.Добавить("" + СтрокаРезультата.Ссылка);
+ Для Каждого ПолеПоискаПоСтроке Из ОбъектМД.ВводПоСтроке Цикл
+ ЗначениеРеквизита = СтрокаРезультата[ПолеПоискаПоСтроке.Имя];
+ Если ЗначениеЗаполнено(Параметры.СтрокаПоиска) И ирОбщий.СтрНачинаетсяСЛкс(ЗначениеРеквизита, СловаПоиска[0]) Тогда
+ СтрокаРезультата[ИмяПоляПорядка1] = 1;
+ КонецЕсли;
+ НадоДобавлять = Истина;
+ УдалитьЭлементы = Новый Массив;
+ Для Каждого Представление Из ПолноеПредставление Цикл
+ Если СтрНайтиЛкс(ЗначениеРеквизита, Представление,,,, Ложь) Тогда
+ УдалитьЭлементы.Добавить(Представление);
+ ИначеЕсли СтрНайтиЛкс(Представление, ЗначениеРеквизита,,,, Ложь) Тогда
+ НадоДобавлять = Ложь;
+ КонецЕсли;
+ КонецЦикла;
+ Для Каждого УдалитьЭлемент Из УдалитьЭлементы Цикл
+ ПолноеПредставление.Удалить(ПолноеПредставление.Найти(УдалитьЭлемент));
+ КонецЦикла;
+ Если НадоДобавлять Тогда
+ ПолноеПредставление.Добавить(ЗначениеРеквизита);
КонецЕсли;
КонецЦикла;
- Для Каждого УдалитьЭлемент Из УдалитьЭлементы Цикл
- ПолноеПредставление.Удалить(ПолноеПредставление.Найти(УдалитьЭлемент));
- КонецЦикла;
- Если НадоДобавлять Тогда
- ПолноеПредставление.Добавить(ЗначениеРеквизита);
- КонецЕсли;
+ СтрокаРезультата.Представление = СтрСоединитьЛкс(ПолноеПредставление, " | ");
КонецЦикла;
- СтрокаРезультата.Представление = СтрСоединитьЛкс(ПолноеПредставление, " | ");
- КонецЦикла;
+ ТаблицаРезультата.Сортировать(ИмяПоляПорядка1 + " Убыв, " + ИмяПоляПорядка2);
Возврат ТаблицаРезультата;
КонецФункции
diff --git a/src/ConfigDumpInfo.xml b/src/ConfigDumpInfo.xml
index 7543bb451..8c1dd844c 100644
--- a/src/ConfigDumpInfo.xml
+++ b/src/ConfigDumpInfo.xml
@@ -75,12 +75,12 @@
-
-
+
+
-
-
+
+
@@ -565,7 +565,7 @@
-
+
@@ -1637,13 +1637,13 @@
-
+
-
+
@@ -2225,7 +2225,7 @@
-
+
@@ -2256,7 +2256,7 @@
-
+
@@ -2641,8 +2641,8 @@
-
-
+
+
diff --git a/src/Configuration.xml b/src/Configuration.xml
index c2c4f20f7..a3fc92a81 100644
--- a/src/Configuration.xml
+++ b/src/Configuration.xml
@@ -51,7 +51,7 @@
Role.ирРазработчик
Tormozit
- 6.62.1
+ 6.62.2
false
true
diff --git a/src/DataProcessors/ирОболочкаРегВыражение/Ext/ObjectModule.bsl b/src/DataProcessors/ирОболочкаРегВыражение/Ext/ObjectModule.bsl
index 0e0f2b09f..a2f658952 100644
--- a/src/DataProcessors/ирОболочкаРегВыражение/Ext/ObjectModule.bsl
+++ b/src/DataProcessors/ирОболочкаРегВыражение/Ext/ObjectModule.bsl
@@ -226,7 +226,7 @@
мПлатформа = Обработки.ирПлатформа.Создать();
#КонецЕсли
ТаблицаВхождений = мПлатформа.ВхожденияРегВыражения.ВыгрузитьКолонки();
- ТаблицаВхождений.Колонки.Удалить("НомерСтроки");
+ ТаблицаВхождений.Колонки.Удалить(ирОбщий.ПеревестиСтроку("НомерСтроки"));
ТаблицаВхождений.Колонки.Удалить("Подгруппы");
ТаблицаВхождений.Колонки.Добавить("Подгруппы");
diff --git a/src/DataProcessors/ирПортативный/Ext/ObjectModule.bsl b/src/DataProcessors/ирПортативный/Ext/ObjectModule.bsl
index 72459afa9..9dd56fc48 100644
--- a/src/DataProcessors/ирПортативный/Ext/ObjectModule.bsl
+++ b/src/DataProcessors/ирПортативный/Ext/ObjectModule.bsl
@@ -1947,6 +1947,11 @@
Функция ПолучитьОбщийМодульЛкс(Имя, ДобавитьСсылкиНаВнешниеМодули = Истина) Экспорт
+ #Если Не Клиент Тогда
+ Если Имя = "ирКлиент" Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+ #КонецЕсли
Результат = ЭтотОбъект[Имя];
Если Результат = Неопределено Тогда
ПолноеИмяФайла = ПолноеИмяФайлаПортативногоОбъектаМетаданныхЛкс(Имя);
diff --git a/src/DataProcessors/ирСлужебный/Ext/ObjectModule.bsl b/src/DataProcessors/ирСлужебный/Ext/ObjectModule.bsl
index 3fc67ab58..750d23702 100644
--- a/src/DataProcessors/ирСлужебный/Ext/ObjectModule.bsl
+++ b/src/DataProcessors/ирСлужебный/Ext/ObjectModule.bsl
@@ -1,6 +1,11 @@
// Позволяет внутри обработок с реквизитами, перекрывающими общие модули, получать доступ к неглобальным общим модулям
Функция ПолучитьОбщийМодульКонфигурацииЛкс(ИмяМодуля) Экспорт
+ #Если Не Клиент Тогда
+ Если ИмяМодуля = "ирКлиент" Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+ #КонецЕсли
Результат = Вычислить(ИмяМодуля);
Возврат Результат;
diff --git a/src/VERSION b/src/VERSION
index 5be1a97d7..76ac6cdcf 100644
--- a/src/VERSION
+++ b/src/VERSION
@@ -1,2 +1,2 @@
-543
+544