Форум Программирование Общие вопросы программирования (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:

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

Алгоритм распределения элементов по массивам (0) 3.35 $m Dev v8	0	вчера, 23:16 zannv
Синхронизация ЗУП-БП во фреше (1) 0.2 $m Зарплата БП3.0 ЗУП3.x	1	вчера, 22:52 Verdad
Утверждение документов ЗУП 3.1 (1) 0.2 $m Зарплата ЗУП3.x	1	вчера, 22:49 Verdad
Перечисление алиментов (как физлицу напрямую так и в УФК) параметры платежей (КБК, ОКТМО) (1) 0.1 $m БУ	1	вчера, 16:48 Raskad
1с Розница РМК поиск по штрихкоду (8) 0.07 $m Торговля Розница v8	8	вчера, 16:21 Nubsdale
Как добавить номер строки в РМК Розница 2.4? (6) 0.3 $m Dev	6	вчера, 15:25 koden@list.ru
Передача материалов в эксплуатацию УПП с 2021 (5) 0.2 $m Dev УПП1	5	вчера, 14:19 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 (6) 0.5 $m TMS БП3.0	6	12.04.2021 German_Tagil
Доработать запрос отчета в СКД для регистра сведений Цены Номенклатуры (8) 0.5 $m Dev	8	08.04.2021 rosenword
Синхронизация УТ 11.4 и БП 3.0, справочник Виды номенклатуры (4) 0.09 $m Обмен БП3.0 УТ11	4	08.04.2021 Grek_Master
Курсовые разницы в РБ по 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
Проблема при возврате по безналу бп 3.0 (1) 1 $m БУ	1	05.04.2021 seva1405
Нужна помощь в доработке обработки СБИС (12) 5 $m Dev УТ10	12	05.04.2021 al_zzz
Не указано значение параметра "Тип кода маркировки" (4) 0.15 $m Dev УТ11 Маркировка	4	05.04.2021 user1003434
Резервы отпусков разница БУ и НУ (18) 1 $m Зарплата ЗУП3.x	18	02.04.2021 Romanets
Не удалось заблокировать таблицу _NODE15215 (14) 0.5 $m Dev ДО УТ11	14	01.04.2021 BlinOFF