Печать этикеток-ценников для "1С: Управление торговлей"

Опубликовал Victor Nespyatin (victuan) в раздел Печать - Ценники

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

Подключается через механизм внешних печатных форм для докуметнов "Поступление товаров и услуг" и "Инвентаризация товаров на складе".

Форма изначально делалась для УТ 10.3 на платформе 8.1.

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

Наименование Файл Версия Размер
Печать этикеток-ценников
.epf 35,23Kb
03.10.11
495
.epf 35,23Kb 495 Скачать

См. также

Комментарии
1. Кирилл Раковский (RakovskiyK) 05.10.11 23:51 Сейчас в теме
спасибо, большое! Возьму как основу, т.к. данный вопрос актуален для меня в проектах
2. Геннадий Малюков (bes-kkm) 12.10.11 18:11 Сейчас в теме
ДОлго искал и вот нашел, то что нужно, уже попробовал, все работает. Спасибо.
3. Alex Dy (mmx2003) 13.10.11 19:57 Сейчас в теме
ну и как его юзать? скачивается файл под названием "Печать" не расширения ничего. поставил .erp в 1Ске не открывается...
4. Victor Nespyatin (victuan) 1475 14.10.11 04:46 Сейчас в теме
(3)Скачивается файл с названием "ПечатьЭтикеток+.epf". Как устанавливать написано в описании обработки и видно по первому скриншоту.
5. oleg eliz (q3q3q) 07.11.11 04:20 Сейчас в теме
Огромное спасибо. но вот незадача как самому написать обработку обслуживания? Может мне по этому поводу новую тему открыть или дайте ссылку на такую.
6. Victor Nespyatin (victuan) 1475 07.11.11 04:22 Сейчас в теме
(5)Моя обработка не требует обработок обслуживания.
7. Deniz200 18.11.11 09:58 Сейчас в теме
очень удобный вариант напечатать все и сразу. спасибо.
8. Кирилл Раковский (RakovskiyK) 23.11.11 11:30 Сейчас в теме
так и не дошел до тестирования
9. Стас Веселов (StasssiK) 16.12.11 23:04 Сейчас в теме
Спасибо, довольно таки интересная вещь. Но есть один вопрос, клиент хочет что бы в этикетке печатались 2 цены:
1) - настоящая, по которой продают в данный момент
2) - СТАРАЯ ЦЕНА (такой маркетинговый ход)
поможете реализовать?
10. Victor Nespyatin (victuan) 1475 17.12.11 16:59 Сейчас в теме
(9)Надо придумать как будет сообщаться обработке СТАРАЯ ЦЕНА и немного переделать макет этикетки.
11. Стас Веселов (StasssiK) 17.12.11 18:23 Сейчас в теме
(10) В УТ 10.3 в документе "Переоценка товаров в рознице" есть реквизит "ЦенаВРозницеСтарая". Его бы как-нибудь вывести.
12. Александр Шур (supershurik) 25.01.12 21:04 Сейчас в теме
Все работает. Спасибо. Директор счастлив как младенец.
13. Михаил Иванов (wwizard) 01.02.12 15:15 Сейчас в теме
{Форма.Форма.Форма(404)}: Поле объекта не обнаружено (СтранаПроисхождения)
ОбластьСтрана.Текст = СтрокаИзСписка.Номенклатура.СтранаПроисхождения;
14. Victor Nespyatin (victuan) 1475 01.02.12 15:27 Сейчас в теме
(13)Конфу не пробовал обновить?
15. Михаил Иванов (wwizard) 01.02.12 16:51 Сейчас в теме
обновленная она у меня
но только некоторые вещи, что нужно конкрентно обновить?
16. Victor Nespyatin (victuan) 1475 01.02.12 17:02 Сейчас в теме
(15)Хотя бы справочник Номенклатура. Чтобы в нем появился реквизит СтранаПроисхождения.
17. Виктор Рыков (Мастер1С) 752 15.02.12 19:31 Сейчас в теме
Позвольте прорекламировать свой продукт:
http://infostart.ru/public/67376/

не судите строго
18. Cергей Иванов (fortochka13) 01.03.12 10:42 Сейчас в теме
Мне кажется, очень полезная вещица.
Как наберу немного маней, так сразу скачаю и проверю.
+
19. Вячеслав Тимин (Тимин) 11.03.12 12:49 Сейчас в теме
Нужная вещь! Мне приходилось такое в 8.0 делать. В 8.2 лучше реализовано и нагляднее, возьму на заметку.
Букин; +1 Ответить
20. Сергей (1C82) 40 13.03.12 15:37 Сейчас в теме
Спасибо ! использовал как рыбу.
21. bvk bvk (bvk) 18 22.03.12 20:14 Сейчас в теме
22. Геннадий Малюков (bes-kkm) 02.04.12 08:22 Сейчас в теме
Скажите а в Управлении торговлей 8.1 будет работать?
23. Геннадий Малюков (bes-kkm) 02.04.12 08:36 Сейчас в теме
Извиняюсь за вопрос, не увидела, что делалось изначально для Управления торговлей.
24. Геннадий Малюков (bes-kkm) 02.04.12 11:38 Сейчас в теме
Спасибо большое, скачала, все работает, все довольны!!!
25. Геннадий Малюков (bes-kkm) 18.04.12 09:51 Сейчас в теме
Очень нужная обработка, спасибо!
26. arjuna (arjuna) 24.04.12 20:17 Сейчас в теме
Нужная обработка, мани пока не хватает. Как наберу скачаю.
27. Sergey Smirnov (smirnoffs) 13.06.12 23:08 Сейчас в теме
Спасибо! В УТП не хватает нормальной настраиваемой печати этикеток.
28. Евгений Михеев (kabat) 28.11.12 13:30 Сейчас в теме
Отличная обработка! подкоплю мани и обязательно скачаю!
29. Евгений Михеев (kabat) 29.11.12 22:52 Сейчас в теме
Скажите плз а сколько нужно мани чтобы можно был оскачать?
30. Александр Пикалов (AlPi) 25 19.04.13 22:44 Сейчас в теме
31. Василий Орлов (Bublik2011) 9 08.09.13 21:52 Сейчас в теме
Мог-бы предложить идею формирования этикетки. Правда, его не прогонял через отладчик, но печатает мгновенно. Может, будет полезно. Отдельную ветку делать смысла и желания нет, а так вроде функция по теме поста.

УправлениеТорговлей-Общие-ОбщиеМодули-РаботаСТорговымОборудованием разместил код, который можно вызывать из любого документа или управляемой формы, только надо ссылку товара передать.

Вызывается соответственно:

РаботаСТорговымОборудованием.ПечатьОднойНебольшойЭтикетки(СсылкаНаСтрокуТовара);


Функция ПечатьОднойНебольшойЭтикетки(Номенкл,Колво=Неопределено,Харка=Неопределено) Экспорт
	//Номенкл = ЭлементыФормы.Список.ТекущаяСтрока.Ссылка;
	
Номенкл = ЭлементыФормы.Список.ТекущаяСтрока.Ссылка;
	
СписокВыбора  = Новый СписокЗначений;
	СписокВыбора.Добавить(ВидСравнения.Равно);
	СписокВыбора.Добавить(ВидСравнения.НеРавно);
	СписокВыбора.Добавить(ВидСравнения.ВСписке);
	СписокВыбора.Добавить(ВидСравнения.НеВСписке);
	СписокВыбора.Добавить(ВидСравнения.ВИерархии);
	СписокВыбора.Добавить(ВидСравнения.НеВИерархии);
	


	Макет = Новый ТабличныйДокумент;
    Макет.Прочитать("c:\Ценники\Этикетка 20х30 с ценой и артикулом.mxl"); 
	 //Номенкл= Справочники.Номенклатура.НайтиПоКоду("00316650"); 

     ЗапросД = Новый Запрос;
		ЗапросД.УстановитьПараметр("Владелец",Номенкл);
		
		Текст = "ВЫБРАТЬ
		|	Штрихкоды.ТипШтрихкода как ТипКода,
		|	Штрихкоды.Штрихкод как Штрихкод,
		|	Штрихкоды.Владелец КАК Номенклатура,
		|	Штрихкоды.ЕдиницаИзмерения,
		|	Штрихкоды.ХарактеристикаНоменклатуры КАК Характеристика,
		|	Штрихкоды.СерияНоменклатуры КАК Серия,
		|	Штрихкоды.Качество,
		|	Штрихкоды.Владелец.Артикул КАК Артикул,
		|	1 КАК Количество,
		|	Штрихкоды.Владелец.НаименованиеПолное КАК НаименованиеПолное
		|ИЗ
		|	РегистрСведений.Штрихкоды КАК Штрихкоды
		|ГДЕ
		|	Штрихкоды.Владелец = &Владелец
		|
		|УПОРЯДОЧИТЬ ПО
		|	Номенклатура
		|АВТОУПОРЯДОЧИВАНИЕ";
		ЗапросД.Текст = Текст;
		РезультатЗапроса= ЗапросД.Выполнить().Выгрузить();
			         			
			 
		ТипКодаТ=РезультатЗапроса[0].ТипКода;
		ШтрихкодТ=РезультатЗапроса[0].Штрихкод;

       ТипЦенРозн  = Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000003");
