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

КонецПроцедуры


Процедура РазвернутьДоЗаданногоУровня()
   
   
   ДобавитьРазвернутыеУровни(Массив);

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

   
   
КонецПроцедуры

Процедура РазвернутьДоЗаданногоУровня(Уровень)

а в чем ошибка? :)

ДНК?

(0)Хорош тупить, давай пиши подробнее

Строка зарезервированное слово?

(2) Очевидно "Программа не работает"

(0) ты не пеле. и даже не марадонна. простой код и мимо ворот...