передать значение переменной между процедурами модуля

Из второй процедуры надо в первую передать КоличествоСтрок

Процедура ЗаполнитьРеквизитыШапкиУПД(ДанныеПечати, СведенияОПоставщике, ДанныеКонтрагентов, Макет, ТабличныйДокумент)

    СведенияОГрузоотправителе = СведенияОГрузоотправителе(ДанныеПечати);

    ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
    ШтрихкодированиеПечатныхФорм.ВывестиШтрихкодВТабличныйДокумент(ТабличныйДокумент, Макет, ОбластьМакета,
        ДанныеПечати.Ссылка);
    ОбластьМакета.Параметры.Заполнить(ДанныеПечати);

    ПараметрыШапки = Новый Структура;

    ПараметрыШапки.Вставить("Номер", НомерСчетаФактурыНаПечать(ДанныеПечати.Номер, ДанныеПечати.ИндексПодразделения));
    ПараметрыШапки.Вставить("Дата", Формат(ДанныеПечати.Дата, "ДЛФ=ДД"));
    ПараметрыШапки.Вставить("НомерИсправления", ?(ДанныеПечати.Исправление, ДанныеПечати.НомерИсправления, "--"));
    ПараметрыШапки.Вставить("ДатаИсправления",
        ?(ДанныеПечати.Исправление, Формат(ДанныеПечати.ДатаИсправления, "ДЛФ=ДД"), "--"));

    // Выводим данные о поставщике.
    ПредставлениеПоставщика = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1'"),
        СведенияОПоставщике.ОфициальноеНаименование);

    АдресПоставщика = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1'"),
        ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес"));

    ИННПоставщика = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1%2'"),
        ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ИНН", Ложь),
        ?(Не ПустаяСтрока(ДанныеПечати.КПППоставщика), "/" + ДанныеПечати.КПППоставщика, ""));

    //ТекстДокументыОбОтгрузке = "";


    ПараметрыШапки.Вставить("ПредставлениеПоставщика", ПредставлениеПоставщика);
    ПараметрыШапки.Вставить("АдресПоставщика", АдресПоставщика);
    ПараметрыШапки.Вставить("ИННПоставщика", ИННПоставщика);
    //СтрокаТовары = ВыборкаПоДокументам.Выбрать();
    //КоличествоСтрок = СтрокаТовары.Количество();
    ВыборкаПоДокументам = ДанныеПечати.РезультатПоТабличнойЧасти.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    СтруктураПоиска = Новый Структура("Ссылка", ДанныеПечати.Ссылка);
    ВыборкаПоДокументам.НайтиСледующий(СтруктураПоиска);
    СтрокаТовары = ВыборкаПоДокументам.Выбрать();
    КоличествоСтрок = СтрокаТовары.Количество();


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



    // Выводим данные грузоотправителя.
    ТекстГрузоотправителя = "";
    Если ДанныеПечати.ТолькоУслуги ИЛИ ДанныеПечати.Грузоотправитель = Неопределено Тогда
        ТекстГрузоотправителя = "--";
    ИначеЕсли ДанныеПечати.Организация = ДанныеПечати.Грузоотправитель Тогда
        ТекстГрузоотправителя = НСтр("ru='он же'");
    Иначе
        ТекстГрузоотправителя = ФормированиеПечатныхФорм.ОписаниеОрганизации(
            СведенияОГрузоотправителе, "ПолноеНаименование,ФактическийАдрес");
    КонецЕсли;

    ПредставлениеГрузоотправителя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1'"),
        ТекстГрузоотправителя);

    ПараметрыШапки.Вставить("ПредставлениеГрузоотправителя", ПредставлениеГрузоотправителя);

    // Выводим данные грузополучателя и покупателя.
    ТекстГрузополучателя = "--";

    ПредставлениеГрузополучателя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1'"),
        ТекстГрузополучателя);
    СтрокаПоДокументу = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1'"),
        ?(ПустаяСтрока(ДанныеПечати.СтрокаПоДокументу),
            НСтр("ru='-- от --'"),
            ДанныеПечати.СтрокаПоДокументу));

    ПараметрыШапки.Вставить("ПоДокументу", СтрокаПоДокументу);

    ЕстьГрузополучатель = Не ДанныеПечати.ТолькоУслуги;

    ТаблицаКонтрагентов = ТаблицаКонтрагентовСчетаФактуры(ДанныеПечати, ДанныеКонтрагентов);

    ПредставлениеПокупателя       = "";
    ПредставлениеАдресаПокупателя = "";
    ПредставлениеИННПокупателя    = "";
    ПредставлениеГрузополучателя  = "";

    Для Каждого СтрокаТаблицы Из ТаблицаКонтрагентов Цикл

        СведенияОПокупателе = СтрокаТаблицы.СведенияОПокупателе;

        ПредставлениеПокупателя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
            НСтр("ru='%1; %2'"),
            ПредставлениеПокупателя,
            ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование", Ложь));

        ПредставлениеАдресаПокупателя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
            НСтр("ru='%1; %2'"),
            ПредставлениеАдресаПокупателя,
            ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ЮридическийАдрес", Ложь));

        ПредставлениеИННПокупателя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
            НСтр("ru='%1; %2%3'"),
            ПредставлениеИННПокупателя,
            ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ИНН", Ложь),
            ?(Не ПустаяСтрока(СтрокаТаблицы.КПП), "/" + СтрокаТаблицы.КПП, ""));

        Если ЕстьГрузополучатель Тогда
            СведенияОГрузополучателе = СтрокаТаблицы.СведенияОГрузополучателе;
            ПредставлениеГрузополучателя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
                НСтр("ru='%1; %2'"),
                ПредставлениеГрузополучателя,
                ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузополучателе, "ПолноеНаименование,ФактическийАдрес", Ложь));
        КонецЕсли;

    КонецЦикла;

    ПредставлениеПокупателя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1'"),
        Сред(ПредставлениеПокупателя, 3));

    ПредставлениеАдресаПокупателя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1'"),
        Сред(ПредставлениеАдресаПокупателя, 3));

    ПредставлениеИННПокупателя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1'"),
        Сред(ПредставлениеИННПокупателя, 3));

    ПредставлениеГрузополучателя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
        НСтр("ru='%1'"),
        ?(ЕстьГрузополучатель, Сред(ПредставлениеГрузополучателя, 3), "--"));

    ПараметрыШапки.Вставить("ПредставлениеПокупателя", ПредставлениеПокупателя);
    ПараметрыШапки.Вставить("АдресПокупателя", ПредставлениеАдресаПокупателя);
    ПараметрыШапки.Вставить("ИННПокупателя", ПредставлениеИННПокупателя);
    ПараметрыШапки.Вставить("ПредставлениеГрузополучателя", ПредставлениеГрузополучателя);
    ПараметрыШапки.Вставить("Валюта", НСтр("ru='Российский рубль, 643'"));

    СтруктураПараметровИдентификаторГосКонтракта = Новый Структура("ИдентификаторГосКонтракта");
    ЗаполнитьЗначенияСвойств(СтруктураПараметровИдентификаторГосКонтракта, ДанныеПечати);
    Если ДействуетПостановление981(ДанныеПечати.Дата,ДанныеПечати.ДатаИсправления) Тогда
        ПредставлениеИдентификаторГосКонтракта = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
            НСтр("ru='%1'"),
            СокрЛП(СтруктураПараметровИдентификаторГосКонтракта.ИдентификаторГосКонтракта));
    Иначе
        ПредставлениеИдентификаторГосКонтракта = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
            НСтр("ru='%1'"),
            СокрЛП(СтруктураПараметровИдентификаторГосКонтракта.ИдентификаторГосКонтракта));
    КонецЕсли;
    ПараметрыШапки.Вставить("ИдентификаторГосКонтракта", ПредставлениеИдентификаторГосКонтракта);

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

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

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

Процедура ЗаполнитьТабличныйДокументУПД(ТабличныйДокумент, ДанныеДляПечати, ОбъектыПечати) Экспорт


    ВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();

    МакетУПД = УправлениеПечатью.МакетПечатнойФормы("Обработка.ПечатьОбщихФорм.ПФ_MXL_УниверсальныйПередаточныйДокумент");
    МакетУПД_625 = УправлениеПечатью.МакетПечатнойФормы("Обработка.ПечатьОбщихФорм.ПФ_MXL_УниверсальныйПередаточныйДокумент_625");
    МакетУПД_981 = УправлениеПечатью.МакетПечатнойФормы("Обработка.ПечатьОбщихФорм.ПФ_MXL_УниверсальныйПередаточныйДокумент981");
    МакетУПД_534 = УправлениеПечатью.МакетПечатнойФормы("Обработка.ПечатьОбщихФорм.ПФ_MXL_УниверсальныйПередаточныйДокумент534"); //Дима 30.06.21

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

    ЕстьПостановление981 = ЛОЖЬ;
    ЕстьПостановление1137_625 = ЛОЖЬ;
    ЕстьПостановление1137 = ЛОЖЬ;
    ЕстьПостановление534 = ЛОЖЬ;          //Дима 30.06.21


    ПервыйДокумент = Истина;
    Пока ДанныеПечати.Следующий() Цикл

        // Данное условие срабатывает, когда печать ведется из учетного документа (не из СФ),
        // но при этом требуется печать СФ (в этом случае нужно печатать УПД в статусе 1).
        // Условие "ТребуетсяНаличиеСФ" добавлено для документов, для которых необходимо
        // печатать УПД в статусе 2, но наличия СФ не обязательно.
        // Например, Возврат товаров между организациями и Возврат товаров поставщику.
        Если ДанныеПечати.СтатусУПД = 2
            И ЗначениеЗаполнено(ДанныеПечати.НалогообложениеНДС)
            И ДанныеПечати.НалогообложениеНДС = Перечисления.ТипыНалогообложенияНДС.ПродажаОблагаетсяНДС
            И НЕ ДанныеПечати.ЭтоПередачаНаКомиссию
            И ДанныеПечати.ТребуетсяНаличиеСФ Тогда

            Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
                НСтр("ru = 'Для документа %1 не введен %2'"),
                ДанныеПечати.Ссылка,
                ДанныеПечати.ПредставлениеДокумента);
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
                Текст,
                ДанныеПечати.Ссылка,
                ,
                "ТекстСчетФактура");

            Продолжить;
        КонецЕсли;

        Если ДействуетПостановление534(ДанныеПечати.Дата, ДанныеПечати.ДатаИсправления) Тогда            //Дима 30.06.21
            Макет = МакетУПД_534;                                                                        //Дима 30.06.21
            ЕстьПостановление534 = Истина;                                                               //Дима 30.06.21
        ИначеЕсли ДействуетПостановление981(ДанныеПечати.Дата, ДанныеПечати.ДатаИсправления) Тогда       //Дима 30.06.21
            Макет = МакетУПД_981;
            ЕстьПостановление981 = Истина;
        ИначеЕсли ВедетсяУчетНДСПоФЗ56(ДанныеПечати.Дата, ДанныеПечати.ДатаИсправления) Тогда
            Макет = МакетУПД_625;
            ЕстьПостановление1137_625 = Истина;
        Иначе
            Макет = МакетУПД;
            ЕстьПостановление1137 = Истина;
        КонецЕсли;

        Если ЕстьПостановление1137_625 И ЕстьПостановление1137 Тогда

            Текст = НСтр("ru = 'Недоступна одновременная печать универсальных передаточных документов,
                |сформированных до и после начала применения постановления Правительства РФ №625 от 25 мая 2017 г.'");
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
                Текст,
                ДанныеПечати.Ссылка);

            ТабличныйДокумент.Очистить();
            Прервать;

        КонецЕсли;

        Если (ЕстьПостановление1137_625 ИЛИ ЕстьПостановление1137) И ЕстьПостановление981 Тогда

            Текст = НСтр("ru = 'Недоступна одновременная печать универсальных передаточных документов,
                |сформированных до и после начала применения постановления Правительства РФ №981 от 19 августа 2017 г.'");
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
                Текст,
                ДанныеПечати.Ссылка);

            ТабличныйДокумент.Очистить();
            Прервать;

        КонецЕсли;


        Если Не ПервыйДокумент Тогда
            ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЕсли;
        ПервыйДокумент = Ложь;
        НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;

        // Выводим общие реквизиты шапки
        СведенияОбОрганизации = ФормированиеПечатныхФорм.СведенияОЮрФизЛице(ДанныеПечати.Организация, ДанныеПечати.Дата);
        ЗаполнитьРеквизитыШапкиУПД(ДанныеПечати, СведенияОбОрганизации, ВыборкаКонтрагентов, Макет, ТабличныйДокумент);

        // Выводим заголовок таблицы
        ЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицы");
        ТабличныйДокумент.Вывести(ЗаголовокТаблицы);

        НомерСтраницы = 1;

        // Инициализация итогов в документе
        ИтоговыеСуммы = СтруктураИтоговыеСуммы();

        // Создаем массив для проверки вывода
        МассивВыводимыхОбластей = Новый Массив;

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

        ЗаполнитьРеквизитыПодвалаУПД(ОбластьПодвал, ДанныеПечати, СведенияОбОрганизации, ВыборкаКонтрагентов);
        Если Макет = МакетУПД_534 Тогда
        ЗаполнитьРеквизитыПодвалаУПД(ОбластьПодвалНакладной, ДанныеПечати, СведенияОбОрганизации, ВыборкаКонтрагентов);
        КонецЕсли;

        Если ДанныеДляПечати.РезультатПоШапке.Колонки.Найти("ВыводитьКодНоменклатуры") <> Неопределено Тогда
            ВыводитьКодНоменклатуры = ДанныеПечати.ВыводитьКодНоменклатуры;
        Иначе
            ВыводитьКодНоменклатуры = Истина;
        КонецЕсли;

        СтруктураПоиска = Новый Структура("Ссылка", ДанныеПечати.Ссылка);
        ВыборкаПоДокументам.НайтиСледующий(СтруктураПоиска);

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

        ВыводитьКодыТНВЭД = ВыводитьКодыТНВЭД(ДанныеПечати, ЕстьПостановление981);

        ОперацияОблагаетсяНДСУПокупателя = Ложь;
        Если ДанныеПечати.СтатусУПД = 1
        И ДанныеПечати.НалогообложениеНДС = Перечисления.ТипыНалогообложенияНДС.ОблагаетсяНДСУПокупателя Тогда
            ОперацияОблагаетсяНДСУПокупателя = Истина;
        КонецЕсли;

        СтрокаТовары = ВыборкаПоДокументам.Выбрать();
        КоличествоСтрок = СтрокаТовары.Количество();
        //КвоСтрок = КоличествоСтрок;

        ТолькоСтавкаБезНДС = Истина;
        НомерСтроки = 0;
        Пока СтрокаТовары.Следующий() Цикл

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

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

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

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

            МассивВыводимыхОбластей.Очистить();
            МассивВыводимыхОбластей.Добавить(ОбластьСтрока);

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

            Если НомерСтроки <> 1 И НЕ ТабличныйДокумент.ПроверитьВывод(МассивВыводимыхОбластей) Тогда

                НомерСтраницы = НомерСтраницы + 1;
                ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();

                ОбластьНумерацияЛистов = Макет.ПолучитьОбласть("НумерацияЛистов");
                ОбластьНумерацияЛистов.Параметры.Номер = НомерСчетаФактурыНаПечать(ДанныеПечати.Номер, ДанныеПечати.ИндексПодразделения);
                Если ДействуетПостановление534(ДанныеПечати.Дата, ДанныеПечати.ДатаИсправления) Тогда              //Дима 30.06.21
                    ОбластьНумерацияЛистов.Параметры.НомерЛиста = НомерСтраницы;                                   //Дима 30.06.21
                Иначе                                                                                              //Дима 30.06.21
                    ОбластьНумерацияЛистов.Параметры.Дата = Формат(ДанныеПечати.Дата, "ДЛФ=ДД; ДП=--");
                    ОбластьНумерацияЛистов.Параметры.НомерСтраницы = НомерСтраницы;
                КонецЕсли;                                                                                         //Дима 30.06.21

                ТабличныйДокумент.Вывести(ОбластьНумерацияЛистов);
                ТабличныйДокумент.Вывести(ЗаголовокТаблицы);

            КонецЕсли;

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

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

        Если ТолькоСтавкаБезНДС Тогда
            ИтоговыеСуммы.ИтогоСуммаНДС = НСтр("ru='без НДС'");
        КонецЕсли;

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

        ОбластьИтого.Параметры.Заполнить(ИтоговыеСуммы);
        ПроставитьПрочеркиВПустыеПоляСтроки(ОбластьИтого);
        ТабличныйДокумент.Вывести(ОбластьИтого);

        КоличествоСтраниц = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
            НСтр("ru = 'Документ составлен на %1 %2'"),
            НомерСтраницы,
            ОбщегоНазначенияУТКлиентСервер.ФормаМножественногоЧисла(
                НСтр("ru = 'листе'"), НСтр("ru = 'листах'"), НСтр("ru = 'листах'"), НомерСтраницы));
        СтруктураПараметров = Новый Структура("КоличествоСтраниц", КоличествоСтраниц);
        ОбластьПодвал.Параметры.Заполнить(СтруктураПараметров);
        ТабличныйДокумент.Вывести(ОбластьПодвал);
        Если Макет = МакетУПД_534 Тогда
        ТабличныйДокумент.Вывести(ОбластьПодвалНакладной);
        КонецЕсли;

        УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати,
            ДанныеПечати.Ссылка);

    КонецЦикла;

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