Имя: Пароль:
1C
1C 7.7
v7: Не открывается группа справочника
0 NemeL
 
08.02.12
21:42
Добрый день, подскажите почему не открывается группа в справочнике при подборе
[code]
Процедура Подбор()  
Спр=СоздатьОбъект("Справочник.Барьер");
Если Спр.НайтиПоНаименованию("Ткань")=0 Тогда
Предупреждение ("Группа Ткани не найдена!");
Возврат;
КонецЕсли;
ОткрытьПодбор("Справочник.Барьер","ФормаСписка",Спр.ТекущийЭлемент());

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

   Кол=1;                              
   Если ВвестиЧисло(Кол,"Введите количество",11,3)=0 Тогда
       Возврат;
   КонецЕсли;
   
   Если Кол > 0 Тогда
       НоваяСтрока();
       Наименование = ВыбрТовар;  
       Количество = Кол;
       Цвет = ТекЦвет;
       АктивизироватьСтроку();
   КонецЕсли;
КонецПроцедуры  
[/code]
вот что происходит http://s54.radikal.ru/i146/1202/9d/f7fba1dba022.jpg
группу находит а не открывает ее
1 KRV
 
08.02.12
21:44
404 Not Found
2 NemeL
 
08.02.12
21:46
3 ДенисЧ
 
08.02.12
21:47
А с какого он будет её раскрывать? Где это написано?
4 NemeL
 
08.02.12
22:01
ну если написать открытьПодбор то он откровет весь справочник, а не группу
5 Ёпрст
 
гуру
08.02.12
23:15
(0)
Процедура Подбор()  
    Спр=СоздатьОбъект("Справочник.Барьер");
     Если Спр.НайтиПоНаименованию("Ткань")=0 Тогда
         Предупреждение ("Группа Ткани не найдена!");
     Возврат;
КонецЕсли;
Конт=""
ОткрытьПодбор("Справочник.Барьер","ФормаСписка",Конт);
Конт.ИерархическийСписок(1,0);
Конт.ИспользоватьРодителя(1,0);

КонецПроцедуры


Наслаждайся...
6 NemeL
 
08.02.12
23:34
(5) у меня не открывается справочник цветовткани!!
7 Ёпрст
 
гуру
09.02.12
10:48
(6) ага, вставь проверку, что найденый элемент - ГРУППА
8 Ёпрст
 
гуру
09.02.12
10:48
+7 ну и.. ошибка в синтаксисе :))

//Конт.ИспользоватьРодителя(1,0);
Конт.ИспользоватьРодителя(Спр.ТекущийЭлемент(),0);
9 NemeL
 
09.02.12
12:36
(8) попробую, но я не пойму вашу логику зачем мне тут это делать если не открывается другой справочник?
10 ЧеловекДуши
 
09.02.12
12:39
(9)Увольняйся, 1С не твое :)
Запрос
Основная теорема систематики: Новые системы плодят новые проблемы.