1c/crm3_26.rhana
4
0
Fork 0
Code Issues 7 Pull Requests Actions Packages Projects Releases 1 Wiki Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files
src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl
+11 -11
View File
@@ -440,16 +440,16 @@
КонецФункции
&НаСервере
Функция ИзвлечьНомерИзНаименования(Текст)
Функция ИзвлечьНомерИзНаименования(ТекстНаименования)
Текст = СокрЛП(Текст);
Если Не ЗначениеЗаполнено(Текст) Тогда
СтрокаТекста = СокрЛП(ТекстНаименования);
Если Не ЗначениеЗаполнено(СтрокаТекста) Тогда
Возврат "";
КонецЕсли;
ПозДо = Найти(НРег(Текст), "до ");
ПозДо = Найти(НРег(СтрокаТекста), "до ");
Если ПозДо > 0 Тогда
ЛеваяЧасть = СокрЛП(Лев(Текст, ПозДо - 1));
ЛеваяЧасть = СокрЛП(Лев(СтрокаТекста, ПозДо - 1));
Если Не ЗначениеЗаполнено(ЛеваяЧасть) Тогда
Возврат "";
КонецЕсли;
@@ -460,24 +460,24 @@
Возврат ЛеваяЧасть;
КонецЕсли;
Возврат Текст;
Возврат СтрокаТекста;
КонецФункции
&НаСервере
Функция ИзвлечьГоденДоИзНаименования(Текст)
Функция ИзвлечьГоденДоИзНаименования(ТекстНаименования)
Текст = СокрЛП(Текст);
Если Не ЗначениеЗаполнено(Текст) Тогда
СтрокаТекста = СокрЛП(ТекстНаименования);
Если Не ЗначениеЗаполнено(СтрокаТекста) Тогда
Возврат '00010101';
КонецЕсли;
ПозДо = Найти(НРег(Текст), "до ");
ПозДо = Найти(НРег(СтрокаТекста), "до ");
Если ПозДо = 0 Тогда
Возврат '00010101';
КонецЕсли;
Фрагмент = СокрЛП(Сред(Текст, ПозДо + 3));
Фрагмент = СокрЛП(Сред(СтрокаТекста, ПозДо + 3));
Возврат РазобратьДатуИзФрагмента(Фрагмент);
КонецФункции