Не прописывается сканер в Альфа-авто 5

Я настолько привык к современным конфигурациям, что не смог подключить сканер в Альфа-Авто 5.

Захожу в Оборудование:

Нажимаю добавить, открывается мастер:

Но для сканера моделей нет:

Ввод оборудования происходит в форме ВводНового справочника Оборудование.

Все доступные виды оборудования прописаны в глТорговоеОборудование.ТаблицаЭкземпляровОборудования:

Таблица устройств заполняется внешней компонентой Раруса в модуле обработки ТорговоеОборудование, как туда подлезть не знаю:

Поэтому просто подключаю сканер в процедуре при начале работы системы:

// Обработка предопределенного события
// Инициализирует рабочие переменные сеанса
// Авторизует пользователя, проверяет факт первого запуска, обновляет ИБ
// Выполняет дополнительные действия в соответствии с пользовательскими настройками
Процедура ПриНачалеРаботыСистемы()
	
	//Осипов - подключение сканера   https://forum.infostart.ru/forum9/topic81813/    
	//НАЧАЛО
	Компонента = "C:\Program Files (x86)\1C\1C Barcode scanner\8_0_15_1\scanopos.dll";

	ОККомпонента = истина;
	Попытка 
		ЗагрузитьВнешнююКомпоненту(Компонента);
	Исключение
		ОККомпонента = ложь;
		ОписаниеРезультата = "не удалось загрузить внешнюю компоненту """ + Компонента + """"+" сканера штрих-кодов";
	КонецПопытки;

	ОбъектСканера = Неопределено;
	Если ОККомпонента Тогда
		Попытка
			ОбъектСканера = Новый("AddIn.Scanner");
		Исключение
			ОписаниеРезультата = "не удалось создать объект внешней компоненты с программым идентификатром AddIn.Scanner"+" сканера штрих-кодов";
		КонецПопытки;
	КонецЕсли;
	
	Если ОбъектСканера <> Неопределено Тогда
		Если ОбъектСканера.Подсоединить("Сканер") = 0 Тогда //Название источника событий
			//ОбъектСканера.ТестУстройства();
			
			ОбъектСканера.БитДанных = 8;
			ОбъектСканера.Порт = 0;
			ОбъектСканера.Скорость = 9600;
			ОбъектСканера.СтопБит = 1;
			ОбъектСканера.ПрефиксСтрока = "";
			//ОбъектСканера.СуффиксСтрока = "CR";
			ОбъектСканера.Таймаут = 75; //300 для отладки руками
			ОбъектСканера.СтопСимвол = 13;
			
			Попытка
	            Результат = (ОбъектСканера.Занять(1) = 0);
        	Исключение
            	Результат = Ложь;
        	КонецПопытки;
			Если Результат Тогда
				ОбъектСканера.УстройствоВключено = 1;
				ОбъектСканера.ПосылкаДанных = 1;
				ОбъектСканера.ОчиститьВход();
				ОбъектСканера.ОчиститьВыход();
			КонецЕсли;    

		КонецЕсли;
		
	КонецЕсли;

	//КОНЕЦ	
	
...
КонецПроцедуры

Пример брал на инфостарте.

Соответственно, надо скачать и установить копоненту scanopos, у меня версии 8_0_15_1. Качал здесь.

Благодаря вызову Подсоединить источником события сканера является «Сканер», именно как ожидает Альфа-авто.

Кстати, у компоненты можно вызвать метод Тест(), появится окошко тестирования компоненты.

Конечно, можно подключать сканер не всем пользователям, а только тем, кому он нужен. В примере порт равен нулю. А если используется сканер в COM-порт, нужно указывать его порт. Ну, можно попробовать использовать настройки рабочего места (они есть в Альфа-Авто) или просто по именам пользователей в коде прописать, у кого какой порт.

При работе с древними конфигурациями ощущаю себя археологом, ретро-программистом.

Среда: Альфа-Авто: Автосалон+Автосервис+Автозапчасти ПРОФ, редакция 5.1 (5.1.10.09) Объем: 1.5 час