Характеристика номенклатуры

Использую вот такой код (тут нашел). Сама характеристика создается, а вот значения свойств не записываются. Где ошибка? (конфа КОмплексная автоматизация)
Характеристика          = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
    Характеристика.Владелец = Товар.Ссылка;

    Размер      = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Размер");
    Рост        = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Рост");
    Цвет        = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Цвет",истина);

    ЗначениеРазмер  = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию(СокрЛП(ФайлОбмена.RAZM),Истина,,Размер);
    Если ЗначениеРазмер.Пустая() Тогда
        НовоеЗначение = Справочники.ЗначенияСвойствОбъектов.СоздатьЭлемент();
        НовоеЗначение.Владелец     = Размер.Ссылка;
        НовоеЗначение.Наименование = ФайлОбмена.RAZM;
        НовоеЗначение.Записать();
        ЗначениеРазмер = НовоеЗначение.Ссылка;
    КонецЕсли;

    ЗначениеРост    = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию(СокрЛП(ФайлОбмена.ROST),Истина,,Рост);
    Если ЗначениеРост.Пустая() Тогда
        НовоеЗначение = Справочники.ЗначенияСвойствОбъектов.СоздатьЭлемент();
        НовоеЗначение.Владелец     = Рост.Ссылка;
        НовоеЗначение.Наименование = ФайлОбмена.ROST;
        НовоеЗначение.Записать();
        ЗначениеРост = НовоеЗначение.Ссылка;
    КонецЕсли;

    ЗначениеЦвет  = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию(СокрЛП(ФайлОбмена.COL),Истина,,Цвет);
    Если ЗначениеЦвет.Пустая() Тогда
        НовоеЗначение = Справочники.ЗначенияСвойствОбъектов.СоздатьЭлемент();
        НовоеЗначение.Владелец     = Цвет.Ссылка;
        НовоеЗначение.Наименование = ФайлОбмена.COL;
        НовоеЗначение.Записать();
        ЗначениеРазмер = НовоеЗначение.Ссылка;
    КонецЕсли;

    КоллекцияЗначений = Новый СписокЗначений();
    КоллекцияЗначений.Добавить(ЗначениеРазмер);
    КоллекцияЗначений.Добавить(ЗначениеРост);
    КоллекцияЗначений.Добавить(ЗначениеЦвет);

    Наим = Характеристика.СформироватьНаименование(КоллекцияЗначений);
    Характеристика.Наименование = Наим;
    Характеристика.Записать();

    ТаблицаДляЗаписиВРегистр = Новый ТаблицаЗначений;
    ТаблицаДляЗаписиВРегистр.Колонки.Добавить("Свойство");
    ТаблицаДляЗаписиВРегистр.Колонки.Добавить("Значение");

    НоваяСтрока = ТаблицаДляЗаписиВРегистр.Добавить();
    НоваяСтрока.Свойство = Размер;
    НоваяСтрока.Значение = ЗначениеРазмер;

    НоваяСтрока = ТаблицаДляЗаписиВРегистр.Добавить();
    НоваяСтрока.Свойство = Рост;
    НоваяСтрока.Значение = ЗначениеРост;

    НоваяСтрока = ТаблицаДляЗаписиВРегистр.Добавить();
    НоваяСтрока.Свойство = Цвет;
    НоваяСтрока.Значение = ЗначениеЦвет;

    ЗаписьЗначенияВРегистр=РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();

    НаборЗаписейЗначенияСвойств = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();

    Для каждого Строка Из ТаблицаДляЗаписиВРегистр Цикл
        Если НЕ ЗначениеНеЗаполнено(Строка.Значение) Тогда
            Запись = НаборЗаписейЗначенияСвойств.Добавить();

            Запись.Объект   = Характеристика.Ссылка;
            Запись.Свойство = Строка.Свойство;
            Запись.Значение = Строка.Значение;
        КонецЕсли;
    КонецЦикла;
    НаборЗаписейЗначенияСвойств.Записать();