РК_ПроверкаСерий 1.3.1.74: не перезаписывать параметр наименования.

Co-authored-by: Cursor <cursoragent@cursor.com>
This commit is contained in:
mihailkudravcev
2026-08-17 12:00:09 +03:00
parent 498d5e0e6f
commit 666688e4d2
4 changed files with 19 additions and 13 deletions
+6
View File
@@ -4,6 +4,12 @@
--- ---
## 1.3.1.74 (2026-08-17)
### РК_ПроверкаСерий — парсинг наименования из выборки
- Исправлена ошибка «Поле объекта недоступно для записи (Наименование)» при «Найти проблемы»: параметры функций парсинга не перезаписываются.
## 1.3.1.73 (2026-08-17) ## 1.3.1.73 (2026-08-17)
### РК_ПроверкаСерий — исправление поиска проблем ### РК_ПроверкаСерий — исправление поиска проблем
+1 -1
View File
@@ -1 +1 @@
1.3.1.73 1.3.1.74
+1 -1
View File
@@ -62,7 +62,7 @@
<xr:Item xsi:type="xr:MDObjectRef">Role.РК_ОсновнаяРоль</xr:Item> <xr:Item xsi:type="xr:MDObjectRef">Role.РК_ОсновнаяРоль</xr:Item>
</DefaultRoles> </DefaultRoles>
<Vendor/> <Vendor/>
<Version>1.3.1.73</Version> <Version>1.3.1.74</Version>
<DefaultStyle/> <DefaultStyle/>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
<BriefInformation/> <BriefInformation/>
@@ -440,16 +440,16 @@
КонецФункции КонецФункции
&НаСервере &НаСервере
Функция ИзвлечьНомерИзНаименования(Текст) Функция ИзвлечьНомерИзНаименования(ТекстНаименования)
Текст = СокрЛП(Текст); СтрокаТекста = СокрЛП(ТекстНаименования);
Если Не ЗначениеЗаполнено(Текст) Тогда Если Не ЗначениеЗаполнено(СтрокаТекста) Тогда
Возврат ""; Возврат "";
КонецЕсли; КонецЕсли;
ПозДо = Найти(НРег(Текст), "до "); ПозДо = Найти(НРег(СтрокаТекста), "до ");
Если ПозДо > 0 Тогда Если ПозДо > 0 Тогда
ЛеваяЧасть = СокрЛП(Лев(Текст, ПозДо - 1)); ЛеваяЧасть = СокрЛП(Лев(СтрокаТекста, ПозДо - 1));
Если Не ЗначениеЗаполнено(ЛеваяЧасть) Тогда Если Не ЗначениеЗаполнено(ЛеваяЧасть) Тогда
Возврат ""; Возврат "";
КонецЕсли; КонецЕсли;
@@ -460,24 +460,24 @@
Возврат ЛеваяЧасть; Возврат ЛеваяЧасть;
КонецЕсли; КонецЕсли;
Возврат Текст; Возврат СтрокаТекста;
КонецФункции КонецФункции
&НаСервере &НаСервере
Функция ИзвлечьГоденДоИзНаименования(Текст) Функция ИзвлечьГоденДоИзНаименования(ТекстНаименования)
Текст = СокрЛП(Текст); СтрокаТекста = СокрЛП(ТекстНаименования);
Если Не ЗначениеЗаполнено(Текст) Тогда Если Не ЗначениеЗаполнено(СтрокаТекста) Тогда
Возврат '00010101'; Возврат '00010101';
КонецЕсли; КонецЕсли;
ПозДо = Найти(НРег(Текст), "до "); ПозДо = Найти(НРег(СтрокаТекста), "до ");
Если ПозДо = 0 Тогда Если ПозДо = 0 Тогда
Возврат '00010101'; Возврат '00010101';
КонецЕсли; КонецЕсли;
Фрагмент = СокрЛП(Сред(Текст, ПозДо + 3)); Фрагмент = СокрЛП(Сред(СтрокаТекста, ПозДо + 3));
Возврат РазобратьДатуИзФрагмента(Фрагмент); Возврат РазобратьДатуИзФрагмента(Фрагмент);
КонецФункции КонецФункции