Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Как получить курс валюты в 1С:Предприятие 8.2?
Рассмотрим два варианта:

Процедура ПолучитьКурсВалюты()
	ОчиститьСообщения();
	ДатаКурса=ТекущаяДата();
	Валюта=Справочники.Валюты.НайтиПоКоду("840");
	регВалюта=РегистрыСведений.КурсыВалют;
	Отбор=Новый Структура("Валюта", Валюта);
	Структура = регВалюта.ПолучитьПоследнее(ДатаКурса,Отбор);
	Сообщить("Текущий курс: "+Структура.Курс+" Кратность: "+Структура.Кратность);
КонецПроцедуры

Процедура ПолучитьКурсВалютыЗапрос()
	Запрос = Новый Запрос;
	Запрос.Текст =
		"ВЫБРАТЬ
		|	КурсыВалютСрезПоследних.Курс,
		|	КурсыВалютСрезПоследних.Кратность
		|ИЗ
		|	РегистрСведений.КурсыВалют.СрезПоследних(&НаДату, Валюта = &Валюта) КАК КурсыВалютСрезПоследних";
        Валюта=Справочники.Валюты.НайтиПоКоду("840");
	НаДату=ТекущаяДата();
	Запрос.УстановитьПараметр("Валюта", Валюта);
	Запрос.УстановитьПараметр("НаДату", НаДату);

	Результат = Запрос.Выполнить();

	ВыборкаДетальныеЗаписи = Результат.Выбрать();

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		// Вставить обработку выборки ВыборкаДетальныеЗаписи
		Сообщить("Текущий курс: "+Формат(ВыборкаДетальныеЗаписи.Курс,"ЧЦ=10; ЧДЦ=2; ЧГ=0")+" Кратность: "+ВыборкаДетальныеЗаписи.Кратность);
	КонецЦикла;
КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Кнопка)
	// Вставить содержимое обработчика.
	ПолучитьКурсВалюты();
	ПолучитьКурсВалютыЗапрос();
КонецПроцедуры

Дополнительные материалы:
Как вывести описание ошибки в 1С:Предприятие 8.1, 8.2, 8.3?
Как проверить тип значения в 1С, программно? Как определить тип объекта в 1С?
Функция Формат (ТекЗначение, ФорматнаяСтрока) в 1С.
Функции с датой в 1С:Предприятие.
Дополнительные материалы в 1С.
1С запрос, как обратится к полю в результате запроса?