Штрихкод в 1С вертикально

На текущем проекте добавлял в печатную форму вывод штрих-кода документа. И на макете было удобное место для размещения штрих-кода, но вертикально.

Вот я и решил его туда вертикально вставить, на что стандартная компонента «1С: Печать штрихкодов» ответила резким отказом. Но и я не ищу легких путей. В процессе поиска наткнулся на публикацию, в которой рассказывалось о печати штрих-кода с помощью специальных шрифтов. И тут меня осенило — с помощью шрифта вывожу текст, который отображается уже штрихкодоподобно, а с текстом можем сделать что угодно. В табличном документе есть возможность выставлять угол наклона текста. Ура!

Но как оказалось — не все так гладко. Просто вывести штрих-код (в моем случае цифры) недостаточно, потому сканер его не прочитает. Его надо перекодировать в подходящий формат — а их хватает. Для реализации свои идеи я решил воспользоваться алгоритмом формирования штрих-кода code128. Упоминание VB и я перевел его на код 1С. Ну дальше уже дело техники.

Выложенная здесь обработка работает в толстом и тонком клиенте. Позволяет вывести штрих-код вертикально или горизонтально и задать размер шрифта, чтобы вывести его читабельным для сканера. Она также включает в себя шрифт, который сам устанавливается (при наличии соответствующих прав).

Тестировал ее с помощью программки на телефоне и она штрих-код читала, хотя у него камера слабовата. Поэтому думаю сканеры прочтут его без проблем.

Скачать Вертикальний штрихкод  -- 22 bytes, Скачан 463 раз - Скачать