Функция получает курс валюты на текущую дату из регистра сведений «КурсыВалют» и размещена в общем модуле
Листинг 1
Функция ПолучитьКурсВалюты (Валюта) Экспорт
Отбор = Новый Структура;
Отбор.Вставить("Валюта", Валюта);
Данные = РегистрыСведений.КурсыВалют.ПолучитьПоследнее (ТекущаяДата(), Отбор);
Возврат Данные.Курс;
КонецФункции
Вызов функции можно осуществить из любой точки прикладного решения.
Листинг 2
&НаКлиентеНаСервереБезКонтекста
Процедура ОбновитьКурс (Валюта, Курс)
Если Валюта.Пустая()
Тогда Курс = 0
Иначе Курс = ОбщиеМеханизмы.ПолучитьКурсВалюты(Валюта);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВалютаВзаиморасчетаПриИзменении(Элемент)
ОбновитьКурс (Объект.ВалютаВзаиморасчета, Курс);
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)