//--печать qr через компоненету 1С
// Возвращает двоичные данные для формирования QR кода.
//
// Параметры:
//  QRСтрока         - Строка - данные, которые необходимо разместить в QR-коде.
//
//  УровеньКоррекции - Число - уровень погрешности изображения при котором данный QR-код все еще возможно 100%
//                             распознать.
//                     Параметр должен иметь тип целого и принимать одно из 4 допустимых значений:
//                     0(7% погрешности), 1(15% погрешности), 2(25% погрешности), 3(35% погрешности).
//
//  Размер           - Число - определяет длину стороны выходного изображения в пикселях.
//                     Если минимально возможный размер изображения больше этого параметра - код сформирован не будет.
//
// Возвращаемое значение:
//  ДвоичныеДанные  - буфер, содержащий байты PNG-изображения QR-кода.
// 
// Пример:
//  
//  // Выводим на печать QR-код, содержащий в себе информацию зашифрованную по УФЭБС.
//
//  QRСтрока = УправлениеПечатью.ФорматнаяСтрокаУФЭБС(РеквизитыПлатежа);
//  ТекстОшибки = "";
//  ДанныеQRКода = УправлениеПечатью.ДанныеQRКода(QRСтрока, 0, 190, ТекстОшибки);
//  Если Не ПустаяСтрока(ТекстОшибки)
//      ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки);
//  КонецЕсли;
//
//  КартинкаQRКода = Новый Картинка(ДанныеQRКода);
//  ОбластьМакета.Рисунки.QRКод.Картинка = КартинкаQRКода;
//
Функция ДанныеQRКода(QRСтрока, УровеньКоррекции, Размер) Экспорт
    
    Отказ = Ложь;
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла("png");
    ГенераторQRКода = КомпонентаФормированияQRКода(Отказ);
    Если Отказ Тогда
        Возврат Неопределено;
    КонецЕсли;
    
    Попытка
        ДвоичныеДанныеКартинки = ГенераторQRКода.GenerateQRCode(QRСтрока, УровеньКоррекции, Размер);
    Исключение
        ЗаписьЖурналаРегистрации(НСтр("ru='Формирование QR-кода';uk='Формування QR-коду'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()),
            УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
    КонецПопытки;

    
    Возврат ДвоичныеДанныеКартинки;
КонецФункции

Функция КомпонентаФормированияQRКода(Отказ)
    
    ТекстОшибки = НСтр("ru='Не удалось подключить внешнюю компоненту для генерации QR-кода. Подробности в журнале регистрации.';uk='Не вдалося підключити зовнішню компоненту для генерації QR -кода. Подробиці в журналі реєстрації.'");
    
    QRCodeGenerator = ОбщегоНазначения.ПодключитьКомпонентуИзМакета("QRCodeExtension", "ОбщийМакет.КомпонентаПечатиQRКода");
        
    Если QRCodeGenerator = Неопределено Тогда 
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки,,,, Отказ);
    КонецЕсли;
    
    Возврат QRCodeGenerator;
    
КонецФункции

Процедура СформироватьQRАртикула(ТабДок,СтрокаШК,Параметры) 
    Макет = ПолучитьОбщийМакет("ЭтикеткаQR");
    Область = Макет.ПолучитьОбласть("ШКАртикула|Первый");
    Рисунок = Область.Область("КартинкаQRАртикула");
    Рисунок.Картинка = Новый Картинка(ПечатьШК.ДанныеQRКода(СтрокаШК,1,82));
    ТабДок.Вывести(Область);
КонецПроцедуры // СформироватьQR()