Скопировать номенклатуру с присоединенными файлами.

&НаСервере
Функция ОбработатьНоменклатуруНаСервере()
МассивНом = Объект.ТаблицаНоменклатуры.Выгрузить(,"Номенклатура");	
Объект.ТаблицаНоменклатуры.Очистить();

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