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