Имя: Пароль:
1C
1С v8
Печать этикеток из документа Поступление товаров и услуг в УТ 10.3?
0 into
 
27.10.15
19:52
В документе при выборе печатной формы есть пункт Печать этикеток, только при его выборе открывается незаполненная форма обработки - так и было задумано или что-то в программе настроить нужно что бы можно было напечатать этикетки из документа? Если настроить то что?

Табличная часть документа вроде бы должна скопироваться в обработку?
1 into
 
27.10.15
20:29
Нашел процедуру, но почему-то в запрос ничего не попадает:

Процедура НапечататьЭтикеткиИзДокумента(Док, ИмяКолонкиЦена = Неопределено) Экспорт

    МетаданныеДокумента = Док.Метаданные();

    ИмяДокумента = МетаданныеДокумента.Имя;

    ЕстьЦена             = (ИмяКолонкиЦена <> Неопределено);
    ЕстьХарактеристика  = Ложь;// = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("ХарактеристикаНоменклатуры", МетаданныеДокумента, "Товары");
    ЕстьСерия          = Ложь; // = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("СерияНоменклатуры", МетаданныеДокумента, "Товары");
    ЕстьКачество         = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("Качество", МетаданныеДокумента, "Товары");
    ЕстьЕдиницаИзмерения = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("ЕдиницаИзмерения", МетаданныеДокумента, "Товары");

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

    Запрос.УстановитьПараметр("Док", Док);

    Если ЕстьЦена Тогда
        Запрос.УстановитьПараметр("Валюта", глЗначениеПеременной("ВалютаРегламентированногоУчета"));
    КонецЕсли;

    ПечатьЭтикеток(Запрос.Выполнить().Выгрузить());
2 Скай
 
27.10.15
20:43
Штрихкод хоть один назначен?
3 into
 
27.10.15
20:45
Всем спасибо. Разобрался.
Вот это в запросе лишнее:
    |    И РегШК.ЕдиницаИзмерения = Док.ЕдиницаИзмерения
    |    И РегШК.ХарактеристикаНоменклатуры = Док.Характеристика
    |    И РегШК.СерияНоменклатуры = Док.Серия
    |    И РегШК.Качество = Док.Качество

закомнетировал, работает!