NAV4U (онлайн-журнал)

Вступительное слово:

Данная статья родилась после продолжительных размышлений и сбора информации на необъятных просторах интернета о проблеме печати штрих-кода (или по-другому их называют бар-коды) в отчетах Microsoft Dynamics NAV. Одним из вариантов печати штрих-кода является использование ActiveX но, как правило, его нужно купить, или написать самому. В этой статье я постараюсь описать вариант использования специальных штрих-кодовских шрифтов. Надеюсь, читатель найдет здесь полезную для себя информацию.

Что получилось:

Преднамеренно нарушу структуру статьи, и сразу же перейду к тому, что у меня получилось.

На этом Рисунке видно, что сформирован отчет со следующими штрих-кодами Code128B Code39, CodeEan13, CodeEan8.

Как это сделать:

Не забываем, что штрих-код по своей сути все же является шрифтом, который установлен в системе. Значит, нам нужно установить и зарегистрировать следующие шрифты. Code128b.ttf, Code39.ttf, CodeEan.ttf. Из названия шрифтов понятно, какой шрифт предназначен для того или другого штрих-кода.

 

Через Панель управления -> Шрифты, Добавляем шрифты штрих-кодов. И потом их регистрируем !FontBarCode.reg

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes]
“CodeEan,0″=”CodeEan,204″
“CodeEan,204″=”CodeEan,0″
“Code39,0 “=”Code39,204″
“Code39,204″=”Code39,0″
“Code128b,0 “=”Code128b,204″
“Code128b,204″=”Code128b,0″

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]
“Code39 (TrueType)”=”Code39.Ttf”
“Code128b (TrueType)”=”Code128b.ttf”
“CodeEan (TrueType)”=”CodeEan.Ttf”

Ну конечно для таких действий нужны права администратора на рабочую станцию.
И после установки и регистрации, для пущей важности нужно перегрузить рабочую станцию.
И еще, для любителей поковырять все изнутри, в архиве есть файлы Code128b.vfb, Code39.vfb, CodeEan.vfb это проекты шрифтов для такой замечательной программы редактирования шрифтов FontLab Studio 5. Ну, вот и все что касается шрифтов.

Всю математику по формированию штрих-кода я вынес в Codeunit 50000 Barcode Code. Я его хорошо документировал и при желании Вы его можете просмотреть. Единственное, что хочется это описать функции. И так начнем.

BarCode128 - Функция генерации Штрих-кода Code128b
BarCode39 - Функция генерации Штрих-кода Code39
BarCodeEAN13 - Функция генерации Штрих-кода CodeEAN13
BarCodeEAN8 - Функция генерации Штрих-кода CodeEAN8
Parity_B_Char - Софункция штрих-кода паритет В CodeEAN (См.спецификацию EAN13&8.doc).
Parity_C_Char - Софункция штрих-кода паритет C CodeEAN (См.спецификацию EAN13&8.doc).
IsCode128Char - Проверка набора кодируемых знаков штрих-кода Code128b
IsCodeEAN13Char - Проверка набора кодируемых знаков штрих-кода CodeEAN13
IsCodeEAN8Char - Проверка набора кодируемых знаков штрих-кода CodeEAN8
IsCode39Char - Проверка набора кодируемых знаков штрих-кода Code39
EAN13CheckSum - Функция вычисления контрольного числа штрих-кода CodeEAN13
EAN8CheckSum - Функция вычисления контрольного числа штрих-кода CodeEAN8
Code128CheckSum - Функция вычисления контрольного числа штрих-кода Code128b

Хочется обратить внимание, уважаемого читателя вот на такие блоки в функциях BarCode128, BarCode39, BarCodeEAN13, BarCodeEAN8.

Если Вы снимете комментарий с MESSAGE то при каждом некорректном штрих-коде получите сообщение, что Штрих-код не соответствует спецификации. По умолчанию я это сообщение закомментировал, и если все же в базе попадается не соответствующий спецификации штрих-код, то вывожу в отчет пустое значение. Но IMHO (In My Humble Opinion) в базе данных должны храниться уже выверенные штрих-коды.

Теперь формируем отчет. Тестовый отчет, в архиве, он представлен объектом Report 50000 Test BarCode Report

В Globals объявляем Codeunit Barcode Code под переменной BarcodeGenerator и в Section Desigen Report устанавливаем в свойствах TextBox

FontName = Code128b
SourceExpr = BarcodeGenerator.BarCode128(”Test BarCode Table”.CodeBar ) размерность шрифта в тестом отчете FontSize = 20
В этом TextBox мы получим штрих-код Code128b. Следовательно, что бы получить CodeEAN13 нужно в свойствах TextBox установить
FontName = CodeEAN
SourceExpr = BarcodeGenerator.BarCodeEAN13(”Test BarCode Table”.CodeBar ).

Ну вот в принципе и все, наш отчет Microsoft Dynamics_NAV теперь может печатать штрих-код, там где нам это нужно.

Описание архива:

Содержимое FrontsCodeBar.zip

• !FontBarCode.reg - Windows Registry Editor Version 5.00
• Code128b.ttf - Шрифт Штрих-кода Code128b
• Code39.ttf - Шрифт Штрих-кода Code39
• CodeEan.ttf - Шрифт Штрих-кода CodeEan13&8
• CodeEan.vfb - Проект шрифтов CodeEan13&8 для FontLab Studio 5
• Code128b.vfb - Проект шрифтов Code128b для FontLab Studio 5
• Code39.vfb - Проект шрифтов CodeEan39 для FontLab Studio 5
• DataBarCodeTxt.txt – Тестовый набор данных для Test BarCode Table
• _TestBarCodeTxt370.txt – Объекты в тексте Microsoft Dynamics_NAV: Test BarCode Table, Test BarCode Form List, Test BarCode Report, Test BarCode DataPort, Barcode Code.
• Codeunit_Barcode_Code.txt – OBJECT Codeunit 50000 Barcode Code.
• Specification - Code 128 Specification.doc, EAN13&8.doc
• Тест BarCode.JPG

Благодарности:

Моей жене, за то, что до сих пор меня любит.

Об авторе:

Олег Леонтьев.
AKA LOGic_BBS

Со мной всегда можно связаться по адресу oleg_leontev@mail.ru или посетите мой сайт http://www.logic-pfr.narod.ru

Метки: Олег Леонтьев

Запись создана в Четверг, 15 Январь 2009 г. в 9:51. Рубрика: Выпуск 5. Вы можете подписаться на комментарии к этой записи RSS 2.0. Вы можете оставить отзыв, или отправить trackback со своего сайта.