From 34093b895232b2e21959bdd5ec7b959840e42a49 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: Tue, 16 Nov 2021 22:34:19 +0300
Subject: [PATCH] .
---
src/ConfigDumpInfo.xml | 6 ++--
src/Configuration.xml | 2 +-
.../Ext/ObjectModule.bsl | 30 +++++++++++++------
src/VERSION | 2 +-
4 files changed, 26 insertions(+), 14 deletions(-)
diff --git a/src/ConfigDumpInfo.xml b/src/ConfigDumpInfo.xml
index 5ad255922..1299aff84 100644
--- a/src/ConfigDumpInfo.xml
+++ b/src/ConfigDumpInfo.xml
@@ -540,7 +540,7 @@
-
+
@@ -1116,7 +1116,7 @@
-
+
@@ -1207,7 +1207,7 @@
-
+
diff --git a/src/Configuration.xml b/src/Configuration.xml
index 3340ff582..2edbc3b58 100644
--- a/src/Configuration.xml
+++ b/src/Configuration.xml
@@ -51,7 +51,7 @@
Role.ирРазработчик
Tormozit
- 6.18.1
+ 6.18.2
false
true
diff --git a/src/DataProcessors/ирКлсПолеТекстаПрограммы/Ext/ObjectModule.bsl b/src/DataProcessors/ирКлсПолеТекстаПрограммы/Ext/ObjectModule.bsl
index 35235e8d1..1a72d4899 100644
--- a/src/DataProcessors/ирКлсПолеТекстаПрограммы/Ext/ObjectModule.bsl
+++ b/src/DataProcessors/ирКлсПолеТекстаПрограммы/Ext/ObjectModule.bsl
@@ -1969,6 +1969,7 @@
мПозицияТекстаДляПоискаОпределения = 0;
мПредшествующийТекст = "";
мТекстДляПоискаОпределения = "";
+ // Здесь не учтена возможность наличия комментария слева от текущей позиции
Если мКонечнаяСтрока > 1 Тогда
СлужебноеПолеТекста.УстановитьТекст(ОригинальныйТекст);
СлужебноеПолеТекста.УстановитьГраницыВыделения(1, 1, мКонечнаяСтрока - 1, 333);
@@ -1976,33 +1977,41 @@
СлужебноеПолеТекста.УстановитьТекст(ТекстБезКомментариевИОпасныхСтрок);
СлужебноеПолеТекста.УстановитьГраницыВыделения(1, 1, мКонечнаяСтрока - 1, 333);
мТекстДляПоискаОпределения = СлужебноеПолеТекста.ВыделенныйТекст;
- КонецЕсли;
- // Здесь не учтена возможность наличия комментария слева от текущей позиции
- мПредшествующийТекст = мПредшествующийТекст + Лев(ТекущееНачалоСтроки, СтрДлина(ТекущееНачалоСтроки) - СтрДлина(НачалоКонтекста));
- мТекстДляПоискаОпределения = мТекстДляПоискаОпределения + Лев(ТекущееНачалоСтроки, СтрДлина(ТекущееНачалоСтроки) - СтрДлина(НачалоКонтекста));
+ КонецЕсли;
Если ЯзыкПрограммы = 0 Тогда
- //
+ мТекстДляПоискаОпределения = мТекстДляПоискаОпределения + Лев(ТекущееНачалоСтроки, СтрДлина(ТекущееНачалоСтроки) - СтрДлина(НачалоКонтекста));
Иначе
ПозицииЗапросовПакета = Новый Массив;
ЗапросыПакета = мПлатформа.РазбитьГрубоТекстПакетногоЗапросаНаТекстыЗапросов(ОригинальныйТекст, СтрДлина(мПредшествующийТекст), ПозицииЗапросовПакета);
#Если Сервер И Не Сервер Тогда
ЗапросыПакета = Новый Массив;
#КонецЕсли
+ НомерПервойСтрокиЗапроса = 1;
+ ЧислоСтрокВЗапросе = 0;
Если ЗапросыПакета.Количество() > 0 Тогда
- НомерПервойСтрокиЗапроса = 1;
Для ИндексЗапроса = 0 По ЗапросыПакета.ВГраница() Цикл
ЗапросПакета = ЗапросыПакета[ИндексЗапроса];
мТекстДляПоискаОпределения = ЗапросПакета;
ТекстБезКомментариевИОпасныхСтрок = ЗапросПакета;
- мПредшествующийТекст = ЗапросПакета;
мПозицияТекстаДляПоискаОпределения = ПозицииЗапросовПакета[ИндексЗапроса];
- НомерПервойСтрокиЗапроса = НомерПервойСтрокиЗапроса + СтрЧислоВхождений(ЗапросПакета, Символы.ПС);
+ ЧислоСтрокВЗапросе = СтрЧислоВхождений(ЗапросПакета, Символы.ПС);
+ НомерПервойСтрокиЗапроса = НомерПервойСтрокиЗапроса + ЧислоСтрокВЗапросе;
Если НомерПервойСтрокиЗапроса >= мНачальнаяСтрока Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
+ НомерТекущейСтрокиВЗапросе = мКонечнаяСтрока - (НомерПервойСтрокиЗапроса - ЧислоСтрокВЗапросе);
+ Если НомерТекущейСтрокиВЗапросе > 0 Тогда
+ СлужебноеПолеТекста.УстановитьТекст(ЗапросПакета);
+ СлужебноеПолеТекста.УстановитьГраницыВыделения(1, 1, НомерТекущейСтрокиВЗапросе - 1, 333);
+ мПредшествующийТекст = СлужебноеПолеТекста.ВыделенныйТекст;
+ СлужебноеПолеТекста.УстановитьТекст(ОригинальныйТекст);
+ Иначе
+ мПредшествующийТекст = Прав(мПредшествующийТекст, 500);
+ КонецЕсли;
КонецЕсли;
+ мПредшествующийТекст = мПредшествующийТекст + Лев(ТекущееНачалоСтроки, СтрДлина(ТекущееНачалоСтроки) - СтрДлина(НачалоКонтекста));
НачатьОбработкуКоманды();
КонецПроцедуры
@@ -4097,7 +4106,10 @@
#Если Сервер И Не Сервер Тогда
ОбъектМД = Метаданные.Справочники.Валюты;
#КонецЕсли
- Если ирКэш.НомерВерсииПлатформыЛкс() > 803004 Тогда
+ Если Истина
+ И ирКэш.НомерВерсииПлатформыЛкс() > 803004
+ И ирОбщий.ЛиКорневойТипОбъектаСПредопределеннымЛкс(КорневойТип)
+ Тогда
Для Каждого ИмяЭлемента Из ОбъектМД.ПолучитьИменаПредопределенных() Цикл
КоллекцияЭлементовМД.Добавить(ИмяЭлемента);
КонецЦикла;
diff --git a/src/VERSION b/src/VERSION
index dce5e3b5a..4b88a45f2 100644
--- a/src/VERSION
+++ b/src/VERSION
@@ -1,2 +1,2 @@
-439
+440