// Пример 1

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

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

РегДоходы.ВыгрузитьИтоги(ТабЗнач);

ТабЗнач.ВыбратьСтроки();

Пока ТабЗнач.ПолучитьСтроку()=1 Цикл

	Сообщить("Товар " + Строка(ТабЗнач.Товар) +

	" на складе " + Строка(ТабЗнач.Склад) +

	" кол-во: " + Строка(ТабЗнач.Количество) +

	" стоимость: " + Строка(ТабЗнач.Стоимость) +

КонецЦикла; 



// Пример 2

Функция ВыбратьКредит(ВыбКлиент)

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

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

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

   Рег.ВыгрузитьИтоги(Список, 1);

   Возврат Список;

КонецФункции

 

// Пример 1

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

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

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

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

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

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

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

КонецЦикла; 



// Пример 2

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

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

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

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

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

	Ном = 0;

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

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

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

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

			ВыбДок = Док;

		КонецЕсли;

		Ном = Ном + 1;

		

	КонецЦикла;

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

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

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

		КонецЕсли;

	КонецЕсли;

	Возврат;

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