РК_ПроверкаСерий 1.3.1.73: исправить запрос и вывод ошибок.

Co-authored-by: Cursor <cursoragent@cursor.com>

src/Configuration.xml

@@ -62,7 +62,7 @@
 				<xr:Item xsi:type="xr:MDObjectRef">Role.РК_ОсновнаяРоль</xr:Item>
 			</DefaultRoles>
 			<Vendor/>
-			<Version>1.3.1.72</Version>
+			<Version>1.3.1.73</Version>
 			<DefaultStyle/>
 			<DefaultLanguage>Language.Русский</DefaultLanguage>
 			<BriefInformation/>

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

@@ -25,6 +25,23 @@
 			<ContextMenu name="РежимТестКонтекстноеМеню" id="6"/>
 			<ExtendedTooltip name="РежимТестРасширеннаяПодсказка" id="7"/>
 		</CheckBoxField>
+		<InputField name="ТекстПоследнейОшибки" id="157">
+			<DataPath>ТекстПоследнейОшибки</DataPath>
+			<Title>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Последняя ошибка</v8:content>
+				</v8:item>
+			</Title>
+			<TitleLocation>Top</TitleLocation>
+			<ReadOnly>true</ReadOnly>
+			<MultiLine>true</MultiLine>
+			<Height>3</Height>
+			<AutoMaxHeight>false</AutoMaxHeight>
+			<VerticalStretch>false</VerticalStretch>
+			<ContextMenu name="ТекстПоследнейОшибкиКонтекстноеМеню" id="158"/>
+			<ExtendedTooltip name="ТекстПоследнейОшибкиРасширеннаяПодсказка" id="159"/>
+		</InputField>
 		<Pages name="ГруппаСтраницы" id="70">
 			<Title>
 				<v8:item>
@@ -432,6 +449,21 @@
 			</Type>
 			<MainAttribute>true</MainAttribute>
 		</Attribute>
+		<Attribute name="ТекстПоследнейОшибки" id="2">
+			<Title>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Последняя ошибка</v8:content>
+				</v8:item>
+			</Title>
+			<Type>
+				<v8:Type>xs:string</v8:Type>
+				<v8:StringQualifiers>
+					<v8:Length>0</v8:Length>
+					<v8:AllowedLength>Variable</v8:AllowedLength>
+				</v8:StringQualifiers>
+			</Type>
+		</Attribute>
 	</Attributes>
 	<Commands>
 		<Command name="НайтиПроблемы" id="1">

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

@@ -20,9 +20,10 @@
 	Попытка
 		Количество = НайтиПроблемыНаСервере();
 	Исключение
-		ПоказатьПредупреждение(, КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
+		СообщитьОшибкуОперации(ИнформацияОбОшибке(), "Найти проблемы");
 		Возврат;
 	КонецПопытки;
+	ОчиститьТекстПоследнейОшибки();
 	ПоказатьОповещениеПользователя("Проверка серий", ,
 		"Найдено проблем: " + Формат(Количество, "ЧН=0; ЧГ=0"));
 
@@ -69,9 +70,10 @@
 	Попытка
 		Результат = ИсправитьОтмеченныеНаСервере();
 	Исключение
-		ПоказатьПредупреждение(, КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
+		СообщитьОшибкуОперации(ИнформацияОбОшибке(), "Исправить отмеченные");
 		Возврат;
 	КонецПопытки;
+	ОчиститьТекстПоследнейОшибки();
 
 	Текст = СтрШаблон("Исправлено: %1; ошибок: %2%3",
 		Формат(Результат.Исправлено, "ЧН=0; ЧГ=0"),
@@ -97,9 +99,10 @@
 	Попытка
 		Количество = НайтиДублиНаСервере();
 	Исключение
-		ПоказатьПредупреждение(, КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
+		СообщитьОшибкуОперации(ИнформацияОбОшибке(), "Найти дубли");
 		Возврат;
 	КонецПопытки;
+	ОчиститьТекстПоследнейОшибки();
 	Элементы.ГруппаСтраницы.ТекущаяСтраница = Элементы.СтраницаДубли;
 	ПоказатьОповещениеПользователя("Дубли серий", ,
 		"Найдено групп: " + Формат(Количество, "ЧН=0; ЧГ=0"));
@@ -150,9 +153,10 @@
 	Попытка
 		Результат = ОбъединитьОтмеченныеГруппыНаСервере();
 	Исключение
-		ПоказатьПредупреждение(, КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
+		СообщитьОшибкуОперации(ИнформацияОбОшибке(), "Объединить группы");
 		Возврат;
 	КонецПопытки;
+	ОчиститьТекстПоследнейОшибки();
 
 	Текст = СтрШаблон("Объединено ссылок: %1; групп: %2; ошибок: %3%4",
 		Формат(Результат.ОбъединеноСсылок, "ЧН=0; ЧГ=0"),
@@ -177,6 +181,25 @@
 
 #Область СлужебныеПроцедурыИФункции
 
+&НаКлиенте
+Процедура СообщитьОшибкуОперации(ИнформацияОбОшибке, Заголовок = "")
+
+	ТекстОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке);
+	Если ЗначениеЗаполнено(Заголовок) Тогда
+		ТекстОшибки = Заголовок + ":" + Символы.ПС + ТекстОшибки;
+	КонецЕсли;
+	ТекстПоследнейОшибки = ТекстОшибки;
+	ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОчиститьТекстПоследнейОшибки()
+
+	ТекстПоследнейОшибки = "";
+
+КонецПроцедуры
+
 &НаКлиенте
 Функция ЕстьОтмеченныеСтроки()
 
@@ -231,7 +254,6 @@
 	Запрос.Текст =
 	"ВЫБРАТЬ
 	|	Сер.Ссылка КАК Серия,
-	|	Сер.Владелец КАК Номенклатура,
 	|	Сер.ВидНоменклатуры КАК ВидНоменклатуры,
 	|	Сер.Наименование КАК Наименование,
 	|	Сер.Номер КАК Номер,
@@ -301,7 +323,7 @@
 	НовСтр = Объект.ПроблемныеСерии.Добавить();
 	НовСтр.Отметка = Истина;
 	НовСтр.Серия = Выборка.Серия;
-	НовСтр.Номенклатура = Выборка.Номенклатура;
+	НовСтр.Номенклатура = Справочники.Номенклатура.ПустаяСсылка();
 	НовСтр.ВидНоменклатуры = Выборка.ВидНоменклатуры;
 	НовСтр.Наименование = Выборка.Наименование;
 	НовСтр.Номер = Выборка.Номер;