Имя: Пароль:
1C
1С v8
v8: Работа с цветом
,
0 Shrek_yar
 
02.12.11
10:56
Как покрасить строку таблицы цветом?
И почему сообщение "Вы уверенны???" выдаётся около 30 раз))
Мой код:

Запрос = Новый Запрос;
   Запрос.Текст =
       "ВЫБРАТЬ
       |    ЗаказКлиента.Товары.(
       |        Цена,
       |        Сумма
       |    )
       |ИЗ
       |    Документ.ЗаказКлиента КАК ЗаказКлиента
       |ГДЕ
       |    ЗаказКлиента.Товары.Цена = &Сумма
       |
       |ДЛЯ ИЗМЕНЕНИЯ";

   Сумма=100;
   Запрос.УстановитьПараметр("Сумма", Сумма);
   
   
   Результат = Запрос.Выполнить();

   ВыборкаДетальныеЗаписи = Результат.Выбрать();

   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
       // Вставить обработку выборки ВыборкаДетальныеЗаписи
       
               Элементы.Товары.ЦветТекста = Новый Цвет(255, 0, 0);  
       Сообщить("Вы уверенны???")
   КонецЦикла;
1 Ненавижу 1С
 
гуру
02.12.11
10:57
наверное это потому что в при выводе строки ))
2 Fish
 
02.12.11
10:59
(1) Скорее, потому что в цикле - сколько записей, столько и сообщений :))
3 Ненавижу 1С
 
гуру
02.12.11
11:01
(2) точно ))
4 Shrek_yar
 
02.12.11
11:02
(1) Спасибо...работает....а что по поводу цвета?
5 ice777
 
02.12.11
11:03
пад сталом.)

Автор, ты вправду думаешь, что цвета в базе хранятся?
6 rutony
 
02.12.11
11:04
ДЛЯ ИЗМЕНЕНИЯ

хехе
7 Shrek_yar
 
02.12.11
11:05
как изменить цвет строки в табличной части документа, где сумма больше 100?
8 Shrek_yar
 
02.12.11
11:06
(5) я думаю что на сервере тоже можно изменить цвет в форме, вопрос в другом, как сделать ищменения конретной строчке на определенныый цвет?
9 rutony
 
02.12.11
11:07
10 Shrek_yar
 
02.12.11
11:07
Кюри)
11 Shrek_yar
 
02.12.11
11:07
писатель такой был)
12 Shrek_yar
 
02.12.11
11:10
Товарищи, кто  знает, подскажите)))
13 mozzga
 
02.12.11
11:14
Условное оформление копай
14 marvak
 
02.12.11
11:14
(12)
Ты код в (0)
в ПриВыводеСтроки() запихал что ли?
15 marvak
 
02.12.11
11:17
(14)+

Процедура ХХХПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
   
   Если <Условие> Тогда
       ОформлениеСтроки.ЦветТекста = ЦветаСтиля.ЦветОсобогоТекста;
   КонецЕсли;
   
КонецПроцедуры
16 mozzga
 
02.12.11
11:18
&НаКлиенте
Процедура УсловноеОформление(Команда)

   УО = Список.УсловноеОформление.Элементы;
   
   Если УО.Количество() > 0 Тогда
       
       Сообщение = Новый СообщениеПользователю;
       Сообщение.Текст = "Условное оформление уже задано. Команда не выполнена.";
       Сообщение.Сообщить();
       Возврат;
       
   КонецЕсли;
   
   ЭлементУО = УО.Добавить();
   
   // Оформление: цвет фона светлый лосось
   ЭлементУО.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.ЛососьСветлый);
   
   // Условие: поле НаКонтроле равно Истина
   ЭлементУсловия = ЭлементУО.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
   ЭлементУсловия.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("НаКонтроле");
   ЭлементУсловия.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
   ЭлементУсловия.ПравоеЗначение = Истина;
   
   // Оформляемое поле: Номер
   ОформляемоеПоле = ЭлементУО.Поля.Элементы.Добавить();
   ОформляемоеПоле.Поле = Новый ПолеКомпоновкиДанных("Номер");
   
КонецПроцедуры
17 ice777
 
02.12.11
11:19
(15) счаз будет вопрос, что за условие.
18 marvak
 
02.12.11
11:21
у него управляемые формы что ли?
19 mozzga
 
02.12.11
11:23
вот не знаю я, просто кусок вырвал из примера на ИТС :)
20 Shrek_yar
 
02.12.11
11:25
(17) условие >100 , в школе надо умничать, а тут помогать просят, и еще (5) пишется через О "пОд СтОлом")))
21 Shrek_yar
 
02.12.11
11:25
форма управляемая
22 Shrek_yar
 
02.12.11
11:25
процедура при записи документа, туда вставлял код)
23 marvak
 
02.12.11
11:27
(20) ну вот и замени <Условие> на ДанныеСтроки.Сумма > 1000

(21) аа, ну тады см. пример в (16)
24 Shrek_yar
 
02.12.11
11:29
(23) а можно сделать так, идея в том , что при на жатие на кнопку провести, автоматиччески выделялсиь строки определеным цветом(если сумма >1000)
25 Shrek_yar
 
02.12.11
11:30
как мне сделать весь перебор строк в табличной части
26 Fish
 
02.12.11
11:31
(25) Циклом :))
27 Shrek_yar
 
02.12.11
11:32
как если на делфи делать то было бы проще, я просто перебрал бы всю таблицу по строкам и сравнивал эту ячейку, как в 1С этосделать)))
28 Shrek_yar
 
02.12.11
11:32
(26) опят маленький на 1С еще, может подробней))
29 mozzga
 
02.12.11
11:39
(28) Диск ИТС есть? Если есть там есть конфа назвается "Примеры ИТС", и там есть оформление списков, вот там подробно все написано на простых примерах
30 Shrek_yar
 
02.12.11
12:06
(29) Нет диска)
31 Shrek_yar
 
02.12.11
12:34
еще вопрос, как выйти из процедуры ??? Прервать; - не раьотает
32 Shrek_yar
 
02.12.11
12:34
завершить ее, и не продолжать выполнять
33 Shrek_yar
 
02.12.11
12:34
какая существкет команда 1С
34 Shrek_yar
 
02.12.11
12:37
все нашел, спасибо
35 Shrek_yar
 
02.12.11
12:41
c nj,jq
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.