helpf.pro
Регистрация
 0 
Распечатать

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

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

//Пример обращения
ВалютДол=Справочники.Валюты.НайтиПоНаименованию("USD");
ВалютнаяСумма=1000;
Сумм=ПересчетСуммыПоКурсу(ВалютнаяСумма, ВалютДол, ДатаДокумента);
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 20014
 0 
Распечатать
Возможно, вас также заинтересует
1С 7.x : Как получить курсы валют с сайта НБУ http://www.bank.gov.ua/ за любую дату ? 6
Функция ПолучитьТаблицуКурсовНБУ(ДатаКурса, Ежедневно = 1) // если в качестве второго параметра указать число отличное от 1 - получем валюты, которые котируются на ежемесячной основе Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯче
Вывод Диаграммы График Валют, Сохранение диаграммы, графиков и гистограмм в виде Картинки 0
Алгоритм обработки выполняет запрос к регистру сведений " курсы валют" за определенный пользователем период. Полученные данные выборки в цикле выводятся в элемент экранной формы " диаграмма" в режиме построения графика. Для элемента управления " Ди
Документ "Корректировка записей регистров" - Как программно создать и заполнить? 10
Документ «Корректировка записей регистров» в типовых конфигурациях 1С предназначен для ручной корректировки записей регистров накопления, зависимых регистров сведений и регистров бухгалтерии. Типичные ситуации, в которых может понадобиться документ «
Загрузка данных в 1С из PDF 5
В данной статье описан пример реализации загрузки данных накладных из PDF файлов для одного крупного Ритейла... И так у Нас есть несколько файлов в формате pdf, которые нам необходимо загрузить в 1С. Чтение PDF файлов из 1С Первым дело я стал
Запись в регистр сведений (Установить курс и кратность валюты) 1
// Запись в регистр сведений (Установить курс и кратность валюты) // Параметры: // Валюта - ссылка на элемент справочника Валют // Процедура ЗаписатьКурс(Валюта) Экспорт РегистрКурсыВалют = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи()
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.