Добрый день, 1с 8.2 УПП.
Есть необходимость закрашивать строку (точнее пару столбцов в строке) в желтый или зеленый цвет, по воле пользователя. Нет точной формулы, чтобы отловить это при выводе строки, юзер сам интуитивно решает какой кл. Цвет должен сохраниться, для этого создал в ТЧ два реквизита с типом булево. Добавил цветные кнопки на панели и думаю как быть дальше...
Подскажите как это можно реализовать?
Есть необходимость закрашивать строку (точнее пару столбцов в строке) в желтый или зеленый цвет, по воле пользователя. Нет точной формулы, чтобы отловить это при выводе строки, юзер сам интуитивно решает какой кл. Цвет должен сохраниться, для этого создал в ТЧ два реквизита с типом булево. Добавил цветные кнопки на панели и думаю как быть дальше...
Подскажите как это можно реализовать?
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(10) Gendelf,
Процедура ТабличноеПоле1ПриПолученииДанных(Элемент, ОформленияСтрок)
Для Каждого ОформлениеСтрок Из ОформленияСтрок Цикл
//ОформлениеСтрок.Ячейки.Колонка1.ЦветФона = ПолеВвода3;
//ОформлениеСтрок.Ячейки.Колонка2.ЦветФона = ПолеВвода3;
КонецЦикла;
КонецПроцедуры
Вот лови пример одного из решений, набросал по быстрому. Имя кнопки должно быть именем цвета
Прикрепленные файлы:
ВнешняяОбработка1.epf
Перем ТЗЦвета;
Процедура ПриОткрытии()
ТЗЦвета = Новый ТаблицаЗначений;
ТЗЦвета.Колонки.Добавить("НомерСтроки");
ТЗЦвета.Колонки.Добавить("Цвет");
КонецПроцедуры // ПриОткрытии()
Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
Строка = ТЗЦвета.Найти(ДанныеСтроки.НомерСтроки, "НомерСтроки");
Если Строка = Неопределено Тогда
Возврат
Иначе
Цвет = Строка["Цвет"];
Если ТипЗнч(Цвет) = Тип("Цвет") Тогда
ОформлениеСтроки.ЦветФона = Цвет;
КонецЕсли;
КонецЕсли;
КонецПроцедуры // ТоварыПриВыводеСтроки()
// процедура вызывается нажатием кнопки "Раскрасить строку"
Процедура ДействияФормыТоварыТоварыРаскрасить(Кнопка)
ВыборЦвета = Новый ДиалогВыбораЦвета;
Если Не ВыборЦвета.Выбрать() Тогда
Возврат
КонецЕсли;
ТекущаяСтрока = ЭлементыФормы.Товары.ТекущаяСтрока.НомерСтроки;
ТекущаяКолонка = ЭлементыФормы.Товары.ТекущаяКолонка.Имя;
Строка = ТЗЦвета.Найти(ТекущаяСтрока, "НомерСтроки");
Если Строка = Неопределено Тогда
Строка = ТЗЦвета.Добавить();
Строка.НомерСтроки = ТекущаяСтрока;
КонецЕсли;
Строка.Цвет = ВыборЦвета.Цвет;
ЭлементыФормы.Товары.ОбновитьСтроки(ЭлементыФормы.Товары.ТекущаяСтрока);
КонецПроцедуры Показать
что мешает в ТЧ завести два реквизита с типом ХранилищеЗначения и сохранять там выбранный для каждой из колонок цвет, а затем ПриВыводеСтроки() раскрашивать этими цветами колонки.
Другой вариант использовать функции ЗначениеВСтрокуВнутр, ЗначениеИзСтрокиВнутр тогда тип реквизитов будет Строка (хотя 1С вроде не рекомендует использовать эти функции сейчас).
Другой вариант использовать функции ЗначениеВСтрокуВнутр, ЗначениеИзСтрокиВнутр тогда тип реквизитов будет Строка (хотя 1С вроде не рекомендует использовать эти функции сейчас).
кстати, если условие такое: "в желтый или зеленый цвет, по воле пользователя."
т.е. цветов всего два, причем заранее известных, то можно вообще сделать так:
создаем реквизиты "ЦветКолонки1", "ЦветКолонки2" с типом строка.
в модуле формы Создаем структуру "НаборЦветов" туда вставляем значения ("Желтый", Новый Цвет("описание желтого цвета")) и ("Зеленый", Новый Цвет("описание зеленого цвета"))
Далее организуем выбор из списка значений "Желтый" или "Зеленый" и записываем в наши строковые реквизиты ТЧ.
Теперь при выводе строки достаточно проверить, заполнен ли реквизит "ЦветКолонки1" и если да, то раскрасить колонку с помощью следующей конструкции
ОформлениеСтрок.Ячейки.Колонка1.ЦветФона = НаборЦветов[ЗначениеРеквизитаЦветКолонки1]
и тоже самое для колонки2
т.е. цветов всего два, причем заранее известных, то можно вообще сделать так:
создаем реквизиты "ЦветКолонки1", "ЦветКолонки2" с типом строка.
в модуле формы Создаем структуру "НаборЦветов" туда вставляем значения ("Желтый", Новый Цвет("описание желтого цвета")) и ("Зеленый", Новый Цвет("описание зеленого цвета"))
Далее организуем выбор из списка значений "Желтый" или "Зеленый" и записываем в наши строковые реквизиты ТЧ.
Теперь при выводе строки достаточно проверить, заполнен ли реквизит "ЦветКолонки1" и если да, то раскрасить колонку с помощью следующей конструкции
ОформлениеСтрок.Ячейки.Колонка1.ЦветФона = НаборЦветов[ЗначениеРеквизитаЦветКолонки1]
и тоже самое для колонки2
Застрял нам таком куске кода ПриВыведеСтроки(). Весь день сижу, всё никак.
В таком виде он работает, но если в табчасти я уберу "Видимость" у столбцов "Зеленый" и "Желтый" , то получаю ошибки. Но их нужно скрыть...
В таком виде он работает, но если в табчасти я уберу "Видимость" у столбцов "Зеленый" и "Желтый" , то получаю ошибки. Но их нужно скрыть...
Если ДанныеСтроки.Желтый Тогда
ОформлениеСтроки.Ячейки.Клиент.ЦветФона = WebЦвета.Желтый;
ОформлениеСтроки.Ячейки.ВремяНапоминания.ЦветФона = WebЦвета.Желтый;
ИначеЕсли ДанныеСтроки.Зеленый Тогда
ОформлениеСтроки.Ячейки.Клиент.ЦветФона = WebЦвета.ЗеленоватоЖелтый;
ОформлениеСтроки.Ячейки.ВремяНапоминания.ЦветФона = WebЦвета.ЗеленоватоЖелтый;
КонецЕсли;
в стр.ДанныеСтроки попадают только видимые столбцы. Каким образом проверить можно, когда окрашивать в тот или другой цвет?
Для каждого стр из ОформленияСтрок Цикл
Если стр.ДанныеСтроки.Желтый Тогда
стр.Ячейки.ВремяНапоминания.ЦветФона = WebЦвета.Желтый;
стр.Ячейки.Клиент.ЦветФона = WebЦвета.Желтый;
Иначе
КонецЕсли
КонецЦикла;
(26) Gendelf, я так понял косяк получается, когда колонку время напоминания или клиент скрывают? Так вот до цикла проверяй их видимость. А в цикле пишешь условие если параметр истина то выполнить код.
ВидимостьКолонкиФайлы = ЭлементыФормы.Список.Колонки.Файлы.Видимость;
Для Каждого ОформлениеСтрок Из ОформленияСтрок Цикл
Если ВидимостьКолонкиФайлы Тогда
Если Не ОформлениеСтрок.ДанныеСтроки.ЭтоГруппа Тогда
ОформлениеСтрок.Ячейки.Файлы.Текст = РаботаСфайлами.ПолучитьКоличествоФайлов(ОформлениеСтрок.ДанныеСтроки.Ссылка);
ОформлениеСтрок.Ячейки.Файлы.ОтображатьТекст = Истина;
КонецЕсли;
КонецЕсли;
Показать
я писал подобную вещь для раскраски журнала.
в этой теме предлагался вариант через событие ПриВыводеСтроки. это более медленный вариант. правильнее делать через ПриПолученииДанных.
вам останется в самом реквизите хранить цвет. а при раскраске анализировать этот реквизит и в зависимости от его значения красить в тот или иной цвет.
в этой теме предлагался вариант через событие ПриВыводеСтроки. это более медленный вариант. правильнее делать через ПриПолученииДанных.
вам останется в самом реквизите хранить цвет. а при раскраске анализировать этот реквизит и в зависимости от его значения красить в тот или иной цвет.
(30) El_Loco, вариант ПриВыводеСтроки предлагался для примера. Конкретно в моей задаче его за глаза. Раскрашивают строки ооооочень редко, к тому же раскраска нигде не сохраняется. Если бы нужно было хранить цвет делал бы через ПриПолученииДанных.
по картинкам видно, что у колонки Желтый, видимость = ложь. И в коде мы не можем к нему обратиться и проверить какое значение Истина или Ложь, в списке только Зеленый.
(35) Gendelf, ну если ПриВыводеСтроки (или ПриПолученииДанных, неважно) не получается обратиться к скрытой Колонке, тогда надо использовать промежуточную Таблицу значений, например. В общем развивать мой пример. При открытии загнать в эту ТЗ номер строки и цвет. И уже ПриВыводеСтроки / ПриПолученииДанных красить.
(40) ZergKRSK, таблица во вложении
Видимость убираю так:
проверка реквизита:
Видимость убираю так:
ЭлементыФормы.ТабличноеПолеНапоминания.Колонки.Зеленый.Видимость = Ложь;
ЭлементыФормы.ТабличноеПолеНапоминания.Колонки.Желтый.Видимость = Ложь;
проверка реквизита:
//окрашиваем в зеленый и желтый
Для каждого стр из ОформленияСтрок Цикл
Если стр.ДанныеСтроки.Желтый Тогда
стр.Ячейки.ВремяНапоминания.ЦветФона = WebЦвета.Желтый;
стр.Ячейки.Клиент.ЦветФона = WebЦвета.Желтый;
ИначеЕсли стр.ДанныеСтроки.Зеленый Тогда
стр.Ячейки.ВремяНапоминания.ЦветФона = WebЦвета.ЗеленоватоЖелтый;
стр.Ячейки.Клиент.ЦветФона = WebЦвета.ЗеленоватоЖелтый;
КонецЕсли
КонецЦикла; ПоказатьПрикрепленные файлы:
(55) Gendelf,
Для каждого стр из ОформленияСтрок Цикл
Если стр.ДанныеСтроки.ССЫЛКА.Желтый Тогда
стр.Ячейки.ВремяНапоминания.ЦветФона = WebЦвета.Желтый;
стр.Ячейки.Клиент.ЦветФона = WebЦвета.Желтый;
ИначеЕсли стр.ДанныеСтроки.ССЫЛКА.Зеленый Тогда
стр.Ячейки.ВремяНапоминания.ЦветФона = WebЦвета.ЗеленоватоЖелтый;
стр.Ячейки.Клиент.ЦветФона = WebЦвета.ЗеленоватоЖелтый;
КонецЕсли
КонецЦикла; Показать
А да, я бы еще попробовал Видимость не убирать в Конфигураторе, а уже программно при открытии скрыть, например.
Внимание! Тема сдана в архив
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот