Генератор последовательности штрих-кодов с помощью Excel-файлов

06.05.21

Учетные задачи - Розничная торговля

Файл в Excel позволяет сделать текст последовательности кодов штрих-кодов EAN13 от начального значения до заданного, при этом штрих-код рассчитывается корректно, с последней контрольной цифрой.

Скачать файл

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

Наименование По подписке [?] Купить один файл
Генератор последовательности штрих-кодов с помощью Excel-файлов:
.xls 1,19Mb
25
25 Скачать (1 SM) Купить за 1 850 руб.

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

В файле нужно задать 12 цифр начального штрих-кода, количество штрих-кодов (максимум 10.000, но можно увеличить количество строк в файле) и шаг (по умолчанию 1):

 

 

Формула Excel для расчета штрих-кода:

=ЕСЛИ(B11="";"";B11*10+ОСТАТ(10-ОСТАТ(3*(ПСТР(B11;2;1)+ПСТР(B11;4;1)+ПСТР(B11;6;1)+ПСТР(B11;8;1)+ПСТР(B11;10;1)+ПСТР(B11;12;1))+ПСТР(B11;1;1)+ПСТР(B11;3;1)+ПСТР(B11;5;1)+ПСТР(B11;7;1)+ПСТР(B11;9;1)+ПСТР(B11;11;1);10);10))

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

Для генерации штрих-кода можно использовать сайт barcode.tec-it.com/ru/EAN13. Там даже есть возможность сгенерировать последовательность штрих-кодов:

 

 

 

Однако, к сожалению, нельзя получить текст со списком штрих-кодов, в скачиваемом архиве только картинки штрих-кодов:

 

Выглядят они так:

 

штрих-коды excel

См. также

ККМ Кассовые операции Розничная торговля Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия 1.6 1С:Бухгалтерия автономного учреждения Россия Платные (руб)

Универсальная обработка для обслуживания любых фискальных регистраторов (ККТ), в том числе Веб сервер АТОЛ. Работает в соответствии с 54-ФЗ. (ФФД 1.0, ФФД 1.05, ФФД 1.1, ФФД 1.2). Подключайте любую онлайн кассу к практически любой конфигурации на обычных формах. Нет необходимости обновлять 1С. Можно бесплатно скачать и протестировать. Может работать одновременно с несколькими онлайн-кассами, либо одной с разных рабочих мест. (через RDP, TCP\IP или веб-сервер) Позволяет разделить один чек сразу на несколько ККТ или на несколько систем налогообложения. Поддерживает разрешительный режим и маркировку. Поддерживает локальный модуль честного знака для офлайн проверки. Можно настроить собственный шаблонов чека. Можно использовать эквайринг там, где он не поддерживается. Работает на LINUX и Windows

6000 руб.

27.02.2017    824527    5259    9815    

2965

Оптовая торговля Розничная торговля Обмен с ГосИС Бухгалтер Платформа 1С v8.3 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

Автоматизация учета ЕГАИС в 1С для оптовой торговли, производства и импорта. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

828 руб.

15.12.2015    173422    908    370    

407

ККМ Кассовые операции Розничная торговля Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия автономного учреждения Россия Платные (руб)

Обработка осуществляет обслуживание ККТ АТОЛ, Штрих, Вики Принт и Меркурий для конфигураций "УТ 10.3", "КА 1.1", "УПП 1.3", "Розница 1.0", "БП 2.0" и других отраслевых решений, построенных на основе указанных выше конфигурациях. Поддерживает возможность параллельно пробития чеков на одной ККМ несколькими пользователями. Поддерживает Веб-сервер Атол. Соответствует требованиям 54-ФЗ. Поддерживает ФФД 1.0, 1.05, 1.1 и 1.2. Разделяет чеки по нескольким СНО. Поддерживает механизмы подключения ККТ по TCP/IP, для работы через RDP или интернет. Поддержка маркировки и разрешительного режима. Поддержка пробития чеков с новыми ставками НДС 5% и НДС 7%.

7900 руб.

25.05.2015    344214    2112    3121    

1100

Оптовая торговля Розничная торговля WEB-интеграция 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Платные (руб)

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

57600 руб.

26.11.2024    3275    3    3    

5

ККМ Кассовые операции Розничная торговля Программист Бухгалтер Пользователь Бухгалтерский учет Оперативный учет Управляемые формы 1С:Розница 2 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Расширение для типовых конфигураций для Управляемых форм позволяет выполнять печать кассовых чеков на одну ККМ 54-ФЗ с нескольких рабочих мест. НИКАКИХ НАСТРОЕК В РАЗРАБОТКЕ - ПОДКЛЮЧИЛ И ПЕЧАТАЙ. Если у вас несколько отделов и одна ККМ - печатайте на одной ККМ! Если у вас две ККМ и одна поломалась - печатайте на одной ККМ, пока ремонтируете другую!

9500 руб.

27.08.2018    126714    691    603    

904
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. RustIG 1881 06.05.21 14:22 Сейчас в теме
(0) Добрый день!
Онлайн-генератора последовательности штрих-кодов

