Функция пересчета валютной суммы по курсу на дату документа

  Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт
	Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта));
	Сумма  = ВалютнаяСумма * Запись.Курс / Запись.Кратность;
	Возврат Сумма;
КонецФункции