ЦенаТов=Ценообразование.ПолучитьЦенуНоменклатуры(Номенкл,
		   ,ТипЦенРозн,,Номенкл.ЕдиницаХраненияОстатков,);

     
    // Показываем результирующий табличный документ пользователю
    Табличныйдокумент = Новый ТабличныйДокумент;
    Область = Макет.ПолучитьОбласть("ГорТело|ВертТело");
	Область.Параметры.Наименование = Номенкл.Наименование;
	Область.Параметры.Цена = СтрЗаменить(ЦенаТов," ","")+" руб.";
	Область.Параметры.Артикул = Номенкл.Артикул;
       РисунокШтрихкод         = Область.Рисунки.ШтрихКод;

    Попытка
		КомпонентШК = Новый COMОбъект("V8.Barcod.1");
		Область.Рисунки.ШтрихКод.Ширина=34;
		Область.Рисунки.Штрихкод.Объект.Сообщение = РезультатЗапроса[0].Штрихкод;
	Исключение
		Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!", СтатусСообщения.Важное);
		Отказ = Истина;
	КонецПопытки;
	
	Табличныйдокумент.Защита 				= ложь;
	Табличныйдокумент.ТолькоПросмотр 		= Ложь;
	Табличныйдокумент.ОтображатьСетку 	= Истина;
	Табличныйдокумент.ОтображатьЗаголовки = Истина;
	Табличныйдокумент.ПолеСверху 	= Макет.Область("Параметр|Сверху").Текст;// ПолеСверху;
	Табличныйдокумент.ПолеСнизу 	= Макет.Область("Параметр|Снизу").Текст;// ПолеСнизу;
	Табличныйдокумент.ПолеСлева 	= Макет.Область("Параметр|Слева").Текст;// ПолеСлева;
	Табличныйдокумент.ПолеСправа 	= Макет.Область("Параметр|Справа").Текст; //ПолеСправа;
	Табличныйдокумент.РазмерКолонтитулаСверху=0;
	Табличныйдокумент.РазмерКолонтитулаСнизу=0;
		
	Табличныйдокумент.Вывести(Область);
	 Табличныйдокумент.ТолькоПросмотр=Ложь;
	  Табличныйдокумент.Защита=Ложь;
	  Табличныйдокумент.ОтображатьЗаголовки=Истина;
	  Табличныйдокумент.ОтображатьСетку=Истина;
	  //Таб.ОриентацияСтраницы=
	  //Табличныйдокумент.ИмяПараметровПечати="30*20";//.МасштабПечати="70";//.АвтоМасштаб=Истина;
	   Табличныйдокумент.АвтоМасштаб=Истина;
	   Табличныйдокумент.МасштабПечати="70";
	Табличныйдокумент.ИмяПринтера="TSC TTP-225 #2";
	//Табличныйдокумент.Показать();  
	СразуНаПринтер=Ложь;
	Табличныйдокумент.Вывод = ИспользованиеВывода.Разрешить;
	Табличныйдокумент.Напечатать();
КонецФункции;

...Показать Скрыть


Надо подправить название принтера, у меня TSC TTP-225 #2 , настроенный утилитой, поставляемой вместе с принтером, ссылку на розничную цену и размеры этикетки. У меня 30*20 . Если "слетит" штрихкод, осторожно подправьте макет и размеры.
Прикрепленные файлы:
Этикетка 20х30 с ценой и артикулом1.mxl
33. Сергей Сергеев (ksav1979) 18 18.12.13 15:47 Сейчас в теме
Немножко подправили макет - и нашему счастью нет предела!
34. Дмитрий Иванов (MasterIt) 24.02.15 15:21 Сейчас в теме
Сделал по аналогии для УТ 11 1С (8.3.5) Спасибо!