XBase.ОткрытьФайл

Записать товары и подтвердить сохранение после повторного открытия

Добавить создаёт пустую строку, присваивания меняют её буфер. При АвтоСохранение = Ложь нужно Записать до перехода или закрытия.

Подготовка

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 = Истина;
    База.Записать();
    База.ЗакрытьФайл();
    Сообщить(Не База.Открыта());
    База.ОткрытьФайл(ИмяDBF, "", Истина);
    База.Кодировка = КодировкаXBase.ANSI;
    Если Не База.Первая() Тогда
        ВызватьИсключение "Не прочитан собственный товар";
    КонецЕсли;
    Сообщить(СокрЛП(База.CODE) = "A-01");
    Сообщить(СокрЛП(База.TITLE) = "Книга");
    Сообщить(База.QTY = 3);
    Сообщить(База.PRICE = 250);
    Сообщить(База.ONDATE = Дата(2026, 10, 3));
    Сообщить(База.ACTIVE);
    Сообщить(База.КоличествоЗаписей() = 2);
Исключение
    Если База.Открыта() Тогда
        База.ЗакрытьФайл();
    КонецЕсли;
    Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
        СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
        Если СобственныйФайл.Существует() Тогда
            УдалитьФайлы(ИмяСобственногоФайла);
        КонецЕсли;
    КонецЦикла;
    ВызватьИсключение;
КонецПопытки;
Если База.Открыта() Тогда
    База.ЗакрытьФайл();
КонецЕсли;
Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
    СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
    Если СобственныйФайл.Существует() Тогда
        УдалитьФайлы(ИмяСобственногоФайла);
    КонецЕсли;
КонецЦикла;

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

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

2. После записи закрываем файл: проверяем не только текущий буфер объекта.

3. ОткрытьФайл с третьим аргументом Истина разрешает только чтение. Кириллицу читаем в той же ANSI-кодировке.

4. Первая должна вернуть Истина до чтения полей; СокрЛП убирает заполнение строковых DBF-полей пробелами.

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

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

1. Все восемь логических сообщений дают Истина.

2. После повторного открытия числовые, дата и булево значения не превратились в строки.

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

Две записанные строки подтверждены чтением с диска, не только просмотром памяти.

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

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

2. Записать не запускает проведение документа 1С и не проверяет бизнес-правила обмена.

3. Несовпадающая кодировка может испортить чтение кириллицы; это не доказывает повреждение самого файла.

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