Имя: Пароль:
1C
1С v8
Как изменить иерархию дерева значений?
0 Stim
 
01.10.12
16:08
Можно ли изменить интерактивно иерархию дерева значений на обычных формах? перетащить мышкой родителя к подчиненному и тд. пока что-то не получается. это возможно вообще?
1 Alex S D
 
01.10.12
16:09
можно, только все вручную прописывать..
2 DrShad
 
01.10.12
16:09
возможно
3 Alex S D
 
01.10.12
16:09
обработкаперетаскивания
4 Maxus43
 
01.10.12
16:09
обработка перетаскивания которая
5 Stim
 
01.10.12
16:16
спс
6 Stim
 
01.10.12
16:20
хм. а как узнать иерархию куда я перемещаю?

Процедура деревоОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
   // Вставить содержимое обработчика.
   
ЧтоПеретаскиваем = Элемент.ТекущиеДанные.Показатель;

КудаПеретаскиваем =

КонецПроцедуры
7 Maxus43
 
01.10.12
16:23
Курим простые предметы разработки, в частности начало всего это безобразия выглядит так:

Процедура НоменклатураНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)

   // Получить значение, переданное системой.
   Значение = ПараметрыПеретаскивания.Значение;

   // В любом случае значением будет массив.
   МассивЗначений = Новый Массив;

   // Если перетаскивается группа, то в массив записываем входящие в нее элементы.
   Если Значение.ЭтоГруппа Тогда
       Выборка = Справочники.Номенклатура.Выбрать(Значение);

           Пока Выборка.Следующий() Цикл

               Если Не Выборка.ЭтоГруппа Тогда
                   МассивЗначений.Добавить(Выборка.Ссылка);
                   
               КонецЕсли;
               
           КонецЦикла;    

   Иначе    
       МассивЗначений.Добавить(Значение);
       
   КонецЕсли;    

   // Заполненный массив записываем в параметры.
   ПараметрыПеретаскивания.Значение = МассивЗначений;

КонецПроцедуры
(с)
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший