1С 7.x : Выбрать Итоги, остатки регистра

 

// Пример 1

РегТовары = СоздатьОбъект("Регистр.Товары");

РегТовары.ВыбратьИтоги();

Пока РегТовары.ПолучитьИтог()=1 Цикл

	Сообщить("Товар " + Строка(РегТовары.Товар) +

	" на складе " + Строка(РегТовары.Склад) +

	" кол-во: " + Строка(РегТовары.Количество) +

	" стоимость: " + Строка(РегТовары.Стоимость) +

КонецЦикла; 



// Пример 2

Процедура ВыбратьКредит()

	Список = СоздатьОбъект("СписокЗначений");

	Рег = СоздатьОбъект("Регистр.ТоварныйКредит");

	Рег.УстановитьФильтр(Клиент, );

	Рег.ВыбратьИтоги();

	Ном = 0;

	Пока Рег.ПолучитьИтог() = 1 Цикл

		Док = Рег.Документ;

		Список.ДобавитьЗначение(Док, "" + Док + " — Остаток = " + Рег.Долг);

		Если Ном = 0 Тогда

			ВыбДок = Док;

		КонецЕсли;

		Ном = Ном + 1;

		

	КонецЦикла;

	Если Ном > 0 Тогда

		Если Список.ВыбратьЗначение(ВыбДок, "Выберите кредит") = 1 Тогда

			ДокКредита = ВыбДок;

		КонецЕсли;

	КонецЕсли;

	Возврат;

КонецПроцедуры