БП 2. Ручная операция записывается около минуты. Почему?

Процедура ДобавитьСкидку(Дата, Скидка)
    Док = Документы.ОперацияБух.Выбрать(Дата, Дата);
    Пока Док.Следующий() Цикл
        Если Док.Содержание="Скидка (Загружено)" Тогда
            Док.ПолучитьОбъект().Удалить();    
        КонецЕсли;     
    КонецЦикла; 
    Док = Документы.ОперацияБух.СоздатьДокумент();
    Док.Дата = Дата;
    Док.Организация = Организация;
    Док.Содержание = "Скидка (Загружено)";
    Док.СпособЗаполнения = "Вручную";
    Док.СуммаОперации = Скидка;
    
    Д = Док.Движения.Хозрасчетный.Добавить();
    Д.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.11");
    Д.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("42.01");
    
    Д.СубконтоДт[0]=Номенклатура;
    Д.СубконтоДт[1]=РозничныйСклад;
    
    Д.СубконтоКт[0]=Номенклатура;
    Д.СубконтоКт[1]=РозничныйСклад;
    
    Д.Сумма = Скидка;
    Д.Период = Дата;
    
    Док.Записать(РежимЗаписиДокумента.Запись);


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

    "ВЫБРАТЬ РАЗЛИЧНЫЕ
    |   РегистрДоИПосле.Период КАК Период,
    |   РегистрДоИПосле.Организация КАК Организация,
    |    ВЫБОР 
    |    КОГДА РегистрДоИПосле.Период < ПоследовательностьГраницы.Период 
    |            ИЛИ РегистрДоИПосле.Период = ПоследовательностьГраницы.Период
    |            И &Регистратор < ПоследовательностьГраницы.Регистратор
    |    ТОГДА (-1) 
    |    КОГДА ПоследовательностьГраницы.Период ЕСТЬ NULL
    |       ИЛИ ((РегистрДоИПосле.Период > ПоследовательностьГраницы.Период
    |            ИЛИ РегистрДоИПосле.Период = ПоследовательностьГраницы.Период
    |            И &Регистратор > ПоследовательностьГраницы.Регистратор)
    |      И РегистрДоИПосле.ЕстьЗаписьПосле
    |      И НЕ 1 В (ВЫБРАТЬ ПЕРВЫЕ 1 
    |                    1 
    |                 ИЗ 
    |                    Последовательность.%1 Последовательность 
    |                 ГДЕ 
    |                    Последовательность.Регистратор <> &Регистратор 
    |                 И Последовательность.Организация = РегистрДоИПосле.Организация
    |                 И Последовательность.МоментВремени > ПоследовательностьГраницы.МоментВремени 
    |                 И (Последовательность.Период < РегистрДоИПосле.Период 
    |                    ИЛИ Последовательность.Период = РегистрДоИПосле.Период 
    |                        И Последовательность.Регистратор < &Регистратор))) 
    |    ТОГДА (1)
    |      ИНАЧЕ (0)
    |    КОНЕЦ КАК НаправлениеСдвигаГраницы
    |ИЗ
    |    РегистрДоИПосле КАК РегистрДоИПосле
    |        ЛЕВОЕ СОЕДИНЕНИЕ Последовательность.%1.Границы КАК ПоследовательностьГраницы
    |            ПО (РегистрДоИПосле.Организация = ПоследовательностьГраницы.Организация)
    |";