1С 8.x : Раскрасим разными цветами, взависимости от значения, ячейки списка документов, справочника

 

Процедура ПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

//Раскрасим ячейку статус в разные цвета взависимости от значения

если сокрЛП(ДанныеСтроки.статус) = "Новая" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(255, 250, 207);

иначеесли СокрЛП(ДанныеСтроки.статус) = "Выполнено" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(155, 255, 155);

иначеесли СокрЛП(ДанныеСтроки.статус) = "В работе" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(200, 225, 255);

иначеесли СокрЛП(ДанныеСтроки.статус) = "На согласовании" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(255, 225, 181);

иначеесли СокрЛП(ДанныеСтроки.статус) = "Рассмотрена BH" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(255, 153, 0);

иначеесли СокрЛП(Лев(ДанныеСтроки.статус,7)) = "Принята" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(218, 255, 218);	

иначеесли СокрЛП(ДанныеСтроки.статус) = "Удалить (Ошибочна!)" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(255, 0, 0);

иначеесли СокрЛП(ДанныеСтроки.статус) = "Отклонена" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(255, 0, 0);

иначеесли СокрЛП(ДанныеСтроки.статус) = "Осметить!" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(255, 139, 139);

иначеесли СокрЛП(ДанныеСтроки.статус) = "Осмечена" тогда

	ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(148, 176, 255);

конецесли;		

	

//раскрашивание нескольких ячеек

если ДанныеСтроки.Ссылка.Срочная = истина тогда

	ЦветСрочной=Новый Цвет(255, 227, 227);

	ОформлениеСтроки.Ячейки.Номер.ЦветФона = ЦветСрочной; 

	ОформлениеСтроки.Ячейки.Дата.ЦветФона = ЦветСрочной;

	ОформлениеСтроки.Ячейки.Автор.ЦветФона = ЦветСрочной;

конецесли;

	

//Вывод картинки

ОформлениеСтроки.Ячейки.Комментарий.ИндексКартинки=1;

если ПустаяСтрока(ДанныеСтроки.Комментарий) тогда

	ОформлениеСтроки.Ячейки.Комментарий.ОтображатьКартинку =ложь;

	ОформлениеСтроки.Ячейки.Комментарий.ОтображатьТекст=ложь;

иначе

	ОформлениеСтроки.Ячейки.Комментарий.ОтображатьКартинку =истина;

	ОформлениеСтроки.Ячейки.Комментарий.ОтображатьТекст=ложь;

конецесли;

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