МенеджерЗаписи

Курс = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();<br />
Курс.Валюта = ВыбВалюта;<br />
Курс.Период = ТекущаяДата();<br />
Курс.Прочитать();<br />
Если Не Курс.Выбран() Тогда<br />
    Курс.Период = ТекущаяДата();<br />
    Курс.Валюта = ВыбВалюта;<br />
    Курс.Курс = 41.35;<br />
    Курс.Кратность = 1;<br />
КонецЕсли;<br />
Если ВвестиЧисло(Курс.Курс, «Введите курс на сегодня»,15,5) Тогда<br />
    Курс.Записать();<br />
КонецЕсли;

Очистка регистра сведения

Менеджер = РегистрыСведений.ЛогированиеДействий.СоздатьНаборЗаписей();<br />
Менеджер.Прочитать();<br />
Менеджер.Очистить();<br />
Менеджер.Записать();

Отбор по регистратору

Набор = РегистрыНакопления.ТвойРегистр.СоздатьНаборЗаписей();<br />
Набор.Отбор.Регистратор.Установить(ТвойРегистратор);<br />
Набор.Прочитать();

Отбор по реквизиту и периоду

КурсыВалют = РегистрыСведений.КурсыВалют;<br />
НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();<br />
Доллар = Справочники.Валюты.НайтиПоНаименованию(«USD»);<br />
НаборКурсов.Отбор.Валюта.Установить(Доллар);<br />
НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));<br />
НаборКурсов.Прочитать();<br />
Если НаборКурсов.Количество() = 0 Тогда<br />
НовыйКурс = НаборКурсов.Добавить();<br />
НовыйКурс.Валюта = Доллар;<br />
НовыйКурс.Период = ТекущаяДата();<br />
ИначеЕсли НаборКурсов.Количество() = 1 Тогда<br />
НовыйКурс = НаборКурсов[0];<br />
Иначе<br />
Предупреждение(НСтр(«ru = ‘Курс валюты задается один раз в день.’;»<br />
+ » en = ‘Rate is set once a day.'»), 60);<br />
Возврат;<br />
КонецЕсли;