Как загрузить курсы валют

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
     ЗагрузитьКурсыВалют();
	 Сообщить("Курсы валют загружены!!!")
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьКурсыВалют()
	Прокси=WSСсылки.КурсыВалютЦБ.СоздатьWSПрокси("http://web.cbr.ru/","DailyInfo","DailyInfoSoap12");
	ТипWSПараметра = Прокси.ФабрикаXDTO.Пакеты.Получить("http://web.cbr.ru/").Получить("GetCursOnDate");
	WSПараметр = Прокси.ФабрикаXDTO.Пакеты.Получить("http://web.cbr.ru/").Получить("GetCursOnDate");
	WSПараметр = Прокси.ФабрикаXDTO.Создать(ТипWSПараметра);
	WSПараметр.On_Date= ТекущаяДата();
	КурсыВалют = Прокси.GetCursOnDate(WSПараметр);
	Для Каждого Элемент Из КурсыВалют.GetCursOnDateResult.diffgram.ValuteData.ValuteCursOnDate
		Цикл Валюта = СоздатьПолучитьВалюту(Элемент);
		Если Валюта <> Неопределено тогда МенеджерКурсыВалют = Регистрысведений.КурсыВалют.СоздатьМенеджерЗаписи();
			МенеджерКурсыВалют.Валюта = Валюта;
			МенеджерКурсыВалют.Курс = Элемент.Vcurs;
			МенеджерКурсыВалют.Период = ТекущаяДата();
			МенеджерКурсыВалют.Записать();
		КонецЕсли
		КонецЦикла
	КонецПроцедуры 
	
&НаСервере
Функция СоздатьПолучитьВалюту(Элемент)
Валюта = Справочники.Валюты.НайтиПоКоду(Элемент.Vcode);
	Если Валюта <> Неопределено И Валюта = Справочники.Валюты.ПустаяСсылка() Тогда
	ВалютаОбъект = Справочники.Валюты.СоздатьЭлемент();
	ВалютаОбъект.Наименование = Элемент.Vname;
	ВалютаОбъект.Код = Элемент.Vcode;
	ВалютаОбъект.Записать();
Возврат ВалютаОбъект.Ссылка;
ИначеЕсли ЗначениеЗаполнено(Валюта) Тогда
Возврат Валюта;
Иначе
Возврат Неопределено;
	КонецЕсли
КонецФункции