HelpF.pro

Выбрать Итоги, остатки регистра

Код 1C v 7.x
 
// Пример 1
РегТовары = СоздатьОбъект("Регистр.Товары");
РегТовары.ВыбратьИтоги();
Пока РегТовары.ПолучитьИтог()=1 Цикл
	Сообщить("Товар " + Строка(РегТовары.Товар) +
	" на складе " + Строка(РегТовары.Склад) +
	" кол-во: " + Строка(РегТовары.Количество) +
	" стоимость: " + Строка(РегТовары.Стоимость) +
КонецЦикла; 

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

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/250.html