helpf.pro
Регистрация
 0 
Распечатать

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

Код 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;
если ПустаяСтрока(ДанныеСтроки.Комментарий) тогда
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьКартинку =ложь;
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьТекст=ложь;
иначе
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьКартинку =истина;
ОформлениеСтроки.Ячейки.Комментарий.ОтображатьТекст=ложь;
конецесли;
КонецПроцедуры
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 14624
 0 
Распечатать
Возможно, вас также заинтересует
17 правил для составления оптимального ЗАПРОСа к данным базы 1С 10
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно...
Cообщение: "Не удалось удалить чеки ККМ!" 2
Пользователь с правами Администратор ККМ проводит Закрытие кассовой смены (Z). Выходит сообщение: " Не удалось удалить чеки ККМ!" ФР печатает Z -отчет, но Отчет о рознчничных продажах не формируется. Необходимо дать...
Excel файл как Внешний источник данных 6
Подключимся и загрузим из файла Excel данные в таблицу значений 1С. Сделать теперь это очень просто. 1. В конфигурации добавляет новый объект метаданных типа " Внешние источники данных" и назовем его просто " Excel" . ...
PostgreSQL: установка, настройка, обслуживание 4
PostgreSQL напрямую "из коробки" применяться для использования с 1С Предприятем не может. Необходима именно адаптированная версия от 1С, превращающая PostgreSQL в блокировочник, причем нужно понимать, что блокировки будут...
Автоматическая архивация баз 1С с использованием Cobian Backup и VBS скриптов 7
Клиент попросил настроить автоматическую архивацию баз 1С раз в три дня и выгрузку архивов на Dropbox и на FTP Сервер. Кроме 1С нужно архивировать папку с рабочими документами. Хочет - так хочет, делаем: Первым делом...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.