&НаКлиенте
Процедура СвернутьДеревоПоиск()
НайденоПоиском = 0;
Состояние("Сворачивание дерева",,, БиблиотекаКартинок.ДлительнаяОперация48);
КоллекцияЭлементов = ДеревоОстатков.ПолучитьЭлементы();
Для Каждого ЭлементКоллекции Из КоллекцияЭлементов Цикл
ВлЭлементКоллекции = ЭлементКоллекции.ПолучитьЭлементы();
Если ВлЭлементКоллекции.Количество() > 0 Тогда
Сворачивать = Истина;
Для Каждого ВлЭл Из ВлЭлементКоллекции Цикл
СтрКомментарий = ВлЭл.Комментарий;
Если СтрНайти(СтрКомментарий, СокрЛП(ПоискКоментарий)) > 0 Тогда
Сворачивать = Ложь;
ВлЭл.Красим = Истина;
НайденоПоиском = НайденоПоиском + 1;
КонецЕсли;
КонецЦикла;
Если Сворачивать Тогда
Элементы.ДеревоОстатков.Свернуть(ЭлементКоллекции.ПолучитьИдентификатор());
Иначе
Элементы.ДеревоОстатков.Развернуть(ЭлементКоллекции.ПолучитьИдентификатор(), Истина);
КонецЕсли;
КонецЕсли;
КонецЦикла;
ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Найдено = " + ?(НайденоПоиском = 0, "НИЧЕГО", Формат(НайденоПоиском, "ЧЦ=3")));//сообщение пользователю
КонецПроцедуры