Добрый день, подскажите почему не открывается группа в справочнике при подборе
[code]
Процедура Подбор()
Спр=СоздатьОбъект("Справочник.Барьер");
Если Спр.НайтиПоНаименованию("Ткань")=0 Тогда
Предупреждение ("Группа Ткани не найдена!");
Возврат;
КонецЕсли;
ОткрытьПодбор("Справочник.Барьер","ФормаСписка",Спр.ТекущийЭлемент());
КонецПроцедуры
//------------------------------------------------------
Процедура ОбработкаПодбора(ВыбрТовар)
ТекЦвет = "";
Спр = СоздатьОбъект("Справочник.ЦветаТкани");
Спр.НайтиПоНаименованию(сокрЛП(ВыбрТовар));
Если Спр.Выбрать("Выберите цвет ткани","продажа") = 1 Тогда
ТекЦвет = Спр.ТекущийЭлемент();
КонецЕсли;
Кол=1;
Если ВвестиЧисло(Кол,"Введите количество",11,3)=0 Тогда
Возврат;
КонецЕсли;
Если Кол > 0 Тогда
НоваяСтрока();
Наименование = ВыбрТовар;
Количество = Кол;
Цвет = ТекЦвет;
АктивизироватьСтроку();
КонецЕсли;
КонецПроцедуры
[/code]
вот что происходит http://s54.radikal.ru/i146/1202/9d/f7fba1dba022.jpg группу находит а не открывает ее