gifts2017

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

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

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

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

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

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

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

См. также

Подписаться Добавить вознаграждение

Комментарии

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) 14.10.11 04:46
(3)Скачивается файл с названием "ПечатьЭтикеток+.epf". Как устанавливать написано в описании обработки и видно по первому скриншоту.
5. oleg eliz (q3q3q) 07.11.11 04:20
Огромное спасибо. но вот незадача как самому написать обработку обслуживания? Может мне по этому поводу новую тему открыть или дайте ссылку на такую.
6. Victor Nespyatin (victuan) 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) 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) 01.02.12 15:27
(13)Конфу не пробовал обновить?
15. Михаил Иванов (wwizard) 01.02.12 16:51
обновленная она у меня
но только некоторые вещи, что нужно конкрентно обновить?
16. Victor Nespyatin (victuan) 01.02.12 17:02
(15)Хотя бы справочник Номенклатура. Чтобы в нем появился реквизит СтранаПроисхождения.
17. Виктор Рыков (Мастер1С) 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) 13.03.12 15:37
Спасибо ! использовал как рыбу.
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. Al Pi (AlPi) 19.04.13 22:44
31. Василий Орлов (Bublik2011) 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.12.13 15:47
Немножко подправили макет - и нашему счастью нет предела!
34. Дмитрий Иванов (MasterIt) 24.02.15 15:21
Сделал по аналогии для УТ 11 1С (8.3.5) Спасибо!
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа