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

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

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

Почему регистры сведений нуждаются в очистке

Основные причины, по которым администраторы и разработчики прибегают к очистке регистров:

• 📉 Производительность: регистры с миллионами записей тормозят отчёты, замедляют проведение документов и увеличивают время резервного копирования.
• 💾 Размер базы данных: раздутые регистры занимают десятки гигабайт на диске, что усложняет миграцию или обновление платформы.
• 🔄 Ошибки обновлений: при переходе на новые релизы 1С может блокировать обновление из-за конфликтов в данных регистров.
• 🗑️ Устаревшие данные: в регистрах накапливаются записи за прошлые годы, которые больше не нужны для работы (например, курсы валют 10-летней давности).

Однако не все регистры можно чистить одинаково. Например, регистр ПараметрыСеанса хранит временные настройки пользователей и очищается автоматически, а регистр ЦеныНоменклатуры может содержать критичные для бизнеса данные. Прежде чем приступать к удалению, необходимо:

1. Определить тип регистра (периодический, независимый, с подчинением регистратору).
2. Проанализировать ссылочную целостность — не используются ли записи в документах или отчётах.
3. Создать резервную копию базы (об этом подробнее в следующем разделе).

⚠️ Внимание: Очистка регистров сведений РасчетЗарплаты, НДФЛ или СтраховыеВзносы может привести к некорректному расчёту зарплаты и штрафам от налоговой. Перед чисткой таких регистров обязательно проконсультируйтесь с бухгалтером!

Подготовка к очистке: резервное копирование и анализ данных

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

• 💾 Через конфигуратор: Администрирование → Выгрузить информационную базу (файл .dt).
• 🔄 С помощью SQL-сервера: если база работает на Microsoft SQL Server или PostgreSQL, сделайте бэкап через SQL Server Management Studio или pg_dump.
• ⏳ Точка восстановления: в файловом варианте 1С можно создать точку отката через Администрирование → Поддержка и обслуживание → Архивные копии.

После бэкапа необходимо проанализировать структуру регистра. Для этого:

1. Откройте регистр в конфигураторе (Объекты → Регистры сведений).
2. Изучите его измерения (по чему группируются данные) и ресурсы (что хранится).
3. Проверьте, есть ли у регистра периодичность (день, месяц, секунда) — это определит сложность очистки.

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

SELECT
T.name AS TableName,
S.row_count AS RowCount,
CAST(S.reserved_page_count * 8.0 / 1024 AS DECIMAL(10, 2)) AS ReservedMB
FROM
sys.tables T
INNER JOIN
sys.dm_db_partition_stats S ON T.object_id = S.object_id
WHERE
T.name LIKE '%_РС%' -- Фильтр по регистрам сведений
ORDER BY
S.reserved_page_count DESC;

⚠️ Внимание: Если вы работаете с облачной версией 1С:Fresh, возможности прямого SQL-запроса могут быть ограничены. В этом случае используйте встроенные отчёты или обратитесь в поддержку 1С.

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   РегистрСведений.ЦеныНоменклатуры КАК Регистр
|ГДЕ
|   Регистр.Период < &ДатаГраница";

Запрос.УстановитьПараметр("ДатаГраница", НачалоДня('20200101'));
Результат = Запрос.Выполнить();

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

Самый быстрый, но и самый рискованный метод — выполнение SQL-запроса напрямую к базе данных. Подходит только для администраторов с доступом к серверу SQL Server/PostgreSQL и пониманием структуры таблиц 1С.

DELETE FROM _InfoRg234  -- _InfoRg{ID регистра} -- уточните ID в meta-data!
WHERE Period < '2019-01-01'
AND ValuteCode NOT IN (
SELECT ValuteCode
FROM _InfoRg234
WHERE Period >= '2019-01-01'
GROUP BY ValuteCode
);

⚠️ Внимание: Неправильный SQL-запрос может полностью разрушить базу, включая служебные таблицы 1С. Всегда тестируйте запросы на копии базы и используйте транзакции (BEGIN TRANSACTION/ROLLBACK).

WHILE EXISTS (SELECT 1 FROM _InfoRg1234 WHERE Period < '2020-01-01')
BEGIN
DELETE TOP (50000)
FROM _InfoRg1234
WHERE Period < '2020-01-01';

WAITFOR DELAY '00:00:01'; -- Пауза, чтобы не перегружать сервер
END;

DO $$
DECLARE
rows_deleted INTEGER;
BEGIN
WHILE TRUE LOOP
DELETE FROM _info_rg1234
WHERE period < '2020-01-01'
LIMIT 50000;

GET DIAGNOSTICS rows_deleted = ROW_COUNT;
EXIT WHEN rows_deleted = 0;

COMMIT;
RAISE NOTICE 'Удалено записей: %', rows_deleted;
END LOOP;
END $$;

Ошибка при выполнении обработчика события:
{ОбщийМодуль.Валюты.Модуль(123)}: Не найден курс валюты USD на 15.05.2018!

ВЫБРАТЬ РАЗЛИЧНЫЕ
Документ.Ссылка КАК СсылкаНаДокумент
ИЗ
Документ.ПоступлениеТоваров КАК Документ
ГДЕ
Документ.Валюта.Курс В
(ВЫБРАТЬ
РегистрСведений.КурсыВалют.Ссылка
ИЗ
РегистрСведений.КурсыВалют
ГДЕ
РегистрСведений.КурсыВалют.Период < &ДатаГраница)

Процедура ВыполнитьОчисткуЛога() Экспорт

ДатаГраница = ТекущаяДата() - 365; // Удаляем записи старше года

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   РегистрСведений.ЛогСообщений КАК Лог
|ГДЕ
|   Лог.Период < &ДатаГраница";

Запрос.УстановитьПараметр("ДатаГраница", НачалоДня(ДатаГраница));
Результат = Запрос.Выполнить();

Количество = 0;
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Лог = Выборка.Лог;
Лог.Удалить();
Количество = Количество + 1;
КонецЦикла;

ЗаписьЖурналаРегистрации("ОчисткаЛогаСообщений",
УровеньЖурналаРегистрации.Информация,
,
,
"Удалено записей: " + Количество);

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

АсинхроннаяПроцедура ОчиститьЛогАсинхронно()
ВыполнитьОчисткуЛога();
КонецПроцедуры

// Запуск в регламентном задании:
ОчиститьЛогАсинхронно();

// Получаем список удалённых записей за последний час
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   ЖурналРегистрации.Данные КАК Данные
|ИЗ
|   РегистрСведений.ЖурналРегистрации КАК ЖурналРегистрации
|ГДЕ
|   ЖурналРегистрации.Событие = &Событие
|   И ЖурналРегистрации.ДатаВремя > ДобавитьКДате(ТекущаяДата(), -1, ''Час'')";

Запрос.УстановитьПараметр("Событие", "Удаление объекта: РегистрСведений.ЦеныНоменклатуры");
Результат = Запрос.Выполнить();