Очистка движений документа в 1С: программные методы и практические примеры

Очистка движений документов в 1С:Предприятие — типичная задача для разработчиков, когда требуется перепровести документ без дублирования записей в регистрах или исправить ошибки проводок. Вручную это делается через кнопку "Провести" с галочкой "Очистить движения", но как автоматизировать процесс? В этой статье разберём 5 программных способов очистки движений — от стандартных методов платформы до авторских решений с обработкой транзакций и временными таблицами.

Проблема усложняется, когда речь идёт о пакетной обработке сотен документов или очистке в фоновом режиме. Неправильный подход может привести к разрыву ссылочной целостности (когда движения удалены, а документ считается проведённым) или блокировкам базы. Мы рассмотрим не только код, но и критические нюансы: когда очистка безопасна, а когда лучше использовать альтернативные методы вроде "отмены проведения".

1. Стандартный метод платформы: ОчисткаДвижений()

Самый очевидный способ — встроенный метод объекта ДокументОбъект.ОчисткаДвижений(). Он удаляет все движения документа во всех регистрах, но оставляет сам документ в статусе "Проведён". Это удобно, если нужно перепровести документ с нуля без изменения даты или номера.

Пример использования:

Док = Документы.РеализацияТоваровУслуг.НайтиПоНомеру("РТ-000123");
Если Док.Проведен() Тогда
Док.ОчисткаДвижений();
Док.Записать();
КонецЕсли;

Важные ограничения метода:

• 🔹 Работает только для проведённых документов — если документ не проведён, вызов метода ничего не сделает.
• 🔹 Не удаляет движения в регистрах сведений с периодом действия "В пределах" — требуется ручная очистка.
• 🔹 Не сбрасывает флаг ПометкаУдаления у движений (актуально для некоторых конфигураций).

⚠️ Внимание: После вызова ОчисткаДвижений() обязательно вызывайте Записать(), иначе изменения не сохранятся в базе. В транзакционных блоках это правило особенно критично.

2. Полная отмена проведения: когда очистка не подходит

Если документ нужно не просто очистить, а полностью вернуть в состояние "Не проведён", используйте метод ОтменаПроведения(). Это альтернатива очистке, когда требуется:

• 📅 Изменить дату или номер документа (после очистки движения это невозможно).
• 🔄 Перепровести документ с новыми реквизитами.
• 🚫 Гарантированно удалить все следствия проведения (включая движения по регистрам расчётов).

Пример кода:

Док = Документы.ПоступлениеТоваров.ПолучитьСсылку(Новый УникальныйИдентификатор("123e4567-e89b-12d3-a456-426614174000"));
Если Док.Проведен() Тогда
Док.ОтменаПроведения();
Док.Дату = ТекущаяДата();
Док.Записать();
Док.Провести();
КонецЕсли;

Ключевое отличие от ОчисткаДвижений():

⚠️ Внимание: В конфигурациях с включённым механизмом версионирования данных (например, 1С:ERP) отмена проведения может создать новую версию документа. Проверьте настройки хранения истории!

3. Очистка движений через запросы: для сложных случаев

Когда стандартные методы не работают (например, при блокировках или для массовой очистки), помогают прямые SQL-запросы к таблицам движений. Этот способ требует прав администратора и точного знания структуры базы.

Общий алгоритм:

1. Находим внутренний идентификатор документа (Ссылка.УникальныйИдентификатор()).
2. Формируем запрос к таблице _AccumRg{T} (для регистров накопления) или _AccumRt{T} (для регистров бухгалтерии).
3. Удаляем записи с нужным RecordID.

Пример запроса для регистра накопления "ТоварыНаСкладах":

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   _AccumRg789.Ссылка КАК Ссылка
|ИЗ
|   Документ.ТоварыНаСкладах.Обороты КАК _AccumRg789
|ГДЕ
|   _AccumRg789.Ссылка = &СсылкаНаДокумент";
Запрос.УстановитьПараметр("СсылкаНаДокумент", Док.Ссылка);
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
// Движений нет или они уже удалены
Иначе
// Удаляем движения через прямой SQL (требуются права!)
ВыполнитьSQL("DELETE FROM _AccumRg789 WHERE ReferenceID = '" + Док.УникальныйИдентификатор() + "'");
КонецЕсли;

Опасности метода:

• 💥 Нарушение ссылочной целостности — если движения связаны с другими объектами (например, заказами покупателей).
• 🔒 Блокировки — при массовом удалении возможны таймауты.
• 📉 Потеря данных — если ошибетесь с идентификатором регистра.

НачатьТранзакцию();
Попытка
// Код очистки
ЗафиксироватьТранзакцию();
Исключение
ОтменитьТранзакцию();
Сообщить(ОписаниеОшибки());
КонецПопытки;

4. Массовая очистка: обработка пакетом документов

Для очистки движений у сотен документов (например, после ошибочного проведения) удобно использовать обработку с прогресс-баром. Алгоритм:

