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

02.12.11

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

Скачать файл

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

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

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

+23 –

См. также

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

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

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

3588 руб.

11.11.2020 49685 60 47

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

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

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

2000 руб.

04.11.2019 29379 116 87

Контроль ценников для УТ 11.5, Розница 2.3, УНФ 3.0

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

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

10 стартмани

30.10.2024 251 3 Miket78 4

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

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

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

1 стартмани

29.10.2024 299 3 independ 1

Штрихкод ячейки как адрес в этикетке

Логистика, склад и ТМЦ Этикетки, ценники Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Управленческий учет Абонемент ($m)

Выводит при печати этикетки складской ячейки в качестве штрихкода адрес ячейки вместо уникального идентификатора

1 стартмани

20.06.2024 1138 3 Alexei_Siva 4

Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Программист Бизнес-аналитик Конфигурации 1cv8 Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023 18232 YA_418728146 9

119

Печать из Андроид

Этикетки, ценники Программист Мобильная платформа Бесплатно (free)

Печать этикеток на принтер WiFi без драйвера.

20.01.2023 2571 aldar 0

Ценники (этикетки) для термопринтера

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

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

2 стартмани

03.01.2023 4120 29 AndreyPonom 9

Комментарии

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

Свернуть все

0. andy_zhav 197 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-битной платформе.
(см. рисунок)

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