[CCCPirate]

ой немогу! 1с программирование:

   
Функция ПоискЭлемента(Справ,Наим)

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

     Спр.Вид(Справ);

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

          Спр.Новый();

          Спр.Наименование=Наим;

          Спр.Записать();

      КонецЕсли;

      Возврат Спр.ТекущийЭлемент();

КонецФункции