// Пример 1 РегТовары = СоздатьОбъект("Регистр.Товары"); РегТовары.ВыбратьИтоги(); Пока РегТовары.ПолучитьИтог()=1 Цикл Сообщить("Товар " + Строка(РегТовары.Товар) + " на складе " + Строка(РегТовары.Склад) + " кол-во: " + Строка(РегТовары.Количество) + " стоимость: " + Строка(РегТовары.Стоимость) + КонецЦикла; // Пример 2 Процедура ВыбратьКредит() Список = СоздатьОбъект("СписокЗначений"); Рег = СоздатьОбъект("Регистр.ТоварныйКредит"); Рег.УстановитьФильтр(Клиент, ); Рег.ВыбратьИтоги(); Ном = 0; Пока Рег.ПолучитьИтог() = 1 Цикл Док = Рег.Документ; Список.ДобавитьЗначение(Док, "" + Док + " — Остаток = " + Рег.Долг); Если Ном = 0 Тогда ВыбДок = Док; КонецЕсли; Ном = Ном + 1; КонецЦикла; Если Ном > 0 Тогда Если Список.ВыбратьЗначение(ВыбДок, "Выберите кредит") = 1 Тогда ДокКредита = ВыбДок; КонецЕсли; КонецЕсли; Возврат; КонецПроцедуры