Заполнение СтрокаТЧ макета.

(5) Функция ПечатьПогрузочныйЛист(ИмяМакета)

    ТабДок = новый ТабличныйДокумент;
    //Макет = ПолучитьМакет("Печать");
    Макет = ПолучитьМакет("ПогрузочныйЛист");

    ОбластьШапки            = Макет.ПолучитьОбласть("Шапка");
    ОбластьСтрокаТЧ         = Макет.ПолучитьОбласть("СтрокаТЧ");
    ОбластьПодвал           = Макет.ПолучитьОбласть("Подвал");

    ОбластьЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицы|Наименование");
    ОбластьУпаковка = Макет.ПолучитьОбласть("ЗаголовокТаблицы|Упаковка");

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ЗаказПокупателяСводныйТовары.Маршрут КАК Маршрут,
    |    ЗаказПокупателяСводныйТовары.Номенклатура КАК Номенклатура,
    |    ЗаказПокупателяСводныйТовары.ХарактеристикаНоменклатуры,
    |    ЗаказПокупателяСводныйТовары.КоличествоЗаказано,
    |    ЗаказПокупателяСводныйТовары.ХарактеристикаНоменклатуры.Наименование КАК ХарактеристикаНоменклатурыНаименование
    |ИЗ
    |    Документ.ЗаказПокупателяСводный.Товары КАК ЗаказПокупателяСводныйТовары
    |ГДЕ
    |    ЗаказПокупателяСводныйТовары.Ссылка = &Ссылка
    |
    |СГРУППИРОВАТЬ ПО
    |    ЗаказПокупателяСводныйТовары.Маршрут,
    |    ЗаказПокупателяСводныйТовары.Номенклатура,
    |    ЗаказПокупателяСводныйТовары.ХарактеристикаНоменклатуры,
    |    ЗаказПокупателяСводныйТовары.КоличествоЗаказано,
    |    ЗаказПокупателяСводныйТовары.ХарактеристикаНоменклатуры.Наименование
    |ИТОГИ ПО
    |    Маршрут,
    |    Номенклатура";

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

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

    ТаблицаХарактеристик = РезультатЗапроса.Выгрузить();
    ТаблицаХарактеристик.Свернуть("ХарактеристикаНоменклатурыНаименование",);
    ТаблицаХарактеристик.Колонки.Добавить("Количество");

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

    Пока ВыборкаМаршрут.Следующий() Цикл
        //Шапка
        Шапка = Макет.ПолучитьОбласть("Шапка");
        Шапка.Параметры.Дата = Формат(Дата, "ДЛФ=DD");
        Шапка.Параметры.ДатаВремя = ТекущаяДата();
        Шапка.Параметры.Маршрут = ВыборкаМаршрут.Маршрут;
        Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ
        |    ТранспортныеСредства.Водитель,
        |    ТранспортныеСредства.ГосНомерТранспортногоСредства
        |ИЗ
        |    Справочник.ТранспортныеСредства КАК ТранспортныеСредства";

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

        ТабДок.Вывести(ОбластьЗаголовокТаблицы);
        Для каждого СтрокаТаблицы Из ТаблицаХарактеристик Цикл
            Если ПустаяСтрока(СтрокаТаблицы.ХарактеристикаНоменклатурыНаименование) Тогда
                ОбластьУпаковка.Параметры.ИмяКолонка =     "Без упаковки";
            Иначе
                ОбластьУпаковка.Параметры.ИмяКолонка = СтрокаТаблицы.ХарактеристикаНоменклатурыНаименование;
            КонецЕсли;
            ТабДок.Присоединить(ОбластьУпаковка);
        КонецЦикла;

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

        Пока ВыборкаНоменклатура.Следующий() Цикл
            //СтрокаТЧ
            ОбластьСтрока = Макет.ПолучитьОбласть("СтрокаТЧ|Наименование");
            ОбластьСтрока.Параметры.Номенклатура = ВыборкаНоменклатура.Номенклатура;
            Запрос = Новый Запрос;
            Запрос.Текст =
            "ВЫБРАТЬ
            |    Номенклатура.КодИгма
            |ИЗ
            |    Справочник.Номенклатура КАК Номенклатура";
            РезультатЗапроса = Запрос.Выполнить();
            Выборка = РезультатЗапроса.Выбрать();
            СтруктураОтбора = Новый Структура();
            Пока Выборка.Следующий() Цикл
                ОбластьСтрока.Параметры.Код = Выборка.КодИгма;
                ТабДок.Вывести(ОбластьСтрока);
            КонецЦикла;

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

            ВыборкаХарактеристика = ВыборкаНоменклатура.Выбрать();

            ТаблицаХарактеристик.ЗаполнитьЗначения(0, "Количество");

            Пока ВыборкаХарактеристика.Следующий() Цикл
                Для каждого СтрокаТаблицы Из ТаблицаХарактеристик Цикл
                    Если ВыборкаХарактеристика.ХарактеристикаНоменклатурыНаименование = СтрокаТаблицы.ХарактеристикаНоменклатурыНаименование Тогда
                        СтрокаТаблицы.Количество = ВыборкаХарактеристика.КоличествоЗаказано;
                    КонецЕсли;
                КонецЦикла;
            КонецЦикла;

            ОбластьСтрокаУпаковка = Макет.ПолучитьОбласть("СтрокаТЧ|Упаковка");

            Для каждого СтрокаТаблицы Из ТаблицаХарактеристик Цикл
                ОбластьСтрокаУпаковка.Параметры.КоличествоЗаказано = СтрокаТаблицы.Количество;
                ТабДок.Присоединить(ОбластьСтрокаУпаковка);
            КонецЦикла;

        КонецЦикла;
        //Подвал
        Подвал = Макет.ПолучитьОбласть("Подвал");
        Подвал.Параметры.Заполнить(ЭтотОбъект);
        Подвал.Параметры.Кладовщик = Ответственный;
        ТабДок.Вывести(Подвал);
    ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
    КонецЦикла;

    ТабДок.Показать();
    Возврат 0;

КонецФункции