РК_ПроверкаСерий 1.3.1.86: приоритет номера из срока годности (#17).

This commit is contained in:
mihailkudravcev
2026-08-19 11:12:41 +03:00
parent 44f30b845a
commit 6c4df3edd0
4 changed files with 14 additions and 8 deletions
+6
View File
@@ -4,6 +4,12 @@
--- ---
## 1.3.1.86 (2026-08-19)
### РК_ПроверкаСерий — приоритет автономера из срока (#17)
- Если `Номер` пустой и есть срок годности (включая **Срок годности по умолчанию**), то предложенный номер формируется как `a-YYMMDD` из даты срока в приоритете над разбором `Наименование`.
## 1.3.1.85 (2026-08-19) ## 1.3.1.85 (2026-08-19)
### РК_ПроверкаСерий — номер/наименование при «Пустой срок годности» (#17 / #14) ### РК_ПроверкаСерий — номер/наименование при «Пустой срок годности» (#17 / #14)
+1 -1
View File
@@ -1 +1 @@
1.3.1.85 1.3.1.86
+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.85</Version> <Version>1.3.1.86</Version>
<DefaultStyle/> <DefaultStyle/>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
<BriefInformation/> <BriefInformation/>
@@ -819,12 +819,6 @@
Результат = Новый Структура("Номер, Наименование", "", ""); Результат = Новый Структура("Номер, Наименование", "", "");
Номер = ИзвлечьНомерИзНаименования(ТекстНаименования);
Если ЗначениеЗаполнено(Номер) Тогда
Результат.Номер = Номер;
Возврат Результат;
КонецЕсли;
ГоденДоДляНомера = ГоденДо; ГоденДоДляНомера = ГоденДо;
Если Не СрокГодностиЗаполнен(ГоденДоДляНомера) Тогда Если Не СрокГодностиЗаполнен(ГоденДоДляНомера) Тогда
ГоденДоДляНомера = ПредложенныйГоденДо; ГоденДоДляНомера = ПредложенныйГоденДо;
@@ -833,6 +827,12 @@
Если СрокГодностиЗаполнен(ГоденДоДляНомера) Тогда Если СрокГодностиЗаполнен(ГоденДоДляНомера) Тогда
Результат.Номер = АвтоНомерСерииИзСрока(ГоденДоДляНомера); Результат.Номер = АвтоНомерСерииИзСрока(ГоденДоДляНомера);
Результат.Наименование = НаименованиеСерииПоНомеруИСроку(Результат.Номер, ГоденДоДляНомера); Результат.Наименование = НаименованиеСерииПоНомеруИСроку(Результат.Номер, ГоденДоДляНомера);
Возврат Результат;
КонецЕсли;
Номер = ИзвлечьНомерИзНаименования(ТекстНаименования);
Если ЗначениеЗаполнено(Номер) Тогда
Результат.Номер = Номер;
КонецЕсли; КонецЕсли;
Возврат Результат; Возврат Результат;