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