ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

+7 (495) 223-32-11

Заказать обратный звонок

8 (800) 775-90-01

Бесплатно по России

Получить

Скорую 1С помощь

Получить

Проконсультироваться
со специалистом 1С

Консультироваться

Код 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;
если ПустаяСтрока(ДанныеСтроки.Комментарий) тогда
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьКартинку =ложь;
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьТекст=ложь;
иначе
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьКартинку =истина;
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьТекст=ложь;
конецесли;
КонецПроцедуры


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.