|
Как пихнуть наименование в этикетку ? | ☑ | ||
---|---|---|---|---|
0
Rumpil
19.09.11
✎
11:42
|
КОнфа УТ 10.3. При использовании обработки Печать этикеток этикетка выходит в формате
Характеристика Штрих кода Цена Можно ли как то прописать туда вывод Наименования ? |
|||
1
Rumpil
19.09.11
✎
11:43
|
Код печати обработки: я просто не совсем понимаю куда надо залезть, может посоветуете ?
КолвоПереданныхТоваров = ТаблицаТоваров.Количество(); Если КолвоПереданныхТоваров = 0 Тогда Предупреждение("В списке нет ни одного товара со штрихкодом, заполните список товаров," + Символы.ПС + "для которых надо распечатать этикетки. "); Возврат; КонецЕсли; ПечататьБезЦены = Ложь; Если ПечататьЦену Тогда Для Каждого СтрокаИзСписка Из ТаблицаТоваров Цикл Если СтрокаИзСписка.Цена = 0 И СтрокаИзСписка.Количество > 0 Тогда Ответ = Вопрос("У некоторых товаров не указаны цены! Печатать этикетки для этих товаров?", РежимДиалогаВопрос.ДаНетОтмена); Если Ответ = КодВозвратаДиалога.Отмена Тогда Возврат; ИначеЕсли Ответ = КодВозвратаДиалога.Да Тогда ПечататьБезЦены = Истина; ИначеЕсли Ответ = КодВозвратаДиалога.Да Тогда ПечататьБезЦены = Ложь; КонецЕсли; Прервать; КонецЕсли; КонецЦикла; КонецЕсли; ТекКолонка = 1; ТекСтрока = 1; Таб = Новый ТабличныйДокумент; Таб.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Этикетка"+СокрЛП(ИмяКомпьютера()); Макет = ПолучитьОбщийМакет("Этикетка"); ЭтикеткаОбласть = Макет.ПолучитьОбласть(1,1,4,2); ОбластьНоменклатура = ЭтикеткаОбласть.Области.Номенклатура; ОбластьШтрихкод = ЭтикеткаОбласть.Области.ОбластьШтрихкод; РисунокШтрихкод = ЭтикеткаОбласть.Рисунки.Штрихкод; ОбластьЦена = ЭтикеткаОбласть.Области.Цена; ОбластьНоменклатура.ВысотаСтроки = ВысотаЭтикетки * 2.65 * 0.3; ОбластьШтрихкод.ВысотаСтроки = ВысотаЭтикетки * 2.65 * 0.5; РисунокШтрихкод.Расположить(ОбластьШтрихкод); ОбластьЦена.ВысотаСтроки = ВысотаЭтикетки * 2.65 * 0.2; ЭтикеткаОбласть.Область(2,2,2,2).ШиринаКолонки = ШиринаЭтикетки*0.53; Если ФорматЭтикетки = 1 Тогда //принтер этикеток. ВсегоСтрок = 1; КоличествоКолонок=1; ИначеЕсли ФорматЭтикетки = 2 Тогда //А4 по колонкам. ОбластьГраницаСправа = Макет.ПолучитьОбласть(2,4,4,4); ОбластьНизГраницыСправа = Макет.ПолучитьОбласть(5,4,5,4); ОбластьГраницаСнизу = Макет.ПолучитьОбласть(6,2,6,2); ОбластьНачалоГраницыСнизу = Макет.ПолучитьОбласть(6,1,6,1); ОбластьГраницаСправа.Рисунки.ГраницаСправа.Высота = ВысотаЭтикетки*1.09; ОбластьГраницаСнизу.Рисунки.ГраницаСнизу.Ширина = ШиринаЭтикетки; ОбластьГраницаСправа.Область(1,1,1,1).ВысотаСтроки = ВысотаЭтикетки*2.65; ОбластьГраницаСнизу.Область(1,1,1,1).ШиринаКолонки = ШиринаЭтикетки*0.53; ВсегоСтрок = 19; КоличествоКолонок = 5; КонецЕсли; ВсегоКолонок = КоличествоКолонок; Если ВсегоКолонок > 1 Тогда ВсегоКолонок = ВсегоКолонок+ВсегоКолонок - 1; //добавляем разделители колонок. КонецЕсли; ВывелиХотяБыОдинШтрихКод = Ложь; Для Каждого СтрокаИзСписка Из ТаблицаТоваров Цикл Если ПечататьЦену И СтрокаИзСписка.Цена = 0 И Не ПечататьБезЦены Тогда Продолжить; КонецЕсли; ТипКода = ПолучитьЗначениеТипаШтрихкодаДляЭУ(СтрокаИзСписка.ТипШтрихкода); Если ТипКода = -1 Тогда ОбщегоНазначения.СообщитьОбОшибке("Для штрихкода формата """ + СтрокаИзСписка.ТипШтрихкода + """ не существует соответствующего типа в ЭУ ""1С:Печать штрихкодов"". | Позиция будет пропущена"); Продолжить; КонецЕсли; Если УправлениеРозничнойТорговлей.ПроверитьШтрихКод(СтрокаИзСписка.ШтрихКод, СтрокаИзСписка.ТипШтрихкода) Тогда ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = ТипКода; ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = СтрокаИзСписка.ШтрихКод; ОбластьНоменклатура.Текст = СокрЛП(СтрокаИзСписка.Номенклатура.Артикул) + ФормированиеПечатныхФорм.ПредставлениеСерий(СтрокаИзСписка); Если ПечататьЦену И СтрокаИзСписка.Цена <> 0 Тогда ОбластьЦена.Текст = "Цена: " + ОбщегоНазначения.ФорматСумм(СтрокаИзСписка.Цена,СтрокаИзСписка.Валюта) + " за " + СтрокаИзСписка.ЕдиницаИзмерения; КонецЕсли; Для Копий = 1 По СтрокаИзСписка.Количество Цикл Если ТекКолонка > ВсегоКолонок Тогда //новая строка. Если ВсегоСтрок <> 1 Тогда //выведем разделитель. Для Сч = 1 по ВсегоКолонок Цикл Если Сч = 1 Тогда Таб.Вывести(ОбластьНачалоГраницыСнизу); Иначе Таб.Присоединить(ОбластьНачалоГраницыСнизу); КонецЕсли; Таб.Присоединить(ОбластьГраницаСнизу); Таб.Присоединить(ОбластьНизГраницыСправа); Сч = Сч + 1; КонецЦикла; ТекСтрока = ТекСтрока + 1; КонецЕсли; Если ТекСтрока/ВсегоСтрок = Цел(ТекСтрока/ВсегоСтрок) Тогда Таб.ВывестиГоризонтальныйРазделительСтраниц(); КонецЕсли; ТекСтрока = ТекСтрока + 1; ТекКолонка=1; КонецЕсли; Если ТекКолонка<>1 Тогда //выведем разделитель. Таб.Присоединить(ОбластьГраницаСправа); ТекКолонка = ТекКолонка + 1; Таб.Присоединить(ЭтикеткаОбласть); ТекКолонка = ТекКолонка + 1; Иначе Таб.Вывести(ЭтикеткаОбласть); ТекКолонка = ТекКолонка + 1; КонецЕсли; ВывелиХотяБыОдинШтрихКод = Истина; КонецЦикла; Иначе ТекстСообщения = "У товара """ + СтрокаИзСписка.Номенклатура + """ штрихкод не задан или имеет неверный формат!"; Если КолвоПереданныхТоваров = 1 Тогда Предупреждение(ТекстСообщения); Иначе Сообщить(ТекстСообщения,СтатусСообщения.БезСтатуса); КонецЕсли; КонецЕсли; КонецЦикла; Если ВывелиХотяБыОдинШтрихКод Тогда УниверсальныеМеханизмы.НапечататьДокумент(Таб, 1, СразуНаПринтер, "Этикетки"); Иначе Сообщить("На печать не выведено ни одной этикетки!"); КонецЕсли; |
|||
2
Rumpil
19.09.11
✎
11:52
|
ап
|
|||
3
Смешной 1С
19.09.11
✎
11:55
|
У тебя строка:
ОбластьНоменклатура.Текст = СокрЛП(СтрокаИзСписка.Номенклатура.Артикул) + ФормированиеПечатныхФорм.ПредставлениеСерий(СтрокаИзСписка); напиши в ней: ОбластьНоменклатура.Текст = СокрЛП(СтрокаИзСписка.Номенклатура.Артикул) + СокрЛП(СтрокаИзСписка.Номенклатура.Наименование) + ФормированиеПечатныхФорм.ПредставлениеСерий(СтрокаИзСписка); |
|||
4
MaxiM072
19.09.11
✎
11:56
|
добавь в макете параметр и выводи в него всё что хочешь
|
|||
5
Rizhij_Nikitos
19.09.11
✎
11:56
|
ЭтикеткаОбласть = Макет.ПолучитьОбласть(1,1,4,2);
ОбластьНоменклатура = ЭтикеткаОбласть.Области.Номенклатура; ОбластьШтрихкод = ЭтикеткаОбласть.Области.ОбластьШтрихкод; РисунокШтрихкод = ЭтикеткаОбласть.Рисунки.Штрихкод; ОбластьЦена = ЭтикеткаОбласть.Области.Цена; Вот в этом кусе идет вывода частей, номенлктаура, штрихкод, характеристика и тд .. тута меня что тебе надо. |
|||
6
Rizhij_Nikitos
19.09.11
✎
11:57
|
Упс сорри, тута получение этих областей.
А вывод как сказал (3) |
|||
7
Rumpil
19.09.11
✎
11:57
|
всем спасибо, использовал совет из (3)
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |