Генерация и печать штрих кодов для регистрационных и дисконтных карт

02.12.11

Обработка для генерации и печати штрихкодов в формате бэйджика.

Файлы

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

Наименование	Скачано	Купить файл	По подписке PRO
Обработка .epf 21,53Kb 300	300	1 850 руб. Купить	1 SM Скачать

Обработка для управления торговлей 10 и УПП (на других не тестировалось). Генерирует штрихкод с использованием типовой компоненты "1С: Печать штрихкодов" и выводит на печать в формате бэйджика. Можно использовать в качестве регистрационных карт пользователей или в качестве дисконтных карт.

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

+23 –

См. также

Код маркировки и GTIN (EAN13/EAN128) на одной этикетке в 1С

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

Вы работаете с маркируемым товаром? Вам нужно вывести штрихкод GTIN на этикетку? Вы используете типовое решение УТ, УНФ, КА или ERP? В типовых конфигурациях нет возможности добавить штрихкод GTIN на этикетку. Сейчас это очень важно для торговых сетей. Добавьте штрихкод GTIN рядом со штрих кодом DataMatrix (код маркировки) на Ваши этикетки с нашим расширением. Решение в виде расширения, а это означает, что конфигурация останется на поддержке. Подключив данное решение, Вы сможете выводить GTIN в виде штрих кода EAN13 (без лидирующего нуля)/EAN128 (с лидирующим нулем).

5400 руб.

09.06.2021 18743 26 19

Печать Дата Матрикс (Data Matrix) в 1С для поставщиков X5

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

Внутренняя Маркировка продукции «Перекресток»

22800 руб.

01.08.2025 1328 1 0

Ценники и этикетки со штрих-кодом для 1С 8.х

Этикетки, ценники Пользователь 1С v8.3 1C:Бухгалтерия Розничная и сетевая торговля (FMCG) Рестораны, кафе и фаст-фуд Беларусь Украина Россия Управленческий учет Платные (руб)

Простая в использовании обработка для формирования и печати ценников и этикеток со штрих-кодом, с дополнительной ценой, для 1С8.х Большое разнообразие шаблонов печатных форм. Управляемая форма (Такси) + Обычный режим.

5000 руб.

11.11.2020 52830 67 48

Печать ценников в 1С:Розница 2.3, УНФ 1.6 (две цены + серийные номера) + УНФ 3.0

Этикетки, ценники Пользователь 1С v8.3 Управляемые формы 1С:Розница 2 1С:Управление нашей фирмой 1.6 Платные (руб)

Встроенная в конфигурации Розница 2.3 и УНФ 1.6 подсистема печати ценников по мне слишком неповоротлива и с усилиями поддается тонкой настройке, решил с нуля написать свою универсальную печать ценников для этих конфигураций.

5100 руб.

04.11.2019 31662 120 89

Набор примеров макетов ценников и этикеток для 1С:Розница 3.0 и УНФ 3.0

Этикетки, ценники Программист Пользователь 1С v8.3 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Розничная и сетевая торговля (FMCG) Россия Абонемент ($m)

Небольшой архив с этикетками и ценниками для 1С:Розница 3.0 или 1С:УНФ 3.0.

3 стартмани

28.01.2025 4259 23 aximo 5

Контроль ценников

Этикетки, ценники Пользователь 1С v8.3 1С:Розница 2 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 Абонемент ($m)

Расширение "Контроль ценников". Позволяет автоматизировать контроль над устаревшими ценниками в магазине при изменении цен на товары. Продавцы или товароведы получают список товаров с измененными ценами для замены ценников в режиме онлайн.

10 стартмани

30.10.2024 2372 18 Miket78 23

Печать этикеток штрихкода весового товара на принтере термоэтикеток или кассовом аппарате

Этикетки, ценники Пользователь 1С v8.3 1С:Розница 2 Розничная и сетевая торговля (FMCG) Россия Абонемент ($m)

Внешняя обработка для 1С Розница 2.2.ХХХ - 2.3.ХХХ для печати формирования штрихкодов весового товара и печати на принтере термоэтикеток или кассовом аппарате.

1 стартмани

29.10.2024 2588 20 independ 6

Печать кодов маркировки из файла .CSV

Этикетки, ценники Пользователь 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Обработка для печати кодов марок, полученных из системы "Честный знак".

4 стартмани

09.10.2024 2978 34 user2105876 3

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

0. andy_zhav 199 04.12.11 09:31 Сейчас в теме

Обработка для генерации и печати штрихкодов в формате бэйджика.

Перейти к публикации

1. net7wolf 48 04.12.11 09:31 Сейчас в теме

Классно + авансом. еще бы для 8.1 сделал.

2. FeDBuka 9 20.01.12 06:58 Сейчас в теме

Очень нужная обработка, только почему 1с не добавила это в типовой релиз?

3. Dr.ZIG 27 05.03.12 12:53 Сейчас в теме

Спасибо за обработку. Полдня потратил, чтобы типовую найти.

4. Alexey55 02.04.12 19:04 Сейчас в теме

Спасибо! как раз вовремя! попробуем

5. Konder.Djironimo 28.06.12 17:26 Сейчас в теме

+++ Дооооолго искал и вот! Спасибо !

6. andrewrocker 1 11.08.14 16:40 Сейчас в теме

а вы можете добавить еще отбор по группам карт? завтра утром буду пробовать печатать на принтере этикеток

8. esa35 89 29.10.16 10:06 Сейчас в теме

спасибо

9. mdbm 190 24.11.22 08:44 Сейчас в теме

Исключительная ошибка на выделенной строке.

Поле объекта не обнаружено (ТипКода)

Обратите внимание на макет.

Прикрепленные файлы:

10. mdbm 190 24.11.22 09:44 Сейчас в теме

(9)
Проблема была в том что у меня 64-битная платформа.
В форме построителя компонента не подключалась.

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	Попытка
		КомпонентаШК = Новый COMОбъект("V8.Barcod.1");
	Исключение
		КомпонентаШК = Неопределено;
		Сообщить("Не установлена компонента 1С:Печать штрихкодов.");
	КонецПопытки;
	Построитель.Текст =  ТекстПостроителя();
	
КонецПроцедуры

Показать

Попробовал заменить строку регистрации компоненты на альтернативную, взятую отсюда https://infostart.ru/1c/articles/943944/

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	Попытка
		КомпонентаШК = ПодключитьВнешнююКомпонентуПечатиШтрихкода();
	Исключение
		КомпонентаШК = Неопределено;
		Сообщить("Не установлена компонента 1С:Печать штрихкодов.");
	КонецПопытки;
	Построитель.Текст =  ТекстПостроителя();
	
КонецПроцедуры

Показать

И это повлекло за собой цепочку проблем, в том числе и ту, которую я опубликовал в предыдущем сообщении #9

Немного подшаманил ваш код, опять таким руководствуясь этой публикации https://infostart.ru/1c/articles/943944/
В модуле построителя:

Процедура КнопкаВыполнитьНажатие(Кнопка)
	Запрос = Построитель.ПолучитьЗапрос();
	Выборка = Запрос.Выполнить().Выбрать();
	Таб = Новый ТабличныйДокумент;
	Макет = ПолучитьМакет("РегистрационнаяКарта");
	инд = 1;
	Пока Выборка.Следующий() Цикл
		ОбластьМакета = Макет.ПолучитьОбласть("Карта");
		ШК = Выборка.КодКарты;			
		//ТипКода = ПолучитьЗначениеТипаШтрихкодаДляЭУ(Выборка.ТипШтрихкода);
		ОбластьМакета.Параметры.ФИО = Выборка.ВладелецКарты;
		Если РаботаСТорговымОборудованием.ПроверитьШтрихКод(ШК, Выборка.ТипШтрихкода) Тогда
			//ОбластьМакета.Рисунки.Штрихкод.Объект.ТипКода = ТипКода;
			//ОбластьМакета.Рисунки.Штрихкод.Объект.Сообщение = ШК;    		
			РисунокШтрихкодаИсточник=ОбластьМакета.Рисунки.ШтрихКод;
			
			РисунокШтрихкода = ОбластьМакета.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
			РисунокШтрихкода.Верх = РисунокШтрихкодаИсточник.Верх;
			РисунокШтрихкода.Лево = РисунокШтрихкодаИсточник.Лево;
			РисунокШтрихкода.Высота = РисунокШтрихкодаИсточник.Высота;
			РисунокШтрихкода.Ширина = РисунокШтрихкодаИсточник.Ширина;
			РисунокШтрихкода.Имя = РисунокШтрихкодаИсточник.Имя;
			РисунокШтрихкода.Линия = РисунокШтрихкодаИсточник.Линия;
			РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
			
			ОбластьМакета.Рисунки.Удалить(РисунокШтрихкодаИсточник);
			
			ПараметрыШтрихкода = Новый Структура;
			ПараметрыШтрихкода.Вставить("Ширина", РисунокШтрихкодаИсточник.Ширина);
			ПараметрыШтрихкода.Вставить("Высота", РисунокШтрихкодаИсточник.Высота);
			ПараметрыШтрихкода.Вставить("Штрихкод", ШК);
			ПараметрыШтрихкода.Вставить("ТипКода", 1);
			ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
			ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина);
			ПараметрыШтрихкода.Вставить("РазмерШрифта", 10);
			ПараметрыШтрихкода.Вставить("Масштабировать", Истина);
			ПараметрыШтрихкода.Вставить("СохранятьПропорции", Истина);
			
			РисунокШтрихкода.Картинка= ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода); 
                        //https://infostart.ru/1c/articles/943944/
						
		Иначе
			ОбластьМакета.Рисунки.Очистить();
		КонецЕсли;
		Если инд = 1 Тогда
			Таб.Вывести(ОбластьМакета);
			Инд = 2;
		Иначе
			Таб.Присоединить(ОбластьМакета);
			инд = 1;
		КонецЕсли;
	КонецЦикла;
	Таб.Защита = Ложь;
	Таб.ТолькоПросмотр = Истина;
	Таб.ОтображатьСетку = Ложь;
	Таб.ОтображатьЗаголовки = Ложь;
	Таб.Показать();
КонецПроцедуры

Показать

и обработка печати заработала теперь и на 64-битной платформе.
(см. рисунок)

Прикрепленные файлы: