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

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


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

для начала посмотри, в каком месте зависает

(0) тормозить здесь нечему, кроме
Строка.ЗаказПокупателя.Организация;
лучше заменить на
Источник.Организация;

А вообще конечно сделать замер и посмотреть

угу, в конфигураторе Отладка - Замер производительности.

попробуйте запросом вытащить из Источник.Товары

а то вроде сейчас век кибернетики, а вы фигачите запросы в цикле.

        Движение.Период = Строка.ЗаказПокупателя.Дата;
        Движение.Организация = Строка.ЗаказПокупателя.Организация;

это же дикость

"Строка.ЗаказПокупателя.Организация" - циклическое обращение к базе, чтение и загрузка на клиента объекта "ЗаказПокупателя".

какой-то странный регистр.

(6) ага, особенно радует:
Движение.Стоимость = Строка.Цена;

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

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

PS: из источника бери организацию - в строках другой организации, кроме указанной в источнике не должно быть.

(8) "странно, но уже не зависает" - после первого чтения, данные кэшируются и читаются оттуда.

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

(11) еще больше удивишся, когда узнаешь, что новый регистр тут не нужен.

(12) чем больше регистров, тем больше денег можно содрать с клиента. Так что регистр нужен.

ПродажиПрайсоваСебестоимость
буква "я" пропущена?
Можно писать сразу набор, может быстрей будет.
Последння строка:
Движение.Стоимость = Строка.Цена;
Это регистр сведений?

(11) Просто не всё сразу легко и доступно, не всё запоминается и вовремя вспоминается - практикой нивелируется :)

PS: поговори ещё минутку с нами, и запуск алгоритма опять "зависнет" на пару секунд - кэш протух и требует обновления :)

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

(12) Возможно это только "болванка", а уникальная информация будет добавлена автором в алгоритм позднее.

(14) Это, кстати, нормальная практика. Чтобы избежать случайного попадания на идентификаторы типовой конфигурации сейчас и/или в будущем.

(17) Что именно нормальная практика? Делать ошибки в словах?

Не переживай:) Программист, как ёлка, - круглый год зелёный... всю свою профессиональную жизнь :)))

(18) может это фамилие такое? "Прайсов".

(20) Тогда уже его жена - госпожа "Прайсова".

(18) Да. Сознательно делать ошибки, но не в словах - это безграмотность, а в наименованиях. Могу даже поискать примеры типового кода.

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

(21) тогда бы было ПродажиПрайсовой

(23) Очень странно, что клиент указывает, как назвать объекты метаданных.

(25) стоп, у вас на Украине ведь правильно "Прайсова", а не "Прайсовая". Сам же украинец и своего языка не знаешь.

(26) Тогда было бы "ПродажнаПрайсоваСобивартисть".

"прайсова стоимость"- это ж налоговый термин в/на Украине :)

(28) Вартисть - это по украински - Стоимость.

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

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


Вот так норм?

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

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

(27) "ПродажнаПрайсоваСобiвартiсть"

РеализацияТоваровУслугТовары.Ссылка.Дата КАК Период

(34) а, точно, не досмотрел.
(33) Точно!

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

:) И Вам спасибо. Весело время провели. "Собiвартiсть" :))

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

(33) там ценаПродажи