HelpF.pro

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

Код 1C v 8.х
 
Процедура ПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
//Раскрасим ячейку статус в разные цвета взависимости от значения
если сокрЛП(ДанныеСтроки.статус) = "Новая" тогда
ОформлениеСтроки.Ячейки.статус.ЦветФона = Новый Цвет(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;
если ПустаяСтрока(ДанныеСтроки.Комментарий) тогда
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьКартинку =ложь;
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьТекст=ложь;
иначе
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьКартинку =истина;
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьТекст=ложь;
конецесли;
КонецПроцедуры

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/187.html