Не могу получить родителя верхнего уровня
Доброго времени суток всем читающим! Люди помогите разобраться с проблемкой, пишу внешнюю обработку по выгрузке из 1с 7.7 Рарус в SetRetail 10, выгружается номенклатура по остаткам на точку актуальности. Все заполняется кроме родителя верхнего уровня, делаю вот так:
в отладчике ЗапросОст.Номенклатура отображается корректно и всех родителей можно проследить, а вот ВерхРодитель.Код и ВерхРодитель.Наименование пустые. Что я делаю не так?
ВерхРодитель =ЗапросОст.Номенклатура;
Пока ПустоеЗначение(ВерхРодитель.Родитель) = 0 Цикл
ВеткаРодитель = ВеткаГруппа.СоздатьПодчиненныйЭлемент("parent-group");
ВеткаРодитель.УстановитьАтрибут("id", ВерхРодитель.Код);
ВеткаРодительИмя = ВеткаРодитель.СоздатьПодчиненныйЭлемент("name");
ВеткаРодительИмя.Значение = ВерхРодитель.Наименование;
КонецЦикла;в отладчике ЗапросОст.Номенклатура отображается корректно и всех родителей можно проследить, а вот ВерхРодитель.Код и ВерхРодитель.Наименование пустые. Что я делаю не так?
Найденные решения
можно использовать Справочник.Уровень
Этот код использован мной неоднократно при написании различных отчетов в 1с 7.7.
Спр=СздатьОъект("Справочник.Номенклатура");
Спр.НайтиЭлемент (СвТмп);
Уров=Спр.Уровень();
Если Уров>1 Тогда
Пока Уров<>1 Цикл
Спр.НайтиЭлемент(Спр.Родитель);
ЗначРодитель=Спр.Наименование;
Если Спр.ЭтоГруппа()=1 Тогда
Грп=ЗначРодитель;
КонецЕсли;
Сообщить("Родитель="+Грп); //Грп - это то, что вам нужно (наименование родителя)
Уров=Уров-1;
КонецЦикла;
КонецЕсли;
ПоказатьЭтот код использован мной неоднократно при написании различных отчетов в 1с 7.7.
Остальные ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
(1)
Если саму номенклатуру из ЗапросОст.Номенклатура не надо включать, то первый оператор заменить на:
ВерхРодитель =ЗапросОст.Номенклатура;
Пока ВерхРодитель.Выбран() Цикл
ВеткаРодитель = ВеткаГруппа.СоздатьПодчиненныйЭлемент("parent-group");
ВеткаРодитель.УстановитьАтрибут("id", ВерхРодитель.Код);
ВеткаРодительИмя = ВеткаРодитель.СоздатьПодчиненныйЭлемент("name");
ВеткаРодительИмя.Значение = ВерхРодитель.Наименование;
ВерхРодитель =ВерхРодитель.Родитель;
КонецЦикла;Если саму номенклатуру из ЗапросОст.Номенклатура не надо включать, то первый оператор заменить на:
ВерхРодитель =ЗапросОст.Номенклатура.Родитель;
Но в отладке показывает, что есть значения. сделал вот так
ВерхРодитель = ЗапросОст.Номенклатура;
Если ВерхРодитель.Выбран() = 0 Тогда
ВерхРодитель =ВерхРодитель.Родитель;
ВеткаРодитель = ВеткаГруппа.СоздатьПодчиненныйЭлемент("parent-group");
ВеткаРодитель.УстановитьАтрибут("id", ВерхРодитель.Код);
ВеткаРодительИмя = ВеткаРодитель.СоздатьПодчиненныйЭлемент("name");
ВеткаРодительИмя.Значение = ВерхРодитель.Наименование;
КонецЕсли;
можно использовать Справочник.Уровень
Этот код использован мной неоднократно при написании различных отчетов в 1с 7.7.
Спр=СздатьОъект("Справочник.Номенклатура");
Спр.НайтиЭлемент (СвТмп);
Уров=Спр.Уровень();
Если Уров>1 Тогда
Пока Уров<>1 Цикл
Спр.НайтиЭлемент(Спр.Родитель);
ЗначРодитель=Спр.Наименование;
Если Спр.ЭтоГруппа()=1 Тогда
Грп=ЗначРодитель;
КонецЕсли;
Сообщить("Родитель="+Грп); //Грп - это то, что вам нужно (наименование родителя)
Уров=Уров-1;
КонецЦикла;
КонецЕсли;
ПоказатьЭтот код использован мной неоднократно при написании различных отчетов в 1с 7.7.
