Имя: Пароль:
1C
1С v8
Условное оформление в журнале заказов КА 2.4
0 poludennykh
 
20.12.21
10:03
Добрый день!
Не могу программно через расширение дополнить условное оформление в списке документов Заказ клиента. что делаю не так?

&НаСервере
&После("УстановитьУсловноеОформление")
Процедура Сн_УстановитьУсловноеОформление()
    УсловноеОформление.Элементы.Очистить();                          
    
    ЭлементОформления=УсловноеОФормление.Элементы.Добавить();
    ЭлементОФормления.Представление="СозданПрограммно";
    
    ЭлементОтбора = ЭлементОФормления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
    ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ПометкаУдаления");
    ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
    ЭлементОтбора.ПравоеЗначение = Ложь;
        ЭлементОтбора.Использование=Истина;
    
    ЭлементОФормления.Использование=Истина;
    ЭлементОФормления.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.Красный);

КонецПроцедуры
1 Мимохожий Однако
 
20.12.21
10:11
Сначала расскажи в чём цель условного оформления?
2 poludennykh
 
20.12.21
10:20
хочу раскрасить заказы в зависимости от статуса. но хочу сделать это не у каждого пользователя, а для всех. в пользовательском режиме прекрасно раскрашивает, а вот через расширение никак.
3 Мимохожий Однако
 
20.12.21
10:25
(2) А в режиме Конфигуратор в расширении раскрашивает? Это если попробовать не программно, а кнопками?
Как вариант- раскрасить в пользовательском режиме, а в расширении программно отключать эту раскраску )
4 poludennykh
 
20.12.21
10:47
(3) пробовал. не раскрашивает. открывал список и в настройках ставил условия. результат нулевой. пробовал очищать форму списка, тоже не помогло
5 kobzon2
 
20.12.21
11:18
(4) Всё должно работать. Ты видимо используешь не ту форму списка.
6 poludennykh
 
20.12.21
11:35
(5) форму использую ту. сам понимаю что должно работать, но не работает зараза
7 kobzon2
 
20.12.21
11:36
(6)


&НаСервере
&После("УстановитьУсловноеОформление")
Процедура Расш1_УстановитьУсловноеОформление()
    Список.УсловноеОформление.Элементы.Очистить();
    Элемент = Список.УсловноеОформление.Элементы.Добавить();
    
    ГруппаЭлементовОтбора = Элемент.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных"));
    ГруппаЭлементовОтбора .ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИ;
    
    // Первый отбор
    ОтборЭлемента = ГруппаЭлементовОтбора.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
    ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ПометкаУдаления");
    ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
    ОтборЭлемента.ПравоеЗначение = Истина;     
    
    // Второй отбор
    //////////////////////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////
    /////////////////////////////////////
    
    Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ЦветАкцента);
КонецПроцедуры
8 poludennykh
 
20.12.21
14:00
(7) спасибо, получилось