Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ЗаявкаНаДоставку.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   ЗаявкаНаДоставку.АдресДоставки,
|   ЗаявкаНаДоставку.Водитель,
|   ЗаявкаНаДоставку.ВремяДоставки,
|   ЗаявкаНаДоставку.Грузополучатель,
|   ЗаявкаНаДоставку.Грузчик1,
|   ЗаявкаНаДоставку.Грузчик2,
|   ЗаявкаНаДоставку.Дата,
|   ЗаявкаНаДоставку.ДатаДоставки,
|   ЗаявкаНаДоставку.Номер,
|   ЗаявкаНаДоставку.ПробегКонечный,
|   ЗаявкаНаДоставку.СтатусДоставки,
|   ЗаявкаНаДоставку.ТелефонКонтактногоЛица,
|   ЗаявкаНаДоставку.ТС
|ИЗ
|    Документ.ЗаявкаНаДоставку КАК ЗаявкаНаДоставку
|   ГДЕ
|   ЗаявкаНаДоставку.Ссылка В (&Ссылка)  ";

Запрос2 = Новый Запрос;
Запрос2.Текст =
"ВЫБРАТЬ
|      РеализацияТоваров1.Товары.(
|       НомерСтроки,
|       НаименованиеТовара,
|       ЕдИзм,
|       Количество,
|       Цена,
|       Сумма
|   )
|ИЗ
|   Документ.РеализацияТоваров1 КАК РеализацияТоваров1
|ГДЕ
|   РеализацияТоваров1.Ссылка  В (&ДокументОснование)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);
Запрос2.Параметры.Вставить("Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать();
 Выборка2 = Запрос2.Выполнить().Выбрать();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() ИЛИ Выборка2.Следующий() Цикл
    Если ВставлятьРазделительСтраниц Тогда
        ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
    КонецЕсли;

    ТабДок.Вывести(ОбластьЗаголовок);
    Шапка.Параметры.Заполнить(Выборка);
    ТабДок.Вывести(Шапка, Выборка.Уровень());
    ТабДок.Вывести(ОбластьТоварыШапка);
    ВыборкаТовары = Выборка2.Товары.Выбрать();
    Пока ВыборкаТовары.Следующий() Цикл
        ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
        ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
    КонецЦикла;


    ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
    //}}
КонецПроцедуры

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДокументВозвратДенег = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока ВыборкаДокументВозвратДенег.Следующий() Цикл
    // Вставить обработку выборки ВыборкаДокументВозвратДенег

    ВыборкаДетальныеЗаписи = ВыборкаДокументВозвратДенег.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        // Вставить обработку выборки ВыборкаДетальныеЗаписи
    КонецЦикла;
КонецЦикла;