Приемо сдаточный акт внешняя печатная форма

Здравствуйте, в упп, редакция 1.3 (1.3.24.2)1С:Предприятие 8.3 (8.3.6.1977) имеется внешняя печатная форма "Приемо сдаточный акт" для Фокумента "отчет производства за смену", Тут если табличная часть "продукция" заполнена, то акт выходит на печать. Нужно добавить код, чтобы выходило на печать если ТЧ "Продукция" не заполнена, но заполнена ТЧ "возвратные отходы". не могу понять как это реализовать. Код ПФ:

Перем ОбластьШапка, ОбластьОписаниеЗатраты, ОбластьОписаниеСклад, ОбластьШапкаТаблицы, ОбластьСтрока, ОбластьПодвалСклад, ОбластьПодвалЦех, ТабДокумент, ОбластьИтого;

Функция Печать() Экспорт

    форма = ПолучитьФорму("Форма");
    форма.Открыть();
    ТабДокумент = форма.ЭлементыФормы.ПолеТабличногоДокумента;
    ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
    ТабДокумент.Автомасштаб = Истина;
    Макет = ПолучитьМакет("Макет");
    ОбластьШапка            = Макет.ПолучитьОбласть("Шапка");
    ОбластьОписаниеЗатраты  = Макет.ПолучитьОбласть("ОписаниеЗатраты");
    ОбластьОписаниеСклад    = Макет.ПолучитьОбласть("ОписаниеСклад");
    ОбластьШапкаТаблицы     = Макет.ПолучитьОбласть("ШапкаТаблицы");

    ОбластьШапкаТаблицы     = Макет.ПолучитьОбласть("ВозвратныеОтходы");

    ОбластьСтрока           = Макет.ПолучитьОбласть("Строка");
    ОбластьПодвалСклад      = Макет.ПолучитьОбласть("ПодвалСклад");
    ОбластьПодвалЦех        = Макет.ПолучитьОбласть("ПодвалЦех");
    ОбластьИтого            = Макет.ПолучитьОбласть("Итого");

    ТЗНаСклад   = Новый ТаблицаЗначений;
    ТЗНаЗатраты = Новый ТаблицаЗначений;

    ТЗНаСклад.Колонки.Добавить("Номенклатура" , Новый ОписаниеТипов("СправочникСсылка.Номенклатура"), "Номенклатура");
    ТЗНаСклад.Колонки.Добавить("ПодразделениеПолучатель", Новый ОписаниеТипов("СправочникСсылка.Подразделения"), "Подразделения");
    ТЗНаСклад.Колонки.Добавить("Количество"   , Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10, 2, ДопустимыйЗнак.Любой)), "Количество");
    ТЗНаСклад.Колонки.Добавить("Стоимость"    , Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10, 2, ДопустимыйЗнак.Любой)), "Количество");
    ТЗНаСклад.Колонки.Добавить("ВидВыпуска"   , Новый ОписаниеТипов("Строка"), "ВидВыпуска");
    ТЗНаСклад.Колонки.Добавить("Заказ"        , , "Заказ");

    ТЗНаЗатраты = ТЗНаСклад.СкопироватьКолонки();

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

    Запрос.УстановитьПараметр("Регистратор", СсылкаНаОбъект.Ссылка);
    Запрос.УстановитьПараметр("Дата"       , КонецДня(СсылкаНаОбъект.Ссылка.Дата));
    Запрос.УстановитьПараметр("ТипЦен"     , Константы.ТипЦенПлановойСебестоимостиНоменклатуры.Получить());

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

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

    Если ТЗНаСклад.Количество() <> 0 тогда
        СформироватьОтчет(ТЗНаСклад, "Склад");
    КонецЕсли;
    Если ТЗНаЗатраты.Количество() <> 0 тогда
        СформироватьОтчет(ТЗНаЗатраты, "Затраты");
    КонецЕсли;

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

Функция СформироватьОтчет(ТЗ, НаправлениеВыпуска)


    //Шапка

    ОбластьШапка.Параметры.Отправитель = СсылкаНаОбъект.Подразделение;
    Если СсылкаНаОбъект.Продукция.Количество() > 0 Тогда
        Если СсылкаНаОбъект.Продукция[0].НаправлениеВыпуска = Перечисления.НаправленияВыпуска.НаСклад Тогда
            ОбластьШапка.Параметры.Получатель = СсылкаНаОбъект.Склад;
        Иначе
            ОбластьШапка.Параметры.Получатель = СсылкаНаОбъект.Продукция[0].ПодразделениеПолучатель;
        КонецЕсли;
    КонецЕсли;

    Если НаправлениеВыпуска = "Склад" тогда
        ОбластьШапка.Параметры.Организация      = СсылкаНаОбъект.Организация.НаименованиеСокращенное;
        ОбластьШапка.Параметры.Номер            = СсылкаНаОбъект.Номер;
                Если СсылкаНаОбъект.Склад.СкладОтгрузки=Истина Тогда
            ОбластьШапка.Параметры.Дата="Дата _____________________ г."
        Иначе
            ОбластьШапка.Параметры.Дата             = Формат(СсылкаНаОбъект.Дата, "ДЛФ=DD");
        КонецЕсли;

        ОбластьШапка.Параметры.Ответственный = ОбщегоНазначения.ФамилияИнициалыФизЛица(СсылкаНаОбъект.Ответственный.Наименование);
        ОбластьШапка.Параметры.ТекущаяДата   = Формат(ТекущаяДата(), "ДЛФ=DT");
        ТабДокумент.Вывести(ОбластьШапка);
        ТабДокумент.Вывести(ОбластьОписаниеСклад);
        ПечатьЗатратыНаВыпуск(ТЗ, "");
        ПечатьПодвала(НаправлениеВыпуска, СсылкаНаОбъект.Склад);
    иначеЕсли НаправлениеВыпуска = "Затраты" тогда
        //шапка
        СписокПолучателей = ТЗ.Скопировать();
        СписокПолучателей.Свернуть("ПодразделениеПолучатель");
        СписокПолучателей.Сортировать("ПодразделениеПолучатель");
        Первый = Истина;
        Для каждого текПолучатель ИЗ СписокПолучателей Цикл
            Если НЕ Первый тогда
                ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
            КонецЕсли;

            ОбластьШапка.Параметры.Организация   = СсылкаНаОбъект.Организация.НаименованиеСокращенное;
            ОбластьШапка.Параметры.Номер         = СсылкаНаОбъект.Номер;
            ОбластьШапка.Параметры.Дата          = Формат(СсылкаНаОбъект.Дата, "ДЛФ=DD");
            ОбластьШапка.Параметры.Ответственный = ОбщегоНазначения.ФамилияИнициалыФизЛица(СсылкаНаОбъект.Ответственный.Наименование);
            ОбластьШапка.Параметры.ТекущаяДата   = Формат(ТекущаяДата(), "ДЛФ=DT");
            ТабДокумент.Вывести(ОбластьШапка);
            ТабДокумент.Вывести(ОбластьОписаниеЗатраты);
            ПечатьЗатратыНаВыпуск(ТЗ, текПолучатель.ПодразделениеПолучатель);
            ПечатьПодвала(НаправлениеВыпуска, текПолучатель.ПодразделениеПолучатель);
            Первый = Ложь;
        КонецЦикла;
    КонецЕсли;


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

Процедура ПечатьПодвала(НаправлениеВыпуска, ПодразделениеПолучатель)

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

КонецПроцедуры

Функция ПечатьЗатратыНаВыпуск(ТЗ, ПодразделениеПолучатель)

    //Затраты
    ТабДокумент.Вывести(ОбластьШапкаТаблицы);

    Если Строка(ПодразделениеПолучатель) = "" тогда
        НайденныеСтроки = ТЗ.Скопировать();
    иначе
        Отбор = новый Структура;
        Отбор.Вставить("ПодразделениеПолучатель", ПодразделениеПолучатель);
        НайденныеСтроки = ТЗ.НайтиСтроки(Отбор);
    КонецЕсли;

    ном = 0;

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

        ОбластьСтрока.Параметры.Артикул    = текПродукция.Номенклатура.Артикул;
        ОбластьСтрока.Параметры.Вес        = текПродукция.Номенклатура.ЕдиницаХраненияОстатков.Вес;
        ОбластьСтрока.Параметры.ВесИтого   = текПродукция.Номенклатура.ЕдиницаХраненияОстатков.Вес * текПродукция.Количество;
        ВесИтого = ВесИтого + текПродукция.Номенклатура.ЕдиницаХраненияОстатков.Вес * текПродукция.Количество;

        ОбластьСтрока.Параметры.Цена       = текПродукция.Стоимость / текПродукция.Количество;
        ОбластьСтрока.Параметры.Стоимость  = текПродукция.Стоимость;

        Стоимость = Стоимость + текПродукция.Стоимость;

        ОбластьСтрока.Параметры.ном    = ном;
        Заказ = текПродукция.Заказ;

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

        ОбластьСтрока.Параметры.Заказ  = Заказ;
        ТабДокумент.Вывести(ОбластьСтрока);
    КонецЦикла;

    ОбластьИтого.Параметры.Количество = Количество;
    ОбластьИтого.Параметры.ВесИтого   = ВесИтого;
    ОбластьИтого.Параметры.Стоимость  = Стоимость;

    ТабДокумент.Вывести(ОбластьИтого);

    Возврат ТабДокумент;

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