Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Другие решения на платформе "1С:Предприятие 8"]

Подскажите, пожалуйста, как оформить цветом определенную строку в дереве значений

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №31
 
23.10.2013 11:23

"<pre>&НаСервереПроцедура ЗаполнитьДеревоСервер() Запрос = Новый Запрос;      Запрос.Текст = "ВЫБРАТЬ | """"А"""" КАК Параметр, | 10 КАК ЗначениеПараметра | |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ | """"Б"""", | 20 |ИТОГИ | СУММА(ЗначениеПараметра) |ПО | ОБЩИЕ" ;      Результат = Запрос.Выполнить();      НовДЗ = Результат.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкам);      ЗначениеВРеквизитФормы(НовДЗ, "ДЗ");      // Настройка условного оформления УО = ЭтаФорма.УсловноеОформление;      ЭлементУО = УО.Элементы.Добавить();      ЭлементУО.Использование = Истина;      ОтборУО = ЭлементУО.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));      ОтборУО.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДЗ.ЗначениеПараметра"); ОтборУО.ВидСравнения = ВидСравненияКомпоновкиДанных.Меньше; ОтборУО.ПравоеЗначение = 15;      ПолеУО = ЭлементУО.Поля.Элементы.Добавить(); ПолеУО.Использование = Истина; ПолеУО.Поле = Новый ПолеКомпоновкиДанных("ДЗПараметр");      ПолеУО = ЭлементУО.Поля.Элементы.Добавить(); ПолеУО.Использование = Истина; ПолеУО.Поле = Новый ПолеКомпоновкиДанных("ДЗЗначениеПараметра");      ЭлементУО.Оформление.УстановитьЗначениеПараметра("ЦветФона", Новый Цвет(255,0,0));КонецПроцедуры </pre>"

rezultat.jpg (75.29 КБ)
hhh333
читатель
офлайн
Дата регистрации: 22.10.2012
Сообщений: 44
Пост №32
 
23.10.2013 11:58

Спасибо большое! Буду тестить... Пока не понятно, как туда вставить мои параметры...

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №33
 
23.10.2013 12:10

В любом условном оформлении присутствуют 3 компонента: оформление, условие, оформляемые поля.<br>Оформление - будет такое же как в примере<br>Условие - <имя дерева>.<имя поля документа>.ПометкаУдаления -- Условие "Равно" -- Истина<br>Оформляемые поля - в цикле переберите поля дерева значений по аналогии с примером.

hhh333
читатель
офлайн
Дата регистрации: 22.10.2012
Сообщений: 44
Пост №34
 
23.10.2013 13:09

"У меня не работает, что я делаю не так?<br> <br><br><pre>Для Каждого НайденнаяСтрока Из НайденныеСтроки Цикл <br>СтрокаДок = НоваяСтрока.Строки.Добавить(); <br>СтрокаДок.ТипСвязи = НайденнаяСтрока.ТипСвязи; <br>СтрокаДок.СвязанныйДокумент = НайденнаяСтрока.СвязанныйДокумент; <br>СтрокаДок.СвязаннаяСтрока = НайденнаяСтрока.СвязаннаяСтрока; <br>СтрокаДок.Комментарий = НайденнаяСтрока.Комментарий; <br><br><br>УО = ЭтаФорма.УсловноеОформление;      <br>ЭлементУО = УО.Элементы.Добавить();      <br>Э<span>лементУО.Использование = Истина;      </span><br><span>ОтборУО = ЭлементУО.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));      </span><br><span>ОтборУО.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("НайденнаяСтрока.СвязанныйДокумент.ПометкаУдаления"); </span><br><span>ОтборУО.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; </span><br><span>ОтборУО.ПравоеЗначение = Истина;      </span><br><span>ПолеУО = ЭлементУО.Поля.Элементы.Добавить(); </span><br><span>ПолеУО.Использование = Истина; </span><br><span>ПолеУО.Поле = Новый ПолеКомпоновкиДанных("СвязанныйДокумент");      </span><br><span>ПолеУО = ЭлементУО.Поля.Элементы.Добавить(); </span><br><span>ПолеУО.Использование = Истина; </span><br><span>ПолеУО.Поле = Новый ПолеКомпоновкиДанных("СвязанныйДокумент");      </span><br><span>ЭлементУО.Оформление.УстановитьЗначениеПараметра("ЦветФона", </span><span>Новый Цвет(255,0,0)); </span></pre>"

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №35
 
