Заполнить значение свойств было бы более верным.
А так слабая обработка.
Для каждого стр Из Таб Цикл
Объект=стр.Номенклатура.Ссылка.ПолучитьОбъект();
Копия = Объект.Скопировать();
Копия.Наименование = стр.Наименование;
Копия.НаименованиеПолное = стр.Наименование;
Копия.Родитель=ГруппаНоменклатуры;
Копия.Записать();
ВыборкаЕдиниц = Справочники.ЕдиницыИзмерения.Выбрать(, Копия.Ссылка);
Если ВыборкаЕдиниц.Следующий() Тогда
НайденнаяЕдиницаОбъект = ВыборкаЕдиниц.Ссылка;
Иначе
//НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
//НайденнаяЕдиницаОбъект.Наименование = Копия.БазоваяЕдиницаИзмерения.Наименование;
//НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = Копия.БазоваяЕдиницаИзмерения;
//НайденнаяЕдиницаОбъект.Коэффициент = 1;
//НайденнаяЕдиницаОбъект.Владелец = Копия.Ссылка;
НайденнаяЕдиницаОбъект = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796");
//Попытка
// НайденнаяЕдиницаОбъект.Записать();
//Исключение
// Сообщить("Не удалось записать единицу хранения остатков: " + ОписаниеОшибки(), СтатусСообщения.Важное);
// Отказ = Истина;
// Возврат;
//КонецПопытки;
КонецЕсли;
Копия.ЕдиницаХраненияОстатков=НайденнаяЕдиницаОбъект.Ссылка;
Копия.ЕдиницаДляОтчетов=НайденнаяЕдиницаОбъект.Ссылка;
Копия.Записать();
//Если КопироватьСпецификации Тогда
// Спецификация=ПолучитьСпецификацию(стр.Номенклатура.Ссылка);
// Если Спецификация<>Неопределено Тогда
// СпецификацияОбъект = Спецификация.ПолучитьОбъект();
// СпецификацияКопия=СпецификацияОбъект.Скопировать();
// Для каждого стр Из СпецификацияКопия.ВыходныеИзделия Цикл
// стр.Номенклатура=Копия.Ссылка;
// КонецЦикла;
// СпецификацияКопия.Записать();
// Сообщить(СпецификацияКопия.Ссылка)
// КонецЕсли;
// Сообщить(Копия.Наименование);
//КонецЕсли;
КонецЦикла;
Показать