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

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

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

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

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

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

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

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


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


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

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


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