Объект не может быть перепозиционирован

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