Возможно ли ускорить удаление записей регистра?

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

Не надо Операция.Прочитать()

итоги в заросе не нужны, сумма в запросе не нужна, набор не нужно читать и очищать перед записью

убери  Операция.Прочитать();

(2) итоги нужны, выводится еще табличка.

перенеси до цикла строку
Операция = РегистрыБухгалтерии.Типовой.СоздатьНаборЗаписей();

ускорит на 0,000000000001%

Можно создать новый регистр бухгалтерии и перенести в него записи >&Дата
Старый регистр переименовать в Удалить_

Пока Результат.Следующий() Цикл
        
        Операция = РегистрыБухгалтерии.Типовой.СоздатьНаборЗаписей();
        Операция.Отбор.Регистратор.Установить(Результат.Регистратор);
        Операция.Записать();
        
        
    КонецЦикла;

(4) в цикле я этого не вижу

Запускать надо на 1С-сервере или так, чтобы между клиентом и сервером была гигабитная сетка.

(6) не так не пойдет, в базе 8 лет работы, а удалить надо первый год.

(10) это была шутка, мне кажется :)

(8) не буду же я всю процедурину суда впихивать

(11) Зависит от объёма данных и как его разделяет дата. Например, если надо удалить 8 лет работы и оставить последний год, то вполне имеет смысл создать новый регистр или новую базу

(13) согласен

(10) Кстати, остатки изменятся. Это предусмотрели?

(13) я бы все же снял активность с движений, дабы "не протерять", с другой стороны, в отдельном регистре они тоже не пропадут

(15) да

странно (7) работает медленней чем (0)
в (7) 112 записей в минуту, а в (0) 95 записей в минуту

(18) наоборот в (7) 95 записей в минуту, а (0) - 112

высказывание_Станиславского.txt

(19) Да, оптимизация - она такая...

(0) давай замеры, надо смотреть где оно тупит

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

или удалять даже в чистом скл

у меня где-то была такая обработка свертки. но только для регистров накопления

кстати да, отключение итогов точно позволит ускорить обработку. ОбмегДанными.Загрузка - тут уже надо смотреть что там в самом модуле набора данных, может быть и не нужно

(23) Операция.Записать();
по (0) на 106 обращений 46,6 сек
по (7) на 101 обращений 50,5 сек

(23) Отсутствие проверки на необходимость записи:
      Если Не Операция.Количество() = 0 Тогда
            Операция.Очистить();
            Операция.Записать();
      КонецЕсли;
- вызывает запись даже тогда, когда она не требуется.
Вопрос лишь в том - зачем отбирать регистраторы, по которым очищать нечего

(29) все дело в том, что в это условие входа тупо не будет, посему оно лишнее. Запрос же строится по регистру, значит по регистратору движения есть

(30) верно

(30) глянь в (28) - 101 раз, вместо 106

46,6/106 = 0,44
50,5/101 = 0,5

(33) к (32) и + замер делался за минуту

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

(34) Если разный набор удаляется - тогда и сравнивать нечего.

НачатьТранзакцию();
    Пока Результат.Следующий() Цикл
        Операция = РегистрыБухгалтерии.Типовой.СоздатьНаборЗаписей();
Операция.Отбор.Регистратор.Установить(Результат.Регистратор);
        
        Операция.Записать();
    КонецЦикла;
    ЗафиксироватьТранзакцию();

+(37) как вариант может взлететь, а если еще и в начале транзакции отрубить итоги, то вообще может получиться хорошо. Грустнее, что это все гадание на кофейной гуще

(0) При чистке записей регистра нужно отключить пересчет итогов:

УстановитьИспользованиеИтогов(Ложь);

чистка

УстановитьИспользованиеИтогов(Истина);

(38) Если очищается большая часть регистра, то можно отключить итоги. Транзакция всегда даст выигрыш.

Надо посмотреть модуль набора регистра, какие там проверки при записи и отключить их по условию ПараметрСеанса.ГрупповоеИзменениеОбъектов или ОбменДанными.Загрузка = Истина

