Обход Дерева Значений по подуровням

[Funt432286]

Доброго времени суток!

Есть на форме поле дерево значений, оно заполнено уровнями и подуровнями! Когда я обхожу весь список, система просматривает только основной уровень, подуровень обходить не хочет!

Код Выделить Развернуть

Для Каждого Стр Из ТЗ_ПантоныНомераТЗ.Строки Цикл
Если Стр.СсылкаРЗ = ВыбраннаяСтрока.СсылкаРЗ Тогда
Стр.СтатусКраски = "1111";
КонецЕсли;
КонецЦикла;

Подскажите пожалуйста, как просмотреть и уровни и подуровни при обходе?

[fruitella]

Код Выделить Развернуть

СтрокиПервогоУровня = НаименованиеТвоегоДерева.ПолучитьЭлементы();

Для Каждого СтрокаПервогоУровня Из СтрокиПервогоУровня Цикл

СтрокиВторогоУровня = СтрокаПервогоУровня.ПолучитьЭлементы();

Для Каждого СтрокаВторогоУровня Из СтрокиВторогоУровня Цикл

 
КонецЦикла;

//И тд.
КонецЦикла;



[Funt432286]

fruitella, у меня обычное предложение

Код Выделить Развернуть

УрНомерТЗ = ТЗ_Материал.ПолучитьЭлементы();
Для Каждого СтрТЗ Из УрНомерТЗ Цикл
УрПантон = СтрТЗ.ПолучитьЭлементы();
СтрТЗ.СтатусКраски = "1111";
Для Каждого СтрПантон Из УрПантон Цикл
Если СтрПантон.СсылкаРЗ = ВыбраннаяСтрока.СсылкаРЗ Тогда
СтрПантон.СтатусКраски = "1111";
КонецЕсли;
КонецЦикла;
КонецЦикла;

ошибка при отладке

Код Выделить Развернуть

Метод объекта не обнаружен (ПолучитьЭлементы)
{Обработка.МатериальноеОбеспечение.Форма.МатериалСклад.Форма(1035)}: УрНомерТЗ = ТЗ_Материал.ПолучитьЭлементы();


[LexaK]

Funt432286, Можно написать процедуру рекурсивного обхода
(что такое Рекурсия - знаете?)

[Максим75]

Funt432286, ну значит ТЗ_Материал - не данные формы дерево

[LexaK]

а все дерево надо обойти или только одну ветку?

[Funt432286]

LexaK, все дерево и если реквизит совпадет, то его ветку!

[Funt432286]

Максим75, нет, это элемент формы

[LexaK]

Funt432286, вот пример процедуры перебора ВСЕХ элементов дерева по индексу
незвисимо от положения в ветках
(измените условие и свой код вставьте)

Код Выделить Развернуть

&НаКлиенте
Функция НайтиИндексТекущийЗапрос()

лкСмещение = 0;
лкЭлементы = ДеревоЗапросов.ПолучитьЭлементы();
Если лкЭлементы.Количество() > 0 Тогда
лкСмещение = лкЭлементы[0].ПолучитьИдентификатор();
КонецЕсли;

//новый поиск текущего в ДЗ, простой перебор по индексам, На Клиенте, без рекурсии
Для лкИндекс = лкСмещение По лкСмещение + 1000 Цикл //по возможный Максимум элементов
лкСтр = ДеревоЗапросов.НайтиПоИдентификатору(лкИндекс);
Если лкСтр <> Неопределено и лкСтр.ТекущийЗапрос = Истина Тогда
Возврат лкИндекс;
КонецЕсли;
КонецЦикла;
//ни чего не нашли
Возврат Неопределено;

КонецФункции


[Funt432286]

LexaK, в обычных приложениях нет ПолучитьЭлементы(); к сожалению