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

[Odineski]

нужен код генерации произвольного штрихкода code39

[Odin — Одинэсник]

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

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

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

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

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

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

1С (Код)

// Подключаем внешнюю компоненту (укажите правильное имя компоненты) РезультатПодключения = ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиШтрихкодов", "BarcodeSymbolicName", , ТипПодключенияВнешнейКомпоненты.Изолированно); Если НЕ РезультатПодключения Тогда Сообщить("Не удалось подключить компоненту печати штрихкодов"); Возврат; КонецЕсли; // Создаем объект генератора Генератор = Новый("AddIn.BarcodeSymbolicName.Barcode"); // Настраиваем генератор для Code39 Генератор.ТипКода = 3; // Code39 Генератор.АвтоТип = Ложь; Генератор.ЗначениеКода = "123ABC789"; // Ваш произвольный код Генератор.ОтображатьТекст = Истина; Генератор.Ширина = 400; Генератор.Высота = 130; Генератор.ПрозрачныйФон = Истина; // Генерируем штрихкод ШтрихкодДанные = Генератор.ПолучитьШтрихкод(); // Создаем картинку из двоичных данных КартинкаШтрихкода = Новый Картинка(ШтрихкодДанные); // Отобразить картинку (например, в форме) ПоказатьЗначение(, КартинкаШтрихкода);

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

// Подключаем внешнюю компоненту (укажите правильное имя компоненты) РезультатПодключения = ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиШтрихкодов", "BarcodeSymbolicName", , ТипПодключенияВнешнейКомпоненты.Изолированно); Если НЕ РезультатПодключения Тогда     Сообщить("Не удалось подключить компоненту печати штрихкодов");     Возврат; КонецЕсли;   // Создаем объект генератора Генератор = Новый("AddIn.BarcodeSymbolicName.Barcode");   // Настраиваем генератор для Code39 Генератор.ТипКода = 3; // Code39 Генератор.АвтоТип = Ложь; Генератор.ЗначениеКода = "123ABC789"; // Ваш произвольный код Генератор.ОтображатьТекст = Истина; Генератор.Ширина = 400; Генератор.Высота = 130; Генератор.ПрозрачныйФон = Истина;   // Генерируем штрихкод ШтрихкодДанные = Генератор.ПолучитьШтрихкод();   // Создаем картинку из двоичных данных КартинкаШтрихкода = Новый Картинка(ШтрихкодДанные);   // Отобразить картинку (например, в форме) ПоказатьЗначение(, КартинкаШтрихкода);

1С (Код)

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

1 2 3 4 5 6 7 8

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

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11

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

[Автор]

Сообщения