tonar/RDT1C
1
0
Fork 0
mirror of https://github.com/tormozit/RDT1C.git synced 2025-12-17 05:04:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
Администратор 2021-11-16 22:34:19 +03:00
parent 051e40aaf3
commit 34093b8952
4 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ConfigDumpInfo.xml
View File

@ -540,7 +540,7 @@
<Metadata name="CommonPicture.ирЧисло.Picture" id="06ce2132-366e-4133-bc99-eb37ae74ea78.0" configVersion="8b0df8ff53017a4fb5378c93c942365500000000"/> <Metadata name="CommonPicture.ирЧисло.Picture" id="06ce2132-366e-4133-bc99-eb37ae74ea78.0" configVersion="8b0df8ff53017a4fb5378c93c942365500000000"/>
<Metadata name="CommonTemplate.ирШаблонРасширения" id="707abe9a-27ff-424f-a8c5-9b204feb7a87" configVersion="83018045472cdb488e6a4d49df44253200000000"/> <Metadata name="CommonTemplate.ирШаблонРасширения" id="707abe9a-27ff-424f-a8c5-9b204feb7a87" configVersion="83018045472cdb488e6a4d49df44253200000000"/>
<Metadata name="CommonTemplate.ирШаблонРасширения.Template" id="707abe9a-27ff-424f-a8c5-9b204feb7a87.0" configVersion="b3b8889cd244194c83bf8067e27bc44300000000"/> <Metadata name="CommonTemplate.ирШаблонРасширения.Template" id="707abe9a-27ff-424f-a8c5-9b204feb7a87.0" configVersion="b3b8889cd244194c83bf8067e27bc44300000000"/>
<Metadata name="Configuration.ИнструментыРазработчика" id="6dfb797d-2e17-486d-8769-e566f427a20e" configVersion="1d863e924d142348bdf1a354a4c4ff7200000000"/> <Metadata name="Configuration.ИнструментыРазработчика" id="6dfb797d-2e17-486d-8769-e566f427a20e" configVersion="14bbe88d7c708344bb9e7bd33610ea3000000000"/>
<Metadata name="Configuration.ИнструментыРазработчика.CommandInterface" id="f264e44e-804f-44ff-bbda-bd15d65a46e9.a" configVersion="bcf8ca0712b74840ab8efb108edbf0f900000000"/> <Metadata name="Configuration.ИнструментыРазработчика.CommandInterface" id="f264e44e-804f-44ff-bbda-bd15d65a46e9.a" configVersion="bcf8ca0712b74840ab8efb108edbf0f900000000"/>
<Metadata name="Configuration.ИнструментыРазработчика.ExternalConnectionModule" id="f264e44e-804f-44ff-bbda-bd15d65a46e9.5" configVersion="7fb1c1b15382474da81ef6025cf2ba0500000000"/> <Metadata name="Configuration.ИнструментыРазработчика.ExternalConnectionModule" id="f264e44e-804f-44ff-bbda-bd15d65a46e9.5" configVersion="7fb1c1b15382474da81ef6025cf2ba0500000000"/>
<Metadata name="Configuration.ИнструментыРазработчика.Logo" id="f264e44e-804f-44ff-bbda-bd15d65a46e9.1" configVersion="4fcf84fe54c5734f85fce08ed282f38200000000"/> <Metadata name="Configuration.ИнструментыРазработчика.Logo" id="f264e44e-804f-44ff-bbda-bd15d65a46e9.1" configVersion="4fcf84fe54c5734f85fce08ed282f38200000000"/>
@ -1116,7 +1116,7 @@
<Metadata name="DataProcessor.ирКлсПолеТабличногоДокументаСГруппировками.Help" id="97cbab0a-d757-4b36-8acc-c49b92e08aed.1" configVersion="aa403b1909f0fc4790f9eb34b367401f00000000"/> <Metadata name="DataProcessor.ирКлсПолеТабличногоДокументаСГруппировками.Help" id="97cbab0a-d757-4b36-8acc-c49b92e08aed.1" configVersion="aa403b1909f0fc4790f9eb34b367401f00000000"/>
<Metadata name="DataProcessor.ирКлсПолеТабличногоДокументаСГруппировками.ManagerModule" id="97cbab0a-d757-4b36-8acc-c49b92e08aed.2" configVersion="4629e8d5da26804da6af06dfc854ab6e00000000"/> <Metadata name="DataProcessor.ирКлсПолеТабличногоДокументаСГруппировками.ManagerModule" id="97cbab0a-d757-4b36-8acc-c49b92e08aed.2" configVersion="4629e8d5da26804da6af06dfc854ab6e00000000"/>
<Metadata name="DataProcessor.ирКлсПолеТабличногоДокументаСГруппировками.ObjectModule" id="97cbab0a-d757-4b36-8acc-c49b92e08aed.0" configVersion="c532aa3d95b5a443b6e0caa5d753b86e00000000"/> <Metadata name="DataProcessor.ирКлсПолеТабличногоДокументаСГруппировками.ObjectModule" id="97cbab0a-d757-4b36-8acc-c49b92e08aed.0" configVersion="c532aa3d95b5a443b6e0caa5d753b86e00000000"/>
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы" id="1d8bb7c9-8dce-46a3-8984-8fd1b5f272bc" configVersion="9baf077c3fb619499bf8cd0bada390ac00000000"> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы" id="1d8bb7c9-8dce-46a3-8984-8fd1b5f272bc" configVersion="a51c1b2a7e1c574c92e9efaca800ff2d00000000">
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.TabularSection.ДоступныеТаблицы.Attribute.ЕстьДоступ" id="03d58615-37cc-49d6-ae4b-29a2425a7a7a"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.TabularSection.ДоступныеТаблицы.Attribute.ЕстьДоступ" id="03d58615-37cc-49d6-ae4b-29a2425a7a7a"/>
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.TabularSection.ДоступныеТаблицы.Attribute.ПолноеИмяМД" id="05a78243-ae5a-41be-a511-751ef7f2828c"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.TabularSection.ДоступныеТаблицы.Attribute.ПолноеИмяМД" id="05a78243-ae5a-41be-a511-751ef7f2828c"/>
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.TabularSection.ОбщиеМетоды.Attribute.ПовторноеИспользование" id="05c49eaa-b32d-4370-ab57-a10a040dc5aa"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.TabularSection.ОбщиеМетоды.Attribute.ПовторноеИспользование" id="05c49eaa-b32d-4370-ab57-a10a040dc5aa"/>
@ -1207,7 +1207,7 @@
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Form.ФормаПример.Form" id="2ff7865f-f8c9-450a-853e-8ad9300d7398.0" configVersion="dda8efe454ceeb4cb9f283f796017d8b00000000"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Form.ФормаПример.Form" id="2ff7865f-f8c9-450a-853e-8ad9300d7398.0" configVersion="dda8efe454ceeb4cb9f283f796017d8b00000000"/>
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Help" id="1d8bb7c9-8dce-46a3-8984-8fd1b5f272bc.1" configVersion="47022b52321243429bf0a3b248221ef400000000"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Help" id="1d8bb7c9-8dce-46a3-8984-8fd1b5f272bc.1" configVersion="47022b52321243429bf0a3b248221ef400000000"/>
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.ManagerModule" id="1d8bb7c9-8dce-46a3-8984-8fd1b5f272bc.2" configVersion="741cb59fbeaf3e479ea254af75182cf700000000"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.ManagerModule" id="1d8bb7c9-8dce-46a3-8984-8fd1b5f272bc.2" configVersion="741cb59fbeaf3e479ea254af75182cf700000000"/>
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.ObjectModule" id="1d8bb7c9-8dce-46a3-8984-8fd1b5f272bc.0" configVersion="cd6818a590d4ae4b9acb706c8ca5572000000000"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.ObjectModule" id="1d8bb7c9-8dce-46a3-8984-8fd1b5f272bc.0" configVersion="c3ab5470df259f459a264f75e34f311900000000"/>
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Template.ДиалектыSQL" id="8543b06e-32cf-4010-b0ae-b82dcd1108c5" configVersion="348233ceab8cae4a97e51b37197e5db500000000"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Template.ДиалектыSQL" id="8543b06e-32cf-4010-b0ae-b82dcd1108c5" configVersion="348233ceab8cae4a97e51b37197e5db500000000"/>
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Template.ДиалектыSQL.Template" id="8543b06e-32cf-4010-b0ae-b82dcd1108c5.0" configVersion="38ef4a5612ce534a90a428f8f6c7dd9700000000"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Template.ДиалектыSQL.Template" id="8543b06e-32cf-4010-b0ae-b82dcd1108c5.0" configVersion="38ef4a5612ce534a90a428f8f6c7dd9700000000"/>
<Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Template.СочетанияКлавишHTML" id="c5b5d867-061c-4f55-9f6b-2d27b079cff0" configVersion="6e87727c5dc15a4eadbdc9aedb6e427a00000000"/> <Metadata name="DataProcessor.ирКлсПолеТекстаПрограммы.Template.СочетанияКлавишHTML" id="c5b5d867-061c-4f55-9f6b-2d27b079cff0" configVersion="6e87727c5dc15a4eadbdc9aedb6e427a00000000"/>

2
src/Configuration.xml
View File

@ -51,7 +51,7 @@
<xr:Item xsi:type="xr:MDObjectRef">Role.ирРазработчик</xr:Item> <xr:Item xsi:type="xr:MDObjectRef">Role.ирРазработчик</xr:Item>
</DefaultRoles> </DefaultRoles>
<Vendor>Tormozit</Vendor> <Vendor>Tormozit</Vendor>
<Version>6.18.1</Version> <Version>6.18.2</Version>
<UpdateCatalogAddress/> <UpdateCatalogAddress/>
<IncludeHelpInContents>false</IncludeHelpInContents> <IncludeHelpInContents>false</IncludeHelpInContents>
<UseManagedFormInOrdinaryApplication>true</UseManagedFormInOrdinaryApplication> <UseManagedFormInOrdinaryApplication>true</UseManagedFormInOrdinaryApplication>

28
src/DataProcessors/ирКлсПолеТекстаПрограммы/Ext/ObjectModule.bsl
View File

@ -1969,6 +1969,7 @@
мПозицияТекстаДляПоискаОпределения = 0; мПозицияТекстаДляПоискаОпределения = 0;
мПредшествующийТекст = ""; мПредшествующийТекст = "";
мТекстДляПоискаОпределения = ""; мТекстДляПоискаОпределения = "";
// Здесь не учтена возможность наличия комментария слева от текущей позиции
Если мКонечнаяСтрока > 1 Тогда Если мКонечнаяСтрока > 1 Тогда
СлужебноеПолеТекста.УстановитьТекст(ОригинальныйТекст); СлужебноеПолеТекста.УстановитьТекст(ОригинальныйТекст);
СлужебноеПолеТекста.УстановитьГраницыВыделения(1, 1, мКонечнаяСтрока - 1, 333); СлужебноеПолеТекста.УстановитьГраницыВыделения(1, 1, мКонечнаяСтрока - 1, 333);
@ -1977,32 +1978,40 @@
СлужебноеПолеТекста.УстановитьГраницыВыделения(1, 1, мКонечнаяСтрока - 1, 333); СлужебноеПолеТекста.УстановитьГраницыВыделения(1, 1, мКонечнаяСтрока - 1, 333);
мТекстДляПоискаОпределения = СлужебноеПолеТекста.ВыделенныйТекст; мТекстДляПоискаОпределения = СлужебноеПолеТекста.ВыделенныйТекст;
КонецЕсли; КонецЕсли;
// Здесь не учтена возможность наличия комментария слева от текущей позиции
мПредшествующийТекст = мПредшествующийТекст + Лев(ТекущееНачалоСтроки, СтрДлина(ТекущееНачалоСтроки) - СтрДлина(НачалоКонтекста));
мТекстДляПоискаОпределения = мТекстДляПоискаОпределения + Лев(ТекущееНачалоСтроки, СтрДлина(ТекущееНачалоСтроки) - СтрДлина(НачалоКонтекста));
Если ЯзыкПрограммы = 0 Тогда Если ЯзыкПрограммы = 0 Тогда
// мТекстДляПоискаОпределения = мТекстДляПоискаОпределения + Лев(ТекущееНачалоСтроки, СтрДлина(ТекущееНачалоСтроки) - СтрДлина(НачалоКонтекста));
Иначе Иначе
ПозицииЗапросовПакета = Новый Массив; ПозицииЗапросовПакета = Новый Массив;
ЗапросыПакета = мПлатформа.РазбитьГрубоТекстПакетногоЗапросаНаТекстыЗапросов(ОригинальныйТекст, СтрДлина(мПредшествующийТекст), ПозицииЗапросовПакета); ЗапросыПакета = мПлатформа.РазбитьГрубоТекстПакетногоЗапросаНаТекстыЗапросов(ОригинальныйТекст, СтрДлина(мПредшествующийТекст), ПозицииЗапросовПакета);
#Если Сервер И Не Сервер Тогда #Если Сервер И Не Сервер Тогда
ЗапросыПакета = Новый Массив; ЗапросыПакета = Новый Массив;
#КонецЕсли #КонецЕсли
НомерПервойСтрокиЗапроса = 1;
ЧислоСтрокВЗапросе = 0;
Если ЗапросыПакета.Количество() > 0 Тогда Если ЗапросыПакета.Количество() > 0 Тогда
НомерПервойСтрокиЗапроса = 1;
Для ИндексЗапроса = 0 По ЗапросыПакета.ВГраница() Цикл Для ИндексЗапроса = 0 По ЗапросыПакета.ВГраница() Цикл
ЗапросПакета = ЗапросыПакета[ИндексЗапроса]; ЗапросПакета = ЗапросыПакета[ИндексЗапроса];
мТекстДляПоискаОпределения = ЗапросПакета; мТекстДляПоискаОпределения = ЗапросПакета;
ТекстБезКомментариевИОпасныхСтрок = ЗапросПакета; ТекстБезКомментариевИОпасныхСтрок = ЗапросПакета;
мПредшествующийТекст = ЗапросПакета;
мПозицияТекстаДляПоискаОпределения = ПозицииЗапросовПакета[ИндексЗапроса]; мПозицияТекстаДляПоискаОпределения = ПозицииЗапросовПакета[ИндексЗапроса];
НомерПервойСтрокиЗапроса = НомерПервойСтрокиЗапроса + СтрЧислоВхождений(ЗапросПакета, Символы.ПС); ЧислоСтрокВЗапросе = СтрЧислоВхождений(ЗапросПакета, Символы.ПС);
НомерПервойСтрокиЗапроса = НомерПервойСтрокиЗапроса + ЧислоСтрокВЗапросе;
Если НомерПервойСтрокиЗапроса >= мНачальнаяСтрока Тогда Если НомерПервойСтрокиЗапроса >= мНачальнаяСтрока Тогда
Прервать; Прервать;
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
КонецЕсли; КонецЕсли;
НомерТекущейСтрокиВЗапросе = мКонечнаяСтрока - (НомерПервойСтрокиЗапроса - ЧислоСтрокВЗапросе);
Если НомерТекущейСтрокиВЗапросе > 0 Тогда
СлужебноеПолеТекста.УстановитьТекст(ЗапросПакета);
СлужебноеПолеТекста.УстановитьГраницыВыделения(1, 1, НомерТекущейСтрокиВЗапросе - 1, 333);
мПредшествующийТекст = СлужебноеПолеТекста.ВыделенныйТекст;
СлужебноеПолеТекста.УстановитьТекст(ОригинальныйТекст);
Иначе
мПредшествующийТекст = Прав(мПредшествующийТекст, 500);
КонецЕсли;
КонецЕсли; КонецЕсли;
мПредшествующийТекст = мПредшествующийТекст + Лев(ТекущееНачалоСтроки, СтрДлина(ТекущееНачалоСтроки) - СтрДлина(НачалоКонтекста));
НачатьОбработкуКоманды(); НачатьОбработкуКоманды();
КонецПроцедуры КонецПроцедуры
@ -4097,7 +4106,10 @@
#Если Сервер И Не Сервер Тогда #Если Сервер И Не Сервер Тогда
ОбъектМД = Метаданные.Справочники.Валюты; ОбъектМД = Метаданные.Справочники.Валюты;
#КонецЕсли #КонецЕсли
Если ирКэш.НомерВерсииПлатформыЛкс() > 803004 Тогда Если Истина
И ирКэш.НомерВерсииПлатформыЛкс() > 803004
И ирОбщий.ЛиКорневойТипОбъектаСПредопределеннымЛкс(КорневойТип)
Тогда
Для Каждого ИмяЭлемента Из ОбъектМД.ПолучитьИменаПредопределенных() Цикл Для Каждого ИмяЭлемента Из ОбъектМД.ПолучитьИменаПредопределенных() Цикл
КоллекцияЭлементовМД.Добавить(ИмяЭлемента); КоллекцияЭлементовМД.Добавить(ИмяЭлемента);
КонецЦикла; КонецЦикла;

2
src/VERSION
View File

@ -1,2 +1,2 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<VERSION>439</VERSION> <VERSION>440</VERSION>