// Добавление записей в периодический независимый регистр сведений

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

	

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

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

	

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



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

НовЗапись.Период  = ТекущаяДата;

НовЗапись.Курс = ТекущийКурс;

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



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