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