Номенклатура по документу

//Модуль менеджера
Функция ТекстНоменклатура(Номенклатура)

ТЗ = Новый ТаблицаЗначений;

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

ТЗНоменклатура = Номенклатура.Выгрузить();

ТекстНоменклатура = "";
Для Каждого Стр Из ТЗНоменклатура Цикл
    ТекстНоменклатура = ТекстНоменклатура +?(ТекстНоменклатура  = "", Стр.Номенклатура.Наименование, ", " + Стр.Номенклатура.Наименование);
КонецЦикла;

Возврат ТекстНоменклатура;

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


// Далее заполнил область
ОбластьЛицевая.Параметры.Пункт3_1 = ТекстНоменклатура(Номенклатура);


// В модуле формы
Функция ПечатьНовойТранспортнойНакладнойНаСервере(ТекущийДокумент, Элемент)
    
    Возврат Документы.Рейс.Сформировать_ПФ_MXL_НоваяТранспортнаяНакладная(ТекущийДокумент, Элемент);
    
КонецФункции

&НаКлиенте
Процедура ПечатьНовойТранспортнойНакладной(Команда)
    
    ТекДок = Объект.Ссылка;
    МассивСсылок = ПолучитьМассивРеализаций(ТекДок);
    Если МассивСсылок <> Неопределено Тогда
        Для каждого Реализация из МассивСсылок Цикл
            ТабличныйДокумент = ПечатьНовойТранспортнойНакладнойНаСервере(ТекДок, Реализация);
            Если ТабличныйДокумент <> Неопределено Тогда
                ДлинаЗаголовка = СтрДлина(Строка(Реализация)) - 8;
                ТабличныйДокумент.Показать("Транспортная накладная по: " + Лев(Строка(Реализация), ДлинаЗаголовка));
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;
        
КонецПроцедуры


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