Имя: Пароль:
1C
1С v8
Перетягивание между 2мя деревьями
0 djekting
 
19.06.13
11:49
День добрый.
Вот ковыряюсь с перетаскиванием данных из дерева в дерево
Первый код работает внутри таблицы (ДеревоЗ). т.е. можно тягать данные со всеми узлами.
Второй код позволяет перетянуть и (ДеревоЗПодбор) в (ДеревоЗ).
Задача совместить эти 2 куска кода через условие Если-Иначе, не понимаю к чему привязаться... при перетягивании значения в отладчике не нашел наследуемой формы....

///**первый//////////////////////////////////
&НаКлиенте
Процедура ДеревоЗПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
СтандартнаяОбработка = Ложь;

РеквизитДерево = ЭтаФорма["ДеревоЗ"];

ИДПриемник = Строка;
Приемник = ?(ИДПриемник = Неопределено, Неопределено, РеквизитДерево.НайтиПоИдентификатору(ИДПриемник));
Для Каждого ИДИсточник Из ПараметрыПеретаскивания.Значение Цикл
 Источник = РеквизитДеревоЗПодбор.НайтиПоИдентификатору(ИДИсточник);
 НоваяСтрока = СкопироватьСтрокуДерева(РеквизитДерево, Приемник, Источник);
КонецЦикла;
КонецПроцедуры
.............


///**второй//////////////////////////////////
&НаКлиенте
Процедура ДеревоЗПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
СтандартнаяОбработка = Ложь;

РеквизитДерево = ЭтаФорма["ДеревоЗ"];
РеквизитДеревоЗПодбор = ЭтаФорма["ДеревоЗПодбор"];

ИДПриемник = Строка;
Приемник = ?(ИДПриемник = Неопределено, Неопределено, РеквизитДерево.НайтиПоИдентификатору(ИДПриемник));
Для Каждого ИДИсточник Из ПараметрыПеретаскивания.Значение Цикл
 Источник = ИДИсточник;
 НоваяСтрока = СкопироватьСтрокуДерева(РеквизитДерево, Приемник, Источник);
КонецЦикла;
КонецПроцедуры
..............
1 djekting
 
19.06.13
11:52
поправка - ....наследуемого элемента формы*
2 djekting
 
19.06.13
12:32
подниму
3 kosts
 
19.06.13
12:34
При начале перетаскивания в параметры можно добавлять свои свойства. Затем в перетаскивании их можно прочитать.