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