В начало

Процедура «Курсы валюты»

 

Процедура КурсыВалюты (КодВалюты)

   Вал = СоздатьОбъект ("Справочник.Валюты");

 

   // Позиционируем созданный объект Вал по известному коду

   Вал.НайтиПоКоду (КодВалюты);

   Если Вал.Выбран () = 1 Тогда

      Доллар = Вал.ТекущийЭлемент ();

   Иначе

      Предупреждение ("Не найдена валюта!");

      Возврат;

   КонецЕсли;

   ПерВал = СоздатьОбъект ("Периодический");

   ПерВал.ИспользоватьОбъект ("Текуш_курс", Доллар);

   ПерВал.ОбратныйПорядок (1);

   ПерВал.ВыбратьЗначения ();

   Пока ПерВал.ПолучитьЗначение () = 1 Цикл

      Сообщить ("Курс: " + Строка (ПерВал.ДатаЗнач) + ПерВал.Значение);

   КонецЦикла;

КонецПроцедуры