Печать QR кода в КА 2.4 - Форум.Инфостарт

Печать этикеток и ценников (с QR-кодом) (ERP 2, КА 2, УТ 11)
Товарный чек вместо фискального (онлайн) чека с печатью QR-кода для 1С:Розница 2.3, 3.0, 1С:УТ/1С:КА
Печать чека ККМ с QR-кодом из Эквайринговой операции и Приходного кассового ордера для УТ 11.4, ERP 2.4-2.5, КА 2.4
Новый Счет-фактура с 01.07.2021, Корректировочный счет-фактура 534 и УПД (Статус 1 и 2) + УКД ФЗ 534 для УТ 11.4 (версии 6,7,8,10,11,12,13), ERP 2.4, КА 2.4, УПП 1.3, УСО 1.3 (постановление Правительства № 534)
Печатная форма Cчет с QR кодом и УПД с QR кодом для УТ 10.3, УПП 1.3. УТ 11.5 и 11.4, КА 2.5, ERP 2.5, Бухгалтерия 3, Розница 3, УНФ 3 + отключение печати QR

3. Gendelf 03.09.19 09:49 Сейчас в теме

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

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

Показать

2. tricolor 23 02.09.19 17:30 Сейчас в теме

(1) ищи здесь УправлениеПечатью.ДанныеQRКода(QRСтрока, УровеньКоррекции, Размер);

3. Gendelf 03.09.19 09:49 Сейчас в теме

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

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

Показать