Проверить структуру DBF перед импортом товаров

Поля описывают схему файла: PRICE имеет 12 позиций, из них две дробные; CODE хранится строкой, дата и булево не являются текстом.

Подготовка

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 = Истина;
    База.Записать();
    Сообщить(База.Поля.Количество() = 6);
    Цена = База.Поля.Найти("PRICE");
    Если Цена = Неопределено Тогда
        ВызватьИсключение "Не найдено учебное поле PRICE";
    КонецЕсли;
    Сообщить(Цена.Имя = "PRICE");
    Сообщить(Цена.Тип = "N");
    Сообщить(Цена.Длина = 12);
    Сообщить(Цена.Точность = 2);
    Сообщить(База.Поля.Индекс(Цена) = 3);
    Сообщить(База.Поля.Получить(0).Имя = "CODE");
    Сообщить(База.Поля.Найти("ONDATE").Длина = 8);
    Сообщить(База.Поля.Найти("ACTIVE").Длина = 1);
    Сообщить(База.Поля.Найти("UNKNOWN") = Неопределено);
Исключение
    Если База.Открыта() Тогда
        База.ЗакрытьФайл();
    КонецЕсли;
    Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
        СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
        Если СобственныйФайл.Существует() Тогда
            УдалитьФайлы(ИмяСобственногоФайла);
        КонецЕсли;
    КонецЦикла;
    ВызватьИсключение;
КонецПопытки;
Если База.Открыта() Тогда
    База.ЗакрытьФайл();
КонецЕсли;
Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
    СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
    Если СобственныйФайл.Существует() Тогда
        УдалитьФайлы(ИмяСобственногоФайла);
    КонецЕсли;
КонецЦикла;

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

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

2. Найти ищет описание поля по имени; отсутствие проверяем до обращения к свойствам.

3. Индекс PRICE равен 3: коллекция полей начинается с нуля, физические номера записей — с единицы.

4. Длина числа включает представление целиком, а Точность задаёт дробную часть. Дата DBF занимает 8, булево — 1 позицию.

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

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

1. Все десять сообщений дают Истина.

2. UNKNOWN отсутствует: код не обращается к свойствам результата этого поиска.

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

Проверены шесть полей собственной схемы, включая размер и точность цены.

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

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

2. Не путайте описание ПолеXBase с текущим значением PRICE.

3. Мемо-поле M платформой не поддерживается; имя поля не может быть русским длинным наименованием.

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