Как программно добавить штрихкод на существующую печатную форму в 1С?

← На главную

В современных конфигурациях 1С, построенных на базе Библиотеки стандартных подсистем (БСП), таких как 1С:Розница, 1С:Управление торговлей или 1С:ERP, задача вывода штрихкода на печатную форму часто возникает в рамках автоматизации складской логистики или ускорения поиска документов. Рассмотрим подробно, как реализовать этот механизм, не перегружая систему и используя штатные возможности платформы.

Поиск точки входа: где изменять логику печати?

Когда мы работаем с типовыми конфигурациями, печать документов обычно централизована. Как справедливо отметил автор темы, основным местом для вмешательства является общий модуль УправлениеПечатьюПереопределяемый. Однако стоит помнить, что напрямую изменять этот модуль в конфигурации не рекомендуется — лучше использовать механизм расширений. Мы можем перехватить процедуру ПриПечати или ПодготовитьКоллекциюПечатныхФорм, чтобы внедрить свой алгоритм добавления штрихкода.

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

Использование компоненты генерации штрихкода

Забудьте о старых методах работы через 1cbarcod.dll, которые требовали регистрации библиотеки в системе. В актуальных версиях 1С используется Native API компонента, которая поставляется в составе конфигурации. Рассмотрим пример кода, который позволяет сформировать штрихкод и поместить его в область макета. Проанализируем решение, предложенное в обсуждении, и дополним его современными стандартами.

Разберем по шагам создание картинки штрихкода:


// Подготовим параметры для генерации изображения
ПараметрыШтрихкода = Новый Структура;
ПараметрыШтрихкода.Вставить("Ширина", 150); // Размеры в пикселях
ПараметрыШтрихкода.Вставить("Высота", 50);
ПараметрыШтрихкода.Вставить("Штрихкод", "2000000001234"); // Значение кода
ПараметрыШтрихкода.Вставить("ТипКода", 1); // 1 - это EAN13, 2 - EAN128, 16 - QR
ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина);
ПараметрыШтрихкода.Вставить("РазмерШрифта", 10);
ПараметрыШтрихкода.Вставить("УголПоворота", 0);

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

// Если картинка успешно получена, выводим ее в макет
Если ТипЗнч(КартинкаШК) = Тип("Картинка") Тогда
    ОбластьМакета.Рисунки.КартинкаШтрихкода.Картинка = КартинкаШК;
КонецЕсли;

Динамическое добавление рисунка без изменения макета

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

Найдем область, куда мы хотим прикрепить штрихкод (например, правый верхний угол первой страницы).
Создадим новый объект типа Рисунок.
Установим его тип как Картинка.
Разместим его в нужных координатах.

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


// Предположим, ТабДок уже сформирован стандартной процедурой печати
// Добавляем рисунок программно
Рисунок = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок.Верх = 2; // Координаты в мм
Рисунок.Лево = 150;
Рисунок.Ширина = 40;
Рисунок.Высота = 15;
Рисунок.Линия = Новый Линия(ТипЛинииРисункаТабличногоДокумента.НетЛинии);

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

Важные нюансы работы с компонентой

Рассмотрим подробнее тонкие моменты, которые часто становятся причиной ошибок при печати штрихкодов:

1. Разрешение и качество (DPI): Линии штрихкода должны быть четкими. Если вы передаете слишком маленькие значения Ширина и Высота в структуру параметров, картинка при растягивании на листе станет "мыльной", и сканер её не прочитает. Рекомендуется рассчитывать размеры исходя из 300 DPI принтера. Для пересчета миллиметров в пиксели можно использовать коэффициенты (в среднем 1 мм = 3.8 пикселя для стандартного экрана, но для печати лучше умножать на большее значение).

2. Поворот изображения: Как упоминалось в сообщениях форума, поворот на 90 градусов может быть капризным. Если вы устанавливаете УголПоворота = 90, не забудьте поменять местами значения Ширина и Высота в структуре ПараметрыШтрихкода, иначе изображение может быть обрезано границами контейнера.

3. Прозрачность: Для эстетичного вида на печатной форме в структуру параметров стоит добавить свойство ПрозрачныйФон = Истина. Это позволит избежать белых прямоугольников вокруг кода, если он накладывается на сетку или затененные области документа.

Реализация выбора пользователя

Поскольку стоит задача дать пользователю выбор, на каких формах печатать код, алгоритм действий будет следующим:

Создаем Регистр сведений или используем Дополнительные сведения для хранения списка печатных форм с признаком "ПечататьШтрихкод".
В расширении для общего модуля УправлениеПечатью создаем "После" обработчик к процедуре формирования документов.
В цикле обходим коллекцию сформированных ТабличныйДокумент.
Проверяем: если имя текущей формы есть в нашем списке "разрешенных", вызываем процедуру вставки штрихкода.

Такой подход позволит гибко управлять штрихкодированием без необходимости постоянно переписывать код при добавлении новых документов в базу. Вы получите универсальный инструмент, работающий во всей системе 1С:Розница.

Использование штатных процедур МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода или ГенерацияШтрихкода.СформироватьКартинкуШтрихкода гарантирует стабильную работу как на Windows, так и на Linux серверах, что критично для современных систем на платформе 8.3.