Недавно писал инструкцию, как печатать из Word несколько писем и конвертов по списку. Также для заказных писем необходимо вести реестр заказных писем. Для этого на каждый конверт приклеивается наклейка штрих-код, которая выдаётся на почте листами.

Первые 6 чисел в ней – это Индекс предприятия связи места приёма, далее идут 2 цифры – Порядковый номер месяца печати, штрихкодового идентификатора, начиная с 01.2000 (значение 01), далее 5 цифр – Номер почтового отправления и в конце – контрольная сумма (контрольный разряд).

Первые 8 цифр идут одинаковые для всех писем, сложностей нет никаких.

Номер почтового отправления тоже можно заполнить автоматом – числа идут по порядку, можно автоматически пронумеровать, например через Excel.

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

Наверняка формулу можно рассчитать и через Excel, но мне быстрее оказалось через Delphi. Так что кому нужен исходник на Delphi: Контрольная сумма почтового штрих-кода, пишите zoth@bk.ru

Tags: delphi