v7: Установка периодического реквизита справочника

Добрый день.
Други выручайте.
Есть модуль по переносу реквизита НДС из одной базы в другую.

    СпрОб = СоздатьОбъект("Справочник.Номенклатура");
    Спр = СоздатьОбъект("Справочник.Номенклатура");
    СпрОЛЕ = БазаОле.CreateObject("Справочник.Номенклатура");
    СпрНДС = СоздатьОбъект("Справочник.СтавкиНДС");

    СпрНДС.НайтиПоКоду(1);
    НДС18 = СпрНДС.ТекущийЭлемент();
    СпрНДС.НайтиПоКоду(2);
    НДС10 = СпрНДС.ТекущийЭлемент();
    СпрНДС.НайтиПоКоду(0);
    НДС0 = СпрНДС.ТекущийЭлемент();

    Спр.ВыбратьЭлементы();
    Пока Спр.ПолучитьЭлемент() = 1 Цикл
        Если Спр.ЭтоГруппа() = 0 Тогда

            СпрОЛЕ.НайтиПоКоду(Спр.Код);
            СпрОб.НайтиЭлемент(Спр.ТекущийЭлемент());
            Если СпрОЛЕ.СтавкаНДС.Получить(ТекущаяДата()).Ставка = 18 Тогда
                СпрОб.СтавкаНДС.Установить(Дата(2014,01,01),НДС18);
            ИначеЕсли СпрОЛЕ.СтавкаНДС.Получить(ТекущаяДата()).Ставка = 10 Тогда
                СпрОб.СтавкаНДС.Установить(Дата(2014,01,01),НДС10);
            ИначеЕсли СпрОЛЕ.СтавкаНДС.Получить(ТекущаяДата()).Ставка = 0 Тогда
                СпрОб.СтавкаНДС.Установить(Дата(2014,01,01),НДС0);
            КонецЕсли;

            СпрОб.Записать();

        КонецЕсли;
    КонецЦикла;

Не присваивает и все тут. Все перепробовал. Не робит. Подскажите в чем я неправ?
Заранее благодарен.