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

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    47542    53    44    

64

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

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

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

2000 руб.

04.11.2019    28134    113    87    

52

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

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

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

20.01.2023    1807    aldar    0    

7

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

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

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

2 стартмани

03.01.2023    2992    19    AndreyPonom    7    

9

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

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

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

2 стартмани

04.05.2022    11846    44    aximo    3    

11

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

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

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

1 стартмани

01.05.2022    11140    6    zemskov    7    

5

Вывод изображений штрихкодов на СКД

СКД Этикетки, ценники Система компоновки данных 8.3.14 Конфигурации 1cv8 Россия Абонемент ($m)

Расширение и отчет для вывода изображений штрихкодов номенклатуры в СКД. Может быть использована как заготовка для создания собственного отчета.

1 стартмани

27.04.2022    4602    21    SergeyPZU    13    

18
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
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-битной платформе.
(см. рисунок)
Прикрепленные файлы:
Оставьте свое сообщение