1. Выгружаем список документов в временную таблицу.
2. Очищаем движения в цикле с контролем ошибок.
3. Фиксируем результаты в лог.

Пример кода обработки:

Процедура ОчиститьДвиженияПачкой(СписокДокументов)
Прогресс = Новый ПрогрессБара("Очистка движений...");
Прогресс.УстановитьДиапазон(0, СписокДокументов.Количество());

Для Каждого Док Из СписокДокументов Цикл
Попытка
Док.ОчисткаДвижений();
Док.Записать();
Лог.Добавить("OK: " + Док.Номер);
Исключение
Лог.Добавить("ОШИБКА: " + Док.Номер + " | " + ОписаниеОшибки());
КонецПопытки;
Прогресс.Шаг();
КонецЦикла;
Прогресс.Закрыть();
КонецПроцедуры;

Нюансы пакетной обработки:

• 🕒 Ограничьте пакет 50–100 документами за раз, чтобы избежать таймаутов.
• 🔄 Используйте фоновые задания для длительных операций (через ФоновоеЗадание.Выполнить()).
• 📊 Ведите лог с номерами документов и статусами (успех/ошибка).

Сделать резервную копию базы|Проверить права пользователя (полный доступ)|Ограничить пакет до 100 документов|Подготовить файл для лога ошибок|Запустить в нерабочее время-->

5. Очистка движений в управляемых формах и расширениях

В управляемых формах (начиная с платформы 8.2) очистка движений имеет особенности:

• 🖥️ Метод ОчисткаДвижений() работает только на сервере — его нельзя вызвать напрямую из клиентского кода.
• 🔌 Для расширений требуется явное указание прав (ПраваНаОчисткуДвижений в ролях).
• 📱 В мобильном клиенте очистка может блокироваться из-за ограничений транзакций.

Пример серверного метода для управляемой формы:

&НаСервере
Процедура ОчиститьДвиженияНаСервере(Команда)
Док = Объект.ПолучитьОбъект();
Если Док.Проведен() Тогда
Док.ОчисткаДвижений();
Док.Записать();
Сообщить("Движения очищены!", СтатусСообщения.Успех);
Иначе
Сообщить("Документ не проведён!", СтатусСообщения.Внимание);
КонецЕсли;
КонецПроцедуры;

Для расширений добавьте в модуль объекта:

#Если Сервер Тогда
Процедура ПриОчисткеДвижений(Отказ, РежимОчистки)
// Дополнительная логика перед очисткой
Если РежимОчистки = РежимОчисткиДвижений.Автоматическая Тогда
Сообщить("Автоматическая очистка запрещена!");
Отказ = Истина;
КонецЕсли;
КонецПроцедуры;
#КонецЕсли

⚠️ Внимание: В 1С:Бухгалтерия 3.0 и 1С:ERP очистка движений через расширения может конфликтовать с механизмом УправлениеИтогами. Перед использованием проверьте настройки учёта!

6. Альтернативные методы: когда очистка не помогает

Иногда очистка движений не решает проблему. Рассмотрим альтернативы:

1. Перенос движений в другой документ

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

НовыйДок = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
НовыйДок.Дату = Док.Дату;
НовыйДок.Контрагент = Док.Контрагент;
// Копируем движения через временную таблицу
ВременнаяТаблица = Док.ПолучитьДвижения();
НовыйДок.ЗаписатьДвижения(ВременнаяТаблица);

2. Пометка на удаление + восстановление

В некоторых конфигурациях (например, 1С:УТ 11) пометка документа на удаление автоматически очищает движения при проведении связанных объектов. Алгоритм:

1. Помечаем документ на удаление (Док.ПометкаУдаления = Истина).
2. Проведение связанных документов (например, оплаты по реализации).
3. Снимаем пометку и перепроводим исходный документ.

3. Использование регистра сведений для "мягкой" очистки

Если движения нельзя удалять физически (например, из-за аудита), перенесите их в регистр сведений с признаком "Исключено". Пример структуры:

ВЫБРАТЬ
_AccumRg{T}.RecordID КАК Идентификатор,
_AccumRg{T}.ReferenceID КАК СсылкаНаДокумент
ИЗ
_AccumRg{T} КАК _AccumRg{T}
ЛЕВОЕ СОЕДИНЕНИЕ Документ.ИмяДокумента КАК Док
ПО _AccumRg{T}.ReferenceID = Док.Ссылка.УникальныйИдентификатор()
ГДЕ
Док.Ссылка ЕСТЬ NULL

FAQ: Частые вопросы по очистке движений

Сообщения = Док.ПолучитьСообщенияПроведения();
Для Каждого Сообщ Из Сообщения Цикл
Сообщить(Сообщ.Текст);
КонецЦикла;

1. Есть ли у документа связанные объекты (оплаты, возвраты, корректировки).

2. Не нарушит ли очистка логику расчётов (например, себестоимость в УТ 11).

3. Поддерживает ли конфигурация "мягкую" очистку (через регистры сведений).-->