8.х Нужна обработка ВПФ печать этикеток или описаний под УТ11

Тема в разделе "Общие вопросы "1С:Предприятие 8"", создана пользователем Inkeeper, 18 май 2014.

  1. TopicStarter Overlay
    Inkeeper
    Offline

    Inkeeper Опытный в 1С

    Регистрация:
    22 мар 2009
    Сообщения:
    327
    Симпатии:
    0
    Баллы:
    26
    Доброго дня! Прошу помощи - нужна обработка с infostart http://infostart.ru/public/256638/. Помогите пожалуйста.
    --- Объединение сообщений, 18 май 2014 ---
    или если есть похожий пример на форуме - пишу обработку для печати этикеток, нужно что бы на лист А4 печатались этикетки горизонтальными рядами, + что бы размеры этикеток были строго определенного размера
    Последнее редактирование: 18 май 2014
  2. LordMaverick
    Offline

    LordMaverick Профессионал в 1С

    Регистрация:
    17 мар 2014
    Сообщения:
    3.437
    Симпатии:
    373
    Баллы:
    104
    в УТ11 есть печать этикеток встроенная, и свой шаблон можно сделать, в чём сложность?
    и ваш размер и ваше содержание этикетки
    на А4 само размещает в зависимости от размеров и полей и настроек листа
  3. TopicStarter Overlay
    Inkeeper
    Offline

    Inkeeper Опытный в 1С

    Регистрация:
    22 мар 2009
    Сообщения:
    327
    Симпатии:
    0
    Баллы:
    26
    у меня не УТ 11, мне нужно чтобы макет сразу формировался как нужно без настроек
  4. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    14.760
    Симпатии:
    509
    Баллы:
    204
    В чем сложность ? Что уже сделали ? Какие ошибки ?
  5. TopicStarter Overlay
    Inkeeper
    Offline

    Inkeeper Опытный в 1С

    Регистрация:
    22 мар 2009
    Сообщения:
    327
    Симпатии:
    0
    Баллы:
    26
    да в общем то не много успел сделать. Код Функции Печать:

    Код:
    Функция Печать() Экспорт
      
       ТабДок = Новый ТабличныйДокумент;
       Макет = ЭтотОбъект.ПолучитьМакет("Макет1");
       Запрос = Новый Запрос;
       Запрос.Текст =
         "ВЫБРАТЬ
         |   ПоступлениеТоваровТовары.Номенклатура.Наименование КАК Наименование,
         |   ПоступлениеТоваровТовары.Номенклатура.Артикул КАК Артикул,
         |   ПоступлениеТоваровТовары.Номенклатура.ор_ПробаМеталла.Наименование КАК Проба,
         |   ПоступлениеТоваровТовары.Цена,
         |   ПоступлениеТоваровТовары.Ссылка.Номер,
         |   ПоступлениеТоваровТовары.Ссылка.Дата,
         |   ПоступлениеТоваровТовары.ор_ВесВГраммах КАК Вес,
         |   ПоступлениеТоваровТовары.Ссылка.Организация.Наименование КАК Организация
         |ИЗ
         |   Документ.ПоступлениеТоваров.Товары КАК ПоступлениеТоваровТовары
         |ГДЕ
         |   ПоступлениеТоваровТовары.Ссылка = &СсылкаНаОбъект";
       Запрос.УстановитьПараметр("СсылкаНаОбъект", СсылкаНаОбъект);  
      
       Результат = Запрос.Выполнить();
      
       ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
      
       ТабДок.Очистить();
       ВыборкаДетальныеЗаписи = Результат.Выбрать();
       Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
         ОбластьДетальныхЗаписей.Параметры.Организация = ВыборкаДетальныеЗаписи.Организация;
         ОбластьДетальныхЗаписей.Параметры.Артикул = ВыборкаДетальныеЗаписи.Артикул;
         ОбластьДетальныхЗаписей.Параметры.Вес = ВыборкаДетальныеЗаписи.Вес;
         ОбластьДетальныхЗаписей.Параметры.ДатаНакладной = Формат(ВыборкаДетальныеЗаписи.Дата, "ДФ=dd.MM.yy");
         ОбластьДетальныхЗаписей.Параметры.Наименование = ВыборкаДетальныеЗаписи.Наименование;
         ОбластьДетальныхЗаписей.Параметры.НомерНакладной = ВыборкаДетальныеЗаписи.Номер;
         ОбластьДетальныхЗаписей.Параметры.Проба = ВыборкаДетальныеЗаписи.Проба;
         ОбластьДетальныхЗаписей.Параметры.Цена = ВыборкаДетальныеЗаписи.Цена;
                
         ТабДок.Вывести(ОбластьДетальныхЗаписей);
       КонецЦикла;
       Возврат ТабДок;
      
       КонецФункции // Печать()
    этикетки должны быть строго определенного размера 2,5*4 см. Не знаю каким образом сделать так, что бы этикетки печатались не только вертикально друг за другом, но и горизонтальными рядами.
    --- Объединение сообщений, 19 май 2014 ---
    пока ладно на размер, мне бы как-то сделать так, что бы их горизонтальными рядами выводить
  6. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    14.760
    Симпатии:
    509
    Баллы:
    204
    Горизонтально можно выводить (т.е. в строку) методом Присоединить(). Почитайте в СП про этот метод.
    Понадобится еще проверять, умещаются ли по ширине листа выводимые области. Т.е. после каждого присоединения проверять. Если умещаются, то присоединять, если нет - переходить на "новую строку".
    Inkeeper нравится это.
  7. TopicStarter Overlay
    Inkeeper
    Offline

    Inkeeper Опытный в 1С

    Регистрация:
    22 мар 2009
    Сообщения:
    327
    Симпатии:
    0
    Баллы:
    26
    спасибо большое! Попробую
  8. LordMaverick
    Offline

    LordMaverick Профессионал в 1С

    Регистрация:
    17 мар 2014
    Сообщения:
    3.437
    Симпатии:
    373
    Баллы:
    104
    вот размеры под А4 примерные под вашу этикетку
    лист альбомный будет 297х210
    поля сверху и снизу по 5 мм получаем из 210 осталось 200, как раз на 8 этикеток по вертикали
    по горизонтали войдёт 6 штук по 45 мм, это 270 мм, значит поля справа и слева нужны на сумму в 27 мм
    логичнее например 5 мм слева и 22 справа
    итого 6 по горизонтали и 8 по вертикали
    вот такой макет вам надо :)
    --- Объединение сообщений, 19 май 2014 ---
    мы пользуем этикетку 20х30, в принципе достаточно для 3-х строк текста по 17 символов и ШК
    но у нас принтер этикеток зебра
    Inkeeper нравится это.

Поделиться этой страницей