Как сменить владельца в иерархическом справочнике?

KRV_83

03.04.2009 - 10:39

СД = СоздатьОбъект("Справочник.Договоры");
Элементы = СоздатьОбъект("Справочник.Договоры");
СД.ИспользоватьВладельца(СтарыйВладелец);
СД.ВыборГруппы(1);
СД.Выбрать("","");
Элементы.ИспользоватьВладельца(СтарыйВладелец);
Элементы.ИспользоватьРодителя(СД.ТекущийЭлемент());
СД.Владелец = НовыйВладелец;
СД.Записать();
Пока Элементы.ПолучитьЭлемент() = 1 Цикл
Эл = Элементы.ТекущийЭлемент();
Эл.Владелец = НовыйВладелец;
Эл.Записать();
КонецЦикла;

Выдает " Объект не может быть перепозиционирован!"

Код немного корявый

Как сменить владельца у папки и ее элементов?

К списку тем

К списку форумов

Интересные темы

odines.ru

20.04.2024 - 13:31

Смотри также:
Подскажите по списку значений с пометками
Перечисление в ОЛЕ
Модуль на ровном месте стал выдавать ошибку: "Переменная не определена (СуммТаблицаПроизводствРасходов)"

Re: Как сменить владельца в иерархическом справочнике?

roma n

1 - 03.04.2009 - 10:45

вынаешь элементы из папки
Задаешь папке нового владельца
Укладываешь элементы в папку

Re: Как сменить владельца в иерархическом справочнике?

KRV_83

2 - 03.04.2009 - 11:10

неа тоже самое выдает

Для н = 1 по Список.РазмерСписка() Цикл
Эл = Список.ПолучитьЗначение(н,эле);
Эл.Родитель = СД.ТекущийЭлемент();
Эл.Записать();
КонецЦикла;

в третьей строке