Генерация штрихкодов EAN13 и EAN8

Программирование - Универсальные функции

Генерация штрихкодов EAN13 и EAN8 позволяет генерировать в удобном виде любое количество Штрихкодов для последующего использования, например, в качестве паролей для кассиров на кассах.

Обработка будет полезна также и разработчикам. В ней приведена реализация алгоритма формирования штрихкодов формата EAN13 и EAN8. Алгоритм был портирован из аналогичного кода для платформы 7.7 (автора уже не помню, но всегда ему благодарен).

Также в обработке реализован хороший генератор случайных чисел, источник алгоритма тоже утерян.

Все собрано в простом интерфейсе, максимально автоматизировано.

Для корректного отображения сформированных штрихкодов необходимо установить специальные шрифты (в архиве с обработкой). Шрифты двух типов: с цифрами и без цифр (менять в макете печатной формы по желанию).

 

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

Скачать файлы

Наименование Файл Версия Размер
Генерация штрихкодов EAN13 и EAN8
.1248847603 19,36Kb
25.09.09
579
.1248847603 19,36Kb 579 Скачать

См. также

Комментарии
1. dushelov (Душелов) 02.08.09 00:14 Сейчас в теме
Стоит убрать из описания
"Ну и не лишним будет плюс к рейтингу, если обрабокта полезна."

В тексте после "Оценка сообщества" все уже написано.
2. WellMaster (WellMaster) 98 02.08.09 21:05 Сейчас в теме
3. Сергей (yarilio) 12.10.09 23:20 Сейчас в теме
Когда очень нужно, хоть целуй в ноги! Спасибо, нужная штука.
4. WellMaster (WellMaster) 98 21.10.09 13:59 Сейчас в теме
(4) Вы первый человек, кому пригодилась обработка (с момента, когда была выложена на Инфостарт) ;)
5. Дмитрий Шерстобитов (DitriX) 2466 07.12.09 11:21 Сейчас в теме
Спасибо. Очень пригодилась.
6. Дмитрий Леонов (Psylocibine) 12.07.10 20:13 Сейчас в теме
Спасибо! Однозначно плюс)
7. Костя Николаевич (gerkonst) 13.03.11 12:51 Сейчас в теме
8. Ольга (Ольга_tmp) 39 12.09.11 13:02 Сейчас в теме
Спасибо, пригодилась в магазине
9. Lvbnhbq Овчинников (diman_lnk) 21.10.11 07:25 Сейчас в теме
10. WellMaster (WellMaster) 98 21.10.11 08:16 Сейчас в теме
11. Арти Шарти (Tommy1987) 3 16.11.11 13:17 Сейчас в теме
12. Roman Kobby (Muppet) 30.11.11 08:28 Сейчас в теме
Спасибо. отличная работа
13. WellMaster (WellMaster) 98 30.11.11 09:46 Сейчас в теме
14. Игорь (doronin70) 30.11.11 11:42 Сейчас в теме
Отличная и нужная обработка!
15. Сергей Графчиков (Sergeant82) 20.12.11 14:47 Сейчас в теме
Полезная вещь! Пришлось немного поразбираться, но результат достигнут, и это главное. Плюс с меня =)!
16. no_registration no_registration (no_registration) 21.12.11 19:04 Сейчас в теме
Хорошая обработка. Жалко только в типа штрих кодов
17. WellMaster (WellMaster) 98 21.12.11 19:32 Сейчас в теме
(16) no_registration, а какие еще типы ШК необходимы?
18. Сергей Чернышов (fadaserw) 6 08.02.12 15:15 Сейчас в теме
это обработка формирут штихкод по алгоритму??
19. Сергей Чернышов (fadaserw) 6 08.02.12 15:51 Сейчас в теме
где в конфигурации УПП Задать префикс Штрихкода из 5 цифр?
20. WellMaster (WellMaster) 98 08.02.12 17:11 Сейчас в теме
(18) fadaserw, Да, ШК формируется по алгоритму.
Где в УПП задать префикс - не знаю.
21. Sergey Smirnov (smirnoffs) 16.05.12 11:43 Сейчас в теме
А расскажите как у вас реализован вход по штрихкоду. Меняете пароли или пароль один и тот же? Использованные штрихкоды где-то хранятся чтобы не переиспользовались?
22. WellMaster (WellMaster) 98 16.05.12 13:22 Сейчас в теме
(21) На кассе в программе при входе в режим кассира нужно ввести цифровой пароль. При этом есть возможность прочитать сканером штрихкод. Он переводится в числовое значение и подставляется в поле ввода пароля. Если задать пароль кассира равным сгенерированному ШК - то выполнится вход.
Пароли нигде не хранятся, обновляются регулярно, но не строго по графику.
23. Вадим Назаров (NazarovV) 79 15.01.13 11:23 Сейчас в теме
Однозначно плюс и большое спасибо!
Только,было бы неплохо,после сформированных штрихкодов - сразу назначать эти штрихкоды определенной номенклатуре, что собственно я и дописал;) с вашего разрешения - выложу.
24. WellMaster (WellMaster) 98 15.01.13 12:03 Сейчас в теме
(23) NazarovV, Собственно, всегда пожалуйста.
Любые доработки на ваше усмотрение.
25. Авраам Линкольн (bgxz) 08.02.16 17:27 Сейчас в теме
После 999-го штрихкода генерит 12-значный EAN13.
Проблема вот тут:

Функция ДополнитьСтрокуВедущимиНулями(Число,ЧислоСимволов)
	
	Строкой = Строка(Число);              //надо бы вот так: 	Строкой = СтрЗаменить(Строка(Число), Символы.НПП, ""); 
	Длина 	= СтрДлина(Строкой);    // при передаче 1000 возвращает длину 5, дальше соответственно рубит один ноль.

	Для Сч = 1 По ЧислоСимволов - Длина Цикл
		Строкой = "0" + Строкой;
	КонецЦикла;
	
	Возврат Строкой; 
	
КонецФункции

...Показать Скрыть
26. WellMaster (WellMaster) 98 09.02.16 08:48 Сейчас в теме
(25) bgxz, Спасибо. Действительно, за более чем 6 лет ни разу не столкнулся с такой ситуацией.
Оставьте свое сообщение