Как удалить все документы кроме одного вида в базе 1С 7.7 DBF

← На главную

При обслуживании и свертке баз 1С:Предприятия 7.7 на файловой структуре (DBF) нередко возникает задача полной очистки документов с сохранением нормативно-справочной информации и отдельных видов документов (например, договоров или кадровых приказов). Простое физическое удаление файлов таблиц документов (файлов DH*.DBF и DT*.DBF) через командную строку приводит к необратимому нарушению целостности информационной базы.

Разберем архитектурные особенности хранения документов в 1С 7.7, выясним, почему нельзя просто удалить файлы с диска, и рассмотрим корректные способы решения этой задачи.

Почему удаление файлов DBF через bat-скрипт ломает базу

Проанализируем структуру хранения документов в платформе 1С 7.7:

Общий журнал документов: Метаданные каждого документа (дата, время, номер, признак проведения, вид документа IDDOCDEF и идентификатор IDDOC) регистрируются в файле 1SJOURN.DBF. Если удалить этот файл или оставить в нем записи удаленных шапок, журнал перестанет отображать документы или будет ссылаться на несуществующие строки. Штатное «Тестирование и исправление» не создает заново записи в журнале только по файлам шапок.
Шапки и табличные части: Реквизиты шапки хранятся в таблицах DH<ID>.DBF, а строки табличной части — в DT<ID>.DBF, где идентификатор таблицы берется из файла структуры 1cv7.dd.
Служебные связи и проводки: Документы связаны с подчиненными структурами (1SCRDOC.DBF), периодическими реквизитами (1SCONST.DBF), бухгалтерскими операциями и проводками (1SOPER.DBF, 1SENTRY.DBF), а также регистрами (RA*, RG*).

Способ 1. Быстрое удаление через прямой доступ (OLEDB / 1C++)

Рассмотрим вариант быстрого удаления данных на уровне базы данных с использованием компоненты прямого доступа к DBF (например, через провайдер VFPOLEDB.1 или класс OLEDBData из 1С++). Этот способ во много раз быстрее стандартного объектного удаления, так как выполняет пакетные SQL-инструкции DELETE напрямую в файлах таблиц.

Разберем по шагам логику обработки:

Подключаемся к базе через OLE DB провайдер FoxPro.
Удаляем из общего журнала 1SJOURN все записи, кроме нужного вида документа (в примере — «Договор»).
В цикле по метаданным очищаем таблицы шапок (DH*) и табличных частей (DT*) для всех остальных видов документов.
Очищаем зависимые служебные таблицы: подчиненные документы (1SCRDOC), периодику (1SCONST), бухгалтерские проводки (1SENTRY) и операции (1SOPER).

Посмотрим на пример программного кода внешней обработки:


Процедура Сформировать()
    Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Exclusive=Yes;Mode=ReadWrite;Collating Sequence=MACHINE";
    ДБ = СоздатьОбъект("OLEDBData");
    Рез = ДБ.Соединение(Соединение);
    
    Запрос = ДБ.СоздатьКоманду();
    Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");  
    Запрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");    
    Запрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");
    
    ВидДокумента = "Договор";
    
    // Удаляем из общего журнала все документы, кроме указанного вида
    ТекстЗапроса = "
    |DELETE
    |FROM
    |   1sjourn 
    |WHERE 
    |   iddocdef+dtos(date)+time+iddoc NOT LIKE $ВидДокумента." + ВидДокумента + "+'_______________________'
    |";
    Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
    
    // Очищаем таблицы шапок и табличных частей остальных документов
    Для к = 1 По Метаданные.Документ() Цикл
        мета = Метаданные.Документ(к).Идентификатор;
        Если мета = ВидДокумента Тогда
            Продолжить;
        КонецЕсли;
        
        Состояние("Шапка " + мета);
        ТекстЗапроса = "
        |DELETE
        |FROM
        |   $Документ." + мета + "
        |";
        Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
        
        Состояние("Строки " + мета);
        ТекстЗапроса = "
        |DELETE
        |FROM
        |   $ДокументСтроки." + мета + "
        |";
        Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
    КонецЦикла;
    
    // Очищаем связи подчиненных документов
    Состояние("Очистка 1SCRDOC");
    ТекстЗапроса = "
    |DELETE
    |FROM
    |   1SCRDOC
    |WHERE CHILDID NOT IN (SELECT Жур.iddoc FROM 1sjourn as Жур)";
    Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
    
    // Очищаем периодические реквизиты, привязанные к удаленным документам
    Состояние("Очистка 1SCONST");
    ТекстЗапроса = "
    |DELETE
    |FROM
    |   1SCONST
    |WHERE DOCID <> '     0   ' AND DOCID NOT IN (SELECT Жур.iddoc FROM 1sjourn as Жур)";
    Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
    
    // Очищаем бухгалтерские проводки
    Состояние("Очистка 1SENTRY");
    ТекстЗапроса = "
    |DELETE
    |FROM
    |   1SENTRY
    |WHERE (DOCID NOT IN (SELECT Жур.iddoc FROM 1sjourn as Жур))";
    Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
    
    // Очищаем бухгалтерские операции
    Состояние("Очистка 1SOPER");
    ТекстЗапроса = "
    |DELETE
    |FROM
    |   1SOPER
    |WHERE DOCID NOT IN (SELECT Жур.iddoc FROM 1sjourn as Жур)";
    Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
    
    Предупреждение("Удаление завершено. Необходимо сжать таблицы и удалить CDX.");
КонецПроцедуры

Обязательные действия после прямого удаления записей

В формате DBF инструкция DELETE лишь помечает записи на удаление (байт 0x2A). Для полного освобождения места и перестроения индексов выполним следующие шаги:

Выполнить операцию сжатия таблиц (PACK) для всех измененных DBF-файлов, чтобы физически вырезать удаленные строки.
Закрыть 1С и удалить все индексные файлы с расширением *.CDX из каталога базы данных.
Запустить базу в режиме Конфигуратор монопольно.
Открыть меню Администрирование > Тестирование и исправление ИБ.
Отметить флаги: «Реиндексация», «Проверка физической целостности», «Реструктуризация таблиц информационной базы» и «Пересчет итогов». Нажать «Выполнить».

Способ 2. Создание чистой базы и перенос данных (наиболее надежный)

Если нет уверенности в структуре низкоуровневых связей конфигурации, самым безопасным подходом является создание пустой копии базы с последующим переносом нужных объектов.

Разберем порядок выполнения:

Создаем новый пустой каталог на диске.
Копируем в него файл структуры метаданных 1cv7.md из рабочей базы.
Запускаем 1С в режиме Конфигуратора и сохраняем метаданные, чтобы платформа автоматически сгенерировала чистые таблицы DBF и файл словаря данных 1cv7.dd.
С помощью универсальной обработки переноса данных между идентичными конфигурациями (через текстовый файл или OLE) переносим все справочники, константы и конкретный вид документа («Договор»).
Выполняем пересчет итогов в новой базе.

Этот подход гарантирует отсутствие «битых» ссылок в регистрах, таблицах блокировок 1SDNLOCK и таблицах последовательностей 1SSTREAM.