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

  Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт

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

	Сумма  = ВалютнаяСумма * Запись.Курс / Запись.Кратность;

	Возврат Сумма;

КонецФункции