1С 7.x : Получить движения регистра

 // Пример 1

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

Если Режим = "Подробно" Тогда

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

	// Открываем выборку

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

	

	// Цикл выбора движений по регистру

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

		Если Строка(Рег1.Клиент.Код) <> Строка(Запрос.Клиент.Код) Тогда

			Продолжить;

		КонецЕсли;

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

		Дв_Баз_Сум = Рег1.СуммаБазовая;

		Дв_Вал_Сум = Рег1.СуммаВалютная;

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

			Таб.ВывестиСекцию("Расход2");

		Иначе

			Таб.ВывестиСекцию("Приход2");

			

		КонецЕсли;

	КонецЦикла;

КонецЕсли;



//Пример 2

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

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

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

Сообщить("Дата движения " + Строка(РегТовары.ТекущийДокумент.ДатаДок));

Сообщить("Клиент: " + РегТовары.Клиент);

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

Сообщить("Сумма: " + РегТовары.Доход);

КонецЦикла;