diff --git a/CHANGELOG.md b/CHANGELOG.md index 6b6da44..af152e4 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -4,6 +4,14 @@ --- +## 1.3.1.81 (2026-08-18) + +### РК_ПроверкаСерий — срок годности по умолчанию (#15 / #14) + +- На вкладке «Заполнение реквизитов» поле **Срок годности по умолчанию**. +- Для проблемы «Пустой срок годности» (срок обязателен по политике вида): сначала дата из наименования, если не разобралась — значение поля. +- Используется при «Найти проблемы», «Сформировать предложения» и «Заполнить по предложениям». + ## 1.3.1.80 (2026-08-17) ### РК_ПроверкаСерий — ключ дублей (#15) diff --git a/VERSION b/VERSION index e781e51..ebd1760 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -1.3.1.80 +1.3.1.81 diff --git a/src/ConfigDumpInfo.xml b/src/ConfigDumpInfo.xml index 50c74ed..0fd006b 100644 --- a/src/ConfigDumpInfo.xml +++ b/src/ConfigDumpInfo.xml @@ -202,6 +202,7 @@ + diff --git a/src/Configuration.xml b/src/Configuration.xml index abcb8cc..746cd19 100644 --- a/src/Configuration.xml +++ b/src/Configuration.xml @@ -62,7 +62,7 @@ Role.РК_ОсновнаяРоль - 1.3.1.80 + 1.3.1.81 Language.Русский diff --git a/src/DataProcessors/РК_ПроверкаСерий.xml b/src/DataProcessors/РК_ПроверкаСерий.xml index b30eaf3..d231825 100644 --- a/src/DataProcessors/РК_ПроверкаСерий.xml +++ b/src/DataProcessors/РК_ПроверкаСерий.xml @@ -67,6 +67,58 @@ Auto + + + ГоденДоПоУмолчанию + + + ru + Срок годности по умолчанию + + + + + xs:dateTime + + Date + + + false + + + ru + ДФ=dd.MM.yyyy + + + + + ru + ДФ=dd.MM.yyyy + + + + + ru + Для серий с пустым сроком (если срок обязателен по политике вида) и если дату не удалось извлечь из наименования + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + diff --git a/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form.xml b/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form.xml index 92d7995..530d428 100644 --- a/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form.xml +++ b/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form.xml @@ -70,6 +70,24 @@ ТолькоСОстаткомПриИзменении + + Объект.ГоденДоПоУмолчанию + + + ru + Подставляется в предложенный срок, если у серии пустой ГоденДо (срок обязателен по политике вида) и дату не удалось извлечь из наименования. Используется при «Найти проблемы», «Сформировать предложения» и «Заполнить по предложениям». + + + Button + + + ru + ДФ=dd.MM.yyyy + + + + + Listfalse diff --git a/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl b/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl index a94f650..2ef4898 100644 --- a/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl +++ b/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl @@ -440,11 +440,8 @@ КонецЕсли; Если ИспСрок И ПустойСрок Тогда - ПредложенныйГоденДо = ИзвлечьГоденДоИзНаименования(Выборка.Наименование); + ПредложенныйГоденДо = ПредложенныйГоденДоПоСтроке(Выборка.Наименование); Проблемы.Добавить("Пустой срок годности"); - Если Не СрокГодностиЗаполнен(ПредложенныйГоденДо) Тогда - ПредложенныйГоденДо = '00010101'; - КонецЕсли; КонецЕсли; Если Не ИспНомер И ПустоеИмя И СрокГодностиЗаполнен(Выборка.ГоденДо) Тогда @@ -580,7 +577,8 @@ КонецЕсли; Если Не СрокГодностиЗаполнен(Стр.ГоденДо) Или СтрНайти(Стр.Проблема, "Пустой срок годности") > 0 Тогда - ПредложенныйГоденДо = ИзвлечьГоденДоИзНаименования(ТекстНаименования); + ПодставлятьУмолчание = СтрНайти(Стр.Проблема, "Пустой срок годности") > 0; + ПредложенныйГоденДо = ПредложенныйГоденДоПоСтроке(ТекстНаименования, ПодставлятьУмолчание); Если СрокГодностиЗаполнен(ПредложенныйГоденДо) Тогда Стр.ПредложенныйГоденДо = ПредложенныйГоденДо; Результат.Сроков = Результат.Сроков + 1; @@ -623,10 +621,7 @@ КонецЕсли; Если ИспСрок И СтрНайти(Стр.Проблема, "Пустой срок годности") > 0 Тогда - Стр.ПредложенныйГоденДо = ИзвлечьГоденДоИзНаименования(ТекстНаименования); - Если Не СрокГодностиЗаполнен(Стр.ПредложенныйГоденДо) Тогда - Стр.ПредложенныйГоденДо = '00010101'; - КонецЕсли; + Стр.ПредложенныйГоденДо = ПредложенныйГоденДоПоСтроке(ТекстНаименования); КонецЕсли; Если Не ИспНомер И СтрНайти(Стр.Проблема, "Пустое наименование") > 0 @@ -772,6 +767,22 @@ КонецФункции +&НаСервере +Функция ПредложенныйГоденДоПоСтроке(ТекстНаименования, ПодставлятьУмолчание = Истина) + + ПредложенныйГоденДо = ИзвлечьГоденДоИзНаименования(ТекстНаименования); + Если СрокГодностиЗаполнен(ПредложенныйГоденДо) Тогда + Возврат ПредложенныйГоденДо; + КонецЕсли; + + Если ПодставлятьУмолчание И СрокГодностиЗаполнен(Объект.ГоденДоПоУмолчанию) Тогда + Возврат Объект.ГоденДоПоУмолчанию; + КонецЕсли; + + Возврат '00010101'; + +КонецФункции + &НаСервере Функция ИзвлечьНомерИзНаименования(ТекстНаименования)