Имя: Пароль:
1C
 
Как программно перенести в другую группу?
0 Твоя_Совесть
 
22.09.06
13:53
Здравствуйте!
Сильно подозреваю, что было уже, но поиск не работает...
Как перенести элемент справочника в другую группу программно?
Спасибо!
1 Хемуль
 
22.09.06
13:53
Поиск работает в яндексе
2 AeDen
 
22.09.06
13:54
3 airyashov
 
22.09.06
13:54
Родитель
4 Эльниньо
 
22.09.06
13:54
(0) Ты не моя совесть.
ИспользоватьРодителя()...
5 igork1966
 
22.09.06
14:00
Спр.УстановитьАтрибут("Родитель",Группа);
Спр.Записать();
6 Painter
 
22.09.06
14:06
Спр.Родитель = Группа;
Спр.Записать();
7 Voffka
 
22.09.06
14:17
Процедура Переместить(НаимКуда = "")
   
   Если НаимКуда = "" Тогда
       Сообщить("Не указали куда перемещаем");
       Возврат;
   КонецЕсли;
   
   Спр = СоздатьОбъект("Справочник."+ Товар.Вид());
   
   //Ищем во всем справочнике полное наименование
   Если Спр.НайтиПоНаименованию(НаимКуда,0,1) = 0 Тогда
       Сообщить("Не найдена группа с наименованием " + НаимКуда + " куда хотим переместить");
       Возврат;
   КонецЕсли;
   Родитель = Спр.ТекущийЭлемент();
   
   Если Спр.НайтиЭлемент(Товар) = 0 Тогда
       Сообщить("Не найден перемещаемый элемнт");
       Возврат;
   КонецЕсли;
   Спр.Родитель = Родитель;
   Спр.Записать();
КонецПроцедуры    // ПереместитьПереместить()