Подписка на обработку проведения УПП 1с8.3

Добрый день! Мне необходимо при проведении документа РТУ записать данные в регистр (который я самостоятельно создал). Мне сказали использовать подписка на событие. Я все правилньо сделал : создал подписку, привязал к ней общий модуль с таким кодом:??

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


Но немного долго думает 2-3 секунды, во время кнопки провести (записать) РТУ. Возможно есть какой-то другой способ? подскажите пожалуйста.

(1) (2) (3) странно, но уже не зависает.
Извините что потревожил.

(4) переделаю на
 Движение.Период = Источник.Дата;
 Движение.Организация = Источник.Организация; 
(6)(7) я еще не доделал, данные будут немного другие.
всем спасибо

(10) Вроде давно уже в 1с, но я еще такой зеленый

(14) (20) Так захотел клиент. Клиент - прежде всего!)))

Процедура РтуЦенаПродажиПрайсоваСебестоимостьОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт

    //НаборДвижений = Источник.Движения.ПродажиПрайсоваСебестоимость;

    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    РеализацияТоваровУслугТовары.Ссылка,
        |    РеализацияТоваровУслугТовары.НомерСтроки,
        |    РеализацияТоваровУслугТовары.ЕдиницаИзмерения,
        |    РеализацияТоваровУслугТовары.Количество,
        |    РеализацияТоваровУслугТовары.Номенклатура,
        |    РеализацияТоваровУслугТовары.ХарактеристикаНоменклатуры,
        |    РеализацияТоваровУслугТовары.ЗаказПокупателя,
        |    ЦеныНоменклатурыСрезПоследних.Цена,
        |    ЦеныНоменклатурыСрезПоследних.Цена * РеализацияТоваровУслугТовары.Количество КАК ЦенаПрайс
        |ИЗ
        |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Период, ) КАК ЦеныНоменклатурыСрезПоследних
        |        ПО РеализацияТоваровУслугТовары.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура
        |            И РеализацияТоваровУслугТовары.ХарактеристикаНоменклатуры = ЦеныНоменклатурыСрезПоследних.ХарактеристикаНоменклатуры
        |ГДЕ
        |    РеализацияТоваровУслугТовары.Ссылка = &РТУ";
    
    Запрос.УстановитьПараметр("Период", Источник.Дата);
    Запрос.УстановитьПараметр("РТУ", Источник.Ссылка);
    
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    
    
    Для каждого Строка Из РезультатЗапроса Цикл
        Движение = Источник.Движения.ПродажиПрайсоваСебестоимость.Добавить();
        Движение.Период = Строка.Ссылка.Дата;
        Движение.Организация = Строка.Ссылка.Организация;
        Движение.Номенклатура = Строка.Номенклатура;
        Движение.ХарактеристикаНоменклатуры = Строка.ХарактеристикаНоменклатуры;
        Движение.Количество = Строка.Количество;
        Движение.Стоимость = Строка.Цена;
    КонецЦикла; 
    Источник.Движения.ПродажиПрайсоваСебестоимость.Записывать = Истина;
//        НаборДвижений.Записать();

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

Вот так норм?

Или как сказал (9) "получай все данные запросом и загружай их набор движений без цикла." ??

(34) (35) Спасибо!

(37) =) название это глупости. Я всегда могу их переименовать. Главное чтобы работало корректно.