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

02.12.11

–

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

Скачать исходный код

	Наименование	Файл	Версия	Размер
	Обработка .epf 21,53Kb 299	.epf		21,53Kb	299	Скачать

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

–

См. также

Ценники и этикетки со штрих-кодом для 1С 8.х любой конфигурации

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

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

3588 руб.

11.11.2020 47798 53 44

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

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

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

2000 руб.

04.11.2019 28301 113 87

Штрих-коды в шаблоне этикетки

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

Решение позволяет в шаблон этикетки с типом "Этикетка (обувь, одежда, табак...)" добавлять штрих-коды другого типа, например, GTIN в Code128.

4000 руб.

09.06.2021 15036 7 6

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

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

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

15.09.2023 8191 YA_418728146 8

104

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

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

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

20.01.2023 1895 aldar 0

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

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

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

2 стартмани

03.01.2023 3105 19 AndreyPonom 7

Набор готовых макетов этикеток (ценников) для Розницы 2.3

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

Архив с экспортными шаблонами этикеток (ценников) формата 58х40. Для тех, кто не хочет сам рисовать их.

2 стартмани

04.05.2022 12221 44 aximo 3

Шаблон этикетки для УНФ (1С:Фреш)

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

Описан механизм создания этикетки для термопринтера ТSC TDP-225 в подробностях. Приложен XML-файл с самим шаблоном.

1 стартмани

01.05.2022 11381 6 zemskov 7

Комментарии

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

Свернуть все

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

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