DataMatrix и компактный штрих код GUID

16.05.2017 39 Comments

Разработка



    Форма для демонстрации возможностей
    GUID
    Data matrix
Компактный штрих-код для GUID в стандарте CODE128 и штрих кодирование DataMatrix

Обработка объединяет в себе специфичные способы штрих-кодирования. А именно в модуле обработки реализованы следующие методы:
1. Компактный штрих-код для GUID в стандарте CODE128. Штрих код генерируется в виде картинки. Может пригодится для штрих кодирования документов по ссылкам (Документ.ПолучитьИдентификатор()).
2. То же самое что и первый пункт, только штрих код генерируется в виде специального шрифта.
3. Реализация DataMatrix — двумерного стандарта штрих кода. Штрих код генерируется в виде специального шрифта.
* для работы пунктов 2, 3 нужно установить в Windows специальные шрифты, они прилагаются в самой обработке в виде макетов и более ничего.

Так же в данной обработке предусмотрена управляемая форма для демонстрации работы.

Related Posts

39 Comments

  1. alsky-2003

    Скажи, пожалуйста — обработка подходит для УТ 10,3 на 8.1 и 8.2 ?

    Reply ↓
  2. olezhe

    Ошибка при выполнении файловой операции ‘E:\_РазработкаЧужиеDataMatrix.epf’

    по причине:

    Неверный формат хранилища данных ‘file://E:/_Разработка/Чужие/DataMatrix.epf’

    Файл протух?

    Reply ↓
  3. Loe

    Да, при открытии ругается.

    «Ошибка при выполнении файловой операции ‘….DataMatrix.epf’

    по причине:

    Неверный формат хранилища данных ‘file://…./DataMatrix.epf'»

    Как быть, что делать?

    Reply ↓
  4. scompany

    (2) olezhe,

    Это в режиме «Тонкий клиент» или «Конфигуратор»?

    Reply ↓
  5. scompany

    (3) Loe,

    В тонком клиенте?

    Reply ↓
  6. Loe

    В Конфигураторе и Жирном клиенте. Это файловая ошибка, а не ошибка 1С. Пару битов не залито, файл не может быть прочтен.

    Reply ↓
  7. scompany

    (2) olezhe,

    1. файл проверил у себя: работает

    2. заново выложил свой файл с обработкой.

    P.S. обработка написана только для тонкого клиента.

    Reply ↓
  8. Loe

    Все работает, отл.

    Шрифты сохраняем в файлы *.ttf и копируем в папку шрифтов и формируем шрифт.

    Скажите, scompany, если я захочу использовать Вашу наработку (точнее, Вами созданный шрифт), как мне ее/его заполучить в пользование?

    Reply ↓
  9. scompany

    (8) Loe,

    шрифты которые используются в обработке взяты на этом сайте:

    http://grandzebu.net/informatique/codbar-en/codbar.htm

    на саму обработку не накладываются никаких ограничений.

    Reply ↓
  10. ksai

    Конфигурация УПП 1.3

    При попытке нажатия на кнопку «Вывести GUID» вылетает ошибка. Посмотрел в модуле, там прописано:

    ОбъектШтрихКода = Обработки.дхФормированиеШтрихКодов.Создать();

    Возврат ОбъектШтрихКода.ПолучитьКартинкуШтрихКода(ШтрихКод, ТипКода, ПредставлениеКода, УголПоворота);

    Обработки «дхФормированиеШтрихКодов» в типовой УПП не наблюдается.

    Автор, как быть?

    Reply ↓
  11. ksai

    И еще один момент.

    В каком формате нужно выгружать макеты КомпонентаПечатиШтрихкодов%?

    Reply ↓
  12. scompany

    (10) ksai,

    Вместо

    ОбъектШтрихКода = Обработки.дхФормированиеШтрихКодов.Создать();

    напишите

    ОбъектШтрихКода = ЭтотОбъект;

    Reply ↓
  13. scompany

    (11) ksai,

    Это типовые компоненты от 1С (native) они в формате «.dll»

    Reply ↓
  14. ksai

    (12)

    Вот вся функция

    Функция ПолучитьКартинкуШтрихКода(ШтрихКод, ТипКода = Неопределено, ПредставлениеКода = Неопределено, УголПоворота = 0) Экспорт

    ОбъектШтрихКода = Обработки.дхФормированиеШтрихКодов.Создать();

    Возврат ОбъектШтрихКода.ПолучитьКартинкуШтрихКода(ШтрихКод, ТипКода, ПредставлениеКода, УголПоворота);

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

    Если я напишу в ней ОбъектШтрихКода = ЭтотОбъект , то получится бесконечная рекурсия. Или я туплю, или что-то тут не так.

    Reply ↓
  15. ksai

    (13)

    Понял, спасибо. А свежие версии где взять? Они на ИТС идут или в гугле искать?

    Reply ↓
  16. scompany

    (15) ksai,

    ИТС E:1CItsEXEDemo82

    или в последней УТ

    Reply ↓
  17. scompany

    (14) ksai,

    Все нормально будет

    Reply ↓
  18. ksai

    (17)

    Наверно мы друг друга не поняли(

    В форме обработки есть процедура:

    &НаСервере

    Функция ВывестиGUIDСервер()

    ЭтотОбъект = РеквизитФормыВЗначение(«Объект»);

    СтрокаКодирования1 = ЭтотОбъект.ПолучитьШтрихКодОбъекта(СокрЛП(ИдентификаторОбъекта), «Идентификатор упаковки»);

    ШтрихКодКартинка = ЭтотОбъект.ПолучитьКартинкуШтрихКода(СтрокаКодирования1);

    Результат = Новый ТабличныйДокумент;

    Макет = ЭтотОбъект.ПолучитьМакет(«Макет»);

    ОбластьТест = Макет.ПолучитьОбласть(«Тест1»);

    ОбластьТест.Рисунки.ШтрихКод.Картинка = ШтрихКодКартинка;

    Результат.Вывести(ОбластьТест);

    Возврат Результат;

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

    Здесь идет вызов функции из модуля объекта:

    ШтрихКодКартинка = ЭтотОбъект.ПолучитьКартинкуШтрихКода(СтрокаКодирования1);

    Листинг вызываемой функции я уже приводил:

    Функция ПолучитьКартинкуШтрихКода(ШтрихКод, ТипКода = Неопределено, ПредставлениеКода = Неопределено, УголПоворота = 0) Экспорт

    ОбъектШтрихКода = Обработки.дхФормированиеШтрихКодов.Создать();

    Возврат ОбъектШтрихКода.ПолучитьКартинкуШтрихКода(ШтрихКод, ТипКода, ПредставлениеКода, УголПоворота);

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

    Если в этой функции по вашему совету я меняю строчку:

    ОбъектШтрихКода = Обработки.дхФормированиеШтрихКодов.Создать();

    на строчку:

    ОбъектШтрихКода = ЭтотОбъект;

    то получается, что эта функция бесконечное количество раз вызывает сама себя из самой себя, что есть рекурсия без выхода.

    Так что всё нормально не получается.

    Reply ↓
  19. scompany

    (18) ksai,

    обновил файл, можно проверить

    Reply ↓
  20. ksai

    (19)

    Проверил, теперь всё в порядке, спасибо!

    Reply ↓
  21. dablack

    Можно ли каким либо образом в штрих код Code128 загнать помимо гуида информацию о версии данных (Ссылка.ВерсияДанных вида «AAAAFQAAAIE=»), просто есть потребность помимо документа получить его версию и проверить совпадает ли она с тем, что в базе.

    Reply ↓
  22. Loe

    Гм, а кто мешает? Просто создайте себе алгоритм расшифровки полученной при сканировании вашего кода строки — и пользуйтесь на здоровье.

    Reply ↓
  23. scompany

    (21) dablack,

    Конечно можно, только надо модифицировать алгоритмы подготовки кода и последующей расшифровки.

    Сложность будет на этапе кодировки, так там используется преобразование из 16 в 93 систему.

    Надо будет приводит реквизит «Версия» к 16 основанию или иначе снизиться эффективность упаковки.

    Reply ↓
  24. dablack

    То, что надо делать алгоритмы зашифровки/расшифровки это понятно, я наверное не совсем корректно задал вопрос, хватит ли длины кода чтобы в один штрих засунуть Версию + ГУИД. Просто смутили строки в вашем коде:


    // задобрим вид числа

    Если лВидОбъекта > 255 Тогда

    Возврат Неопределено;

    КонецЕсли;

    и


    // можно закодировать не более 255 видов объектов

    Результат = Новый Соответствие;

    Результат.Вставить(Метаданные.НайтиПоПолномуИмени(«Документ.ЗаказПокупателя»), 1);

    Почему 255? Я потому и решил, что длина кончилась так сказать. Прошу прощения если не совсем корректно задаю вопросы, просто раньше не приходилось иметь дело со штрих кодированием глубже того, что есть в типовых типа печати ценников и пр. Однако спасибо вашей разработке кодирование ГУИДа уже работает в продакшене.

    Reply ↓
  25. scompany

    1. Это ограничение на количество кодируемых видов объектов 1С (Документы, Справочники и т.д.). 255 видов объектов 1С или логических сущностей, что вполне избыточно. Но и это можно доработать, если нужно.

    2. Cтандарт штрихкода CODE128 (EAN128) имеет свои ограничения длины, точнее явных ограничений не имеет. (штрихкод переменной длины)

    3. При этом надо не забывать про другие ограничения:

    — техническую возможность луча сканеров читать такие «широкие» штрихкоды

    — возможность уместить на листе «широкие» штрихкоды при печати.

    — чем «шире» штрихкод, тем более возрастает вероятность его порчи в процессе работы (замятия бумаги, качество печати и т.д.)

    Сообственно разработка служит для обхода ограничения пункта #3.

    Reply ↓
  26. dablack

    Спасибо. Теперь все стало ясно.

    Reply ↓
  27. dablack

    Уважаемый scompany

    Задавал пару месяцев вопрос про то как в штрих встроить №версии документа, но острой необходимости в реализации пока не было. Но вот настал тот день… Стал делать под свои нужды и вот на что наткнулся:

    В Вашем коде как есть при определенных GUID-ах и КодовОбъектов штрих формируется, но считывается только его кусок(без конца или середины) , т.е. например:

    GUID=7cbf5440-f94b-11e2-bbfb-001e671a3b56, код объекта = 14 (как в примере «Идентификатор упаковки») при переводе из GUIDв93 получается вот такая строка — 29|g[6:t;Edzg7’U`aXc)», а считано будет 29[6:;E7’UX) . Причем проблема замечена только у тех штрихов у которых при переводе из GUIDв93 на второй позиции число. Запустил маленькую обработку по докам за период, чтобы увидеть проблемные штрихи. Вот выдержка:

    7cbf543c-f94b-11e2-bbfb-001e671a3b56 2PI,,$j’|a+kSTRZ_aXc)» C032560221980056056485<5049400;40=944=401281:090229004=40=:01<0554855104=@

    7cbf543d-f94b-11e2-bbfb-001e671a3b56 23VRf(#k8SjZc9Dxk#lZ»oXdGp_aXc)» C2122032099020=4854;0044950<290551830:01<4118804704=40=:01<05548551128@

    7cbf543e-f94b-11e2-bbfb-001e671a3b56 2sbxC-R|[Svr]t<)`aXc)» C0325600744<174088141690200;:101283444435<04346145480<540=:01<05548551092@

    7cbf543f-f94b-11e2-bbfb-001e671a3b56 2VoA!2FxKLmvb’2?`aXc)» C0325602098300895155608907400928123203444<14945601910<540=:01<05548551506@

    7cbf5440-f94b-11e2-bbfb-001e671a3b56 29|g[6:t;Edzg7’U`aXc)» C65020300;41<:10524641434254818<4113141<2124941220<540=:01<055485514=0@

    7cbf5441-f94b-11e2-bbfb-001e671a3b56 2y+19;.p+>[!mGyj`aXc)» C032560113944461605254452047944119:10515320188113<500<540=:01<05548551548@

    7cbf5442-f94b-11e2-bbfb-001e671a3b56 28Ws?»lx6R%rWn#aaXc)» C03256023024528107419155150<740524902845443281=0444940=40=:01<05548551443@

    7cbf5443-f94b-11e2-bbfb-001e671a3b56 2?E QDsgh/I)wgc9aaXc)» C03256019181815518209807441<4=006598054870441<<0560540=40=:01<05548551548@

    7cbf5444-f94b-11e2-bbfb-001e671a3b56 2″RF.IgcX(@-|wXOaaXc)» C03256055190289045298041<<05:0185491141600;704:0182140=40=:01<055485514=0@

    7cbf5445-f94b-11e2-bbfb-001e671a3b56 2b#k8SjZc9DxklhM[_H!71$+NeaaXc)» C0325604<1;0050<4=0029:1004=90851521246 14859440:105<40=40=:01<055485510:1@

    Если попробовать кодировать под другим кодом объекта, например «1» проблема вылезает, но уже на других штрихах…

    В исходниках покапался, но проблему решить не смог…

    Reply ↓
  28. scompany

    (27) dablack,

    Добрый вечер.

    Для печати используете штрих кодов какой способ используете?

    1. Печать шрифтом

    2. Печать компонентой 1С

    3. Печать сторонней компонентой.

    Reply ↓
  29. dablack

    Шрифтом

    Reply ↓
  30. dablack

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

    Reply ↓
  31. scompany

    Вот как раз печать шрифтом тестировалось не полностью.

    Reply ↓
  32. azubar

    Для формирования ШК лучше использовать компоненту «КомпонентаПечатиШтрихкодов» из библиотеки работы с оборудованием (УТ11/УНФ) она на нейтив апи и одинаково хорошо работает как на винде так и на линуксе.

    Для штрихкодирования по GUID объектов ИМХО удобен PDF417, это двухмерный компактный штрихкод который читают практически все сканеры с функцией 2D, учитывая что 2D сканеры сравнялись по цене с 1D заморачиваться с перекодированием длинного гуида формат одномерного шк не целеособразно.

    Reply ↓
  33. evgeny43

    (32) КомпонентаПечатиШтрихкодов не умеет помоему DataMatrix , а он сейчас на мировром рынке много где используется ( в частности на фармакологии ).

    если кому интересно сделал com библиотеку чисто для Data Matrix https://infostart.ru/public/823893/ мб кому поможет .

    Reply ↓
  34. azubar

    (33) стандартная умеет QR, компонента которая умеет DataMatrix есть в конфигурациях Медицина https://infostart.ru/public/458889/ и вот http://cortes.ru/shtrihcode/components.php

    Reply ↓
  35. scompany

    (32)

    В первую очередь обработка служит примером для реализации алгоритмов:

    — пересчет из разных систем исчисления для больших чисел (на тот момент платформа имела ограничение)

    — один из вариантов как можно организовать штрих-кодирование документов по GUID (на тот момент такой функции не было)

    — формирование штрихкодов без использования внешних средств, кроме шрифта (как метод борьбы со «злыми администраторами»)

    По прошествии 5 лет, актуальность данной обработки почти исчезла

    — платформу доработали

    — добавили компоненты (кстати в типовых перекодирование GUID тоже используют из 16-ой в 10-ую).

    DataMatrix так и нет, хотя он востребован на производствах.

    — в наличие много альтернативных компонент, в т.ч. бесплатных, админы стали добрее

    P.S.

    Мое мнение по-поводу всех этих танцов с бубном:

    Давно уже напрашивается реализация штрихкодирования на уровне платформы, без всяких компонент. (типовые натив компоненты подозрительно большие)

    Например как это сделано в похожих системах: FastReport, CrystalReport и т.п.

    Можно сделать специальный вид картинок в табличном документе.

    Reply ↓
  36. evgeny43

    (34) Видел похожие варианты, перед тек как сам написал попробовал парочку , к сожалению работали только на клиенте , + мне необходимо печать с веб сервиса (т.е только серверный контекст) , ну конечно 1с не умеет печатать при серверном контексте, но это отдельная тема, для этого то же dll написал.

    Reply ↓
  37. evgeny43

    (35) <<Давно уже напрашивается реализация штрихкодирования на уровне платформы, без всяких компонент. (типовые натив компоненты подозрительно большие) >>

    я с вами согласен. Но если вы хорошо разбираетесь в алгоритмах кодирования, то можете сами написать на 1с , без всяких компонент штрих кодирование, просто это очень геморойно , картинку придется рисовать массивом чисел . http://catalog.mista.ru/public/310668/ ссылка пример, как это кто то уже сделал))

    Reply ↓
  38. scompany

    1. Когда-то в своей практике для формирования картинки-штрихкода на стороне сервера использовал StrokeScribe (), доп. кодом

    tbc    = Новый COMОбъект(«STROKESCRIBE.StrokeScribeClass.1»);
tbc.Alphabet  = ТипШрихКода;
tbc.Text   = ДанныеКода;

Если ТипШрихКода = 33 Тогда
tbc.AztecECL= УровеньКоррекции;
Иначе
tbc.QrECL  = УровеньКоррекции;
КонецЕсли;

Если ПустаяСтрока(Подпись) = Ложь Тогда
tbc.TextBelow = Подпись;
КонецЕсли;

tbc.Rotation = УголПоворота;
tbc.UTF8  = Истина;
tbc.ShowText = ПоказыватьТекст;
Массив    = tbc.GetPictureArray(2, Высота, Ширина);

objXML    = Новый COMОбъект(«MSXml2.DOMDocument»);
objXML.loadXML(«<Ba se64Data />»);
objDocElem   = objXML.documentElement;
objDocElem.dataType = «bin.base64»;
objDocElem.nodeTypedValue = Массив;
textBase64   = objDocElem.text;

Двоичные  = Base64Значение(textBase64);
Результат = Новый Картинка(Двоичные);

    Показать

    2. Если бы имел больше опыта, то можно было бы доработать эту компоненту:

    http://ocvita.ru/ocvita-barcode

    Reply ↓
  39. anig99

    Решение хорошее. Пользуюсь уже несколько лет. Но с расширением сферы использования (другие цели, ТСД, софт) выявилась небольшая проблема. Некоторые символы в штрихкодах Code128 иногда используются как служебные. Например «|» может использоваться как разделить полей. Или первая цифра «2» в штрихкоде — признак весового штрихкода. Отловить такие баги на этапе разработки бывает сложно. Я нашел пока такое решение: ПереводИзGUIDв93 оставляет два резервных символа — «}» и «~». Я просто добавил функции, которые меняют запретные символы на два этих. Тестирую. Но если появится какой-то третий служебный символ — надо думать дальше.

    Reply ↓

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *