Имя: Пароль:
1C
1С v8
Открытие группы при подборе
0 sergdi
 
06.04.12
10:20
Бухгалтерия 8.2 серверная
Не работает код ( в подборе попадаю в список групп а не в заданную )

вариант  ФормаВыбора.ЭлементыФормы.СправочникСписок.РодительВерхнегоУровня = ПапкаКлиенты;
работает но тогда есть только одна группа



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

   
ФормаВыбора.РежимВыбора = True;
ФормаВыбора.ЗакрыватьПриВыборе= True;
   
ФормаВыбора.ЭлементыФормы.СправочникСписок.ТекущийРодитель = ПапкаКлиенты ;
ФормаВыбора.ЭлементыФормы.СправочникСписок.ТекущаяСтрока = ТекКонтр;

   
ФормаВыбора.Открыть();
1 le_
 
06.04.12
10:31
2 Cube
 
06.04.12
10:36
ПапкаКлиенты = Справочники.Контрагенты.НайтиПоКоду("000000001");
ФормаВыбора = Справочники.Контрагенты.ПолучитьФормуВыбора();  
ФормаВыбора.ЭлементыФормы.СправочникСписок.РодительВерхнегоУровня = ПапкаКлиенты ;
ФормаВыбора.Открыть();
3 Reset
 
06.04.12
10:50
(0)
ФормаВыбора.ЭлементыФормы.СправочникСписок.ТекущийРодитель=Справочники.Контрагенты.НайтиПоКоду("000000004");

Твой код тоже рабочий, но избыточный.
4 sergdi
 
06.04.12
11:05
(3) в том и дело что код нерабочий
5 Cube
 
06.04.12
11:06
(4) Ты (2) попробуй.
6 sergdi
 
06.04.12
11:07
(5) это работает но тогда только одна группа других нет
7 Cube
 
06.04.12
11:15
ПапкаКлиенты = Справочники.Контрагенты.НайтиПоКоду("000000001");
спрКонтр = Справочники.Контрагенты.Выбрать(ПапкаКлиенты);
Пока спрКонтр.Следующий() Цикл    
       текКонтр = спрКонтр.Ссылка;
       прервать;
КонецЦикла;
ФормаВыбора = Справочники.Контрагенты.ПолучитьФормуВыбора();  
ФормаВыбора.НачальноеЗначениеВыбора = ТекКонтр;
ФормаВыбора.Открыть();
8 Cube
 
06.04.12
11:17
Но лучше так:

ПапкаКлиенты = Справочники.Контрагенты.НайтиПоКоду("000004237");
спрКонтр = Справочники.Контрагенты.Выбрать(ПапкаКлиенты);
текКонтр = ?(спрКонтр.Следующий(), спрКонтр.Ссылка, ПапкаКлиенты);
ФормаВыбора = Справочники.Контрагенты.ПолучитьФормуВыбора();  
ФормаВыбора.НачальноеЗначениеВыбора = ТекКонтр;
ФормаВыбора.Открыть();
9 sergdi
 
06.04.12
11:21
(8) Благодарю