Убираем уведомление о не подключенном сканере ШК

Клиент подключил два сканера — один для продавцов. С другим беспроводным приезжает сам на ревизию. Но ему не хотелось постоянно прописывать беспроводной сканер в оборудовании, поэтому он его не отключает.

Но тогда 1С постоянно ругается, что сканер не подключен.

Пришлось писать небольшую заплатку.

Пришлось убирать уведомление в двух местах.

Обработка.РМКУправляемыйРежим.Форма:

&НаКлиенте
&Вместо("ПодключитьОборудованиеЗавершение")
Процедура дор_ПодключитьОборудованиеЗавершение(РезультатВыполнения, Параметры)
	//Осипов 2023-11-17 чтобы на сканер ШК не ругался
	Если дор_Клиент.ЭтоОшибкаСканераШК(РезультатВыполнения.ОписаниеОшибки) Тогда
		Возврат;
	КонецЕсли;
	ПродолжитьВызов(РезультатВыполнения, Параметры);
КонецПроцедуры

ОбщийМодуль.МенеджерОборудованияКлиент:

&Вместо("ПодключитьОборудованиеЗавершениеПоУмолчанию")
Процедура дор_ПодключитьОборудованиеЗавершениеПоУмолчанию(РезультатВыполнения, Параметры)
	//Осипов 2023-11-17 чтобы на сканер ШК не ругался
	Если дор_Клиент.ЭтоОшибкаСканераШК(РезультатВыполнения.ОписаниеОшибки) Тогда
		Возврат;
	КонецЕсли;
	ПродолжитьВызов(РезультатВыполнения, Параметры);
КонецПроцедуры

Проверка, что это сообщение от сканера работает по тексту ошибки:

Функция ЭтоОшибкаСканераШК(ОписаниеОшибки) Экспорт
	ОписаниеОшибкиВР = ВРЕГ(ОписаниеОшибки);
	Возврат Найти(ОписаниеОшибкиВР, "СКАНЕР") <> 0 И Найти(ОписаниеОшибкиВР, "ШТРИХКОД") <> 0;
КонецФункции

Среда: Розница 2.3.4.31 Объем: 0.8 час