Имя: Пароль:
1C
1С v8
Как пихнуть наименование в этикетку ?
,
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)