1
into
27.10.15
✎
20:29
|
Нашел процедуру, но почему-то в запрос ничего не попадает:
Процедура НапечататьЭтикеткиИзДокумента(Док, ИмяКолонкиЦена = Неопределено) Экспорт
МетаданныеДокумента = Док.Метаданные();
ИмяДокумента = МетаданныеДокумента.Имя;
ЕстьЦена = (ИмяКолонкиЦена <> Неопределено);
ЕстьХарактеристика = Ложь;// = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("ХарактеристикаНоменклатуры", МетаданныеДокумента, "Товары");
ЕстьСерия = Ложь; // = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("СерияНоменклатуры", МетаданныеДокумента, "Товары");
ЕстьКачество = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("Качество", МетаданныеДокумента, "Товары");
ЕстьЕдиницаИзмерения = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("ЕдиницаИзмерения", МетаданныеДокумента, "Товары");
Запрос = Новый Запрос("
|ВЫБРАТЬ
| Док.Номенклатура КАК Номенклатура,
| Док.Количество КАК Количество,
| Док.Характеристика КАК Характеристика,
| Док.Серия КАК Серия,
| Док.Качество КАК Качество,
| Док.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| Док.Цена КАК Цена,
| " + ?(ЕстьЦена, "&Валюта", "ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка)") + " КАК Валюта,
| РегШК.ТипШтрихкода КАК ТипШтрихкода,
| РегШК.ПредставлениеШтрихкода КАК ПредставлениеШтрихкода,
| РегШК.Штрихкод КАК Штрихкод
|ИЗ
| (ВЫБРАТЬ
| Док.Номенклатура КАК Номенклатура,
| Док.Количество КАК Количество,
| " + ?(ЕстьХарактеристика, "Док.ХарактеристикаНоменклатуры", "ЗНАЧЕНИЕ(Справочник.ХарактеристикиНоменклатуры.ПустаяСсылка)") + " КАК Характеристика,
| " + ?(ЕстьСерия, "Док.СерияНоменклатуры", "ЗНАЧЕНИЕ(Справочник.СерииНоменклатуры.ПустаяСсылка)") + " КАК Серия,
| " + ?(ЕстьКачество, "Док.Качество", "ЗНАЧЕНИЕ(Справочник.Качество.Новый)") + " КАК Качество,
| " + ?(ЕстьЕдиницаИзмерения, "Док.ЕдиницаИзмерения", "Док.Номенклатура.ЕдиницаХраненияОстатков") + " КАК ЕдиницаИзмерения,
| " + ?(ЕстьЦена, "Док." + ИмяКолонкиЦена, "0") + " КАК Цена
| ИЗ
| Документ." + ИмяДокумента + ".Товары КАК Док
| ГДЕ
| Док.Ссылка = &Док
| ) КАК Док
|ВНУТРЕННЕЕ СОЕДИНЕНИЕ
| РегистрСведений.Штрихкоды КАК РегШК
|ПО
| РегШК.Владелец = Док.Номенклатура
| И РегШК.ЕдиницаИзмерения = Док.ЕдиницаИзмерения
| И РегШК.ХарактеристикаНоменклатуры = Док.Характеристика
| И РегШК.СерияНоменклатуры = Док.Серия
| И РегШК.Качество = Док.Качество
|");
Запрос.УстановитьПараметр("Док", Док);
Если ЕстьЦена Тогда
Запрос.УстановитьПараметр("Валюта", глЗначениеПеременной("ВалютаРегламентированногоУчета"));
КонецЕсли;
ПечатьЭтикеток(Запрос.Выполнить().Выгрузить());
|
|