Необходимо создать обработку по дублированию набора записей из одного регистра сведений в другой

Делаю вот так:

ИсходнаяОрганизация = Объект.ИсходнаяОрганизация;
 ЦелеваяОрганизация = Объект.ЦелеваяОрганизация;

 Запрос = Новый Запрос;
 Запрос.Текст =
 "ВЫБРАТЬ
  | РегистрСведений.Организация КАК Организация,
  | РегистрСведений.ОбъектМетаданных КАК ОбъектМетаданных,
  | РегистрСведений.Реквизит КАК Реквизит
  |ИЗ
  | РегистрСведений.РегистрСведений КАК РегистрСведений
  |ГДЕ
  | РегистрСведений.Организация = &Ссылка";

 Запрос.УстановитьПараметр("Ссылка",ИсходнаяОрганизация);

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

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

 Пока Выборка.Следующий() Цикл
  НоваяЗапись = НаборЗаписей.Добавить;
  ЗаполнитьЗначенияСвойств(НоваяЗапись,Выборка);
     НоваяЗапись.Организация = ЦелеваяОрганизация;
 КонецЦикла;
     НаборЗаписей.Записать(Ложь);

И ничего не происходит
---
Проблема была не в составе процедуры, а в том, что она была на сервере

Надо было:

&НаКлиенте
Процедура ПереместитьНаборЗначений(Команда)

 ПереносДанныхВРегистр()

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

&НаСервере
Процедура ПереносДанныхВРегистр()

//Состав процедуры

КонецПроцедуры
---
```1c
    "ВЫБРАТЬ
    | &ЦелеваяОрганизация КАК Организация,
    | РегистрСведений.ОбъектМетаданных КАК ОбъектМетаданных,
    | РегистрСведений.Реквизит КАК Реквизит
    |ИЗ
    | РегистрСведений.РегистрСведений КАК РегистрСведений
    |ГДЕ
    | РегистрСведений.Организация = &Ссылка"
    ......
    .......
    НаборЗаписей.Отбор.Организация.Установить(ЦелеваяОрганизация);
    ........
    НоваяЗапись = НаборЗаписей.Добавить();
    ..............
    //НоваяЗапись.Организация = ЦелеваяОрганизация;// лишняя
```
---
Если ничего не происходит, то надо идти в отладчик. Такое может быть если запрос пустой.
Кроме того почему в НоваяЗапись = НаборЗаписей.Добавить, идет без скобок?
---
Зайти в справку и посмотреть как надо делать
Пример:
КурсыВалют = РегистрыСведений.КурсыВалют;
НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();
Доллар = Справочники.Валюты.НайтиПоНаименованию("USD");
НаборКурсов.Отбор.Валюта.Установить(Доллар);
НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));
НаборКурсов.Прочитать();
Если НаборКурсов.Количество() = 0 Тогда
    НовыйКурс = НаборКурсов.Добавить();
    НовыйКурс.Валюта = Доллар;
    НовыйКурс.Период = ТекущаяДата();
ИначеЕсли НаборКурсов.Количество() = 1 Тогда
    НовыйКурс = НаборКурсов[0];
Иначе
    Предупреждение(НСтр("ru = 'Курс валюты задается один раз в день.';"
     + " en = 'Rate is set once a day.'"), 60);
    Возврат;
КонецЕсли;
НовыйКурс.Курс = 31.44;
НовыйКурс.Кратность = 1;
НаборКурсов.Записать();
Сообщить(НСтр(ru = 'Курс '; en = 'Rate ')
    + СокрЛП(НовыйКурс.Валюта)
    + НСтр(ru = ' на сегодня: "+"; en = ' for today: ')
    + НовыйКурс.Курс + НСтр(ru = ' руб.'; en = ' roub.'"));
---
В догонку. Если отбор пустой, то запись пустого набора регистра сведений очистит регистр полностью.
---
Попробуй сделать через менеджер записи

```1c
    Пока Выборка.Следующий() Цикл
    НоваяЗапись =РегистрыСведений.РегистрСведений.СоздатьМенеджерЗаписи();
    ЗаполнитьЗначенияСвойств(НоваяЗапись,Выборка);
    НоваяЗапись.Организация = ЦелеваяОрганизация;
    НоваяЗапись.Записать(Истина);
    КонецЦикла;
```
---
Проблема была не в составе процедуры, а в том, что она была на сервере

Надо было:

&НаКлиенте
Процедура ПереместитьНаборЗначений(Команда)

 ПереносДанныхВРегистр()

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

&НаСервере
Процедура ПереносДанныхВРегистр()

//Состав процедуры

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