НаборЗаписей = РегистрыСведений.Валюты.СоздатьНаборЗаписей(); 
НаборЗаписей.Отбор.Период.Установить(ДатаЗаписи); 
НаборЗаписей.Прочитать(); 
Для Каждого Запись Из НаборЗаписей Цикл 
 // Чтение и сообщение данных полей записи. 
    Сообщить(Строка(Запись.Период) + " " + Строка(Запись.Валюта) + " " + Строка(Запись.Курс)); 
       // Изменение данных полей записи. 
     Запись.Курс = 0; 
КонецЦикла; 
НаборЗаписей.Записать();