Код 1C v 8.х Запрос = Новый запрос();
Запрос.текст = "ВЫБРАТЬ
| РасходнаяНакладнаяСписокНоменклатуры.Номенклатура,
| РасходнаяНакладнаяСписокНоменклатуры.Количество,
| РасходнаяНакладнаяСписокНоменклатуры.Цена,
| РасходнаяНакладнаяСписокНоменклатуры.Сумма
|ИЗ
| Документ.РасходнаяНакладная.СписокНоменклатуры КАК РасходнаяНакладнаяСписокНоменклатуры";
Выборка = запрос.Выполнить().Выбрать();
ТаблицаДанные = Новый ТаблицаЗначений;
ТаблицаДанные.Колонки.Добавить("Номер", Новый ОписаниеТипов("Строка"));
ТаблицаДанные.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"));
ТаблицаДанные.Колонки.Добавить("ПометкаУдаления", Новый ОписаниеТипов("Булево"));
ТаблицаДанные.Колонки.Добавить("СуммаПоДокументу", Новый ОписаниеТипов("Число"));
ТаблицаДанные.Колонки.Добавить("СписокНоменклатуры", Новый ОписаниеТипов("ТаблицаЗначений"));
СписокНоменклатуры = Новый ТаблицаЗначений();
СписокНоменклатуры.Колонки.Добавить("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));
СписокНоменклатуры.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));
СписокНоменклатуры.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));
СписокНоменклатуры.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));
Пока Выборка.Следующий() Цикл
СтрокаТоваров = СписокНоменклатуры.Добавить();
СтрокаТоваров.Номенклатура = Выборка.Номенклатура;
СтрокаТоваров.Количество = Выборка.Количество;
СтрокаТоваров.Цена = Выборка.Цена;
СтрокаТоваров.Сумма = Выборка.Сумма;
КонецЦикла;
НоваяСтрокаДанные = ТаблицаДанные.Добавить();
НоваяСтрокаДанные.Номер = "001";
НоваяСтрокаДанные.Дата = ТекущаяДата();
НоваяСтрокаДанные.ПометкаУдаления = Ложь;
НоваяСтрокаДанные.СуммаПоДокументу = 123;
НоваяСтрокаДанные.СписокНоменклатуры = СписокНоменклатуры;
ВыборкаДанных = ТаблицаДанные;