// Пример 1

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

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

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

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

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

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

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

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

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

   Прих = 0;

   Расх = 0;

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

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

   Иначе

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

   КонецЕсли;

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

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

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

КонецЦикла;



// Пример 2

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

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

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

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

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

	//... код

КонецЦикла; 



// Пример 3

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

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

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

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

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

	//... код

КонецЦикла; 

  

// Пример 1 

Функция ПолучитьИтог(Товар, Склад, Год);

   Регистр.ОборотыТоваров.ИспользоватьПериод(Год);

   Возврат Регистр.ОборотыТоваров.Итог(Товар, Склад, "ОборотТовара");

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



// Пример 2                                             

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

//установить период выборки "30 января 2009 года"

РегДоходы.ИспользоватьПериод(2009,01,30);

//получить доход за день по данному клиенту и данному товару

Доход = РегДоходы.Итог(ТекКлиент, ТекТовар, "Доход");

 

// Пример 1

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

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

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

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

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

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

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

КонецЦикла; 



// Пример 2

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

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

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

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

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

	Ном = 0;

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

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

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

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

			ВыбДок = Док;

		КонецЕсли;

		Ном = Ном + 1;

		

	КонецЦикла;

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

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

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

		КонецЕсли;

	КонецЕсли;

	Возврат;

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