1.
G_100243392280997043603
26.04.21 12:35 Сейчас в теме
Есть ТБ Часть. и есть колонка "Статус"- перечесления. 2 вида перечесления "ДА", "НЕТ".. хочу что бы при измене статуса на "ДА" Вся строка была зеленного цвета а при измене "НЕТ" что бы была красная.
Код ?
// Процедура - обработчик события "ПриПолученииДанных" табличной части
Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)
Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл
ДанныеСтроки = ОформлениеСтроки.ДанныеСтроки;
Если ДанныеСтроки .Статус = Перечисления.Долг.Да тогда
ОформлениеСтроки .ЦветФона = Новый Цвет(0, 128, 0); //тут цифры для определения зеленого цвета
ОформлениеСтроки .ЦветТекста =WebЦвета.Черный ;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Если ОФ, то так в событиях табличной части есть: "ПриПолученииДанных" (Вызывается при получении данных табличным полем), можно написать:
Для каждого СтрокаСписка Из ОформленияСтрок Цикл
Если СтрокаСписка.Проведен тогда
СтрокаСписка.ЦветФона = Новый Цвет(0, 128, 0); //тут цифры для определения зеленого цвета
КонецЕсли;
КонецЦикла;
Для каждого СтрокаСписка Из ОформленияСтрок Цикл
Если СтрокаСписка.Статус = Перечисления.ДаНет.Да тогда
СтрокаСписка.ЦветФона = Новый Цвет(0, 128, 0); //тут цифры для определения зеленого цвета
Иначе
СтрокаСписка.ЦветФона = Новый Цвет(128, 0, 0); //тут цифры для определения красного цвета
КонецЕсли;
КонецЦикла;
Этот цикл в обработчик события ПриПолученииДанных() для твоего ТП.
Для каждого СтрокаСписка Из ОформленияСтрок Цикл
Если СтрокаСписка.Статус = Перечисления.ДаНет.Да тогда
СтрокаСписка.ЦветФона = Новый Цвет(0, 128, 0); //тут цифры для определения зеленого цвета
Иначе
СтрокаСписка.ЦветФона = Новый Цвет(128, 0, 0); //тут цифры для определения красного цвета
КонецЕсли;
КонецЦикла;
Там же при получение данных нету) мне нужно при изминение
Для каждого СтрокаСписка Из ОформленияСтрок Цикл
Если СтрокаСписка.ДанныеСтроки.Статус = Перечисления.Долг.BorcQalıb Тогда
СтрокаСписка.Статус= WebЦвета.ЗеленоватоЖелтый;
СтрокаСписка.ЦветТекста =WebЦвета.Черный ;
Если СтрокаСписка.ДанныеСтроки.Статус = Перечисления.Долг.BorcQalıb Тогда
СтрокаСписка.ЦветФона= WebЦвета.ЗеленоватоЖелтый;
СтрокаСписка.ЦветТекста =WebЦвета.Черный ;
13.
G_100243392280997043603
26.04.21 13:45 Сейчас в теме
Для каждого СтрокаСписка Из ОформленияСтрок Цикл
Если СтрокаСписка.Статус = Перечисления.Долг.BorcQalıb Тогда
СтрокаСписка= WebЦвета.ЗеленоватоЖелтый;
СтрокаСписка.ЦветТекста =WebЦвета.Черный ;
Сделал опять ошибку выдает но в этот раз "Если СтрокаСписка.Статус = Перечисления.Долг.BorcQalıb Тогда
Для каждого СтрокаСписка Из ОформленияСтрок Цикл
Если СтрокаСписка.Статус = Перечисления.ДаНет.Да тогда
СтрокаСписка.ЦветФона = Новый Цвет(0, 128, 0); //тут цифры для определения зеленого цвета
Иначе
СтрокаСписка.ЦветФона = Новый Цвет(128, 0, 0); //тут цифры для определения красного цвета
КонецЕсли;
КонецЦикла;
Для каждого СтрокаСписка Из ОформленияСтрок Цикл
Если СтрокаСписка.Статус = Перечисления.ДаНет.Да тогда
СтрокаСписка.ЦветФона =WebЦвета.ЗеленоватоЖелтый;
СтрокаСписка.ЦветТекста =WebЦвета.Черный ;
КонецЕсли;
КонецЦикла;
19.
G_100243392280997043603
26.04.21 13:58 Сейчас в теме
(18) Так я и так делаю..
{Документ.КредитнаяКарточка.Форма.ФормаДокумента.Форма(43)}: Поле объекта не обнаружено (Статус)
Если СтрокаСписка.Статус = Перечисления.Долг.Да тогда
Вот ещё вариант. Есть документ поступление, в нем реквизит ОригиналДаНет( т.е. возвращен ли оригинал документа в бухгалтерию). С помощью этого кода подсвечиваю ячейку таблицы "Статус"
Процедура ДокументСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
Док = ДанныеСтроки.Ссылка.ПолучитьОбъект();
Если Док.ОригиналДаНет = 1 Тогда
ОформлениеСтроки.Ячейки.СтатусДокумента.Текст = "Оригинал";
ОформлениеСтроки.Ячейки.СтатусДокумента.ОтображатьТекст = Истина;
ОформлениеСтроки.Ячейки.СтатусДокумента.ЦветФона = WebЦвета.БледноЗеленый;
Иначе
ОформлениеСтроки.Ячейки.СтатусДокумента.Текст = "Нет";
ОформлениеСтроки.Ячейки.СтатусДокумента.ОтображатьТекст = Истина;
ОформлениеСтроки.Ячейки.СтатусДокумента.ЦветФона = WebЦвета.БледноКрасноФиолетовый;
КонецЕсли;
КонецПроцедуры
// Процедура - обработчик события "ПриПолученииДанных" табличной части
Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)
Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл
ДанныеСтроки = ОформлениеСтроки.ДанныеСтроки;
Если ДанныеСтроки .Статус = Перечисления.Долг.Да тогда
ОформлениеСтроки .ЦветФона = Новый Цвет(0, 128, 0); //тут цифры для определения зеленого цвета
ОформлениеСтроки .ЦветТекста =WebЦвета.Черный ;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл
ДанныеСтроки = ОформлениеСтроки.ДанныеСтроки;
Если ДанныеСтроки .Статус = Перечисления.Долг.Да тогда
СтрокаСписка.ЦветФона = Новый Цвет(0, 128, 0); //тут цифры для определения зеленого цвета
СтрокаСписка.ЦветТекста =WebЦвета.Черный ;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Показать
{Документ.КредитнаяКарточка.Форма.ФормаДокумента.Форма(45)}: Поле объекта не обнаружено (ЦветФона)
ДанныеСтроки.ЦветФона = Новый Цвет(0, 128, 0); //тут цифры для определения зеленого цвета
// Процедура - обработчик события "ПриПолученииДанных" табличной части
Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)
Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл
ДанныеСтроки = ОформлениеСтроки.ДанныеСтроки;
Если ДанныеСтроки .Статус = Перечисления.Долг.Да тогда
ОформлениеСтроки .ЦветФона = Новый Цвет(0, 128, 0); //тут цифры для определения зеленого цвета
ОформлениеСтроки .ЦветТекста =WebЦвета.Черный ;
КонецЕсли;
КонецЦикла;
КонецПроцедуры