УТ11, раскрасить таб часть документа по условию

Я работаю на предприятии, где стоит УТ11. Внешних привлекать не разрешают, допиливаю сам. в данный момент долблюсь - не могу раскрасить таб часть документа по условию. Задача - подключиться через Аммии Админ, раскрасить, дать краткие комментарии, советы для понимания.

В модуле формы документа такая процедурка запускается из ПриСозданииНаСервере. Не работает

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

ЭлементОформления = ЭтаФорма.УсловноеОформление.Элементы.Добавить();
ЭлементОтбора = ЭлементОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.АлкогольнаяПродукция");
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
ЭлементОтбора.ПравоеЗначение= Спис;
ЭлементОтбора.Использование = Истина;

Эл = ЭлементОформления.Оформление.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ЦветФона"));
Эл.Значение= WebЦвета.Коралловый;
Эл.Использование = Истина;