Массовая запись

Здравствуйте, уже задавал вопрос, но как сделать массовую запись в независимый периодический регистр сведений

Сейчас делаю подобным образом, но запись падает.

Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ЗаказПоставщикуТовары.Ссылка КАК Ссылка
        |ИЗ
        |    Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщикуТовары
        |ГДЕ
        |    ЗаказПоставщикуТовары.Ссылка.Дата > &Дата";
    Запрос.УстановитьПараметр("Дата", '20201203235113');

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

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

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        запрос2 = новый запрос;
        запрос2.Текст =
        "ВЫБРАТЬ РАЗЛИЧНЫЕ
        |    ЗаказПоставщикуТовары.Номенклатура КАК Номенклатура,
        |    ЗаказПоставщикуТовары.Упаковка КАК Упаковка,
        |    ЗаказПоставщикуТовары.Ссылка.Валюта КАК Валюта,
        |    ЗаказПоставщикуТовары.ВидЦеныПоставщика КАК ВидЦеныПоставщика,
        |    ЗаказПоставщикуТовары.Сумма КАК Сумма,
        |    ЗаказПоставщикуТовары.Количество КАК Количество,
        |    ЗаказПоставщикуТовары.Цена КАК Цена,
        |    ЗаказПоставщикуТовары.Ссылка.Дата КАК Дата,
        |    ЗаказПоставщикуТовары.Ссылка.Партнер КАК Партнер,
        |    ЗаказПоставщикуТовары.Ссылка КАК Ссылка
        |ИЗ
        |    Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщикуТовары
        |ГДЕ
        |    ЗаказПоставщикуТовары.Ссылка = &Ссылка";
    Запрос2.УстановитьПараметр("Ссылка", ВыборкаДетальныеЗаписи.Ссылка);
    РезультатЗапроса2 = Запрос2.Выполнить();
    ВыборкаДетальныеЗаписи2 = РезультатЗапроса2.Выбрать();

    Пока ВыборкаДетальныеЗаписи2.Следующий() Цикл
        Если не ЗначениеЗаполнено(ВыборкаДетальныеЗаписи2.Ссылка) Тогда
        Возврат;
    КонецЕсли;

            НаборЗаписей = РегистрыСведений.ЮТ_ЦеныНоменклатурыПоставщиковСПоставщиком.СоздатьНаборЗаписей();
            НаборЗаписей.Отбор.Регистр.Установить(ВыборкаДетальныеЗаписи2.Ссылка);
            НоваяЗапись = НаборЗаписей.Добавить();
            НоваяЗапись.Период = ВыборкаДетальныеЗаписи2.Дата;
            Если ЗначениеЗаполнено(ВыборкаДетальныеЗаписи2.ВидЦеныПоставщика) Тогда
            НоваяЗапись.ВидЦены = ВыборкаДетальныеЗаписи2.ВидЦеныПоставщика
            Иначе
            НоваяЗапись.ВидЦены = Справочники.ВидыЦенПоставщиков.НайтиПоНаименованию("Закупочная");
            КонецЕсли;

                    НоваяЗапись.Партнер = ВыборкаДетальныеЗаписи2.Партнер;
                    НоваяЗапись.Номенклатура = ВыборкаДетальныеЗаписи2.Номенклатура;
                    НоваяЗапись.Цена = ВыборкаДетальныеЗаписи2.Сумма/ВыборкаДетальныеЗаписи2.Количество;
                    НоваяЗапись.Упаковка = ВыборкаДетальныеЗаписи2.Упаковка;
                    НоваяЗапись.Валюта = ВыборкаДетальныеЗаписи2.Валюта;
                    НоваяЗапись.Регистр = ВыборкаДетальныеЗаписи2.Ссылка;
            НаборЗаписей.Записать();