1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
<strong>Элемент = УсловноеОформление.Элементы.Добавить();</strong> СписокЗначенийНоменклатуры = Новый СписокЗначений; Для Каждого СтрокаТовар Из Объект.Товары Цикл Если ЗначениеЗаполнено(СтрокаТовар.НоменклатураНабора) Тогда ВариантКомплектацииНоменклатуры = НаборыВызовСервера.ВариантКомплектацииНоменклатурыПоУмолчанию( СтрокаТовар.НоменклатураНабора, Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка()); Если Не ЗначениеЗаполнено(ВариантКомплектацииНоменклатуры) Тогда Продолжить; КонецЕсли; Если ВариантКомплектацииНоменклатуры.НоменклатураОсновногоКомпонента = СтрокаТовар.Номенклатура Тогда СписокЗначенийНоменклатуры.Добавить(СтрокаТовар.Номенклатура); КонецЕсли; КонецЕсли; КонецЦикла; <strong>ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.Товары.Имя); ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.Номенклатура"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке; ОтборЭлемента.ПравоеЗначение = СписокЗначенийНоменклатуры; Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ДосьеПлохаяОценкаЦвет); Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(,,Истина)); </strong> |