Пометить собственную запись и восстановить её без сжатия

Удалить ставит пометку, а не убирает физическую запись. Перейти по номеру может выбрать помеченную строку даже при скрытии удалённых.

Подготовка

1. Запускайте только в учебной базе на сервере. XBase работает с DBF, а не с таблицами вашей информационной базы; доступ к временному каталогу сервера должен быть разрешён.

2. Код сам создаёт уникальный новый каталог. В нём только собственные goods.dbf и goods.cdx: имена файлов соответствуют ограничению 8.3, имена полей и индексов латинские, не длиннее 10 символов.

3. Не подставляйте путь к существующему DBF. В каждой задаче новый набор: A-01 / Книга / 3 / 250 и B-02 / Ручка / 1 / 50. Сумма количества на цену равна 800.

4. Файлы закрываются перед удалением двух точных собственных путей. Пустой уникальный каталог остаётся; его путь выводится, чтобы при необходимости удалить именно его вручную.

УчебныйКаталог = ПолучитьИмяВременногоФайла();
ПроверкаКаталога = Новый Файл(УчебныйКаталог);
Если ПроверкаКаталога.Существует() Тогда
    ВызватьИсключение "Учебный путь уже существует; существующие файлы не используем";
КонецЕсли;
СоздатьКаталог(УчебныйКаталог);
Сообщить("Собственный временный каталог: " + УчебныйКаталог);
ИмяDBF = УчебныйКаталог + "/goods.dbf";
ИмяCDX = УчебныйКаталог + "/goods.cdx";
База = Новый XBase;
Попытка
    База.Кодировка = КодировкаXBase.ANSI;
    База.АвтоСохранение = Ложь;
    База.Поля.Добавить("CODE", "S", 10);
    База.Поля.Добавить("TITLE", "S", 40);
    База.Поля.Добавить("QTY", "N", 9, 0);
    База.Поля.Добавить("PRICE", "N", 12, 2);
    База.Поля.Добавить("ONDATE", "D");
    База.Поля.Добавить("ACTIVE", "L");
    База.СоздатьФайл(ИмяDBF);
    Если Не База.Открыта() Тогда
        ВызватьИсключение "Собственный DBF не открыт";
    КонецЕсли;
    База.Добавить();
    База.CODE = "A-01";
    База.TITLE = "Книга";
    База.QTY = 3;
    База.PRICE = 250;
    База.ONDATE = Дата(2026, 10, 3);
    База.ACTIVE = Истина;
    База.Записать();
    База.Добавить();
    База.CODE = "B-02";
    База.TITLE = "Ручка";
    База.QTY = 1;
    База.PRICE = 50;
    База.ONDATE = Дата(2026, 10, 3);
    База.ACTIVE = Истина;
    База.Записать();
    База.ОтображатьУдаленные = Ложь;
    Если Не База.Перейти(1) Тогда
        ВызватьИсключение "Не найдена собственная запись";
    КонецЕсли;
    База.Удалить();
    База.Записать();
    Сообщить(База.ЗаписьУдалена());
    Сообщить(База.КоличествоЗаписей() = 2);
    Если Не База.Перейти(1) Тогда
        ВызватьИсключение "Помеченная физическая запись недоступна";
    КонецЕсли;
    Сообщить(База.ЗаписьУдалена());
    База.ОтображатьУдаленные = Истина;
    База.Восстановить();
    База.Записать();
    Сообщить(Не База.ЗаписьУдалена());
    Сообщить(База.КоличествоЗаписей() = 2);
    Сообщить(СокрЛП(База.CODE) = "A-01");
Исключение
    Если База.Открыта() Тогда
        База.ЗакрытьФайл();
    КонецЕсли;
    Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
        СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
        Если СобственныйФайл.Существует() Тогда
            УдалитьФайлы(ИмяСобственногоФайла);
        КонецЕсли;
    КонецЦикла;
    ВызватьИсключение;
КонецПопытки;
Если База.Открыта() Тогда
    База.ЗакрытьФайл();
КонецЕсли;
Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
    СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
    Если СобственныйФайл.Существует() Тогда
        УдалитьФайлы(ИмяСобственногоФайла);
    КонецЕсли;
КонецЦикла;

Разбор по шагам

1. Создаём собственную структуру DBF и записываем два товара с явным Записать.

2. Ставим и записываем пометку только у собственного A-01.

3. КоличествоЗаписей остаётся 2: помеченная книга физически присутствует.

4. Перейти(1) обращается к физическому номеру; после Восстановить и Записать книга снова не помечена.

5. Закрываем DBF и удаляем только два собственных файла; информационная база не изменяется.

Как проверить результат

1. Шесть сообщений Истина.

2. Сжать и ОчиститьФайл не вызываются; значение книги A-01 осталось доступно.

Ожидаемый результат

Пометка удаления отменена без потери записи.

На что обратить внимание

1. Не запускайте операции изменения, Сжать или ОчиститьФайл на чужом либо рабочем DBF.

2. ОтображатьУдаленные влияет на просмотр, не является восстановлением или очисткой.

3. После физического Сжать Восстановить уже не вернёт удалённую строку.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.