Запрос.Текст = "ВЫБРАТЬ

| РеализацияТоваровУслугТовары.НомерСтроки,

| РеализацияТоваровУслугТовары.Номенклатура.Артикул КАК Артикул,

| РеализацияТоваровУслугТовары.Номенклатура,

| РеализацияТоваровУслугТовары.Номенклатура.НаименованиеПолное КАК Товар,

| РеализацияТоваровУслугТовары.Количество,

| РеализацияТоваровУслугТовары.ЕдиницаИзмерения КАК ЕдиницаЦены,

| МестаХраненияНоменклатуры.МестоХранения.Наименование КАК Склад,

| Штрихкоды.Штрихкод,

| Штрихкоды.ТипШтрихкода

|ИЗ

| Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.МестаХраненияНоменклатуры КАК

МестаХраненияНоменклатуры

| ПО РеализацияТоваровУслугТовары.Номенклатура =

МестаХраненияНоменклатуры.Номенклатура

| И РеализацияТоваровУслугТовары.Склад =

МестаХраненияНоменклатуры.Склад

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды

| ПО РеализацияТоваровУслугТовары.Номенклатура = Штрихкоды.Владелец

| И РеализацияТоваровУслугТовары.ЕдиницаИзмерения.ЕдиницаПоКлассификатору =

| Штрихкоды.ЕдиницаИзмерения.ЕдиницаПоКлассификатору

|ГДЕ

| РеализацияТоваровУслугТовары.Ссылка = &СсылкаНаОбъект

|УПОРЯДОЧИТЬ ПО

| Склад УБЫВ";   

 // Строки накладной

Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл

ОбластьМакета = Макет.ПолучитьОбласть("Строка");

ОбластьМакета.Параметры.Заполнить(Выборка);



Если Выборка.ТипШтрихкода <> NULL И Выборка.Штрихкод <> NULL Тогда

ОбластьМакета.Рисунки.D1.Объект.ТипКода = Выборка.ТипШтрихкода.Код;

ОбластьМакета.Рисунки.D1.Объект.ТекстКода = Выборка.Штрихкод;

иначе

ОбластьМакета.Рисунки.D1.Объект.ТипКода = 0;

ОбластьМакета.Рисунки.D1.Объект.ТекстКода = "00000000";

КонецЕсли;



ТабДок.Вывести(ОбластьМакета);

КонецЦикла;