0
djekting
19.06.13
✎
11:49
|
День добрый.
Вот ковыряюсь с перетаскиванием данных из дерева в дерево
Первый код работает внутри таблицы (ДеревоЗ). т.е. можно тягать данные со всеми узлами.
Второй код позволяет перетянуть и (ДеревоЗПодбор) в (ДеревоЗ).
Задача совместить эти 2 куска кода через условие Если-Иначе, не понимаю к чему привязаться... при перетягивании значения в отладчике не нашел наследуемой формы....
///**первый//////////////////////////////////
&НаКлиенте
Процедура ДеревоЗПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
СтандартнаяОбработка = Ложь;
РеквизитДерево = ЭтаФорма["ДеревоЗ"];
ИДПриемник = Строка;
Приемник = ?(ИДПриемник = Неопределено, Неопределено, РеквизитДерево.НайтиПоИдентификатору(ИДПриемник));
Для Каждого ИДИсточник Из ПараметрыПеретаскивания.Значение Цикл
Источник = РеквизитДеревоЗПодбор.НайтиПоИдентификатору(ИДИсточник);
НоваяСтрока = СкопироватьСтрокуДерева(РеквизитДерево, Приемник, Источник);
КонецЦикла;
КонецПроцедуры
.............
///**второй//////////////////////////////////
&НаКлиенте
Процедура ДеревоЗПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
СтандартнаяОбработка = Ложь;
РеквизитДерево = ЭтаФорма["ДеревоЗ"];
РеквизитДеревоЗПодбор = ЭтаФорма["ДеревоЗПодбор"];
ИДПриемник = Строка;
Приемник = ?(ИДПриемник = Неопределено, Неопределено, РеквизитДерево.НайтиПоИдентификатору(ИДПриемник));
Для Каждого ИДИсточник Из ПараметрыПеретаскивания.Значение Цикл
Источник = ИДИсточник;
НоваяСтрока = СкопироватьСтрокуДерева(РеквизитДерево, Приемник, Источник);
КонецЦикла;
КонецПроцедуры
..............
|
|