[Решено] 1С 8.3 Условное оформление таблицы программно

ЭлементУО = Элемент.УсловноеОформление.Добавить();
Элемент.УО.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый);
ЭлементУсловия = ЭлементУО.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементУсловия.ЛевоеЗначение = ПолеЭлемента.Поле;
ЭлементУсловия.ВидСравнения= ...;
ЭлементУсловия.ПравоеЗначение = ...;

ЭлементУО = УсловноеОформление.Элементы.Добавить();
	ЭлементУО.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый);
	ЭлементУсловия = ЭлементУО.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
	ЭлементУсловия.ЛевоеЗначение = Элементы.Склад.Имя;
	ЭлементУсловия.ВидСравнения= ВидСравненияКомпоновкиДанных.НеРавно;
	ЭлементУсловия.ПравоеЗначение = "количество";

ЭлементУО = УсловноеОформление.Элементы.Добавить(); 
ЭлементУО.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый); 
ЭлементУсловия = ЭлементУО.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); 
ЭлементУсловия.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ТаблицаДанныхФайла.склад");; 
ЭлементУсловия.ВидСравнения= ВидСравненияКомпоновкиДанных.НеРавно; 
ЭлементУсловия.ПравоеЗначение = "количество"; 
ПолеЭлемента = ЭлементУО.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных("ТаблицаДанныхФайла");

ЗначениеВРеквизитФормы(ТЗ,"ДанныеФайла"); 

//Добавим Таблицу на форму
    ТаблицаДанныхФайла             = Элементы.Добавить("ТаблицаДанныхФайла", Тип("ТаблицаФормы"));
    ТаблицаДанныхФайла.ПутьКДанным = "ДанныеФайла";
    ТаблицаДанныхФайла.Отображение = ОтображениеТаблицы.Список;
	
   //Добавим колонки
    Для Каждого Колонка Из ТЗ.Колонки Цикл
        НовыйЭлемент = Элементы.Добавить(Колонка.Имя, Тип("ПолеФормы"), ТаблицаДанныхФайла);
        НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;
	НовыйЭлемент.ПутьКДанным = "ДанныеФайла." + Колонка.Имя;
	КонецЦикла;  
//Потом строки...
.....
Пока Выборка1.Следующий() Цикл
		Строка = ТЗ.Добавить();
		Строка.Склад = Выборка1.Наименование;
		Строка = ТЗ.Добавить();
		Строка.Склад = "количество";
		Строка = ТЗ.Добавить();
		Строка.Склад = "цена";
	КонецЦикла;
	
	ЗначениеВРеквизитФормы(ТЗ,"ДанныеФайла");

ТЗ1 = Запрос.Выполнить().Выгрузить();
ТЗ = Новый ТаблицаЗначений;
	ТЗ.Колонки.Добавить("Склад");
	Для Каждого СтрМассива Из ТЗ1 Цикл
		НаименованиеКолонки = СтрЗаменить(СтрМассива.Наименование," ","");
	        ТЗ.Колонки.Добавить(НаименованиеКолонки);
	КонецЦикла;

УсловноеОформлениеТЗ = ЭтаФорма.ДанныеФайла.УсловноеОформление;

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


&НаКлиенте
Процедура ПриОткрытии(Отказ)
	Команда1НаСервере();
КонецПроцедуры

&НаСервере
Процедура ОформлениеСтрокиНаСервере()
		
КонецПроцедуры

&НаКлиенте
Процедура ОформлениеСтроки(Команда)
	ОформлениеСтрокиНаСервере();
КонецПроцедуры

ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить();
ЭлементОтбора = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); 
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ТаблицаМаршрутов.Макс"); 
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; 
ЭлементОтбора.ПравоеЗначение = 1; 
ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(,,Истина));
//задаем оформляемые колонки (все)
Для каждого элПоля Из Элементы.ТаблицаМаршрутов.ПодчиненныеЭлементы Цикл
	ОформляемоеПоле = ЭлементУсловногоОформления.Поля.Элементы.Добавить(); 
	ОформляемоеПоле.Поле = Новый ПолеКомпоновкиДанных(элПоля.Имя);
КонецЦикла;

		
ЭлементОформления = Форма.УсловноеОформление.Элементы.Добавить();	
		Условие = ЭлементОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));  
		Условие.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.Разница"); 
		Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.Меньше;
		Условие.ПравоеЗначение = 0;
	
		ПолеОформления = ЭлементОформления.Поля.Элементы.Добавить();	
        ПолеОформления.Поле = Новый ПолеКомпоновкиДанных("ТоварыРазница"); 	
		ЭлементОформления.Оформление.УстановитьЗначениеПараметра("ЦветТекста", WebЦвета.Красный);