&НаКлиенте

Процедура ОбработатьСобытиеВыполненияТестов(Знач ИмяСобытия, Знач Параметр) Экспорт

Если ИмяСобытия = Объект.ВозможныеСобытия.ВыполненТестовыйМетод Тогда

Если Параметр.Состояние = Объект.СостоянияТестов.НеРеализован Тогда

Если Элементы.ИндикаторВыполнения.ЦветРамки <> WebЦвета.Красный Тогда

Элементы.ИндикаторВыполнения.ЦветРамки = WebЦвета.Золотой;

КонецЕсли;

ИначеЕсли Параметр.Состояние = Объект.СостоянияТестов.Сломан

ИЛИ Параметр.Состояние = Объект.СостоянияТестов.НеизвестнаяОшибка Тогда

Элементы.ИндикаторВыполнения.ЦветРамки = WebЦвета.Красный;

КонецЕсли;

ИндикаторВыполнения = ИндикаторВыполнения + 1;

КонецЕсли;

ОбновитьОтображениеДанных();

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