(40) все были уверены, что непрочитывание набора тоже даст выигрышь, ан нет

(42) Ты тест проводишь при удалении одних и тех же данных.
Или попросту 100 первых попавшихся?

100 тогда, не будут 100 в следующем ;)

(43) я ничего не провожу, я только высказываю мнение, что может помочь автору, а потом буду использовать это у себя :)

(43) специально развернул 2 базы для проверки, поэтому по идее условия одинаковы

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

(42) Набор все равно зачитывается, самой платформой.

(46)+ ну, или по количеству ядер процессора

ну и база должна быть клиент-серверной, и на сервере должны быть диски нормальные, а не один wd green 5400 оборотов

(49) Думается, закупить нормальные диски для разовой операции - это не совсем адекватно)

(50) ну вдруг там они уже стоят на сервере?

Итоги отключить, несомненно.

(51)+ вот в публикации http://catalog.mista.ru/public/173394/ как раз измеряется скорость записи наборов. какие красивые графики при увеличении количества параллельных сеансов.

(46) да-да, всё нужно делать параллельно

(55) абсцисса - количество потоков?

Опытным путем добился следующих результатов за минуту действий
(0) + отключение итогов 531 обращение за 20,92 сек.
(7) + отключение итогов 715 обращений за 28,52 сек.

(57) да

интересно, там веб сервис обмена результатами еще работает?

(58) ну ОбменДанными.Загрузка = Истина ставил?

(0) а сам запрос не обсуждается?
Для чего там группировки и лишние реквизиты (Сумма)?

(62) говорят, что надо :)

(62) -> (4)

(58) Транзакцию пробовал?

(64) ну как, распараллелил?

(65) да, почти без результатов, по началу вроде шустро, но потом, после 10к записей сильное замедление, даже если разделять по количеству транзакция.


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

(67) в потоках будет быстрее, но больше кода

(68) поподробней?

(68) надо запустить несколько сеансов по разным периодам и все. если итоги не отключены - то еще разрешить разделение итогов, но лучше все-таки итоги отключить.

(69) разбить поквартально, запустить для каждого квартала свое фоновое задание по очистке
(70) можно и так, но красивее все же фоновыми

Почему-то никто не сказал про truncate в СУБД.

+ Или база файловая?

(72) посмотри на секцию ГДЕ в запросе

(69) Несколько фоновых заданий.

(72) Потому что большинство тех, кто знает о транкейте, догадывается, что им нельзя удалить только часть данных

но вообще, DELETE FROM Таблица WHERE Условие

(77) да ты гений

(76) я из меньшинства) Почему-то думал у него есть параметры.
(77) +1

На разл. обменах чистить тестовые РС - это ад просто, то-ли дело напрямую - пара секунд там, где 1С думает около часа...

от только 1С строго-настрого запрещает вручную ковыряться в таблицах

(80) правильно. а то такие, как (79) фиганут данные, а потом за них ошметки вычищать

с отключением итогов тоже, что-то долго получается
без отключения 1,5 часа 1 квартал, с отключением 15 минут чистит и уже 30 минут включает итоги.

(82) ну значит, для параллельного удаления не отключай итоги, а включай разделение итогов

(82) В чём проблема оставить на ночь? За 4 часа он всё удалит. Потом за 30 минут включишь итоги

(84) в принципе проблемы нет с включением на ночь, так и планировал сделать с рабочей базой.

Когда наконец 1С разрешит массовые операции над таблицами?

(85) Сделай ещё 8 сеансов на каждый год. Действуй.

(81) не надо про "такие как" - я бы не стал использовать не до конца понятный мне механизм в боевой базе. Сказал же - тестовые РС чистил. И можно узнать, о каких ошметках идет речь, если я чищу РС? Индексы?

(88) регистрация изменений. бесконечное количество того, что выполняется в обработки ПередЗаписью и ПриЗаписи. для периодических РС и 8.3.5 - таблицы итогов.

(89) спасибо, действительно про планы обмена

не подумал)