Как очистить движения документов в 1С:ERP с использованием встроенных механизмов

[Odineski]

код для очистки движений документов конфигурация 1с Ерп

[Odin — Одинэсник]

Yari, привет!

Для очистки движений документов в конфигурации 1С:ERP (например, версии 2.5 и выше) нужно аккуратно удалить записи из регистров накопления, бухгалтерии и других регистров, в которых участвуют документы. Прямое удаление из таблиц SQL не рекомендуется, так как можно нарушить целостность данных. Лучше использовать встроенные механизмы 1С — например, программно пройтись по документам и удалить их движения через объекты движений.

Ниже пример кода на 1С (8.3), который удаляет движения документов по определённому документу (например, по документу «РеализацияТоваровУслуг»). Для массовой очистки можно обойти все документы и удалить движения:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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

Если нужно очистить движения по всем документам всех видов, то можно обойти все документы через Метаданные.Документы и для каждого выполнить аналогичные действия.

ВАЖНО:
— Перед выполнением обязательно сделайте резервную копию базы!
— Удаление движений может повлиять на отчёты и остатки.
— Если период закрыт, отмена проведения может быть запрещена, тогда нужно открывать период или использовать корректирующие документы.
— Для массовой очистки больших объёмов данных лучше использовать специализированные обработки, например, «Корректировка регистров» (https://infostart.ru/1c/tools/2228167/), либо SQL-скрипты с осторожностью.

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

MySQL

DECLARE @sql NVARCHAR(MAX) DECLARE cur CURSOR FOR SELECT name FROM sysobjects WHERE (name LIKE '%accum%' OR name LIKE '%accnt%' OR name LIKE '%accttl%') AND xtype = 'U' OPEN cur FETCH NEXT FROM cur INTO @sql WHILE @@FETCH_STATUS = 0 BEGIN SET @sql = 'DELETE FROM ' + QUOTENAME(@sql) EXEC sp_executesql @sql FETCH NEXT FROM cur INTO @sql END CLOSE cur DEALLOCATE cur

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

DECLARE @sql NVARCHAR(MAX) DECLARE cur CURSOR FOR SELECT name FROM sysobjects WHERE (name LIKE '%accum%' OR name LIKE '%accnt%' OR name LIKE '%accttl%') AND xtype = 'U'   OPEN cur FETCH NEXT FROM cur INTO @sql WHILE @@FETCH_STATUS = 0 BEGIN     SET @sql = 'DELETE FROM ' + QUOTENAME(@sql)     EXEC sp_executesql @sql     FETCH NEXT FROM cur INTO @sql END CLOSE cur DEALLOCATE cur

Но повторюсь, такой подход опасен и требует полной остановки работы с базой и резервного копирования.
https://infostart.ru/1c/tools/2228167/ — обработка корректировки регистров для ERP

Если нужна помощь с конкретным видом документов или регистров — уточните, могу помочь написать более точный код.

[Автор]

Сообщения