штрих код

[shady]

привет всем.
нужно сделать штрих-код в отчете, это мне нужно на бланке наложенного платежа для почты, штрих код должен состоять из 14 знаков. помогите кто чем может если знает. может быть есть модуль какой-нить...
спасибо

[Vinechka]

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

[shady]

а откуда брали если не секрет? но мне нужно именно с 14 знаками. посмотрел сейчас в DataDynamic ActiveReport там есть такая фича как штрих-код, так вот теперь не догоню какой стиль надо поставить...

[shady]

ура... ДатаДинамик рулит! есть мой штрих код у них...

[shady]

снова поднимаю тему!
новая проблема о которой я почему-то забыл
в штрих коде нужно вычислить контрольный разряд, который вычисляется очень интересным способом

Для расчета контрольного разряда в EAN-8, EAN-13, ITF-14, включая и американские коды UPC, используется один и тот же алгоритм вычислений ("по модулю 10"):

Пронумеровать все разряды СПРАВА НАЛЕВО от 1 до 14, НАЧИНАЯ С ПОЗИЦИИ КОНТРОЛЬНОГО РАЗРЯДА (1-Й).

ШАГ 1: Начиная со 2-го сложить значения всех ЧЕТНЫХ разрядов.
ШАГ 2: Полученную сумму умножить на 3.
ШАГ 3: Начиная со 3-го сложить значения всех НЕЧЕТНЫХ разрядов.
ШАГ 4: Сложить результаты, полученные во 2 и 3 шагах.
ШАГ 5: Значение контрольного разряда является наименьшим числом, которое в сумме с величиной, полученной в шаге 4, дает число, кратное 10.


Все недоразумения при расчетах возникают, как правило, по причине того, что многие неосознанно неправильно нумеруют разряды слева направо. При нумерации СПРАВА НАЛЕВО нет разницы в порядке расчета контрольного разряда С для 8, 12, 13 или 14-разрядного кода:

кто если знает или реализовывал помогите пожалуйста

[Antonariy]

И какие тут могут быть сложности?

Код: Выделить всё

Dim code(1 to 14) as Integer
Dim kr as Integer 'контрольный разряд
For x=2 to 14 step 2
    s1 = s1 + code(x)
next
For x=3 to 13 step 2
    s2 = s2 + code(x)
next
s = s1 * 3 + s2

А дальше решить уравнение
(s + kr) mod 10 = 0

[shady]

нифига себе..
я правда вто только как придумал

Код: Выделить всё

chet = (CLng(Mid(barcod, 1, 1)) + CLng(Mid(barcod, 3, 1)) + CLng(Mid(barcod, 5, 1)) + CLng(Mid(barcod, 7, 1)) + CLng(Mid(barcod, 9, 1)) + CLng(Mid(barcod, 11, 1)) + CLng(Mid(barcod, 13, 1))) * 3
nechet = CLng(Mid(barcod, 2, 1)) + CLng(Mid(barcod, 4, 1)) + CLng(Mid(barcod, 6, 1)) + CLng(Mid(barcod, 8, 1)) + CLng(Mid(barcod, 10, 1)) + CLng(Mid(barcod, 12, 1))