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

02.08.09

Разработка - Универсальные функции

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

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Генерация штрихкодов EAN13 и EAN8
.1248847603 19,36Kb
611 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

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

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

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

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

 

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

Вступайте в нашу телеграмм-группу Инфостарт

См. также

Загрузка и выгрузка в Excel Универсальные функции Программист 1С:Предприятие 8 Россия Бесплатно (free)

Описанный ниже подход позволяет в три шага заполнять формулы в Excel файлы, вне зависимости от ОС сервера (MS Windows Server или Linux). Подход подразумевает отказ от работы с COM-объектом в пользу работы через "объектную модель документа" (DOM).

30.10.2025    3554    Abysswalker    9    

45

Универсальные функции Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

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

14.05.2025    6572    DeerCven    15    

57

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

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

21.05.2024    49300    dimanich70    83    

170

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    7369    6    John_d    13    

59

Универсальные функции Программист Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    61798    atdonya    31    

70

Универсальные функции Программист 1С:Предприятие 8 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    9177    ke.92@mail.ru    17    

68
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Душелов 4024 02.08.09 00:14 Сейчас в теме
Стоит убрать из описания
"Ну и не лишним будет плюс к рейтингу, если обрабокта полезна."

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

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

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

Показать
26. WellMaster 106 09.02.16 08:48 Сейчас в теме
(25) bgxz, Спасибо. Действительно, за более чем 6 лет ни разу не столкнулся с такой ситуацией.
29. Elvisnya 22 29.07.19 15:53 Сейчас в теме
Я буду использовать так:
1. Создается заказ на изготовление букета цветов на котором есть штрихкод.
2. Когда флорист сделает букет, он отсканирует штрихкод. В 1С по этому штрихкоду пометится, что букет готов.
3. Голосовой синтезатор скажет, что статус букета изменен.
Для отправки сообщения требуется регистрация/авторизация