Получает следующую запись из выборки. Для обхода записей регистра нужно после получения выборки вызвать данный метод для позиционирования на первую запись и далее вызывать до тех пор, пока не будет возвращено значение Ложь.
Синтаксис
Следующий()Примеры платформы
МаркетингЦен = РегистрыСведений.МаркетингЦен;
ОтборПоТовару = Новый Структура("Номенклатура");
ОтборПоТовару.Номенклатура = ВыбТовар;
ЦеныТовара = МаркетингЦен.Выбрать(,,ОтборПоТовару);
МаксЦена =0;
Конкурент = НСтр("ru='Не найден'; en='Not found'");
Пока ЦеныТовара.Следующий() Цикл
Если ЦеныТовара.Цена > МаксЦена Тогда
МаксЦена = ЦеныТовара.Цена;
Конкурент = ЦеныТовара.Конкурент.Наименование;
КонецЕсли;
КонецЦикла;
Предупреждение(НСтр("ru = 'Максимальная цена';"
+ " en = 'Maximum price'") +" """
+ СокрЛП(ВыбТовар) + """ = "+ МаксЦена
+ НСтр("ru=' руб. у '; en=' USD. It is used by '")
+ СокрЛП(Конкурент) + """.");Полное описание, параметры и ограничения
РегистрСведенийВыборка.<Имя регистра сведений>.Следующий (InformationRegisterSelection.<Information register name>.Next)
РегистрСведенийВыборка.<Имя регистра сведений> (InformationRegisterSelection.<Information register name>)
Следующий (Next)
Доступен, начиная с версии 8.0.
Синтаксис:
Следующий()
Возвращаемое значение:
Тип: Булево.
Истина - следующая запись выбрана; Ложь - достигнут конец выборки.
Описание:
Получает следующую запись из выборки. Для обхода записей регистра нужно после получения выборки вызвать данный метод для позиционирования на первую запись и далее вызывать до тех пор, пока не будет возвращено значение Ложь.
Доступность:
Сервер, толстый клиент, внешнее соединение, мобильное приложение (сервер), мобильный автономный сервер.
Пример:
// найдем максимальную цену у конкурентов на товар ВыбТовар
МаркетингЦен = РегистрыСведений.МаркетингЦен;
ОтборПоТовару = Новый Структура("Номенклатура");
ОтборПоТовару.Номенклатура = ВыбТовар;
ЦеныТовара = МаркетингЦен.Выбрать(,,ОтборПоТовару);
МаксЦена =0;
Конкурент = НСтр("ru='Не найден'; en='Not found'");
Пока ЦеныТовара.Следующий() Цикл
Если ЦеныТовара.Цена > МаксЦена Тогда
МаксЦена = ЦеныТовара.Цена;
Конкурент = ЦеныТовара.Конкурент.Наименование;
КонецЕсли;
КонецЦикла;
Предупреждение(НСтр("ru = 'Максимальная цена';"
+ " en = 'Maximum price'") +" """
+ СокрЛП(ВыбТовар) + """ = "+ МаксЦена
+ НСтр("ru=' руб. у '; en=' USD. It is used by '")
+ СокрЛП(Конкурент) + """.");
Использование в версии:
Доступен, начиная с версии 8.0.
Методическая информация
Практические примеры
Записать одну учебную цену и доказать откат транзакции
Только новая пустая учебная база с пустыми модулями. Уникальный код, запись без замещения чужого ключа, чтение своей строки и намеренный откат.
Где и как запускать
Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.
Подготовка
Создайте НОВУЮ пустую файловую базу. В Конфигураторе корню задайте имя Учебная85; не добавляйте учебные регистры в рабочую УТ/КА2/УНФ/БП.
Регистры сведений → Добавить: УчебныеЦены. Режим записи Независимый, периодичность Непериодический. Измерение КодТовара: Строка, длина 50, индексировать. Ресурс Цена: Число, 12 цифр, 2 дробных, неотрицательное.
Проверку заполнения измерения установите Показывать ошибку. Модуль набора записей оставьте ПУСТЫМ; обработчики записи, обмена, фоновые задания и внешние сервисы для урока не создавайте.
Обновите конфигурацию базы данных. Создайте серверный общий модуль УчебныеЗадачи и команду учебной обработки для вызова ВыполнитьПример() Экспорт.
Фрагмент вставьте в тело ВыполнитьПример. Каждую задачу запускайте отдельно. Вымышленные коды не являются справочными ссылками на рабочие товары.
Для этого урока выполняется настоящая кратковременная запись в СОБСТВЕННУЮ учебную базу. Не используйте рабочую базу или чужую транзакцию.
Длина КодТовара 50 обязательна: TRAIN- + UUID занимает 42 символа. В регистрах не должно быть обработчиков, выполняющих внешние действия.
Описание = Метаданные.РегистрыСведений.Найти("УчебныеЦены");
Если Описание = Неопределено Тогда
ВызватьИсключение "Сначала подготовьте собственный учебный регистр";
КонецЕсли;
Если Описание.РежимЗаписи <> Метаданные.СвойстваОбъектов.РежимЗаписиРегистра.Независимый
Или Описание.ПериодичностьРегистраСведений <> Метаданные.СвойстваОбъектов.ПериодичностьРегистраСведений.Непериодический Тогда
ВызватьИсключение "Настройки учебного регистра не соответствуют подготовке";
КонецЕсли;
Если Описание.Измерения.Количество() <> 1
Или Описание.Измерения.Найти("КодТовара") = Неопределено
Или Описание.Ресурсы.Найти("Цена") = Неопределено Тогда
ВызватьИсключение "Нужны одно измерение КодТовара и ресурс Цена";
КонецЕсли;
Если ТранзакцияАктивна() Тогда
ВызватьИсключение "Урок не выполняется внутри чужой транзакции";
КонецЕсли;
Код = "TRAIN-" + Строка(Новый УникальныйИдентификатор);
Менеджер = РегистрыСведений.УчебныеЦены;
ПроверкаДо = Менеджер.СоздатьМенеджерЗаписи();
ПроверкаДо.КодТовара = Код;
ПроверкаДо.Прочитать();
Если ПроверкаДо.Выбран() Тогда
ВызватьИсключение "Неожиданно найден занятый учебный ключ";
КонецЕсли;
НачатьТранзакцию();
Попытка
Запись = Менеджер.СоздатьМенеджерЗаписи();
Запись.КодТовара = Код;
Запись.Цена = 250;
Запись.Записать(Ложь);
Прочитанная = Менеджер.СоздатьМенеджерЗаписи();
Прочитанная.КодТовара = Код;
Прочитанная.Прочитать();
Если Не Прочитанная.Выбран() Или Прочитанная.Цена <> 250 Тогда
ВызватьИсключение "Своя запись не прочитана с ожидаемой ценой";
КонецЕсли;
Ресурсы = Менеджер.Получить(Новый Структура("КодТовара", Код));
Сообщить(Ресурсы.Цена = 250);
Выборка = Менеджер.Выбрать(Новый Структура("КодТовара", Код));
Если Не Выборка.Следующий() Тогда
ВызватьИсключение "Своя запись не найдена в выборке";
КонецЕсли;
ИзВыборки = Выборка.ПолучитьМенеджерЗаписи();
Сообщить(ИзВыборки.Выбран());
Сообщить(ИзВыборки.Цена = 250);
Сообщить(Не Выборка.Следующий());
ОтменитьТранзакцию();
Исключение
Если ТранзакцияАктивна() Тогда
ОтменитьТранзакцию();
КонецЕсли;
ВызватьИсключение;
КонецПопытки;
После = Менеджер.СоздатьМенеджерЗаписи();
После.КодТовара = Код;
После.Прочитать();
Если После.Выбран() Тогда
ВызватьИсключение "После отката учебная запись всё ещё существует";
КонецЕсли;
Сообщить("Откат подтверждён: своя учебная цена отсутствует.");Разбор по шагам
Отказываемся работать внутри существующей транзакции. Не отменяем чужие незавершённые изменения.
Создаём уникальный учебный ключ и до записи подтверждаем отсутствие строки через менеджер записи.
Записать(Ложь) не замещает другую существующую запись с тем же ключом. Это не универсальная защита от ошибок бизнес-обработчиков.
Внутри собственной транзакции читаем свою запись новым менеджером, через Получить ресурсы и через выборку.
ПолучитьМенеджерЗаписи вызывается только после успешного Следующий: выборка позиционирована на строке.
Намеренно отменяем, а не фиксируем транзакцию. После отката читаем новым менеджером и требуем отсутствие строки.
Как проверить результат
Четыре проверки внутри транзакции Истина: цена, выбранность менеджера, цена из выборки, отсутствие второй строки.
После отката сообщение о подтверждённом отсутствии учебной цены.
В списке регистра не остаётся нового кода TRAIN-…, ФиксироватьТранзакцию нигде не вызывается.
Ожидаемый результат
Новичок наблюдает запись, несколько способов чтения и проверяемый откат своей транзакции.
На что обратить внимание
Откат базы не отменяет письма, HTTP-запросы и запись файлов из обработчиков. Поэтому регистр должен иметь пустой модуль и база быть новой.
После отката старый объект в памяти может хранить прежние поля; состояние базы проверяем новым экземпляром.
Получить возвращает структуру ресурсов, не полный объект записи с ключом.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.