Сделал так:

//Добираемся до нижнего уровня в процедуре ПередСворачиванием()

Процедура СписокНоменклатурыПередСворачиванием(Элемент, Строка, Отказ)
   Стр = Строка;
   Пока Стр.Строки.Количество() > 0 Цикл
       Стр = Стр.Строки[0];
   КонецЦикла;
   СвернутьВсеУровни(Стр);  //Тут вызываем рекурсивную функцию
КонецПроцедуры

Процедура СвернутьВсеУровни(Стр,Строка = Неопределено)
   Если Не Стр = Строка Тогда
       Если Не Стр.Строки.Количество() = 0 Тогда
           ЭлементыФормы.СписокНоменклатуры.Свернуть(Стр);
       КонецЕсли;
       Если Не Стр.Родитель = Неопределено Тогда
           СвернутьВсеУровни(Стр.Родитель);
       КонецЕсли;
       КонецЕсли;
КонецПроцедуры

Получается зацикливание, когда сворачиваем - вызывается процедура ПередСворачиванием() )))), подскажите как реализовать?

выставляй флаг и игнорируй ПередСворачиванием

(1) ага, спасибо, уже и сам допер. Главное кому-то описать описать задачу, и сразу сам начинаешь понимать)))

50% ответа содержится в правильно заданном вопросе...