Раскраска справочника номенклатура

Книга знаний

1С:Предприятие / Объекты конфигурации / Справочники

Раскраска справочника номенклатура

Необходимо при открытии справочника номенклатура, если товар есть в остатках то он выделяется синим
<br>цветом.

Автор статьи:
Последняя редакция №1 от 23.09.11
URL: http://kb.mista.ru/article.php?id=851

Процедура СписокПриВыводеСтроки

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТоварыОрганизаций.КоличествоОстаток КАК Остаток
|ИЗ
| РегистрНакопления.ТоварыОрганизаций.Остатки КАК ТоварыОрганизаций
|ГДЕ
| ТоварыОрганизаций.Номенклатура.Наименование = &Номенклатура";
Запрос.Параметры.Вставить("Номенклатура",ДанныеСтроки.Наименование);

Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Если Выборка.Остаток < 0 Тогда
ОформлениеСтроки.Ячейки.Наименование.ЦветТекста = WebЦвета.Красный;
Иначе
ОформлениеСтроки.Ячейки.Наименование.ЦветТекста = WebЦвета.Синий;
ОформлениеСтроки.Ячейки.Наименование.ЦветТекста = WebЦвета.Белый;
КонецЕсли;
КонецЦикла

Помогите оптимизировать тормозит справочник страшно