Как загрузить номенклатурные группы из DBF

ДБФ = Новый XBase;
ДБФ.ОткрытьФайл("C:\tov.dbf");
НовыйЭлемент2 = Справочники.ВидыНоменклатуры.СоздатьЭлемент();
НовыйЭлемент2.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;
НовыйЭлемент2.Наименование = "Товар";
НовыйЭлемент2.Записать();
//НоваяНоменклатура.ВидНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;
Пока ДБФ.Следующая() Цикл

НоваяНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();

ШтПоКлассификатору=Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
НоваяЕдиницаИзмерения=Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
// уникальная ссылка для подстановки в товар

НоваяссылкаЕдиницыИзмерения=Справочники.ЕдиницыИзмерения.ПолучитьСсылку();// уникальная ссылка

НоваяЕдиницаИзмерения.УстановитьСсылкуНового(НоваяссылкаЕдиницыИзмерения);
НоваяЕдиницаИзмерения.ПолучитьСсылкуНового();
НоваяЕдиницаИзмерения.ЕдиницаПоКлассификатору=ШтПоКлассификатору;
НоваяЕдиницаИзмерения.Коэффициент=1;
НоваяЕдиницаИзмерения.Наименование="шт.";
// не записываем раньше товара, поскольку нет владельца

//НовыйТовар=Справочники.Номенклатура.СоздатьЭлемент();

// НовыйТовар.ЕдиницаХраненияОстатков=НоваяссылкаЕдиницыИзмерения;

// НовыйТовар.Артикул="А"+(Ст);

НоваяНоменклатура.БазоваяЕдиницаИзмерения=ШтПоКлассификатору;
// НовыйТовар.ВидВоспроизводства=Перечисления.ВидыВоспроизводстваНоменклатуры.Закупка;

// НовыйТовар.Наименование="Шланг №"+Формат(Ст,"ЧЦ=4; ЧВН=; ЧГ=0"); // нужно ведущие нули

//

// НовыйТовар.СтавкаНДС=Перечисления.СтавкиНДС.НДС18;

// Новыйтовар.ВидНоменклатуры=Справочники.ВидыНоменклатуры.НайтиПоКоду("000000001");

// НовыйТовар.Записать();

НоваяНоменклатура.ВидНоменклатуры = НовыйЭлемент2.Ссылка;
НоваяНоменклатура.НоменклатурнаяГруппа = ДБФ.ПолучитьЗначениеПоля("GRUPPA1");
НоваяНоменклатура.Код = ДБФ.ПолучитьЗначениеПоля("CODE");
НоваяНоменклатура.Наименование = ДБФ.ПолучитьЗначениеПоля("NAME");
// товар записан со ссылкой на единицу измерения, которой в базе нет и в самой ссылке видим объект не найден

НоваяНоменклатура.Записать();
НоваяЕдиницаИзмерения.Владелец=НоваяНоменклатура.Ссылка;
НоваяЕдиницаИзмерения.Записать();

КонецЦикла;

ДБФ.ЗакрытьФайл();