Имя: Пароль:
1C
1С v8
Изменение цвета реквизита в списке документа 1С 8.2
0 Vainah
 
05.02.14
08:00
Добрый день !

Подскажите пож-та , необходимо при открытии списка документов , проверить в каждой строке реквизит ДатаОкончания , и если дата меньше или равна текущей дате , то фон поле закрасить красным . Все это происходит в форме списка .

может кто знает , делал ..
1 ДенисЧ
 
05.02.14
08:02
В обычной форме - приПолученииДанных, в УФ - условное оформление
2 1Сергей
 
05.02.14
08:04
программировать надо. Лучше позовите специалиста
3 Vainah
 
05.02.14
08:06
(2) Твои методы решения проблем мне не подходят .
4 1Сергей
 
05.02.14
08:07
(3) тогда (1)
5 Wobland
 
05.02.14
08:07
(2) первую в своей жизни кран-буксу я менял неделю. упорно не звал специалиста. не скажу, что я - сантехник, но считаю, что поступил верно ;)
6 1Сергей
 
05.02.14
08:08
(5) т.е. когда надоест быть одинесником, сможешь смело идти в сантехники?
7 Umga2002
 
05.02.14
08:09
(0) Только учиться Надо Правильно!!!
8 Рэйв
 
05.02.14
08:09
(5)Наверное ты не был женат в тот момент:-)
9 Vainah
 
05.02.14
08:10
(1) в обычной форме ?

Мне нужно при открытии Формы Списка Документов проверять каждую строку ДокументСписок .

поменять цвет можно так
    ЭлементыФормы.ДокументСписок.ТекущаяСтрока.ДатаОкончания.ЦветФонаПоля = WebЦвета.Красный;

Вся проблема в том , как обойти список и проверить дату и к нужной изменить фон ?

В ФормеСписка еще не приходилось работать - поэтому не понимаю
10 Wobland
 
05.02.14
08:10
(6) принцип "разберись, как работает, и сделай, как надо" действует и в области санитарных технологий. справлюсь ;)
11 Wobland
 
05.02.14
08:10
(9) а как работает ПриПолученииДанных?
12 Рэйв
 
05.02.14
08:11
(10)Принцип "каждый должен заниматься своим делом" отлично действует всегда и везде:-)
13 1Сергей
 
05.02.14
08:11
(12) +100500

(10) мог бы эту неделю заниматься более полезными делами
14 1Сергей
 
05.02.14
08:13
а так, и время угробил и сантехником не стал
15 Vainah
 
05.02.14
08:13
я попал на форум 1с ? или Петросяна ? вроде серьезный форум - а школота одна ...
16 Wobland
 
05.02.14
08:13
(13) а ты думаешь, я неделю танцевал вокруг крана? я на работу ходил, в кино, пиво пил ;)
17 Wobland
 
05.02.14
08:13
(15) глупый программист слышит о дао и смеётся над ним
18 Рэйв
 
05.02.14
08:15
(15)За серьезностью к Волшебнику.Это он все еще не теряет надежды сделать сделать из мисты строго тематический ресурс, где все ходят строем и разговаривают килобайтами:-)
19 1Сергей
 
05.02.14
08:15
(15) вот тебе пример:


Процедура ДеревоПравПриПолученииДанных(Элемент, ОформленияСтрок)
    Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
        Если ОформлениеСтроки.ДанныеСтроки.ЭтоГруппаМетаданных Тогда
            Для Каждого Ячейка ИЗ ОформлениеСтроки.Ячейки Цикл
                Если Ячейка.Имя = "Объект" Тогда
                    //
                Иначе
                    Ячейка.Шрифт = Новый Шрифт(Ячейка.Шрифт,,,Истина);
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры
20 Wobland
 
05.02.14
08:16
(19) новый шрифт в цикле? фи
21 1Сергей
 
05.02.14
08:18
(20) учту ваше замечание
22 Рэйв
 
05.02.14
08:18
(19)У строки есть свойство Цвет, общее дляв всех ячеек,
23 1Сергей
 
05.02.14
08:21
(22) я в курсе
24 1Сергей
 
05.02.14
08:23
(20) так красивее?


Перем ЖирныйШрифт;

Процедура ДеревоПравПриПолученииДанных(Элемент, ОформленияСтрок)
    Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
        Если ОформлениеСтроки.ДанныеСтроки.ЭтоГруппаМетаданных Тогда
            Для Каждого Ячейка ИЗ ОформлениеСтроки.Ячейки Цикл
                Если Ячейка.Имя = "Объект" Тогда
                    //
                Иначе
                    Ячейка.Шрифт = ЖирныйШрифт;
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

ЖирныйШрифт = Новый Шрифт(,,Истина);
25 Vainah
 
05.02.14
08:24
Спасибо Серега , что дал на Водку ) ! проблема решена

    Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
        Если ОформлениеСтроки.ДанныеСтроки.ДатаОкончанияПодпискиИТС >= ТекущаяДата() Тогда
            
            ОформлениеСтроки.Ячейки.ДатаОкончанияПодпискиИТС.ЦветФона = WebЦвета.Красный;
            
        КонецЕсли;
    КонецЦикла;

вот сразу бы по делу писали - а не флудили ... )

всем удачи
26 1Сергей
 
05.02.14
08:25
(25) Пожалуйста

>> вот сразу бы по делу писали - а не флудили ... )

так не интересно
27 Wobland
 
05.02.14
08:26
(25) а ты думал, тут горячая линия консультации?
28 ДенисЧ
 
05.02.14
08:29
(25) "вот сразу бы по делу писали - а не флудили"
БлЪ!!!!
Я тебе в (1) сразу дал правильный ответ. А ты в бутылку полез...
29 Vainah
 
05.02.14
08:29
(27) я думал тут ребята , которые не дадут готовое решение , а хотя бы подскажут где рыть ,

я уже понял что нужно делать по первым двум строкам Сереги .. и дальше доделал сам ..

Это разве плохо помогать людям ?
30 Wobland
 
05.02.14
08:30
(28) ты не написал код, двоечник
31 Vainah
 
05.02.14
08:30
(28) вижу , признаюсь , не уловил сразу )
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший