1С 8.2 УП : КД ~ Из множества документов выгрузить в один документ

 Запрос = Новый запрос();

Запрос.текст = "ВЫБРАТЬ

|	РасходнаяНакладнаяСписокНоменклатуры.Номенклатура,

|	РасходнаяНакладнаяСписокНоменклатуры.Количество,

|	РасходнаяНакладнаяСписокНоменклатуры.Цена,

|	РасходнаяНакладнаяСписокНоменклатуры.Сумма

|ИЗ

|	Документ.РасходнаяНакладная.СписокНоменклатуры КАК РасходнаяНакладнаяСписокНоменклатуры";



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



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

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

ТаблицаДанные.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"));

ТаблицаДанные.Колонки.Добавить("ПометкаУдаления", Новый ОписаниеТипов("Булево"));

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

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



СписокНоменклатуры = Новый ТаблицаЗначений();

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

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

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

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



Пока Выборка.Следующий() Цикл

	

	СтрокаТоваров = СписокНоменклатуры.Добавить();

	СтрокаТоваров.Номенклатура = Выборка.Номенклатура;

	СтрокаТоваров.Количество = Выборка.Количество;

	СтрокаТоваров.Цена = Выборка.Цена;

	СтрокаТоваров.Сумма = Выборка.Сумма;

	

КонецЦикла;



НоваяСтрокаДанные = ТаблицаДанные.Добавить();

НоваяСтрокаДанные.Номер = "001";

НоваяСтрокаДанные.Дата = ТекущаяДата();

НоваяСтрокаДанные.ПометкаУдаления = Ложь;

НоваяСтрокаДанные.СуммаПоДокументу = 123;

НоваяСтрокаДанные.СписокНоменклатуры = СписокНоменклатуры;



ВыборкаДанных = ТаблицаДанные;