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

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

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

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

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

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

|ИЗ

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



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



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

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

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

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

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

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



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

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

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

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

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



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

	

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

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

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

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

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

	

КонецЦикла;



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

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

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

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

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

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



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

 НачатьТранзакцию(); 



// В переменной "ВыборкаДанных" содержатся данные для записи в справочник.

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

	ЭлементОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();

	

	ЭлементОбъект.Код  = Выборка.Код;

	ЭлементОбъект.Наименование = Выборка.Наименование;

	

	// Остальные реквизиты.

	//	...

	

	ЭлементОбъект.Записать();

	

КонецЦикла;	



ЗафиксироватьТранзакцию();

   

 ОтменитьТранзакцию();   

 НачатьТранзакцию(); 



	// В переменной "ВыборкаДанных" содержатся данные для записи в справочник. 

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

		ЭлементОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент(); 

		ЭлементОбъект.Код = Выборка.Код; 

		ЭлементОбъект.Наименование = Выборка.Наименование;



		 // Остальные реквизиты 



		ЭлементОбъект.Записать(); 

	КонецЦикла; 

ЗафиксироватьТранзакцию(); 



ОтменитьТранзакцию();