&НаКлиенте
Процедура СканироватьQRCode(Команда)
#Если МобильноеПриложениеКлиент Тогда
Если ОбщегоНазначенияКлиент.ПолучитьТипОС() = ПредопределенноеЗначение("Перечисление.ТипОС.Android") Тогда
Попытка
ВнешнееПриложение = Новый ЗапускПриложенияМобильногоУстройства;
ВнешнееПриложение.Действие = "com.google.zxing.client.android.SCAN";
ВнешнееПриложение.Приложение = "
com.google.zxing.client.android";
Результат = ВнешнееПриложение.Запустить(Истина);
Если Результат = -1 И НЕ ВнешнееПриложение.ДополнительныеДанные.Получить("SCAN_RESULT") = Неопределено Тогда
SCAN_RESULT = ВнешнееПриложение.ДополнительныеДанные.Получить("SCAN_RESULT");
УстановитьКонстантыНаСервере(SCAN_RESULT.Значение);
КонецЕсли;
Исключение
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки());
КонецПопытки;
Иначе
Если СредстваМультимедиа.ПоддерживаетсяСканированиеШтрихКодов() Тогда
ОписаниеОповещения = Новый ОписаниеОповещения("ОбработкаОтсканированногоQRCode", ЭтаФорма);
СредстваМультимедиа.ПоказатьСканированиеШтрихКодов("Просканируйте QRCode", ОписаниеОповещения, , ТипШтрихКода.Двухмерный);
Иначе
ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Не поддерживается сканирование штрихкодов!");
КонецЕсли;
КонецЕсли;
#КонецЕсли
КонецПроцедуры