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




Всем привет. Есть вот такой код. Он регистрирует к обмену документ и все его движения.
Очень много времени (процентов 80) занимает операция Запись.Прочитать(), тк для некоторых типов документов список регистров, по которым они делают движения очень большой..
Как бы это все дело ускорить?

а типовая обработка регистрации не подходит? и посмотреть как она работает?

(1)
Типовая обработка регистрации не регистрирует движения дока.. Только отдельно записи регистров

(2) ну может не ПолучитьОбъект() а СоздатьНаборЗаписей(). Без получения объекта.

а нафиг Запись.Прочитать? вроде уже перебираешь движения

(4) иначе как он переберет не прочтенные движения?

ОбъектЗаписи = ОбъектЗаписиСсылка.ПолучитьОбъект();
ОбъектЗаписи.Движения.Прочитать();
                       Для каждого Запись Из ОбъектЗаписи.Движения Цикл
                         
                           Если Запись.Количество() > 0 и

(3)
Зачем?
Набор записей создается пустым..

(4)
Ну как бы это объяснить... ммм... :)

(6)
и?

(6)
А, все, понял

(6)
Но разве так можно? В СП ни слова..

(6)
Нельзя...

(7) Запись = ТвойРегистр.СоздатьНаборЗаписей();
    Запись.Отбор.Установить(ОбъектЗаписиСсылка);
    Запись.Прочитать();

Здесь не нужно получать объект, прикинь.

(12)
Точно! Сам не допер почему-то:)

PS Регистратор забыл

Хотя стоп... А откуда я узнаю регистр?

(11) Точно нельзя, странно.

(12) Прочитывать не надо.

ОбъектЗаписиСсылка.Метаданные().

и в какой момент то это происходит??

(18)
Подписка на событие записи категории...

(17)
чито это?

(19) ну там же объект есть, а не ссылка. плюс ко всему тебе надо получать сам факт наличия записей, а не количества, поэтому в запросе выбрать первые 1 и вперед и с песней.

(20)
В каком запросе? Я заранее не знаю, какого типа у меня документ, и регистры, по которым он может делать движения тоже не знаю. Ставлю категорию... И мне для каждого регистра, по которому он делает движения, запрос делать? Не резон...

(21) не обращаться к метаданным умеешь ведь, вот и тут тоже самое.
а ты думаешь Запись.Прочитать(); не запрос для каждого регистра??

Метаданные.ПланыОбмена.Полный.Состав да и все что с метаданными в итерациях цикла завернуть в элементарные коллекции(соответствие, сттруктура) в крайнем случае список

Как определить наличие записей в регистре определенного регистратора без оператора Прочитать()?

(24) ну ты посмотри процедуру которая удаляет движения из регистров, там тот же самый принцип

(22)
блин... запрос в цикле всегда старался не писать:)

(23)
Да это не надо, т.к. дважды по одному регистру цикл не прохордит у меня.

(25)
Кстати, идея, да:)

в 8.2 в тонком клиента на котором уже работают некоторые типовые полностью из-за особенностей передач управления клиент-сервер и обратно передача параметров через элементарные коллеции используется очень часто и лучше сразу затвинуть в архивы мозга все что умел толстый клиент в том числе и прямое обращение к метаданным.

Если уж они нужны в обходах, то нужно иметь готовые коллекции перед началом обходов

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

(28)
Это уже другая история... Там все отрабатывает по-типовому

Зачем проверка на Запись.Количество() > 0 ?
А если раньше было не 0, а после изменения дока 0, это не должно улететь куда надо?

Ну и Метаданные.ПланыОбмена.Полный.Состав.Содержит(Метаданные.НайтиПоТипу(ТипЗнч(Запись))) можно заменить на Метаданные.ПланыОбмена.Полный.Состав.Содержит(Запись.Метаданные())

(30)
Тут отдельная история, я вкурсе...