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

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

Платформа 1С v7.7

1. PhoenixAOD 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.

Остальные ответы

В избранное Подписаться на ответы

Свернуть все

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.

7. PhoenixAOD 61 11.01.17 01:46 Сейчас в теме

(6) Спасибо) очень удобно)

Оставьте свое сообщение

E-mail:

Вопросы с вознаграждением

Получение данных (1) 0.2 $m Dev БП3.0	1	вчера, 20:41 suuuumcaa
Основная таблица динамического списка задана неверно (2) 0.14 $m Dev	2	вчера, 15:58 Symbiat
Как в вычисляемом поле скд округлить число? (30) 1 $m Dev	30	вчера, 10:58 Shecurok
Отчет о розн продажах из 1С унф в 1С унф (6) 1 $m Обмен УНФ	6	15.04.2021 user1523568
Сумма задолженности меньше суммы документа оплаты. Обратите внимание на сформированные проводки! (0) 1 $m БУ	0	15.04.2021 mvl_dimir
При нажатие на кнопку Сформировать (5) 0.2 $m Dev	5	15.04.2021 user1087014
Анкетирование и проведение опросов в ЗУП КОРП (HR - аналитика) (0) 0.1 $m Зарплата	0	15.04.2021 Raskad
Обработка чистки базы. Удаление лишних организаций. Нужна помощь. (21) 9.5 $m Testing БП3.0	21	15.04.2021 Kuzya_brаtsk
Утверждение документов ЗУП 3.1 (9) 0.2 $m Зарплата ЗУП3.x	9	14.04.2021 Verdad
Перечисление алиментов (как физлицу напрямую так и в УФК) параметры платежей (КБК, ОКТМО) (2) 0.1 $m БУ	2	14.04.2021 Raskad
1с Розница РМК поиск по штрихкоду (11) 0.07 $m Торговля Розница v8	11	14.04.2021 Nubsdale
Как добавить номер строки в РМК Розница 2.4? (8) 0.3 $m Dev	8	14.04.2021 koden@list.ru
Передача материалов в эксплуатацию УПП с 2021 (5) 0.2 $m Dev УПП1	5	14.04.2021 user824140
Система компоновки данных (медленный вывод в коллекцию значений при РСВ) (4) 1 $m Dev УПП1 v8::СКД	4	13.04.2021 StAlexei
Отчёт СКД. Данные выводятся не в те ту строку. (2) 0.9 $m Dev УТ11 v8 ИТ-компания 1С	2	13.04.2021 user1500067
Путевые листы в БП 3.0 (11) 0.5 $m TMS БП3.0	11	12.04.2021 German_Tagil
Доработать запрос отчета в СКД для регистра сведений Цены Номенклатуры (8) 0.5 $m Dev	8	08.04.2021 rosenword
Курсовые разницы в РБ по 159 указу (0) 2 $m БУ 1cv8.cf БП1.6 Беларусь 1С БУ Бухгалтер Программист Вопрос	0	07.04.2021 keyn5565`
Доступ в 1С по web-сервису. Внутренний и внешний сервера. (21) 0.44 $m Admin v8	21	06.04.2021 TVA_11
Не отображается общая параметризуемая команда в списке глобальных команд на форме элемента (1) 0.1 $m Dev	1	06.04.2021 Symbiat