Генератор ШК для подарочных карт я в свое время создавал в самой 1с, сразу привязывая к подарочным картам. Дело касалось УТ 10.3.
3. fixin 4286 06.05.21 15:14 Сейчас в теме
(1) да, но это в целом вообще изолированный инструмент в Excel, который не требует привлечения программиста. ;-)
У них там вроде есть программа для загрузки прихода с штрих-кодами, они потом из этого же файла его и грузят.
2. webester 26 06.05.21 15:10 Сейчас в теме
Тоже не поймал глубину мысли, там 5 строчек кода на генерацию нужного количества кодов и 5 строчек на вывод этого дела в таб док, из которого получается эксель. Типография которая не может воткнуть штрихкода в сертификаты просто по указанному диапазону номеров...
4. fixin 4286 06.05.21 15:15 Сейчас в теме
(2) есть такие типографии. ;-) Ей даже список картинок не годится.
А разработка реально была востребована клиентом и оплачена.
8. RustIG 1881 06.05.21 16:43 Сейчас в теме
(2) да, кстати, в свое время и у меня такое было - типография предоставила готовые штрихкоды на подарочных картах, запросив у меня только диапазон номером для штрихкодов, при этом штрихкоды были не ЕАН13, а СОДЕ39 с каким-то замысловатым трехсимвольным префиксом Jd] ...
согласен, что разные типографии встречаются...

пришлось дорабатывать окно 1с - для привязки подарочной карты к владельцу карты - когда передается карта - надо зафиксировать штрихкод + зафиксировать владельца по имени
10. webester 26 07.05.21 07:33 Сейчас в теме
(8)
согласен, что разные типографии встречаются....
Мне кажется, что если типография делает как удобно ей, а не как удобно клиенту(если отбросить реальные технические ограничения) то надо просто выйти из этой типографии, перейти дорогу и зайти в соседнюю. Там сделают как надо :)
13. fixin 4286 07.05.21 11:50 Сейчас в теме
(10) ну может у них сложились отношения и есть другие преимущества, кто знает.
5. webester 26 06.05.21 15:20 Сейчас в теме
(4) Список картинок действительно ей не должен подходить. Такие вещи как штрихкод на карте софт который собирает макет для печати сам должен генерить. Это обычно умеет каждый второй студент который начал возиться с печатью карт сертификатов. А зачем это делать не в 1с так и не стало понятнее. Возможно у клиента нет 1с конечно... но причем тут ИС...
6. fixin 4286 06.05.21 16:12 Сейчас в теме
(5) ну я первым делом слазил на инфостарт и поискал генератор диапазонов ШК EAN13, не нашел. Может, плохо искал.
7. webester 26 06.05.21 16:19 Сейчас в теме
(6)На ИС? И что ты искал? Уж очень интересно. Ты искал эти 4 строчки?:
Для сч = 1 По НужноеМнеКоличествоКодов
  Штрихкод =   "20000000000"+сч;
  Сообщить(Штрихкод + СтандартнаяПроцедураРасчетаКонтрольнойЦифрыИзОбщегомодуля(Штрихкод)) //здесь может быть вывод в табдок
КонецЦикла

Лениво пересчитывать нули, надеюсь не ошибся, при написании "генератора" диапазона штрихкодов
9. fixin 4286 06.05.21 21:32 Сейчас в теме
(7) да, что-то подобное я и искал. К тому же я не уверен, что в БСП есть функция по контрольному символу. Хотя раз ШК там генерируются, где-то должна быть. Но искать ее - застрелиться.
но решил, что лучше сделать это в Эксель, как раз для тех клиентов, у кого нет 1С. Да и вообще в Экселе это быстро делается.
11. webester 26 07.05.21 09:15 Сейчас в теме
(9)Гений уже не торт
Спешиал фор ю, как говорится.
Функция КонтрольныйСимволEAN(Штрихкод, Тип) Экспорт

	Четные   = 0;
	Нечетные = 0;

	КоличествоИтераций = ?(Тип = 13, 6, 4);

	Для Индекс = 1 По КоличествоИтераций Цикл
		Если (Тип = 8) И (Индекс = КоличествоИтераций) Тогда
		Иначе
			Четные   = Четные   + Сред(ШтрихКод, 2 * Индекс, 1);
		КонецЕсли;
		Нечетные = Нечетные + Сред(ШтрихКод, 2 * Индекс - 1, 1);
	КонецЦикла;

	Если Тип = 13 Тогда
		Четные = Четные * 3;
	Иначе
		Нечетные = Нечетные * 3;
	КонецЕсли;

	КонтрольнаяЦифра = 10 - (Четные + Нечетные) % 10;

	Возврат ?(КонтрольнаяЦифра = 10, "0", Строка(КонтрольнаяЦифра));

КонецФункции 

Показать

Писал обработку, которая присваивала всем позициям которые есть в поступлении, новые штрихкода, если они не были назначены до этого. Может даже выложить имеет смысл. Раз уж даже Гений не осилил "диапазон штрихкодов".
Прикрепленные файлы:
12. fixin 4286 07.05.21 11:50 Сейчас в теме
(11) кому удобнее будет в 1С, тот сделает в 1С. Мне показалось интересным в Экселе.
Функцию контрольного символа EAN проще нагуглить, чем найти в типовой, я это имел ввиду.
Спасибо за обработку, возможно она кому-то понадобится. Мне же показалось, что делать доп.внешнюю обработку дольше, чем скинуть Эксель файл.
Оставьте свое сообщение