Архив форумов ЦИТФорума

[Жека]

Доброго времени суток, дамы и господа!

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

Так вот интеерсует несколько вопросов:
1. где можно взять бесплатные шрифты для печати штрих-кодов, я несколько нашёл, но какие из них фри??? ХЗ (или где можно про это почитать!)
2. как происходит подсчёт конторльной суммы (Code-39)? Что-то никак не могу врубиться

Премного благодарен!

З.Ы.: если я не в тот форум запостил, то пусть меня модераторы исправят
_________________
(R)Jeka

[CrazyWizard]

Реализация расчета контрольной суммы.

/// Расчет контрольной суммы для переданного штрих-кода.
ClassMethod РассчитатьКонтрольнуюСумму(ШтрихКод As %String) As %String
{
s ЧетныеЭлементы = 0
s НечетныеЭлементы = 0

//Перебрать все элементы штрих-кода и посчитать суммы четных и
//нечетных его элементов.
f i = 1:1:6
{
s ЧетныеЭлементы = ЧетныеЭлементы + $Extract(ШтрихКод, i * 2)
s НечетныеЭлементы = НечетныеЭлементы + $Extract(ШтрихКод, i * 2 - 1)
}

s ЧетныеЭлементы = ЧетныеЭлементы * 3

s ОбщаяСуммаЭлементов = ЧетныеЭлементы + НечетныеЭлементы

s ОбщаяСуммаЭлементов = $Extract(ОбщаяСуммаЭлементов, 1, $Length(ОбщаяСуммаЭлементов) - 1) _ "0"

s КонтрольнаяСумма = 10 -
(ЧетныеЭлементы + НечетныеЭлементы - ОбщаяСуммаЭлементов)

if (КонтрольнаяСумма = 10)
{
s КонтрольнаяСумма = 0
}

//Вернуть результат.
q КонтрольнаяСумма
}

[Жека]