Программное подключение сканера ШК к документу


                          https://groxin.ru/snip/RtilWDwP/

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	// ПодключаемоеОборудование
	Если УправлениеНебольшойФирмойПовтИсп.ИспользоватьПодключаемоеОборудование() // Проверка на включенную ФО "Использовать ВО"
	   И МенеджерОборудованияКлиент.ОбновитьРабочееМестоКлиента() Тогда // Проверка на определенность рабочего места ВО
		ОписаниеОшибки = "";
	
		ПоддерживаемыеТипыВО = Новый Массив();
		ПоддерживаемыеТипыВО.Добавить("СканерШтрихкода");
		
		Если НЕ МенеджерОборудованияКлиент.ПодключитьОборудованиеПоТипу(Новый УникальныйИдентификатор, ПоддерживаемыеТипыВО, ОписаниеОшибки) Тогда
			ТекстСообщения = НСтр(
				"ru = 'При подключении оборудования произошла ошибка:
				|""%ОписаниеОшибки%"".'"
			);
			ТекстСообщения = СтрЗаменить(ТекстСообщения, "%ОписаниеОшибки%", ОписаниеОшибки);
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
		КонецЕсли;
	
	КонецЕсли;
	// Конец ПодключаемоеОборудование

//Васильев В.
	
	
	Если Параметры.Свойство("Штрихкод") Тогда
		Штрихкод = Параметры.Штрихкод;
		ПолучитьДанныеПоТовару(Штрихкод);	
	КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
	// ПодключаемоеОборудование
	Если Источник = "ПодключаемоеОборудование" И ВводДоступен() Тогда
		Если ИмяСобытия = "ScanData" Тогда
			//Преобразуем предварительно к ожидаемому формату
			Данные = Новый Массив();
			МассивШтрихкодов = Новый Массив;
			
			Если Параметр[1] = Неопределено Тогда
				Данные.Добавить(Новый Структура("Штрихкод, Количество", Параметр[0], 1)); // Достаем штрихкод из основных данных
			Иначе
				Данные.Добавить(Новый Структура("Штрихкод, Количество", Параметр[1][1], 1)); // Достаем штрихкод из дополнительных данных
			КонецЕсли;
			
			Если ТипЗнч(Данные) = Тип("Массив") Тогда
				МассивШтрихкодов = Данные;
			Иначе
				МассивШтрихкодов = Новый Массив;
				МассивШтрихкодов.Добавить(Данные);
			КонецЕсли;
			
			Для каждого ТекШтрихкод Из МассивШтрихкодов Цикл
				ПолучитьДанныеПоТовару(ТекШтрихкод.Штрихкод); 
			КонецЦикла;
			
		КонецЕсли;
	КонецЕсли;
	// Конец ПодключаемоеОборудование

КонецПроцедуры

&НаКлиенте
Процедура ПриЗакрытии()
	
	// ПодключаемоеОборудование
	ПоддерживаемыеТипыВО = Новый Массив();
	ПоддерживаемыеТипыВО.Добавить("СканерШтрихкода");
	
	МенеджерОборудованияКлиент.ОтключитьОборудованиеПоТипу(УникальныйИдентификатор, ПоддерживаемыеТипыВО);
	// Конец ПодключаемоеОборудование

КонецПроцедуры

Описание

Описание отсутствует...

Groxin

Программное подключение сканера ШК к документу

Описание

Теги