Копирование данных с регистра в регистр

[akaipbay]

Здравсвуйте!

Пытаюсь скопировать данные с регистра КурсВалют в копию такого же регистра со смещением даты на -1 день.
Сделал обработку, на форме кнопка, в кнопке процедура

Код Выделить Развернуть


Процедура КнопкаВыполнитьНажатие(Кнопка)

// Вставить содержимое обработчика.
      //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| КурсыВалют.Период КАК Период,
| КурсыВалют.Валюта КАК Валюта,
| КурсыВалют.Курс КАК Курс,
| КурсыВалют.Кратность КАК Кратность
|ИЗ
| РегистрСведений.КурсыВалют КАК КурсыВалют";

Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
// Вставить обработку выборки ВыборкаДетальныеЗаписи
        Дата = НачалоДня(ВыборкаДетальныеЗаписи.Период);
НоваяЗапись = РегистрыСведений.КурсыВалютKASE.СоздатьМенеджерЗаписи();
НоваяЗапись.Период = Дата - 24*60*60;
НоваяЗапись.Валюта = ВыборкаДетальныеЗаписи.Валюта;
НоваяЗапись.Курс = ВыборкаДетальныеЗаписи.Курс;
НоваяЗапись.Кратность = ВыборкаДетальныеЗаписи.Кратность;
НоваяЗапись.Записать();
КонецЦикла;

//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

КонецПроцедуры


Код не работает, подскажите что не так?

[Rasty]

НаборЗаписей= РегистрыСведений.КурсыВалютKASE.СоздатьНаборЗаписей();
Цикл
Запись = НаборЗаписей.Добавить();
...
...
...
...
КонецЦикла;
НаборЗаписей.Записать()

[akaipbay]

НаборЗаписей= РегистрыСведений.КурсыВалютKASE.СоздатьНаборЗаписей();
Цикл
Запись = НаборЗаписей.Добавить();
...
...
...
...
КонецЦикла;
НаборЗаписей.Записать()

спасибо разобрался