Поиск свойства

Незаурядный способ, без использования запроса:
Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.ПустаяСсылка();
    Назначение = ПланыВидовХарактеристик.НазначенияСвойствКатегорийОбъектов.Справочник_Контрагенты;
    выборка = ПланыВидовХарактеристик.СвойстваОбъектов.Выбрать(,Новый Структура("НазначениеСвойства",Назначение));
    Пока выборка.Следующий() Цикл
        Если выборка.Наименование = "Код77" Тогда
            Свойство = выборка.Ссылка;
            Прервать;
        КонецЕсли;
    КонецЦикла;
   
    Если Свойство.Пустая() Тогда
        Предупреждение("Не нашли свойство у КА 'Код77'");
        Возврат
    КонецЕсли;

Справочник_Номенклатура
Справочник_Контрагенты