мобильное приложение (Сканер)

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

&НаКлиенте
Процедура ОбработкаСканироватьКомплектовщика(Штрихкод, Результат, Сообщение, ДополнительныеПараметры) Экспорт
    #Если МобильноеПриложениеКлиент Тогда
        СредстваМультимедиа.ЗакрытьСканированиеШтрихКодов();
    #КонецЕсли
    Элементы.Инфо.Заголовок = "";
    Если Результат = Истина Тогда
        ВидПечатнойФормы = ОбщийСервер.ОКПолучитьВидПечатнойФормыJSON(Штрихкод);
        Если ВидПечатнойФормы <> "Сотрудник" Тогда
            ПредставлениеQRКомплектовщика = "";
            #Если МобильноеПриложениеКлиент Тогда
                СредстваМультимедиа.ВоспроизвестиЗвуковоеОповещение(,Истина);
            #КонецЕсли
            ПоказатьПредупреждение(,"ОШИБКА ШТРИХКОДА: Это не QR-код комплектовщика");
            Возврат;
        КонецЕсли;
        ПредставлениеQRКомплектовщика = Штрихкод;

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