Как записать всех родителей элемента

(25) m-serg74, спасибо дорогой

(91) AnryMc, я написал "+ 100 баллов", а не "+ 100 плюсов" ;-)

(86) m-serg74,
Процедура НСИ_ЦБНажатие(Элемент) экспорт
Если ЭлементыФормы.Наименование.Значение="" Тогда возврат
//
КонецЕсли;

ВнешниеОбработкиСправочник=Справочники.ВнешниеОбработки;
Выборка=ВнешниеОбработкиСправочник.НайтиПоНаименованию("Поиск контрагентов");
Имя="Поиск контрагентов";
Расширение=".epf";
ДвДанные=Выборка.ХранилищеВнешнейОбработки.Получить();
ПолныйПуть=КаталогВременныхФайлов()+имя+Расширение;
ДвДанные.записать(ПолныйПуть);
Форма=ВнешниеОбработки.ПолучитьФорму(ПолныйПуть);


//Форма=ВнешниеОбработки.ПолучитьФорму("\\srv-vzp\BDocs\ЖАВПоискВОсновнойБазеДерево.epf");
Форма.ТекущийТекст=Строка(ЭлементыФормы.Наименование.Значение);
ИмяСправочника=Форма.ПолучениеНазванияСправочника(ЭтотОбъект.Метаданные().Имя);
ОткрытьФормумодально(форма,ПолныйПуть);
//КонецЦикла;
//ЭлементыФормы.Наименование.Значение=Форма.НЗ;

ЭлементыФормы.Наименование.Значение=Форма.НЗ;
//ЭлементыФормы.код=Форма.код1;
НаименованиеПриИзменении(Форма.НЗ);
//Элемент.Записать();
//ссФЛ = Элемент.Ссылка;
//Отказ=Ложь;



//ссФЛ = Справочники.ФизическиеЛица.ПолучитьСсылку();
//ПриЗаписи(Отказ);
Выполнить("ЭтотОбъект.УстановитьСсылкуНового(Справочники.Контрагенты.ПолучитьСсылку(Новый УникальныйИдентификатор(Форма.УУИД)))");
//НоваяСсылка = Справочники.ФизическиеЛица.ПолучитьСсылку(Новый УникальныйИдентификатор(Форма.УУИД));
ЭтотОбъект.УстановитьСсылкуНового(Справочники.Контрагенты.ПолучитьСсылку(Новый УникальныйИдентификатор(Форма.УУИД)));

ССФЛ=ЭтотОбъект.Ссылка;
отказ=ложь;
СФЛЦБ=форма.СФЛ;
СФЛЦБСсылка=СФЛЦБ.Ref;
ЭтотОбъект.ОбменДанными.Загрузка=истина;
////рабртаем с группами-вариант №3
////Верхний(СФЛЦБ)

////рабртаем с группами-вариант №1
Запрос = глСоединениеСЦБ.NewObject("Запрос");
Запрос.УстановитьПараметр("Ссылка", СФЛЦБ);
//Запрос.УстановитьПараметр("СписокНоменклатур", <СписокНоменклатур>); //Контрагент
Запрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка
|ПОМЕСТИТЬ РодителиВерхнегоУровня
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.Родитель.Ссылка ЕСТЬ NULL
|;
|
|////////////////////////////////////////////////////////////­////////////////////
|
|ВЫБРАТЬ
| Контрагенты.Ссылка,
| РодителиВерхнегоУровня.Ссылка КАК Ссылка1,
| РодителиВерхнегоУровня.Ссылка.код КАК Ссылка12,
| Родитель КАК Ссылка2,
| Родитель.Родитель КАК Ссылка3,
| Родитель.Родитель.родитель КАК Ссылка4
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РодителиВерхнегоУровня КАК РодителиВерхнегоУровня
| ПО (Контрагенты.Родитель = РодителиВерхнегоУровня.Ссылка
| ИЛИ Контрагенты.Родитель.Родитель = РодителиВерхнегоУровня.Ссылка
| ИЛИ Контрагенты.Родитель.Родитель.Родитель = РодителиВерхнегоУровня.Ссылка
| ИЛИ Контрагенты.Родитель.Родитель.Родитель.Родитель = РодителиВерхнегоУровня.Ссылка
| ИЛИ Контрагенты.Родитель.Родитель.Родитель.Родитель.Родитель = РодителиВерхнегоУровня.Ссылка)
|ГДЕ
| Контрагенты.Ссылка В(&Ссылка)
|";
РезультатЗапроса = Запрос.Выполнить().Выбрать();
Пока РезультатЗапроса.Следующий() Цикл
НГРСФЛ1=РезультатЗапроса.Ссылка1.Description;
НГРСФЛСсылка1=РезультатЗапроса.Ссылка1;
Сообщить("группа1 "+НГРСФЛ1+НГРСФЛСсылка1);
Если РезультатЗапроса.Ссылка2<>null тогда
НГРСФЛ2=РезультатЗапроса.Ссылка2.Description;
НГРСФЛСсылка2=РезультатЗапроса.Ссылка2;
иначе прервать
КонецЕсли;
Сообщить("группа2 "+НГРСФЛ2+НГРСФЛСсылка2);
Если РезультатЗапроса.Ссылка3<>null тогда
НГРСФЛ3=РезультатЗапроса.Ссылка3.Description;
НГРСФЛСсылка3=РезультатЗапроса.Ссылка3;
иначе прервать
КонецЕсли;
Сообщить("группа3 "+НГРСФЛ3+НГРСФЛСсылка3);
Если РезультатЗапроса.Ссылка4<>null тогда
НГРСФЛ4=РезультатЗапроса.Ссылка4.Description;
НГРСФЛСсылка4=РезультатЗапроса.Ссылка4;
иначе прервать
КонецЕсли;
Сообщить("группа4 "+НГРСФЛ4+НГРСФЛСсылка3);
КонецЦикла;
//////Проверка на существование групп
ЭтотОбъект.Записать();
ГруппаТут=Справочники.Контрагенты.НайтиПоНаименованию(НГРСФЛ1);
Если ЗначениеЗаполнено(ГруппаТут) и ГруппаТут.ЭтоГруппа=Истина тогда
ЭтотОбъект.Родитель=НГРСФЛСсылка1;
иначе
НоваяГруппа = Справочники.Контрагенты.СоздатьГруппу();
НоваяГруппа.Наименование = НГРСФЛ1;
НоваяГруппа.Записать();
КонецЕсли;

(16) Программист 1С, да спасибо конечно пригодиться но помоему не в моем случае. Я же в начале задачу описал. Просто столько методов прогнал уже планка едет. название родителей я вынимаю родителя верхнего создаю. а дальше ступор созадь родителей ниже первой не получается т.е. элемент 1 находится в групее 2 и подгруппе 3 т.е родителями являются группа2 и группа3. группу2 я создаю и присваиваю. а группу4 и далее никак

(34) mentozavr,
так пиши
ЭтотОбъект.Родитель = .....

нафига ЭтаФорма нужна