7.7 обработка справочника, не пойму где ошибка

Здравствуйте, написал обработку, но никак не получается изменить значение элемента справочника. ТекЭл.ПодкатегорияТовара.Код=рез; спрН.Записать(); присвоил элемент и записал. Вроде правильно, но почему то не присваивается.
[CODE1C]
//*******************************************
Процедура Сформировать()
стр1=100;
Стр2=1000;
уд=2;
спрН=СоздатьОбъект("Справочник.Номенклатура");
СпрПодк=СоздатьОбъект("Справочник.ПодкатегорииТовара");
СпрПодк.ИспользоватьВладельца(спрН);
спрН.ВыбратьЭлементы();
Пока спрН.ПолучитьЭлемент() = 1 Цикл
ТекЭл=спрН.ТекущийЭлемент();
СтрКод=ТекЭл.ПодкатегорияТовара.Код;
СтрКод=Число(СтрКод);
Если (СтрКод >стр1) и (СтрКод <Стр2) Тогда

Сообщить(ТекЭл.Наименование+"///"+ ТекЭл.ПодкатегорияТовара.Код);
теккод=ТекЭл.ПодкатегорияТовара.Код;
/////////
теккоддл=СтрДлина(теккод);
Скудалить=теккоддл-уд;
Сообщить(Скудалить);
/////////////
рез=Сред(теккод,Скудалить,теккоддл-1);
ТекЭл.ПодкатегорияТовара.Код=рез;
спрН.Записать();
//Если СпрПодк.НайтиПоКоду(рез)=1 Тогда
// ТекЭл.ПодкатегорияТовара.Код=СпрПодк.
// Сообщить(рез);
// спрН.Записать();
//КонецЕсли;

КонецЕсли;
КонецЦикла;
КонецПроцедуры
[/CODE1C]

Переделал, всеравно не присваивает другой код в номенклатуре. Элемент находит не получается просто перевыбрать элемент с другим кодом.

Код:

//*******************************************
Процедура Сформировать()   
стр1=100;
Стр2=1000;
уд=2;
спрН=СоздатьОбъект("Справочник.Номенклатура");
СпрПодк=СоздатьОбъект("Справочник.ПодкатегорииТовара");
СпрПодк.ИспользоватьВладельца(спрН);
спрН.ВыбратьЭлементы();
Пока спрН.ПолучитьЭлемент() = 1 Цикл

СтрКод=спрН.ПодкатегорияТовара.код;
СтрКод=Число(СтрКод);
Если (СтрКод >стр1) и (СтрКод <Стр2)   Тогда 

Сообщить(спрН.Наименование+"///"+спрН.ПодкатегорияТовара.Код);

теккод=спрН.ПодкатегорияТовара.Код; 
/////////
теккоддл=СтрДлина(теккод);
Скудалить=теккоддл-уд;
Сообщить(Скудалить);
/////////////
рез=Сред(теккод,Скудалить,теккоддл-1);
Если СпрПодк.НайтиПоКоду(рез)=1 Тогда
Сообщить("Код найден");
спрН.ПодкатегорияТовара.Код=рез; 
спрН.Записать();
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры

Внимание! Пользуйтесь тегами, уважайте коллег.

Вроде нашел проблему, справочник ПодкатегорияТовара привязан к справочнику(является владельцем) ук_категории_товаровKIP, и как бы прописать для номенклатыры кто для кого является владельцем.
спрН=СоздатьОбъект("Справочник.Номенклатура");
спрУк=СоздатьОбъект("Справочник.ук_категории_товаровKIP");
СпрПодк=СоздатьОбъект("Справочник.ПодкатегорииТовара");
СпрПодк.ИспользоватьВладельца(спрУк);

И как в этом случае в оменклатуре переприсвоить другой код

Задача простая, есть Спрвочник Номенклатура, в нем есть Справочник.ук_категории_товаровKIP которому подчинен Справочник.ПодкатегорииТовара. В справочнике Номенклатура мы заполняем соответственно ук_категории_товаровKIP и ПодкатегорииТовара. В справочнике ук_категории_товаровKIP данные занесены корректно, но вот в Справочник.ПодкатегорииТовара данные не корректные: наименования задвоились и создались с новым кодом который на разряд выше нормального кода (это наследие от предыдущих программистов).
Необходимо в справочнике Номенклатура перевыбрать элементы с нормальными кодами из справочника Справочник.ПодкатегорииТовара.