Имя: Пароль:
1C
1С v8
как выделить цветом строки в отчете
0 LivingStar
 
14.12.13
08:58
как выделить цветом строки в отчете
1 Wobland
 
14.12.13
09:04
вежливо попросить условное оформление
2 ДенисЧ
 
14.12.13
09:05
взять и выделить.
Нужно таки себя заставить, блЪ!!!!

Накрайняк - маркером
3 ДенисЧ
 
14.12.13
09:05
(1) Вежливо - не наш метод!
4 Wobland
 
14.12.13
09:06
(3) не наш. только мы можем тыкать УО "эй, ты, быра!". а ТСу нужно быть с ним аккуратней
5 Wobland
 
14.12.13
09:08
стоп. а чёрное и белое - это ли не цвета?
6 LivingStar
 
14.12.13
09:08
блин не пойму нифига ((((
вывожу строки в табличный документ, как цвет то задавать?

    Для каждого Стр из Тз  Цикл
        
        //ЭлементыФормы.ТабРезультат.Область("R5C2").ЦветФона = WebЦвета.СветлоРозовый;
        //ОбластьСтрока2.Параметры.День           = Формат(Стр.День, "ДЛФ=Д");    
        ОбластьСтрока1.ЦветФонаЗаголовков = WebЦвета.СветлоРозовый;
        ЭлементыФормы.ТабРезультат.Вывести(ОбластьСтрока1);
        ОбластьСтрока2.Параметры.Номер              = Ном;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока2);
        ОбластьСтрока3.Параметры.НаименованиеТовара = Стр.Номенклатура;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока3);
        ОбластьСтрока4.Параметры.Количество         = Стр.Количество;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока4);
        ОбластьСтрока5.Параметры.ЕдИзм              = Стр.ЕдиницаИзмерения;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока5);
        ОбластьСтрока6.Параметры.Вес1Ед             = Стр.Вес;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока6);
        ОбластьСтрока7.Параметры.Цена               = Стр.Цена;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока7);
        ОбластьСтрока8.Параметры.Сумма              = Стр.Сумма;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока8);
        ОбластьСтрока9.Параметры.СуммаВеса             = Стр.Вес;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока9);
        Ном = Ном + 1;
    КонецЦикла;
7 Wobland
 
14.12.13
09:08
цвет задаётся у области
8 LivingStar
 
14.12.13
09:09
(7) задавал но почему то строки начинают скакать((((
9 Wobland
 
14.12.13
09:11
(8) попробуй задать всегда первой строке и посмотреть, что получится
10 LivingStar
 
14.12.13
09:11
херня какая то получается

    Для каждого Стр из Тз  Цикл
        ЭлементыФормы.ТабРезультат.Область("R5C2").ЦветФона = WebЦвета.СветлоРозовый;
        ЭлементыФормы.ТабРезультат.Вывести(ОбластьСтрока1);
        ОбластьСтрока2.Параметры.Номер              = Ном;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока2);


что не так? строка скачет
11 LivingStar
 
14.12.13
09:12
(10+) Цветом выделяется ячейка в отдельной строке, потом сама строка выводится (((
12 LivingStar
 
14.12.13
09:13
как задать что бы выводимая строка выделялась?
13 ДенисЧ
 
14.12.13
09:13
ппц....
А у области, которую выводишь, не пробовал задавать?
14 LivingStar
 
14.12.13
09:15
(13) как подскажи?
15 Wobland
 
14.12.13
09:15
(14) в полном согласии с СП, разумеется
16 Wobland
 
14.12.13
09:16
может, дело не в пятой строке? может, дело в светло-розовом?
17 LivingStar
 
14.12.13
09:17
не работает

ОбластьСтрока1.ЦветФонаГруппировки = WebЦвета.СветлоРозовый;
18 LivingStar
 
14.12.13
09:17
как надо то?
19 LivingStar
 
14.12.13
09:19
задача ерундовая, не пойму как надо, подскажете?
20 xenos
 
14.12.13
09:20
МояСтрокаКоторуюЯХочуРаскрасить=ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока2);

МояСтрокаКоторуюЯХочуРаскрасить.Цвет=Новый Цвет(
21 ДенисЧ
 
14.12.13
09:20
(19) посмотри направо.... Там стенка должна быть...
Тебе туда...
22 Kvant1C
 
14.12.13
09:20
ЦветФонаГруппировки - это что?
23 Wobland
 
14.12.13
09:21
(19) СКД - наше всё
24 ДенисЧ
 
14.12.13
09:21
(23) ваше всё?
Так вот кто наср*л....
25 LivingStar
 
14.12.13
09:22
(22) пытаюсь цвет выцарапать
26 Kvant1C
 
14.12.13
09:23
Может как то поможет вот это:
ОбластьЯчеекТабличногоДокумента (SpreadsheetDocumentRange)
ЦветФона (BackColor)
Использование:

Чтение и запись.
Описание:

Тип: Цвет.
Содержит цвет фона области.

Доступность:

Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
27 Wobland
 
14.12.13
09:24
(26) он в (10) примерно так и делал
28 LivingStar
 
14.12.13
09:24
(20) и это работает?
29 Kvant1C
 
14.12.13
09:24
(25) ЦветФонаГруппировки - это откуда-то им макета оформления, в области ячеек табличного документа такого нету
30 LivingStar
 
14.12.13
09:25
(29) ну да это хрень, просто один из развернувшихся методов попробовал
31 LivingStar
 
14.12.13
09:26
так не работает

        ОбластьСтрока1.Цвет = WebЦвета.СветлоРозовый;
        ЭлементыФормы.ТабРезультат.Вывести(ОбластьСтрока1);
32 xenos
 
14.12.13
09:27
(28) А ты пробовал?
33 LivingStar
 
14.12.13
09:28
(20) пробовал не работает
34 LivingStar
 
14.12.13
09:28
(20) не работает

        упс = ЭлементыФормы.ТабРезультат.Вывести(ОбластьСтрока1);
        упс.Цвет = WebЦвета.СветлоРозовый;
35 Kvant1C
 
14.12.13
09:30
(34) такова свойства - цвет в области ячеек не существует
36 Kvant1C
 
14.12.13
09:31
+ (35) есть цветфона, цветтекста, цветрамки и т.д., открой СП наконец
37 LivingStar
 
14.12.13
09:34
(35) я же в (10) задавал цвет фона ячейки, но почему то он был в отдельной строке, это я так, для примера пробовал

как задать цвет фона в выводимых ячейках строки?
38 Wobland
 
14.12.13
09:37
(37) не в отдельной, а в пятой
39 LivingStar
 
14.12.13
09:37
ничего не выводит

    Для каждого Стр из Тз  Цикл
        ОбластьСтрока1.ЦветТекстаГруппировки = WebЦвета.СветлоРозовый;
        ОбластьСтрока1.ЦветТекстаЗаголовков  = WebЦвета.СветлоРозовый;
        ОбластьСтрока1.ЦветФонаГруппировки   = WebЦвета.СветлоРозовый;
        ОбластьСтрока1.ЦветФонаЗаголовков    = WebЦвета.СветлоРозовый;
        ЭлементыФормы.ТабРезультат.Вывести(ОбластьСтрока1);
40 LivingStar
 
14.12.13
09:38
(38) в пятой выводится строка

а она выводилась в этом случае после, перед ней пустая строка с выделенным цветом одной ячейки
41 Kvant1C
 
14.12.13
09:39
(39) ОбластьСтрока1 у тебя что содержит?
42 LivingStar
 
14.12.13
09:42
(41) первую ячейку секции строк в отчете

    ОбластьСтрока1  = Макет.ПолучитьОбласть("Строка|Первая");
    ОбластьСтрока2  = Макет.ПолучитьОбласть("Строка|Номер");
    ОбластьСтрока3  = Макет.ПолучитьОбласть("Строка|НаименованиеТовара");
    ОбластьСтрока4  = Макет.ПолучитьОбласть("Строка|Количество");
    ОбластьСтрока5  = Макет.ПолучитьОбласть("Строка|ЕдИзм");
    ОбластьСтрока6  = Макет.ПолучитьОбласть("Строка|Вес1Ед");
    ОбластьСтрока7  = Макет.ПолучитьОбласть("Строка|Цена");
    ОбластьСтрока8  = Макет.ПолучитьОбласть("Строка|Сумма");
    ОбластьСтрока9  = Макет.ПолучитьОбласть("Строка|СуммаВеса");
43 Wobland
 
14.12.13
09:43
а зачем столько пересечений?
44 LivingStar
 
14.12.13
09:47
(43) да заготовку взял, она с запасом, что бы если что быстро среагировать на новую постановку
45 Мимохожий Однако
 
14.12.13
09:47
Поставь в свойствах ячейки и разными областями выведи, если не удалось программно.
46 LivingStar
 
14.12.13
09:47
(43) нормально пересечений, каждый столбец
47 LivingStar
 
14.12.13
09:48
(45) мне нужно программно, потом менять цвета что бы
48 Kvant1C
 
14.12.13
09:48
(42) То есть ОбластьСтрока1 у тебя это ОбластьЯчеекТаличногоДокумента

Стало быть в этой области есть ЦветФона, вот его и надо покрасить, еще есть ЦветТекста, его тоже можно покрасить...
49 Kvant1C
 
14.12.13
09:49
ОбластьСтрока1.ЦветФона = WebЦвета.СветлоРозовый;
Далее выводишь ОбластьСтрока1
50 LivingStar
 
14.12.13
09:49
(49) поле объекта не обнаружено
51 LivingStar
 
14.12.13
09:50
попробовал так, ошибку не вывело, но ничего не раскрасило тоже

ОбластьСтрока1.Область(строка("R1C"+"2")+":"+строка("R1C"+"9")).ЦветФона=  Новый Цвет(66, 48, 255);
52 Wobland
 
14.12.13
09:51
строка("R1C"+"2")+":"+строка("R1C"+"9")

увековечить!
53 Wobland
 
14.12.13
09:51
(46) на хрена каждый столбец?
54 Kvant1C
 
14.12.13
09:51
(50) а что тогда у тебя Макет.ПолучитьОбласть("Строка|Первая"); возвращает?
55 LivingStar
 
14.12.13
09:52
так не выводит
ОбластьСтрока1.Область("R1C2").ЦветФона=  Новый Цвет(66, 48, 255);

так выводит цвет после выводимой строки, в чем секрет?

ОбластьСтрока1.Область("R1C2").ЦветФона=  Новый Цвет(66, 48, 255);
56 LivingStar
 
14.12.13
09:53
ОбластьСтрока1.Область("R2C2").ЦветФона=  Новый Цвет(66, 48,
255);

так то есть
57 LivingStar
 
14.12.13
09:53
красит ячейку после выведенной строки

ОбластьСтрока1.Область("R2C2").ЦветФона=  Новый Цвет(66, 48, 255);
58 Wobland
 
14.12.13
09:54
(57) да не после выведенной, а вторую в области
59 LivingStar
 
14.12.13
09:55
(54) ТабличныйДокумент
60 LivingStar
 
14.12.13
09:56
(58) выводится строка с данными
после пустая с раскрашенной одной ячейкой есть
61 LivingStar
 
14.12.13
09:57
так ничего не выводит (((

        ОбластьСтрока1.Область("R1C2").ЦветФона=  Новый Цвет(66, 48, 255);
        ЭлементыФормы.ТабРезультат.Вывести(ОбластьСтрока1);
62 LivingStar
 
14.12.13
09:57
(61+) точнее никак не раскрашивает
63 hhhh
 
14.12.13
09:58
(62) сначала ТабРезультат.Вывести а потом крась. Вот нахрена ты в макете красишь?
64 Wobland
 
14.12.13
09:58
(62) раскрашивает, не ври. потом затирается следующей областью
65 Wobland
 
14.12.13
09:59
(63) а чего бы не выводить уже покрашенное?
66 hhhh
 
14.12.13
09:59
тебе ж талдычат: крась в табличном документе
67 LivingStar
 
14.12.13
10:00
(65) как тут надо? не красит (((

    Для каждого Стр из Тз  Цикл
        ЭлементыФормы.ТабРезультат.Вывести(ОбластьСтрока1);
        ОбластьСтрока2.Параметры.Номер              = Ном;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока2);
        ОбластьСтрока3.Параметры.НаименованиеТовара = Стр.Номенклатура;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока3);
        ОбластьСтрока4.Параметры.Количество         = Стр.Количество;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока4);
        ОбластьСтрока5.Параметры.ЕдИзм              = Стр.ЕдиницаИзмерения;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока5);
        ОбластьСтрока6.Параметры.Вес1Ед             = Стр.Вес;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока6);
        ОбластьСтрока7.Параметры.Цена               = Стр.Цена;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока7);
        ОбластьСтрока8.Параметры.Сумма              = Стр.Сумма;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока8);
        ОбластьСтрока9.Параметры.СуммаВеса             = Стр.Вес;
        ЭлементыФормы.ТабРезультат.Присоединить(ОбластьСтрока9);
        ОбластьСтрока1.Область("R1C2").ЦветФона=  Новый Цвет(66, 48, 255);
        Ном = Ном + 1;
    КонецЦикла;
68 Wobland
 
14.12.13
10:00
(67) красит. только ты этого не видишь, потому что не выводишь
69 LivingStar
 
14.12.13
10:01
(63) ну и что? не красит !!!!

    Для каждого Стр из Тз  Цикл
        ЭлементыФормы.ТабРезультат.Вывести(ОбластьСтрока1);
        ОбластьСтрока1.Область("R1C2").ЦветФона=  Новый Цвет(66, 48, 255);
70 Wobland
 
14.12.13
10:01
(68) потому что затираешь второй
71 Wobland
 
14.12.13
10:01
(69) не упорствуй
72 LivingStar
 
14.12.13
10:01
(70) я вообще после всех пробую красить
73 Wobland
 
14.12.13
10:02
(72) ну выведи только одну обдасть
74 Мимохожий Однако
 
14.12.13
10:02
Поставь точки останова до и после твоего кода. Увидишь красит или нет.
75 LivingStar
 
14.12.13
10:02
(70) как нужно покажа, пример в (67), как там нужно? что бы красило ячейку в выводимой строке? всяко пробую, не красит (
76 Wobland
 
14.12.13
10:04
(75) от я щас всё брошу и полезу запускать 1Ски и читать СП, ага. я тебе все правильные слова назвал уже
77 xenos
 
14.12.13
10:11
(67)> ОбластьСтрока1.Область("R1C2").ЦветФона=  Новый Цвет(66, 48, 255);

ОбластьСтрока1 - это кусок макета, а не табличного документа.
78 xenos
 
14.12.13
10:12
(77)+ если ты хочешь красить кусок макета, то крась его тогда перед выводом.
79 Мимохожий Однако
 
14.12.13
10:13
(75) для упёртых есть отладчик. Клавиша F5 из конфигуратора
80 Kvant1C
 
14.12.13
10:14
(59) Тогда конечно ошибка...
вот рабочий кусок кода
    
    ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
    
    ОбластьЯчеек = ОбластьДетальныхЗаписей.Область("R1C2:R1C2");

    ОбластьЯчеек.ЦветФона = webцвета.ВесеннеЗеленый;
81 Wobland
 
14.12.13
10:16
(80) в (69) так же
82 Мимохожий Однако
 
14.12.13
10:16
(69)Поменяй местами две последние строчки
83 Kvant1C
 
14.12.13
10:17
(81) Ага, тока наизнанку
84 Wobland
 
14.12.13
10:20
(83) один фих в цикле ;)
85 Wobland
 
14.12.13
10:21
да, не думал я в начале ветки, что до сотни доберёмся
86 xenos
 
14.12.13
10:26
Попробовал раскрашивать, все нормально работает.

Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
      ТабДок=Новый ТабличныйДокумент;
      
      Макет=ПолучитьМакет("Макет");
      
      Область=Макет.ПолучитьОбласть("Вертикаль|Горизонталь");

      
      Ячейка=ТабДок.Вывести(Область);
      Ячейка.ЦветФона=webцвета.Красный;
      Ячейка.Текст="ААА";
      
      Ячейка=ТабДок.Присоединить(Область);
      Ячейка.ЦветФона=webцвета.Зеленый;
      Ячейка.Текст="ХХХ";
      
      СтрокаЯчеек=ТабДок.Область(ТабДок.ВысотаТаблицы,1,ТабДок.ВысотаТаблицы,2);
      СтрокаЯчеек.ЦветТекста=webцвета.Синий;
      
      ТабДок.Показать();
    
КонецПроцедуры


Наверняка ТС тролль.
87 Мимохожий Однако
 
14.12.13
10:30
(86) в (69) он сначала выводит, а потом красит. А вместо отладчика у него форумы. ))
88 xenos
 
14.12.13
10:39
(87) Только вот красит он не табличный документ, а макет.

А на экране он видит табличный документ, поэтому и красить надо табличный документ.
89 AlexYa
 
14.12.13
12:01
Может, пригодится:
http://infostart.ru/public/74574/