Как отсканировать штрихкод на мобильном устройстве

 
&НаКлиенте
Процедура ЗапуститьСканирование()
	
	#Если МобильноеПриложениеКлиент  Тогда
		 Если НЕ СредстваМультимедиа.ПоддерживаетсяСканированиеШтрихКодов() Тогда
    		ВызватьИсключение НСтр("ru='Сканирование штрихкодов не поддерживается';en='Barcode scanning is not supported'");
			Возврат;
  		КонецЕсли;
		ОбработчикСканирования = Новый ОписаниеОповещения("ОбработкаСканирования", ЭтаФорма);
  		ОбработчикЗакрытия = Новый ОписаниеОповещения("ОбработкаЗакрытияИнтерфейса", ЭтаФорма);
  		СредстваМультимедиа.ПоказатьСканированиеШтрихКодов(НСтр("ru='Наведите камеру на штрихкод';en='Aim the camera at an barcode'"), ОбработчикСканирования, ОбработчикЗакрытия, ТипШтрихКода.Линейный);
	#конецесли

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


&НаКлиенте
Процедура ОбработкаСканирования(Штрихкод, Результат, Сообщение, ДополнительныеПараметры) Экспорт
	
	пТовар    = "";
	
	Если Результат Тогда
		
		Структура = ОбщегоНазначенияСервер.ПоискПоШтрихкодуОбъекта(ШтрихКод);			     			
		Если Структура = Неопределено Тогда
			пТовар = Неопределено;
			//#Если МобильноеПриложениеКлиент  Тогда
			//	СредстваМультимедиа.ЗакрытьСканированиеШтрихКодов();
			//#конецесли
			Сообщение = "Не найден объект по штрихкоду " + Штрихкод;
		Иначе
			пТовар    = Структура.Наименование;
			
			Сообщение = сокрЛП(пТовар) + Символы.ПС + Штрихкод;
						
			ДобавитьТоварВТаблицу(пТовар);
			
		КонецЕсли;
		
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура ОбработкаЗакрытияИнтерфейса(ДополнительныеПараметры) Экспорт
	
	//Если ЗначениеЗаполнено(пТовар) Тогда
	//	можем встроить код открытия формы ввода количества
	//КонецЕсли;	

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