// Пример 1

// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись

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

// означает, что расчеты будут проводиться только по одному товару (Тов1), но по всем складам и МОЛам.

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

Рег.ВременныйРасчет();

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

РассчитатьРегистрыНа(ДатаНачала);

Рег.ВыбратьДвиженияСОстатками(ДатаКонца);

Пока Рег.ПолучитьДвижение() = 1 Цикл

   Прих = 0;

   Расх = 0;

   Если Рег.Приход = 1 Тогда

      Прих = Рег.Долг;

   Иначе

      Расх = Рег.Долг;

   КонецЕсли;

   ТекущееСальдо = Рег.Остаток(Клиент, "Задолженность");

   Док = Рег.ТекущийДокумент();

   Таб.ВывестиСекцию("Документ");

КонецЦикла;



// Пример 2

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

//выбрать все движения по данному складу за период

РегТовары.УстановитьФильтр(,ТекСклад);

РегТовары.ВыбратьДвижения(ДатаНач, ДатаКон);

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

	//... код

КонецЦикла; 



// Пример 3

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

//выбрать все товары на данном складе

РегТовары.УстановитьФильтр(,ТекСклад);

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

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

	//... код

КонецЦикла; 

 

// Пример 1

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

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

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

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

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

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

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

КонецЦикла; 



// Пример 2

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

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

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

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

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

	Ном = 0;

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

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

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

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

			ВыбДок = Док;

		КонецЕсли;

		Ном = Ном + 1;

		

	КонецЦикла;

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

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

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

		КонецЕсли;

	КонецЕсли;

	Возврат;

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