23.10.2013 14:28

Настраивать условное оформление нужно после вызова "ЗначениеВРеквизитФормы()".

hhh333
читатель
офлайн
Дата регистрации: 22.10.2012
Сообщений: 44
Пост №36
 
23.10.2013 14:45

Значит мне обязательно писать новый запрос? Или всё же можно использовать имеющийся?

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №37
 
23.10.2013 15:43

"<pre>Дерево = РеквизитФормыВЗначение("ДеревоСвязей");Дерево.Строки.Очистить();Запрос = Новый Запрос;      Запрос.Текст =       "ВЫБРАТЬ РАЗРЕШЕННЫЕ       |      СвязиДокументов.ТипСвязи КАК ТипСвязи,       |      СвязиДокументов.ДатаУстановки,       | СвязиДокументов.СвязанныйДокумент,       |      СвязиДокументов.СвязаннаяСтрока,       |      СвязиДокументов.Комментарий,       |      1 КАК КоличествоДокументов       |ИЗ       | РегистрСведений.СвязиДокументов КАК СвязиДокументов       |ГДЕ       |      СвязиДокументов.Документ = &Документ       |       |УПОРЯДОЧИТЬ ПО       |      ТипСвязи"; Запрос.УстановитьПараметр("Документ", Объект.Ссылка);      Результат = Запрос.Выполнить().Выгрузить();      Результат.Сортировать("ТипСвязи"); ТабКоличествоСвязей = Результат.Скопировать();      ТабКоличествоСвязей.Свернуть("ТипСвязи", "КоличествоДокументов");      КоличествоСвязей = 0;       Для Каждого СтрокаТипСвязи Из ТабКоличествоСвязей Цикл            НоваяСтрока = Дерево.Строки.Добавить();            НоваяСтрока.ТипСвязи = СтрокаТипСвязи.ТипСвязи;      НоваяСтрока.ЭтоРодитель = Истина;            НоваяСтрока.Представление = Строка(СтрокаТипСвязи.ТипСвязи) + " (" + СтрокаТипСвязи.КоличествоДокументов + ")";      НайденныеСтроки = Результат.НайтиСтроки(Новый Структура("ТипСвязи", СтрокаТипСвязи.ТипСвязи));       Для Каждого НайденнаяСтрока Из НайденныеСтроки Цикл                  СтрокаДок =      НоваяСтрока.Строки.Добавить();                  СтрокаДок.ТипСвязи = НайденнаяСтрока.ТипСвязи;                  СтрокаДок.СвязанныйДокумент = НайденнаяСтрока.СвязанныйДокумент;                  СтрокаДок.СвязаннаяСтрока = НайденнаяСтрока.СвязаннаяСтрока;                  СтрокаДок.Комментарий = НайденнаяСтрока.Комментарий;                   Если НайденнаяСтрока.СвязанныйДокумент.ПометкаУдаления = Истина Тогда                        УО = УсловноеОформление.Представление.Добавить();                                     УО.Оформление.УстановитьЗначениеПараметра("ЦветФона",WebЦвета.Красный);                              КонецЕсли;                  КоличествоСвязей = КоличествоСвязей + 1;             КонецЦикла;      КонецЦикла;             ЗначениеВРеквизитФормы(Дерево, "ДеревоСвязей");<<<ВОТ ЗДЕСЬ НАДО НАПИСАТЬ КОД ПО НАСТРОЙКЕ УСЛОВНОГО ОФОРМЛЕНИЯ! >>></pre><br><br><b></b>"

hhh333
читатель
офлайн
Дата регистрации: 22.10.2012
Сообщений: 44
Пост №38
 
23.10.2013 15:52

Огромнейшее спасибо! Извините за глупые вопросы.

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №39
 
23.10.2013 16:32

Ничего страшного, у меня еще был небольшой запас терпения. :)

hhh333
читатель
офлайн
Дата регистрации: 22.10.2012
Сообщений: 44
Пост №40
 
23.10.2013 16:38

Буду иметь в виду =)

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация