|
Открытие группы при подборе |
☑ |
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) Благодарю
|
|
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн