В начало

Процедура Чистка курсов

 

Процедура ЧисткаКурсов ()

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

 

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

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

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

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

   Иначе

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

      Возврат;

   КонецЕсли;

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

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

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

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

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

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

      Если Курс < 1000 Тогда

         ПерВал.Удалить ();

      КонецЕсли;

   КонецЦикла;

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