Открытие группы при подборе
☑
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) Благодарю
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс