РК_ПроверкаСерий 1.3.1.84: номер из срока годности по умолчанию при пустом сроке.

src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl

@@ -507,6 +507,7 @@
 		КонецЕсли;
 
 		ПересчитатьПредложенияСтрокиПроблемы(Стр, КэшНастроек);
+		Настройки = НастройкиСерийВида(Стр.ВидНоменклатуры, КэшНастроек);
 		ИзмененийВСтроке = 0;
 
 		Если СтрНайти(Стр.Проблема, "Пустой срок годности") > 0
@@ -516,7 +517,7 @@
 			ИзмененийВСтроке = ИзмененийВСтроке + 1;
 		КонецЕсли;
 
-		Если СтрНайти(Стр.Проблема, "Пустой номер") > 0
+		Если Настройки.ИспользоватьНомерСерии
 			И Не ЗначениеЗаполнено(СокрЛП(Стр.Номер))
 			И Не ЗначениеЗаполнено(СокрЛП(Стр.ПредложенныйНомер)) Тогда
 			ПредложенияНомера = ПредложенияПоНомеруИзСрока(
@@ -530,7 +531,7 @@
 			КонецЕсли;
 		КонецЕсли;
 
-		Если СтрНайти(Стр.Проблема, "Пустой номер") > 0
+		Если Настройки.ИспользоватьНомерСерии
 			И ЗначениеЗаполнено(СокрЛП(Стр.ПредложенныйНомер))
 			И Не ЗначениеЗаполнено(СокрЛП(Стр.Номер)) Тогда
 			Стр.Номер = СокрЛП(Стр.ПредложенныйНомер);
@@ -644,7 +645,7 @@
 		Стр.ПредложенныйГоденДо = ПредложенныйГоденДоПоСтроке(ТекстНаименования);
 	КонецЕсли;
 
-	Если ИспНомер И СтрНайти(Стр.Проблема, "Пустой номер") > 0 Тогда
+	Если ИспНомер И Не ЗначениеЗаполнено(СокрЛП(Стр.Номер)) Тогда
 		ПредложенияНомера = ПредложенияПоНомеруИзСрока(
 			ТекстНаименования, Стр.ГоденДо, Стр.ПредложенныйГоденДо);
 		Стр.ПредложенныйНомер = ПредложенияНомера.Номер;
@@ -678,7 +679,7 @@
 		ГоденДоЗаписи = ГоденДоДляИсправленияСтроки(Стр);
 		НаименованиеЗаписи = НаименованиеДляИсправленияСтроки(Стр);
 
-		Если СтрНайти(Стр.Проблема, "Пустой номер") > 0
+		Если Не ЗначениеЗаполнено(СокрЛП(Стр.Номер))
 			И ЗначениеЗаполнено(НомерЗаписи) Тогда
 			ЕстьИзменения = Истина;
 		КонецЕсли;
@@ -689,8 +690,7 @@
 		КонецЕсли;
 
 		Если (СтрНайти(Стр.Проблема, "Пустое наименование") > 0
-			Или (СтрНайти(Стр.Проблема, "Пустой номер") > 0
-				И Не ЗначениеЗаполнено(СокрЛП(Стр.Наименование))))
+			И Не ЗначениеЗаполнено(СокрЛП(Стр.Наименование)))
 			И ЗначениеЗаполнено(НаименованиеЗаписи) Тогда
 			ЕстьИзменения = Истина;
 		КонецЕсли;
@@ -706,7 +706,7 @@
 				Результат.Исправлено = Результат.Исправлено + 1;
 			Иначе
 				ОбСерии = Стр.Серия.ПолучитьОбъект();
-				Если СтрНайти(Стр.Проблема, "Пустой номер") > 0
+				Если Не ЗначениеЗаполнено(СокрЛП(Стр.Номер))
 					И ЗначениеЗаполнено(НомерЗаписи) Тогда
 					ОбСерии.Номер = НомерЗаписи;
 				КонецЕсли;
@@ -715,8 +715,7 @@
 					ОбСерии.ГоденДо = ГоденДоЗаписи;
 				КонецЕсли;
 				Если (СтрНайти(Стр.Проблема, "Пустое наименование") > 0
-					Или (СтрНайти(Стр.Проблема, "Пустой номер") > 0
-						И Не ЗначениеЗаполнено(СокрЛП(Стр.Наименование))))
+					И Не ЗначениеЗаполнено(СокрЛП(Стр.Наименование)))
 					И ЗначениеЗаполнено(НаименованиеЗаписи) Тогда
 					ОбСерии.Наименование = НаименованиеЗаписи;
 				КонецЕсли;