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

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

Код 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 |  Дата:   Прочитано: 12051
 0 
Распечатать
Возможно, вас также заинтересует
Cообщение: "Не удалось удалить чеки ККМ!" 2
Пользователь с правами Администратор ККМ проводит Закрытие кассовой смены (Z). Выходит сообщение: " Не удалось удалить чеки ККМ!" ФР печатает Z -отчет, но Отчет о рознчничных продажах не формируется. Необходимо дать...
Excel файл как Внешний источник данных 4
Подключимся и загрузим из файла Excel данные в таблицу значений 1С. Сделать теперь это очень просто. 1. В конфигурации добавляет новый объект метаданных типа " Внешние источники данных" и назовем его просто " Excel" . ...
Битая ссылка, <Объект не найден>, Уникальный Идентификатор, GUID 21
Когда кто-то удаляет данные из базы без проверки ссылок на эти объекты, то везде где этот объект использовался появляется сообщение вида: Объект не найден (84:bf5600145e3710ab11dda4c605dbe824) . https://helpf.pro/uploads/img/_1-46z7I4U7Ww.png В
Быстрый перенос списка баз с одного компьютера на другой 0
Для 8.1 : 1. Список баз 8.1 можно сохранять в файл.Для этого правой кнопкой мыши по корневому элементу " Информационные базы " , далее " Сохранить ссылку в файл " . 2. Получаем файл с расширением v8i , это текстовый файл в...
В 1С не вводится новый элемент в справочник 0
Новый элемент или группу в справочник нельзя добавить если выключен режим иерархического списка. Для того, чтобы включить этот режим выберите в меню " Действия" пункт " Иерархический список" и установите этот режим.
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.