Форум Программирование Общие вопросы программирования (Dev)

Не могу получить родителя верхнего уровня

Платформа 1С v7.7
1. 61 22.12.16 09:36 Сейчас в теме
Доброго времени суток всем читающим! Люди помогите разобраться с проблемкой, пишу внешнюю обработку по выгрузке из 1с 7.7 Рарус в SetRetail 10, выгружается номенклатура по остаткам на точку актуальности. Все заполняется кроме родителя верхнего уровня, делаю вот так: 
	ВерхРодитель =ЗапросОст.Номенклатура;	
			Пока ПустоеЗначение(ВерхРодитель.Родитель) = 0 Цикл
				ВеткаРодитель = ВеткаГруппа.СоздатьПодчиненныйЭлемент("parent-group");
				ВеткаРодитель.УстановитьАтрибут("id", ВерхРодитель.Код);
				ВеткаРодительИмя = ВеткаРодитель.СоздатьПодчиненныйЭлемент("name");
				ВеткаРодительИмя.Значение = ВерхРодитель.Наименование;
			КонецЦикла;

в отладчике ЗапросОст.Номенклатура отображается корректно и всех родителей можно проследить, а вот ВерхРодитель.Код и ВерхРодитель.Наименование пустые. Что я делаю не так?
+ – Ответить
Найденные решения
6. Sokar 09.01.17 15:48 Сейчас в теме
можно использовать Справочник.Уровень 

Спр=СздатьОъект("Справочник.Номенклатура");
Спр.НайтиЭлемент (СвТмп);
Уров=Спр.Уровень();
	Если Уров>1 Тогда
		Пока Уров<>1 Цикл
	   		Спр.НайтиЭлемент(Спр.Родитель);
			ЗначРодитель=Спр.Наименование;
			Если Спр.ЭтоГруппа()=1 Тогда
				Грп=ЗначРодитель;
			КонецЕсли;
			Сообщить("Родитель="+Грп); //Грп - это то, что вам нужно (наименование родителя)
			Уров=Уров-1;
		КонецЦикла;
	КонецЕсли;
Показать

Этот код использован мной неоднократно при написании различных отчетов в 1с 7.7.
kulkrise; +1 – Ответить
Остальные ответы
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
3. YNik 22.12.16 20:56 Сейчас в теме
(1) 
            ВерхРодитель =ЗапросОст.Номенклатура;    
            Пока ВерхРодитель.Выбран() Цикл
                ВеткаРодитель = ВеткаГруппа.СоздатьПодчиненныйЭлемент("parent-group");
                ВеткаРодитель.УстановитьАтрибут("id", ВерхРодитель.Код);
                ВеткаРодительИмя = ВеткаРодитель.СоздатьПодчиненныйЭлемент("name");
                ВеткаРодительИмя.Значение = ВерхРодитель.Наименование;
                ВерхРодитель =ВерхРодитель.Родитель;    
            КонецЦикла;

Если саму номенклатуру из ЗапросОст.Номенклатура не надо включать, то первый оператор заменить на: 
ВерхРодитель =ЗапросОст.Номенклатура.Родитель;
+ – Ответить
2. minarenko 22.12.16 12:29 Сейчас в теме
Используй Выбран() вместо ПустоеЗначение(). ПустоеЗначение глючит в некоторых случаях.
+ – Ответить
4. PhoenixAOD 61 23.12.16 01:59 Сейчас в теме
Так же выдает пустые строки
+ – Ответить
5. PhoenixAOD 61 23.12.16 02:12 Сейчас в теме
Но в отладке показывает, что есть значения. сделал вот так 
ВерхРодитель = ЗапросОст.Номенклатура;	
			Если ВерхРодитель.Выбран() = 0 Тогда
				ВерхРодитель =ВерхРодитель.Родитель;
				ВеткаРодитель = ВеткаГруппа.СоздатьПодчиненныйЭлемент("parent-group");
				ВеткаРодитель.УстановитьАтрибут("id", ВерхРодитель.Код);
				ВеткаРодительИмя = ВеткаРодитель.СоздатьПодчиненныйЭлемент("name");
				ВеткаРодительИмя.Значение = ВерхРодитель.Наименование; 
			КонецЕсли;
+ – Ответить
6. Sokar 09.01.17 15:48 Сейчас в теме
можно использовать Справочник.Уровень 

Спр=СздатьОъект("Справочник.Номенклатура");
Спр.НайтиЭлемент (СвТмп);
Уров=Спр.Уровень();
	Если Уров>1 Тогда
		Пока Уров<>1 Цикл
	   		Спр.НайтиЭлемент(Спр.Родитель);
			ЗначРодитель=Спр.Наименование;
			Если Спр.ЭтоГруппа()=1 Тогда
				Грп=ЗначРодитель;
			КонецЕсли;
			Сообщить("Родитель="+Грп); //Грп - это то, что вам нужно (наименование родителя)
			Уров=Уров-1;
		КонецЦикла;
	КонецЕсли;
Показать

Этот код использован мной неоднократно при написании различных отчетов в 1с 7.7.
kulkrise; +1 – Ответить
7. PhoenixAOD 61 11.01.17 01:46 Сейчас в теме
(6) Спасибо) очень удобно)
+ – Ответить
Оставьте свое сообщение
Вопросы с вознаграждением
oData: получить проводки Результат проведения документа - Бухгалтерский и налоговоый учет  1 $m Обмен БП2.0
Путевые листы в БП 3.0  0.5 $m TMS БП3.0
Тонкая настройка СКД (добавление строки)  1.49 $m Dev
Проблема с отчётом в СКД  0.8 $m Dev УТ11 v8 ИТ-компания 1С
Доработать запрос отчета в СКД для регистра сведений Цены Номенклатуры  0.5 $m Dev
Проблема с универсальным отчетом  1 $m Dev
Как выгрузить список новых созданных контрагентов (создаются программно)  1 $m Dev
Синхронизация УТ 11.4 и БП 3.0, справочник Виды номенклатуры  0.09 $m Обмен БП3.0 УТ11
Курсовые разницы в РБ по 159 указу  2 $m БУ 1cv8.cf БП1.6 Беларусь 1С БУ Бухгалтер Программист Вопрос
Обновление адресного классификатора  0.1 $m Зарплата БП3.0 ЗУП3.x
Доступ в 1С по web-сервису. Внутренний и внешний сервера.  0.44 $m Admin v8
Не отображается общая параметризуемая команда в списке глобальных команд на форме элемента  0.1 $m Dev
Проблема при возврате по безналу бп 3.0  1 $m БУ
Нужна помощь в доработке обработки СБИС  5 $m Dev УТ10
Не указано значение параметра "Тип кода маркировки"  0.15 $m Dev УТ11 Маркировка
Резервы отпусков разница БУ и НУ  1 $m Зарплата ЗУП3.x
Не удалось заблокировать таблицу _NODE15215  0.5 $m Dev ДО УТ11
УТ 10.3. Маркировка. ОСНО + ПСН  3 $m Торговля УТ10 Розничная и сетевая торговля (FMCG) НДС ПСН (патентная система налогообложения) Вопрос
Проверка при обмене  0.16 $m Dev
Не переносится номенклатура в 1с Бухгалтерию  1 $m Торговля Розница