Позиционирует объект на предыдущей записи. В зависимости от того, установлен ли текущий индекс, позиционирование происходит либо в порядке убывания физического номера записи, либо в порядке убывания значения выражения текущего индекса (если индекс создавался с установленным флагом "Убывание", то в порядке возрастания).
Синтаксис
Предыдущая()Примеры платформы
СуммаВсего = 0;
Пока Истина Цикл
СуммаВсего = СуммаВсего + xB.COST;
Если Не xB.Предыдущая() Тогда
Прервать;
КонецЕсли;
КонецЦикла;Полное описание, параметры и ограничения
XBase.Предыдущая (XBase.Prev)
XBase (XBase)
Предыдущая (Prev)
Доступен, начиная с версии 8.0.
Синтаксис:
Предыдущая()
Возвращаемое значение:
Тип: Булево.
Истина - получена предыдущая запись; Ложь - в противном случае.
Описание:
Позиционирует объект на предыдущей записи. В зависимости от того, установлен ли текущий индекс, позиционирование происходит либо в порядке убывания физического номера записи, либо в порядке убывания значения выражения текущего индекса (если индекс создавался с установленным флагом "Убывание", то в порядке возрастания).
Доступность:
Тонкий клиент, сервер, толстый клиент, внешнее соединение.
Пример:
// Подсчет суммы в поле COST
СуммаВсего = 0;
Пока Истина Цикл
СуммаВсего = СуммаВсего + xB.COST;
Если Не xB.Предыдущая() Тогда
Прервать;
КонецЕсли;
КонецЦикла;
Использование в версии:
Доступен, начиная с версии 8.0.
Методическая информация
Практические примеры
Пройти записи назад и отличить номер строки от индекса поля
Без текущего индекса записи идут в физическом порядке. Перейти принимает номер от единицы, а не код товара или индекс поля.
Где и как запускать
Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.
Подготовка
Запускайте только в учебной базе на сервере. XBase работает с DBF, а не с таблицами вашей информационной базы; доступ к временному каталогу сервера должен быть разрешён.
Код сам создаёт уникальный новый каталог. В нём только собственные goods.dbf и goods.cdx: имена файлов соответствуют ограничению 8.3, имена полей и индексов латинские, не длиннее 10 символов.
Не подставляйте путь к существующему DBF. В каждой задаче новый набор: A-01 / Книга / 3 / 250 и B-02 / Ручка / 1 / 50. Сумма количества на цену равна 800.
Файлы закрываются перед удалением двух точных собственных путей. Пустой уникальный каталог остаётся; его путь выводится, чтобы при необходимости удалить именно его вручную.
УчебныйКаталог = ПолучитьИмяВременногоФайла();
ПроверкаКаталога = Новый Файл(УчебныйКаталог);
Если ПроверкаКаталога.Существует() Тогда
ВызватьИсключение "Учебный путь уже существует; существующие файлы не используем";
КонецЕсли;
СоздатьКаталог(УчебныйКаталог);
Сообщить("Собственный временный каталог: " + УчебныйКаталог);
Имя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 пуст";
КонецЕсли;
Сообщить(СокрЛП(База.CODE) = "B-02");
Сообщить(База.НомерЗаписи() = 2);
Если Не База.Предыдущая() Тогда
ВызватьИсключение "Не найдена предыдущая учебная запись";
КонецЕсли;
Сообщить(СокрЛП(База.CODE) = "A-01");
Сообщить(База.НомерЗаписи() = 1);
База.Предыдущая();
Сообщить(База.ВНачале());
Если Не База.Перейти(2) Тогда
ВызватьИсключение "Не найдена физическая запись 2";
КонецЕсли;
Сообщить(СокрЛП(База.CODE) = "B-02");
Исключение
Если База.Открыта() Тогда
База.ЗакрытьФайл();
КонецЕсли;
Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
Если СобственныйФайл.Существует() Тогда
УдалитьФайлы(ИмяСобственногоФайла);
КонецЕсли;
КонецЦикла;
ВызватьИсключение;
КонецПопытки;
Если База.Открыта() Тогда
База.ЗакрытьФайл();
КонецЕсли;
Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
Если СобственныйФайл.Существует() Тогда
УдалитьФайлы(ИмяСобственногоФайла);
КонецЕсли;
КонецЦикла;Разбор по шагам
Создаём собственную структуру DBF и записываем два товара с явным Записать.
Последняя выбирает B-02, физический номер 2.
Предыдущая выбирает A-01, затем следующий переход назад достигает начала.
После достижения начала восстанавливаем позицию через Перейти(2); поля читаем только при успехе.
Закрываем DBF и удаляем только два собственных файла; информационная база не изменяется.
Как проверить результат
Шесть логических сообщений Истина.
У PRICE индекс поля 3, у B-02 физический номер записи 2: это разные нумерации.
Ожидаемый результат
Курсор безопасно возвращён к собственной второй записи.
На что обратить внимание
Не запускайте операции изменения, Сжать или ОчиститьФайл на чужом либо рабочем DBF.
При текущем индексе Последняя/Предыдущая идут по ключу, но НомерЗаписи остаётся физическим.
После Сжать физические номера могут измениться; не используйте их как постоянные идентификаторы товара.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.