// Чтение периодического независимого регистра сведений

НаборЗаписей = РегистрыСведений.Валюты.СоздатьНаборЗаписей();



НаборЗаписей.Отбор.Период.Установить(ДатаЗаписи);

	

НаборЗаписей.Прочитать();



Для Каждого Запись Из НаборЗаписей Цикл



	// Чтение и сообщение данных полей записи.	

	Сообщить(Строка(Запись.Период) + " " + Строка(Запись.Валюта) + " " + Строка(Запись.Курс));



	 // Изменение данных полей записи.

	 Запись.Курс = 0;



КонецЦикла;	

	

НаборЗаписей.Записать();   

 НаборЗаписей = РегистрыСведений.СобственныеКонтрагенты.СоздатьНаборЗаписей();

НаборЗаписей.Прочитать();



// Перебрать записи в цикле…

Для Каждого Запись из НаборЗаписей Цикл

	РегистрКонтрагент = Запись.Контрагент;

	РегистрВидСвязи   = Запись.ВидСвязи;

	РегистрОбъект = Запись.Объект;

	

КонецЦикла



// … или выгрузить записи в таблицу значений.

ТаблицаЗаписей = НаборЗаписей.Выгрузить();   

 ВЫБРАТЬ

	* 

ИЗ 

	РегистрыСведений.СобственныеКонтрагенты   

 НаборЗаписей = РегистрыСведений.ЗначенияСвойств.СоздатьНаборЗаписей(); 



НаборЗаписей.Отбор.Номенклатура.Установить(ТекущаяНоменклатура); 

НаборЗаписей.Отбор.Свойство.Установить(ТекущееСвойство); 



НоваяЗапись = НаборЗаписей.Добавить(); 

НоваяЗапись. Номенклатура = ТекущаяНоменклатура; 

НоваяЗапись.Свойство = ТекущееСвойство; 

НоваяЗапись.Значение = ТекущееЗначение; 



НаборЗаписей.Записать();