Как создать произвольный штрихкод Code39 в 1С?

В этой теме 1 ответ, 2 участника, последнее обновление 3 дня, 1 час назад сделано Odin — Одинэсник.

Просмотр 1 ветки ответов

Автор

Сообщения

12 мая 2026 в 13:15 #37092
Odineski
Участник
нужен код генерации произвольного штрихкода code39

12 мая 2026 в 13:15 #37093

Odin — Одинэсник

Участник

Для генерации произвольного штрихкода формата Code39 в 1С можно использовать несколько подходов.

Если у вас есть внешняя компонента для печати штрихкодов (например, «1C:Печать штрихкодов»), то можно подключить её и с помощью объекта генератора создать штрихкод с нужным значением. Такой способ удобен и даёт готовое изображение штрихкода.

Если внешняя компонента отсутствует, можно сформировать строку с добавлением символов начала и конца (‘*’) для Code39 и затем отобразить её с установленным в системе шрифтом Code39. В этом случае важно, чтобы шрифт Code39 был установлен на компьютере.

Для Linux-среды без внешних компонентов можно вызвать из 1С утилиту barcode с параметром -e code39 для генерации штрихкода в формате PNG, а затем загрузить полученный файл в 1С для отображения.

Ниже приведены примеры кода для каждого из этих вариантов.

Если нужно, уточните, какой способ вам подходит, и я помогу с деталями.

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

// Создаем объект генератора
Генератор = Новый("AddIn.BarcodeSymbolicName.Barcode");

// Настраиваем генератор для Code39
Генератор.ТипКода = 3; // Code39
Генератор.АвтоТип = Ложь;
Генератор.ЗначениеКода = "123ABC789"; // Ваш произвольный код
Генератор.ОтображатьТекст = Истина;
Генератор.Ширина = 400;
Генератор.Высота = 130;
Генератор.ПрозрачныйФон = Истина;

// Генерируем штрихкод
ШтрихкодДанные = Генератор.ПолучитьШтрихкод();

// Создаем картинку из двоичных данных
КартинкаШтрихкода = Новый Картинка(ШтрихкодДанные);

// Отобразить картинку (например, в форме)
ПоказатьЗначение(, КартинкаШтрихкода);

// Подключаем внешнюю компоненту (укажите правильное имя компоненты)

РезультатПодключения = ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиШтрихкодов", "BarcodeSymbolicName", , ТипПодключенияВнешнейКомпоненты.Изолированно);

Если НЕ РезультатПодключения Тогда

Сообщить("Не удалось подключить компоненту печати штрихкодов");

Возврат;

КонецЕсли;

// Создаем объект генератора

Генератор = Новый("AddIn.BarcodeSymbolicName.Barcode");

// Настраиваем генератор для Code39

Генератор.ТипКода = 3; // Code39

Генератор.АвтоТип = Ложь;

Генератор.ЗначениеКода = "123ABC789"; // Ваш произвольный код

Генератор.ОтображатьТекст = Истина;

Генератор.Ширина = 400;

Генератор.Высота = 130;

Генератор.ПрозрачныйФон = Истина;

// Генерируем штрихкод

ШтрихкодДанные = Генератор.ПолучитьШтрихкод();

// Создаем картинку из двоичных данных

КартинкаШтрихкода = Новый Картинка(ШтрихкодДанные);

// Отобразить картинку (например, в форме)

ПоказатьЗначение(, КартинкаШтрихкода);

Функция СформироватьCode39(СтрокаКода)
    // В Code39 стартовый и стоповый символ - '*'
    Возврат "*" + СтрокаКода + "*";
КонецФункции

// Пример использования
КодДляШтрихКода = "123ABC789";
Сообщить(СформироватьCode39(КодДляШтрихКода));

Функция СформироватьCode39(СтрокаКода)

// В Code39 стартовый и стоповый символ - '*'

Возврат "*" + СтрокаКода + "*";

КонецФункции

// Пример использования

КодДляШтрихКода = "123ABC789";

Сообщить(СформироватьCode39(КодДляШтрихКода));

Функция СгенерироватьCode39Linux(Штрихкод)
    Если ПустаяСтрока(Штрихкод) Тогда
        Предупреждение("Не указан штрихкод!", Константы.ОчередьОшибокМаксимум);
        Возврат "";
    КонецЕсли;
    АдресВременнойПапки = ВременныеФайлы.ПутьВременнойПапки();
    Файл = АдресВременнойПапки + "" + Штрихкод;
    Команда = "barcode -p letter -g 200x100 -u mm -b " + Штрихкод + " -e code39 -o " + Файл + ".ps | convert -density 150 -trim " + Файл + ".ps " + Файл + ".png";
    ВнешниеПрограммы.ВыполнитьКоманду(Команда);
    Возврат Файл + ".png";
КонецФункции

Функция СгенерироватьCode39Linux(Штрихкод)

Если ПустаяСтрока(Штрихкод) Тогда

Предупреждение("Не указан штрихкод!", Константы.ОчередьОшибокМаксимум);

Возврат "";

КонецЕсли;

АдресВременнойПапки = ВременныеФайлы.ПутьВременнойПапки();

Файл = АдресВременнойПапки + "" + Штрихкод;

Команда = "barcode -p letter -g 200x100 -u mm -b " + Штрихкод + " -e code39 -o " + Файл + ".ps | convert -density 150 -trim " + Файл + ".ps " + Файл + ".png";

ВнешниеПрограммы.ВыполнитьКоманду(Команда);

Возврат Файл + ".png";

КонецФункции

Автор

Сообщения

Просмотр 1 ветки ответов

Для ответа в этой теме необходимо авторизоваться.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?