Как реализовать генерацию штрихкода в 1С: методы через внешние компоненты и создание собственного алгоритма отрисовки

← На главную

Задача генерации штрихкода в среде 1С часто встречается при автоматизации складского учета, инвентаризации или маркировки продукции. В зависимости от требований (использование стандартных форматов типа EAN-13 или создание уникального внутреннего шифра) подходы могут существенно различаться. Рассмотрим подробно, как реализовать генератор штрихкода, разберем алгоритмы расчета и способы программного вывода графического изображения.

Метод 1: Использование механизмов Библиотеки подключаемого оборудования (БПО)

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


// Подготовим область макета, где находится объект "Рисунок"
ОбластьМакета = Макет.ПолучитьОбласть("ОбластьШтрихкода");

// Определим параметры генерации
ПараметрыШтрихкода = Новый Структура;
ПараметрыШтрихкода.Вставить("Ширина",  Окр(ОбластьМакета.Рисунки.Штрихкод.Ширина / 0.1));
ПараметрыШтрихкода.Вставить("Высота",  Окр(ОбластьМакета.Рисунки.Штрихкод.Высота / 0.1));
ПараметрыШтрихкода.Вставить("ТипКода", 1); // 1 соответствует стандарту EAN13
ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина);
ПараметрыШтрихкода.Вставить("Штрихкод", СтрокаСформированногоШК);

// Получаем картинку через типовой менеджер
КартинкаШК = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);

// Устанавливаем полученное изображение в рисунок на макете
Если КартинкаШК <> Неопределено Тогда
    ОбластьМакета.Рисунки.Штрихкод.Картинка = КартинкаШК;
КонецЕсли;

В данном примере мы используем структуру ПараметрыШтрихкода, чтобы передать системе размеры будущего изображения и тип кодировки. Метод МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода возвращает объект типа Картинка, который можно напрямую присвоить рисунку в табличном документе. Это избавляет разработчика от необходимости знать внутреннее устройство штрихов конкретного стандарта.

Метод 2: Формирование строки EAN-13 и расчет контрольной цифры

Прежде чем генерировать картинку, необходимо правильно подготовить саму строку штрихкода. Стандарт EAN-13 требует наличия 13 цифр, последняя из которых является контрольной. Рассмотрим алгоритм формирования строки, если у нас есть фиксированный префикс (3 цифры) и инвентарный номер (6 цифр).

Разберем процесс по шагам:

Сформируем базовую строку из 12 цифр. Для этого возьмем префикс, добавим инвентарный номер (дополнив его нулями слева до 6 знаков) и заполним оставшиеся позиции нулями.
Рассчитаем контрольную сумму.
Добавим контрольную цифру в конец строки.

Проанализируем математический алгоритм расчета контрольной цифры:

Суммируем цифры, стоящие на четных позициях (2, 4, 6, 8, 10, 12).
Результат умножаем на 3.
Суммируем цифры, стоящие на нечетных позициях (1, 3, 5, 7, 9, 11).
Складываем результаты шага 2 и шага 3.
Находим остаток от деления полученной суммы на 10.
Вычитаем остаток из 10. Если результат равен 10, контрольная цифра — 0.

Пример реализации функции подготовки строки:


Функция СформироватьПолныйШтрихкод(Префикс, ИнвентарныйНомер)
    // Дополняем инвентарный номер до 6 знаков
    НомерСНулями = Формат(Число(ИнвентарныйНомер), "ЧГ=0; ЧВН=");
    НомерСНулями = Прав("000000" + НомерСНулями, 6);
    
    // Формируем 12 значащих цифр
    База = Префикс + НомерСНулями + "000";
    
    // Расчет контрольного числа
    Четные = 0; Нечетные = 0;
    Для Поз = 1 По 12 Цикл
        Цифра = Число(Сред(База, Поз, 1));
        Если Поз % 2 = 0 Тогда
            Четные = Четные + Цифра;
        Иначе
            Нечетные = Нечетные + Цифра;
        КонецЕсли;
    КонецЦикла;
    
    Сумма = (Четные * 3) + Нечетные;
    Контроль = (10 - (Сумма % 10)) % 10;
    
    Возврат База + Строка(Контроль);
КонецФункции

Метод 3: Реализация собственного алгоритма "полосатого" штрихкода

Иногда стоит задача создать упрощенный графический идентификатор без привязки к мировым стандартам. В этом случае мы можем применить "двоичный" алгоритм: перевести число в двоичный код, где 1 будет означать черную полосу, а 0 — белую. Выясним, как это реализовать средствами ТабличногоДокумента без использования внешних компонент.

Рассмотрим алгоритм реализации:

Создадим макет с одной узкой колонкой (шириной около 0.1).
Подготовим двоичную строку из нашего числа.
В цикле будем использовать метод Присоединить() для добавления колонок к строке табличного документа.
В зависимости от текущего бита (0 или 1) будем устанавливать ЦветФона области.

Проанализируем пример кода для отрисовки:


// Допустим, ДвоичныйКод = "11010110..."
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("МакетШК");
СекцияЧерная = Макет.ПолучитьОбласть("Колонка|Черная");
СекцияБелая  = Макет.ПолучитьОбласть("Колонка|Белая");

Для Индекс = 1 По СтрДлина(ДвоичныйКод) Цикл
    Бит = Сред(ДвоичныйКод, Индекс, 1);
    Если Бит = "1" Тогда
        ТабДок.Присоединить(СекцияЧерная);
    Иначе
        ТабДок.Присоединить(СекцияБелая);
    КонецЕсли;
КонецЦикла;

Важный момент: Чтобы штрихкод выглядел монолитным, в свойствах ячеек макета (секции "Черная" и "Белая") необходимо убрать отображение сетки и установить минимальную ширину колонки. Это превратит обычную таблицу в "холст" для отрисовки графики.

Альтернативные способы генерации

Если стандартные средства 1С недоступны или не подходят под требования, рассмотрим еще два популярных варианта:

1. Использование шрифтов штрихкода (Barcode Fonts). Существуют специальные шрифты (например, Code39 или EAN13.ttf), которые превращают обычные цифры в штрихи при печати. В 1С достаточно установить такой шрифт в операционную систему и применить его к ячейке в макете. Однако этот метод требует установки шрифта на каждый компьютер, где будет производиться печать.

2. Внешние компоненты (ActiveX/COM). Старые версии 1С часто использовали компоненту 1CBarCode.dll. Она регистрируется в системе через regsvr32 и позволяет генерировать картинки через объект V8.BarcodeInput. В современных управляемых формах этот метод считается устаревшим и заменяется Библиотекой Подключаемого Оборудования.

Подведем итог: для реализации профессионального решения лучше всего использовать МенеджерОборудования и стандарт EAN-13 с предварительным расчетом контрольной цифры. Если же вам нужно быстрое учебное решение или специфический внутренний код — отрисовка через ТабличныйДокумент с использованием метода Присоединить() станет отличным выходом.