Печать наклеек с штрих кодом из документа "Заказ поставщика"

03.02.21

Задачи пользователя - Этикетки, ценники

Если есть необходимость произвести печать некоторого количества наклеек одного товара непосредственно из документа, то данное приложение будет малая помощь тем кому это действительно необходимо.

Скачать файлы

Наименование Файл Версия Размер
Печать наклеек с штрих кодом из документа "Заказ поставщика":
.epf 55,17Kb
13
.epf 13.1 55,17Kb 13 Скачать

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

1. Производим заполнение реквизитов из документа по каждой строке 

Процедура ЗаполнитьРеквизиты()
	
	Для Каждого Стр Из Поступление.Товары Цикл
		НоваяСтрока = Объект.Товары.Добавить();
		ЗаполнитьЗначенияСвойств(НоваяСтрока, Стр);
		НоваяСтрока.Артикул = Стр.Номенклатура.Артикул;
		НоваяСтрока.РабочееНаименование = Стр.Номенклатура.Наименование;	
		НоваяСтрока.НаименованиеПолное = Стр.Номенклатура.НаименованиеПолное;	
		НоваяСтрока.ШтрихКод = ПолучитьШтрихКод(Стр.Номенклатура.Артикул);
		НоваяСтрока.Производитель = ПолучитьПроизводитель(Стр.Номенклатура.Артикул)
	КонецЦикла;
	
КонецПроцедуры

2. Далее после заполнение и проверки количества, производим печать с предварительным просмотром конечно

&НаКлиенте
Процедура ПечатьНаклеек(Команда)
	
	МассивОбъектов = Новый Массив;
	МассивОбъектов.Добавить(Поступление);        
	Печать("ПечатьДокументаИзФормы",МассивОбъектов);
	
КонецПроцедуры

3. Ну и сама непосредственно печать

&НаКлиенте
Процедура Печать(ИдентификаторКоманды, МассивОбъектов) Экспорт
	
	ТабДок = Новый ТабличныйДокумент;
	ПечатьНаСервере(МассивОбъектов, ТабДок);
	ТабДок.Показать();
	
КонецПроцедуры

 4. Заключительный и важный этап

&НаСервере
Процедура ПечатьНаСервере(МассивОбъектов, ТабДок)
	
	Макет = ПолучитьМакетСервер(Поступление.Ссылка);
	ОблСтрока = Макет.ПолучитьОбласть("Строка|Столбец");
	УжеДобавили = 0;
	ЗначениеШтрихкодаПроверкаНаСовпадение = "";
	Счик = 1;
	Для Каждого Стр Из Объект.Товары Цикл
     Если СтрДлина(Стр.Артикул) > 25 Тогда 
	  РазмерШрифтаДляМакета = 18
	 ИначеЕсли СтрДлина(Стр.Артикул) < 24 Тогда
	  РазмерШрифтаДляМакета = 24;		
	 КонецЕсли;
	   ЗначениеШтрихкода = Стр.ШтрихКод;
	     Если ЗначениеЗаполнено(ЗначениеШтрихкода) Тогда
			 ПараметрыШтрихкода = Новый Структура;
			 ПараметрыШтрихкода.Вставить("Ширина", 110 );                       
			 ПараметрыШтрихкода.Вставить("Высота", 65 );                        
			 ПараметрыШтрихкода.Вставить("Штрихкод", СокрЛП(ЗначениеШтрихкода));  
			 ПараметрыШтрихкода.Вставить("ТипКода", 1 );                      
			 ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина);              
			 ПараметрыШтрихкода.Вставить("РазмерШрифта", 10 );                   
			
			 ИмяФайлаКартнки = ПолучитьИмяВременногоФайла("jpg"); 
			 ДвоичныеДанныеКартинки = ПолучитьМакетКартинкаСервер("МакетКартинки");   
			 ДвоичныеДанныеКартинки.Записать(ИмяФайлаКартнки);						
				
			 Рисунок = ОблСтрока.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); 
			 Рисунок.Верх = 22; 
			 Рисунок.Высота = 34; 
			 Рисунок.Ширина = 63; 
			 Рисунок.Лево = 58;
			 Рисунок.Картинка = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода); 
			 Рисунок.РазмерКартинки = РазмерКартинки.Растянуть;
			 Рисунок.Линия = Новый Линия(ТипЛинииРисункаТабличногоДокумента.НетЛинии);
		  Иначе 
			 Рисунок = ОблСтрока.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); 
			 Рисунок.Верх = 22; 
			 Рисунок.Высота = 34; 
			 Рисунок.Ширина = 64; 
			 Рисунок.Лево = 58;
			 Рисунок.Картинка = БиблиотекаКартинок.ЭлектронныеДокументыНеправильнаяПодпись;
			 Рисунок.РазмерКартинки = РазмерКартинки.РеальныйРазмер;
			 Рисунок.Линия = Новый Линия(ТипЛинииРисункаТабличногоДокумента.НетЛинии);
		 КонецЕсли;

		Для j = 1 По Стр.Количество Цикл 	
			Обл = ОблСтрока.Область("Артикул");
			Обл.Шрифт = Новый Шрифт(Обл.Шрифт, ,РазмерШрифтаДляМакета);
			Обл.Текст = Стр.Артикул;  
			ОблСтрока.Параметры.Производитель      = Стр.Производитель;
			ОблСтрока.Параметры.НаименованиеПолное = "Наименование:  " + Стр.НаименованиеПолное;
			
				Если Счик = 1 Тогда
					ТабДок.Вывести(ОблСтрока);
				Иначе
					ТабДок.Присоединить(ОблСтрока);
				КонецЕсли;
			
			Если Счик = 3 Тогда
				Счик = 1;
			Иначе
				Счик = Счик + 1;
			КонецЕсли;
			
		КонецЦикла;
	  ЗначениеШтрихкодаПроверкаНаСовпадение = ЗначениеШтрихкода;
	КонецЦикла;

	ТабДок.ЭкземпляровНаСтранице = 1; 
	ТабДок.Автомасштаб = истина; // аналогично настройкам масштаба «по ширине страницы»	
	ТабДок.ПолеСлева = 2; 
	ТабДок.ПолеСверху = 6; 
	ТабДок.ПолеСнизу = 0;
	ТабДок.ПолеСправа = 0;	
    ТабДок.ОтображатьСетку = Ложь; // не отображать сетку при просмотре документа
	
	УдалитьФайлы(ИмяФайлаКартнки);

КонецПроцедуры

Далее по желанию можно менять размер и количество

Юзабилити на основной форме пока не делал, но это все решаемо.

 

Это внешняя обработка, компоненты для нее не нужны, обработка использует типовые механизмы конфигурации Управление торговлей 11.1(2.3) платформы 1С:Предприятие 8.2 и/или 8.3 

Данная внешняя обработка использует типовые механизмы конфигурации  Управление торговлей релиз 11.1
Управление торговлей релиз 11.2
Управление торговлей релиз 11.3
на платформе 1С:Предприятие 8.2 или  1С:Предприятие 8.3

 Минимальный релиз платформы. Управление торговлей релиз 11.1
на Управление торговлей релиз 11.4 не устанавливалась, так что дерзайте у вас все получится.   

Внешняя обработка

См. также

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

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

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

3588 руб.

11.11.2020    47566    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    28142    113    87    

52

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

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

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

20.01.2023    1809    aldar    0    

7

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

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

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

2 стартмани

03.01.2023    2996    19    AndreyPonom    7    

9

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

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

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

2 стартмани

04.05.2022    11872    44    aximo    3    

11

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

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

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

1 стартмани

01.05.2022    11160    6    zemskov    7    

5

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

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

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

1 стартмани

27.04.2022    4608    21    SergeyPZU    13    

18
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. user882676 04.10.18 09:58 Сейчас в теме
Работает УТ 11.1.9.61 Спасибо!
2. creatermc 27 04.10.18 13:07 Сейчас в теме
Всегда рад,
когда маломальская обработка оказалась полезной не только мне
Оставьте свое сообщение