По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) Как пример
Если НЕ ДанныеСтроки.ВРаботе Тогда
ОформлениеСтроки.Ячейки.ВРаботе.ЦветФона=ЦветаСтиля.СтатусОтклонен;
КонецЕсли;
ЗаказыНаПроизводство = ПолучитьЗаказыНаПроизводство(ДанныеСтроки.ЗаказПокупателя);
НетТН = Ложь;
Для Каждого ТекСтрока Из ЗаказыНаПроизводство Цикл
НетТН = ПолучитьТребованиеНакладную(ТекСтрока.ЗаказНаПроизводство);
Если НетТН тогда
Прервать;
КонецЕсли;
КонецЦикла;
Если НетТН Тогда
ОформлениеСтроки.Ячейки.ДатаВыпускаПлан.ЦветФона=WebЦвета.Фиолетовый;
КонецЕсли;
Если ДанныеСтроки.Паллетирование Тогда
ОформлениеСтроки.Ячейки.ФБ_СкладХранения.ЦветФона=WebЦвета.НасыщенноРозовый;
КонецЕсли;
Если НЕ ДанныеСтроки.ВРаботе Тогда
ОформлениеСтроки.Ячейки.ВРаботе.ЦветФона=ЦветаСтиля.СтатусОтклонен;
КонецЕсли;
ЗаказыНаПроизводство = ПолучитьЗаказыНаПроизводство(ДанныеСтроки.ЗаказПокупателя);
НетТН = Ложь;
Для Каждого ТекСтрока Из ЗаказыНаПроизводство Цикл
НетТН = ПолучитьТребованиеНакладную(ТекСтрока.ЗаказНаПроизводство);
Если НетТН тогда
Прервать;
КонецЕсли;
КонецЦикла;
Если НетТН Тогда
ОформлениеСтроки.Ячейки.ДатаВыпускаПлан.ЦветФона=WebЦвета.Фиолетовый;
КонецЕсли;
Если ДанныеСтроки.Паллетирование Тогда
ОформлениеСтроки.Ячейки.ФБ_СкладХранения.ЦветФона=WebЦвета.НасыщенноРозовый;
КонецЕсли;
(4) Делайте это в момент вывода отчета
ОбластьМакета.Параметры.Количество = Количество;
Результат.Вывести(ОбластьМакета);
Если Количество > 0 Тогда // или ОбластьМакета.Параметры.Количество > 0 Тогда
Результат.Область(1,1,1,1).ЦветФона=Новый цвет(255,0,0); // как указали в (2) то есть в Область(1,1,1,1) определяете ячейку, где 1,1,1,1 - номер первой ячейки, строки, номер последней ячейки, строки
ОбластьМакета.Параметры.Количество = Количество;
Результат.Вывести(ОбластьМакета);
Если Количество > 0 Тогда // или ОбластьМакета.Параметры.Количество > 0 Тогда
Результат.Область(1,1,1,1).ЦветФона=Новый цвет(255,0,0); // как указали в (2) то есть в Область(1,1,1,1) определяете ячейку, где 1,1,1,1 - номер первой ячейки, строки, номер последней ячейки, строки
Если это одна-две шаблонных строки в макете ( например, для наглядного выявления ошибочной ставки НДС в 2019 году:
при НДС = 20%, строка одного цвета, при НДС = 18%, строка другого цвета), можно сделать проще:
В макете делаете две строки с шрифтом разного цвета ( заполнение ячеек, кроме цвета - одинаковое), именуете - черн.цвета "Строка", красн.цвета "Строка_Ошибка".
В выводе на печать определяете, какую строку макета выводите, при сопоставлении условия :
Решение, конечно, на уровне примитива, но очень простое и работает
при НДС = 20%, строка одного цвета, при НДС = 18%, строка другого цвета), можно сделать проще:
В макете делаете две строки с шрифтом разного цвета ( заполнение ячеек, кроме цвета - одинаковое), именуете - черн.цвета "Строка", красн.цвета "Строка_Ошибка".
В выводе на печать определяете, какую строку макета выводите, при сопоставлении условия :
ЕСЛИ Стр.НДС = Перечисления.СтавкиНДС.НДС20 ТОГДА
ОбластьМакета = Макет.ПолучитьОбласть("Строка");
ИНАЧЕЕСЛИ Стр.НДС = Перечисления.СтавкиНДС.НДС18 ТОГДА
ОбластьМакета = Макет.ПолучитьОбласть("Строка_Ошибка");
ИНАЧЕ
Сообщить("Проверьте значение НДС в строке " + Строка(Стр.НомерСтроки));
КОНЕЦЕСЛИ
ПоказатьРешение, конечно, на уровне примитива, но очень простое и работает
Если Строка.kolvo < Строка.ВНаличииОстаток Тогда
ЭтаФорма.Элементы.ВашТабличныйДокументИмяКолонки.ЦветТекста = WebЦвета.ВашЦветКакойХотите;
Иначе
ЭтаФорма.Элементы.ВашТабличныйДокументИмяКолонки.ЦветТекста = WebЦвета.ДругойЦветКакойХотите;
КонецЕсли
ЭтаФорма.Элементы.ВашТабличныйДокументИмяКолонки.ЦветТекста = WebЦвета.ВашЦветКакойХотите;
Иначе
ЭтаФорма.Элементы.ВашТабличныйДокументИмяКолонки.ЦветТекста = WebЦвета.ДругойЦветКакойХотите;
КонецЕсли
Этот код у меня в цикле, где перебираю записи выборки из запроса.
ОплатаПоФакту - это имя ячейки (или диапазона ячеек), которые нужно раскрасить
ОплатаПоФакту - это имя ячейки (или диапазона ячеек), которые нужно раскрасить
ОбластьСтрокаТаблицы.Параметры.Заполнить(ПараметрыСтроки);
Если ВыборкаПоГрафикамОплат.Организация = УправленческаяОрганизация Тогда
ОбластьСтрокаТаблицы.Области.ОплатаПоФакту.ЦветФона = WebЦвета.СветлоСерый;
КонецЕсли;
ТабличныйДокумент.Вывести(ОбластьСтрокаТаблицы);
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот