СпрКонтрЕНВД = СоздатьОбъект("Справочник.Контрагенты");
   СпрКонтрЕНВД.НайтиПоНаименованию("111");
   СпрКонтрЕНВД.ВыбратьЭлементы();
   Если СпрКонтрЕНВД.ПолучитьЭлемент() = 1 Тогда
       ТекКонтрЕНВД = СпрКонтрЕНВД.ТекущийЭлемент();
   Иначе
       Сообщить("Не найден контрагент");  
       Возврат;
   КонецЕсли;

Почему всегда СпрКонтрЕНВД.ПолучитьЭлемент() = 1?
Контрагента "111" нет в базе и должно выводится соответствующее сообщение.

:)
СпрКонтрЕНВД.ВыбратьЭлементы();//Лишнее, еще раз сдесь сделал выборку всех

ты хочешь отобрать все наименование, где есть "111" ?

> Почему всегда СпрКонтрЕНВД.ПолучитьЭлемент() = 1?

удали все элементы из справочника и больше единицы не будет

(0)Запросом, лучше прямым :)

(0)
   

СпрКонтрЕНВД = СоздатьОбъект("Справочник.Контрагенты");
   Если СпрКонтрЕНВД.НайтиПоНаименованию("111")=1 Тогда
       ТекКонтрЕНВД = СпрКонтрЕНВД.ТекущийЭлемент();
   Иначе
       Сообщить("Не найден контрагент");  
       Возврат;
   КонецЕсли;

Если СпрКонтрЕНВД.НайтиПоНаименованию("111",0,1)=1 Тогда

(0) Твой код написан для поиска контрагента в группе с наименованием "111".Смекаешь разницу?

(7) ага, заметил это. Спасибо!получилось)