|
Функция ДобавитьРазвернутыеУровни(Массив)
Массив = Новый Массив;
ЭлементыДерева = СписокЗадачОтМеня.ПолучитьЭлементы();
ВыборСписокЗадач();
Для Каждого ЭлементДерева Из ЭлементыДерева Цикл
ЭлементСтроки = ЭлементДерева.ПолучитьИдентификатор();
Если Элементы.СписокЗадачОтМеня.Развернут(ЭлементСтроки) = Истина Тогда
Массив.Добавить(ЭлементСтроки);
КонецЕсли;
Возврат Массив;
КонецЦикла;
КонецФункции
&НаКлиенте
Процедура РазвернутьДоЗаданногоУровня()
ЭлементыДерева = СписокЗадачОтМеня.ПолучитьЭлементы();
ДобавитьРазвернутыеУровни(Массив);
Для каждого ЭлементДерева из ЭлементыДерева Цикл
ЭлементСтроки = ЭлементДерева.ПолучитьИдентификатор();
НайденнаяСтрока = Массив.Найти(ЭлементСтроки);
Если Не НайденнаяСтрока = Неопределено тогда
Элементы.СписокЗадачОтМеня.Развернуть(НайденнаяСтрока);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
|