Штрихи к портрету…

В современном мире штрих-коды печатают на всем, на чем только можно. Применительно к задачам 1С: Предприятия все чаще речь идет, например, о сопровождении штрих-кодами печатных форм документов.

Как это реализовать стандартными средствами без применения внешних компонент и т.д.?

Все помнят времена, когда основным стандартом штрихкодирования был EAN-8/EAN-13. Любой «начинающий специалист» знал, что после установки 1С: Предприятия 7.7 необходимо установить шрифт с названием Ean… (ean13, eangnivc или аналогичный). Если этого не сделать, в декларациях вместо штрих-кода отображались бы огромные цифры.

Данный шрифт позволял формировать штрих-коды самым прямым методом – написанием цифр с использованием специального шрифта.

Например, ряд цифр 1…9, шрифт EANGnivc.

Заметим, что «кодируемые» цифры отображаются под соответствующим кодом, т.е. каждый символ шрифта содержит «штрих» и «кодируемую» цифру.

 

Минусом применения стандарта EAN-13 становится крайне ограниченный набор кодируемых символов (фактически, только цифры). В этой связи применение его, например, для кодификации документооборота неэффективно.

Следующим поколением штрих-кодирования является стандарт Code128(EAN-128) (далее – Стандарт), который позволяет кодировать не только цифры, но и буквы латиницы.

Для печати кодов Стандарта также разработан специальный шрифт – Code128. Однако напечатать коды Стандарта с использованием данного шрифта значительно сложнее.

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

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

 

Схема Code128:

Start

1-й символ кода

2-й символ кода

.

.

.

.

n-й символ кода

Контроль ный символ

Stop

 

Посмотрим, как это реализовать средствами встроенного языка 1С: Предприятие 7.7/8.

Для начала следует определиться с набором символов, которые будут использоваться при кодировании. Это может быть один из трех вариантов (т.н. групп кода):

Группа А – набор цифр, дополнительных символов и заглавных букв латинского алфавита

Группа B – набор цифр, дополнительных символов, заглавных и строчных букв латинского алфавита

Группа C – фактически, набор группы B  с несколько иным кодированием.

 

В соответствии с выбранной группой формируется первый символ (Start) формируемого кода. Применительно Start’ы будут иметь следующие ASCII-коды:

Группа	Код
A	203
B	204
C	205

 

Завершаться штрих-код должен Stop-символом, который независимо от группы имеет ASCII-код 206.

 

Осталось разобраться с принципом формирования контрольного символа.

Стандарт сообщает, что для расчета символа требуется:

1. Коды всех символов помножить на весовой коэффициент (фактически, порядковый номер символа в коде, начиная с первого).
2. Просуммировать полученные произведения и добавить к ним код Start’a (104-для A, 105 для B и 106 для C).
3. Вычислить остаток от деления полученной суммы на 103.

 

Реализация в 1С осложняется разницей в несколько ином кодировании символов в Стандарте и шрифте. Для кода группы B для декодирования (определения кода для расчета суммы):

Код символа	Стандарт
0..31	64..95 (прибавление 64)
От 32	От 0 (вычитание 32)

 

Для кодирования (преобразования вычисленного остатка в код символа)

Стандарт	Код символа
0..94	32..126 (прибавление 32)
От 95	От 105 (прибавление 100)

 

Таким образом при формировании контрольного символа перед расчетом остатка от деления потребуется преобразовать коды символов кода. А затем полученный остаток преобразовать в код по иным правилам.

 

На встроенном языке 1С Предприятие 7/8 команда формирования штрихкода  

ШК = Симв(204)+Наименование+КонтрСимв(Наименование)+Симв(206)

 

 

Текст функции КонтрСимв(Наименование) для 1С: Предприятие 7 и 8

//Для 7.х
Функция КонтрСимв(Наим)
Рез = 104;
Дл = СтрДлина(Наим);
Для Н=1 По Дл Цикл
Р = КодСимв(Лев(Наим,1));
Р = ?(Р>=32,Р-32,Р+64);
Рез = Рез+Р*Н;
Наим = Прав(Наим,СтрДлина(Наим)-1);
КонецЦикла;
Рез = Рез%103;
Рез = ?(Рез>94,Рез+100,Рез+32);
Возврат Симв(Рез);
КонецФункции

 

 

// Для 8.х
Функция КонтрСимв(Наим)
Рез = 104;
Дл = СтрДлина(Наим);
Для Н=1 По Дл Цикл
Р = КодСимвола(Лев(Наим,1));
Р = ?(Р>=32,Р-32,Р+64);
Рез = Рез+Р*Н;
Наим = Прав(Наим,СтрДлина(Наим)-1);
КонецЦикла;
Рез = Рез%103;
Рез = ?(Рез>94,Рез+100,Рез+32);
Возврат Символ(Рез);
КонецФункции

 

 

Литература

ГОСТ 30743-2001 — Автоматическая идентификация. Кодирование штриховое. Спецификация символики Code 128 (Код 128) http://www.g-ost.ru/6846.html