Програмно проставить код УКТВЭД

УТП 1.2
Есть следующий фрагмент обработки который должен проставлять код УКТВЭД в номенклатуре но он этого не делает.Хотел бы у вас спросить в чём проблема?
СпрНом = Справочники.Номенклатура.НайтиПоНаименованию(ВыборкаДетальныеЗаписи.Наименование).ПолучитьОбъект();

выборка1 = Справочники.НоменклатураГТД.Выбрать();
            МассивСуществующихГТД = новый массив;
            пока выборка1.Следующий() цикл
                Если выборка1.Владелец = ВыборкаДетальныеЗаписи.Ссылка тогда
                    МассивСуществующихГТД .Добавить(ВыборкаДетальныеЗаписи.Ссылка) ;
                КонецЕсли;

            КонецЦикла;
            Если МассивСуществующихГТД .Количество() = 0 тогда
                Спр = Справочники.НоменклатураГТД.СоздатьЭлемент();
                Спр.Владелец = ВыборкаДетальныеЗаписи.Ссылка;

                НайденныйКодУКТВЭД = Справочники.КлассификаторУКТВЭД.НайтиПоКоду(КодУКТВЭД);
                Если Справочники.КлассификаторУКТВЭД.НайтиПоКоду(КодУКТВЭД).Пустая() Тогда
СпрУкт = Справочники.КлассификаторУКТВЭД.СоздатьЭлемент();
СпрУкт.Код = КодУКТВЭД;
СпрУкт.Наименование = Наименование;
СпрУкт.НаименованиеПолное = Наименование;
СпрУкт.Записать();
КонецЕсли;
Спр.КодУКТВЭД = правочники.КлассификаторУКТВЭД.НайтиПоКоду(КодУКТВЭД);
Спр.Записать();
    выборка = Справочники.НоменклатураГТД.Выбрать();
            пока выборка.Следующий() цикл
                Если выборка.Владелец = ВыборкаДетальныеЗаписи.Ссылка тогда
                    СпрНом.НоменклатураГТД = выборка.Ссылка;

                КонецЕсли;

            КонецЦикла;
СпрНом.Записать();