gifts2017

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

Опубликовал WellMaster (WellMaster) в раздел Программирование - Универсальные функции

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

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

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

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

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

 

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

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

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

См. также

Подписаться Добавить вознаграждение

Комментарии

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

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

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

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

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