Для отображения персонализированного контента и рекламных сообщений, а также хранения личных настроек на локальном компьютере веб-сайт www.vdgb.ru используют технологию cookie и аналогичные. Продолжив использование наших веб-сайтов, Вы даете согласие на обработку персональных данных, выражаете согласие с Политикой конфиденциальности www.vdgb.ru и применением этих технологий.

ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

Универсальная функция получения курса валюты

Проконсультироваться
со специалистом 1С

Консультироваться

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

//Пример обращения
ВалютДол=Справочники.Валюты.НайтиПоНаименованию("USD");
ВалютнаяСумма=1000;
Сумм=ПересчетСуммыПоКурсу(ВалютнаяСумма, ВалютДол, ДатаДокумента);


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.