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

Платформа 1С v7.7 (все механизмы)
1. PhoenixAOD 54 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 54 23.12.16 01:59 Сейчас в теме
Так же выдает пустые строки
+ – Ответить
5. PhoenixAOD 54 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 54 11.01.17 01:46 Сейчас в теме
(6) Спасибо) очень удобно)
+ – Ответить
Оставьте свое сообщение
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.
Вопрос по анализу начисленных налогов и взносов [ПФР] в ЗУП  1 $m ЗарплатаЗУП2.5
Ввод начальных остатков при переходе с ТИС 9.2 на УТ 11.4.5  10 $m ТорговляУТ111С7:ТиС
Вывод данных на макет в отчете  1 $m Dev
Не закрывается период в бухгалтерии 3.0  1 $m БУБП3.0v8v8::БУ
Поступление на расчетный счет по эквайрингу на ЕНВД  1 $m БУБП3.0
Выгрузка остатка отпусков в подписке на событие  1 $m Dev
Обработка заполнения табличных частей заполняет и редактирует таблицу документа в файловой базе - а в Sql базе нет. Куда копать?  1 $m Dev1cv8.cf

Вакансии

Консультант-аналитик 1С
Санкт-Петербург
Полный день
Удаленный ИТ-журналист
Санкт-Петербург
По совместительству
Программист 1С
Санкт-Петербург
зарплата от 100 000 руб.
Полный день
Программист 1С
Санкт-Петербург
зарплата от 130 000 руб. до 150 000 руб.
Полный день