XBase.УстановитьЗначениеПоля

Прочитать и изменить поле по имени из собственной карты импорта

ПолучитьЗначениеПоля и УстановитьЗначениеПоля позволяют работать без обращения База.QTY. Имя входного столбца заранее сопоставлено известному числовому полю.

Подготовка

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

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

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

2. Проверяем собственное имя поля и его тип до позиционирования и чтения.

3. ПолучитьЗначениеПоля по имени возвращает значение текущей строки, не описание поля.

4. Устанавливаем проверенное число и явно Записать; обычное и динамическое чтение должны совпасть.

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

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

1. Три сообщения Истина: исходное 3, новое 4 двумя способами.

2. UNKNOWN и произвольные имена из внешнего JSON не используются как готовый контракт.

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

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

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

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

2. Проверка целого числа здесь прикладная; поле N само не означает неотрицательный остаток.

3. Для настоящего импорта проверяйте также вместимость поля и согласованный смысл единиц измерения.

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