В начало

Запись курса доллара

 

Процедура ЗаписьКурсаДоллара (Курс)

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

 

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

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

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

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

   Иначе

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

      Возврат;

   КонецЕсли;

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

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

   ПерВал.Значение = Курс;

   ПерВал.ДатаЗнач = РабочаяДата ();

   ПерВал.Записать ();

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