Каталог решений - Простая генерация QR и штрихкодов без библиотек, внешних компонент, шрифтов для печатных форм

Работает просто: подключаете, передаете массив того, что нужно сгенерировать, получаете массив двоичных данных.

Вот подробная инструкция:

1. Скачиваем обработку, вставляем в конфигурацию, называем СкачиваниеШтрихкодов" или "СкачиваниеQRКодов", а можно и обе.

2. В реквизитах формы своей обработки, где нужно получать штрихкоды, создаем таблицу значений "ДанныеШтрихкодов". Колонки: Инд — число, Штрихкод — строка, Данные — строка. Для QR-кодов таблица — "ДанныеQRКодов". Колонки: Инд — число, QR — строка, Данные — строка.

3. Добавляем в модуль формы своей обработки для скачивания штрихкодов:

&НаКлиенте
Перем ФормаЗагрузкиШК;

&НаКлиенте
Процедура ФормированиеШтрихкодовКлиент(МассивШтрихкодов) 
    ФормаЗагрузкиШК = ПолучитьФорму("Обработка.СкачиваниеШтрихкодов.Форма");
    ФормаЗагрузкиШК.ЗагрузитьДанные(МассивШтрихкодов);
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьШтрихкодыВТаблицу(СтрокаJSON)
    Жека = Новый ЧтениеJSON;
    Жека.УстановитьСтроку(СтрокаJSON);
    МасСтрок = ПрочитатьJSON(Жека);
    
    ДанныеШтрихкодов.Очистить(); 
    
    Для К = 0 По МасСтрок.ВГраница() Цикл
        Нов = ДанныеШтрихкодов.Добавить();
        Для Каждого КлЗн Из МасСтрок[К] Цикл
            Нов[КлЗн.Ключ] = КлЗн.Значение;
        КонецЦикла;    
    КонецЦикла;
    
    Жека = Неопределено;
КонецПроцедуры    

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

&НаСервере
Функция ПолучитьШтрихкодПоИндексу(Инд)
    Оть = Новый Структура;
    Оть.Вставить("Инд", Инд);
    Строки = ДанныеШтрихкодов.НайтиСтроки(Оть); 
    Если Строки.Количество() > 0 Тогда
        ДанныеШтрихкода = Строки[0].Данные;
        Возврат Base64Значение(ДанныеШтрихкода);
    КонецЕсли;
    
    Возврат Неопределено;
КонецФункции    

&НаСервере
Функция ПолучитьШтрихкодПоЗначению(ШК)
    Оть = Новый Структура;
    Оть.Вставить("Штрихкод", ШК);
    Строки = ДанныеШтрихкодов.НайтиСтроки(Оть); 
    Если Строки.Количество() > 0 Тогда
        ДанныеШтрихкода = Строки[0].Данные;
        Возврат Base64Значение(ДанныеШтрихкода);
    КонецЕсли;
    
    Возврат Неопределено;
КонецФункции

Не забываем к форме подключить обработчик оповещения!

4. Добавляем в модуль формы своей обработки для скачивания QR кодов:

&НаКлиенте
Перем ФормаЗагрузкиQR;

&НаКлиенте
Процедура ФормированиеQRКодовКлиент(МассивQRКодов) 
    ФормаЗагрузкиQR = ПолучитьФорму("Обработка.СкачиваниеQRКодов.Форма");
    ФормаЗагрузкиQR.ЗагрузитьДанные(МассивQRКодов);
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьQRКодыВТаблицу(СтрокаJSON)
    Жека = Новый ЧтениеJSON;
    Жека.УстановитьСтроку(СтрокаJSON);
    МасСтрок = ПрочитатьJSON(Жека);
    
    ДанныеQRКодов.Очистить(); 
    
    Для К = 0 По МасСтрок.ВГраница() Цикл
        Нов = ДанныеQRКодов.Добавить();
        Для Каждого КлЗн Из МасСтрок[К] Цикл
            Нов[КлЗн.Ключ] = КлЗн.Значение;
        КонецЦикла;    
    КонецЦикла;
    
    Жека = Неопределено;
КонецПроцедуры    

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
    Если ИмяСобытия = "QRКодыЗагружены" Тогда 
        СтрокаJSON = ФормаЗагрузкиQR.ПолучитьJSON();
        ЗагрузитьQRКодыВТаблицу(СтрокаJSON);
        Оповестить("ЗакрытьФормуQRКодов");
        //ФормированиеПрайсЛиста(); // здесь можно вызывать построение табличного документа
    КонецЕсли;    
КонецПроцедуры

&НаСервере
Функция ПолучитьQRКодПоИндексу(Инд)
    Оть = Новый Структура;
    Оть.Вставить("Инд", Инд);
    Строки = ДанныеQRКодов.НайтиСтроки(Оть); 
    Если Строки.Количество() > 0 Тогда
        ДанныеQRКода = Строки[0].Данные;
        Возврат Base64Значение(ДанныеQRКода);
    КонецЕсли;
    
    Возврат Неопределено;
КонецФункции    

&НаСервере
Функция ПолучитьQRКодПоЗначению(QR)
    Оть = Новый Структура;
    Оть.Вставить("QR", QR);
    Строки = ДанныеQRКодов.НайтиСтроки(Оть); 
    Если Строки.Количество() > 0 Тогда
        ДанныеQRКода = Строки[0].Данные;
        Возврат Base64Значение(ДанныеQRКода);
    КонецЕсли;
    
    Возврат Неопределено;
КонецФункции

Тоже самое! не забываем подключить обработчик оповещения. Если он уже подключен, то объединяем.

5. Готовим массив штрикодов или массив QR кодов, передаем на вход соответствующей процедуры:

ФормированиеШтрихкодовКлиент(НашМассив) или ФормированиеQRКодовКлиент(НашМассив)

6. Если нужно продолжить что-то делать после загрузки штрихкодов и QR-кодов, например, сформировать табличный документ, создаем процедуру для этого и подставляем ее вызов соответственно комментарию в ОбработкаОповещения.

7. При формировании своего табличного документа или чего-то там еще, когда надо получить картинку, используем функцию: ПолучитьШтрихкодПоЗначению(Штрихкод) или ПолучитьШтрихкодПоИндексу(Инд). Эти функции возвратят двоичные данные картинки со штрихкодом или Неопределено. Для QR кода — ПолучитьQRКодПоЗначению(QRКод) или ПолучитьQRКодПоИндексу(Инд).

8. Создаем картинку на основании двоичных данных и записываем, куда хотим.

// Для штрихкодов            
ДанныеШтрихкода = ПолучитьШтрихкодПоЗначению(Штрихкод);
Если НЕ ДанныеШтрихкода = Неопределено Тогда
    КартинкаШтрихкода = Новый Картинка(ДанныеШтрихкода);
КонецЕсли;   

// Для QR кодов
ДанныеQRКода = ПолучитьQRКодПоЗначению(QRКод);
Если НЕ ДанныеQRКода = Неопределено Тогда
     КартинкаQRКода = Новый Картинка(ДанныеQRКода);
КонецЕсли;   

Радуемся тому, что код полностью открыт, что не нужно подключать никаких ВК, com-сервисов, библиотек и т.д.

Совместимо с любой небазовой конфигурацией на управляемых формах!

Для базовых можно функционал обработок интегрировать в свой внешний отчет и пользоваться.