СКД. Программная установка видимости выбранных полей

Если СброситьНастройки Тогда
		КомпоновщикНастроек.Восстановить(СпособВосстановленияНастроекКомпоновкиДанных.Полное);
		КомпоновщикНастроек.ЗагрузитьНастройки(ВариантОтчета.Настройки);
	Иначе	
		НастройкиКД = КомпоновщикНастроек.ПолучитьНастройки();		
		КомпоновщикНастроек.ЗагрузитьНастройки(ВариантОтчета.Настройки);
	КонецЕсли;
	ЭлементыФормы.Результат.Очистить();
	УстановитьОтборВОтчет(ПолеВводаМенеджеровВСписок, "Контрагент.ОсновнойМенеджерПокупателя", ВидСравненияКомпоновкиДанных.ВСписке, ОтборПоМенеджерамВкл);
	УстановитьОтборВОтчет(ПолеВводаГруппНоменклатуры, "Номенклатура", ВидСравненияКомпоновкиДанных.ВИерархии, ОтборПоГруппамВкл);
	УстановитьЗначениеПараметра("ДатаНачала", ПолеДатаНачала);
	УстановитьЗначениеПараметра("ДатаОкончания", ПолеДатаОкончания);
	ВыбранныеПоля = КомпоновщикНастроек.Настройки.Выбор.Элементы;
	МассивПолейКоличества = Новый Массив;
	МассивПолейКоличества.Добавить("КоличествоТ");
	МассивПолейКоличества.Добавить("КоличествоП");
	МассивПолейКоличества.Добавить("ПользовательскиеПоля.Поле1");
	МассивПолейСтоимости = Новый Массив;
	МассивПолейСтоимости.Добавить("СтоимостьТ");
	МассивПолейСтоимости.Добавить("СтоимостьП");
	МассивПолейСтоимости.Добавить("ПользовательскиеПоля.Поле2");
	Для Каждого ВыбранноеПоле Из ВыбранныеПоля Цикл
		Если ТипЗнч(ВыбранноеПоле) = Тип("ВыбранноеПолеКомпоновкиДанных") Тогда
			Если МассивПолейСтоимости.Найти(Строка(ВыбранноеПоле.Поле)) <> Неопределено Тогда
				ВыбранноеПоле.Использование = ПоказыватьСтоимость;
			 КонецЕсли;
			 Если МассивПолейКоличества.Найти(Строка(ВыбранноеПоле.Поле)) <> Неопределено Тогда
				 ВыбранноеПоле.Использование = ПоказыватьКоличество;
			 КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	СкомпоноватьРезультат(ЭлементыФормы.Результат, ДанныеРасшифровки); //таб док на форме
	ЭлементыФормы.Результат.ПоказатьУровеньГруппировокКолонок(0);
	ЭлементыФормы.Результат.ПоказатьУровеньГруппировокСтрок(0);
	
	Если ВариантОтчета.Имя="Вариант4" Тогда
		МассивМаркеров=Новый Массив;
		МассивМаркеров.Добавить("янв.");
		МассивМаркеров.Добавить("февр.");
		МассивМаркеров.Добавить("март");
		МассивМаркеров.Добавить("апр.");
		МассивМаркеров.Добавить("май");
		МассивМаркеров.Добавить("июнь");
		МассивМаркеров.Добавить("июль");
		МассивМаркеров.Добавить("авг.");
		МассивМаркеров.Добавить("сент.");
		МассивМаркеров.Добавить("окт.");
		МассивМаркеров.Добавить("нояб.");
		МассивМаркеров.Добавить("дек.");
		
		Для Каждого Маркер Из МассивМаркеров Цикл
			ОбъединитьЯчейкиВТабличномДокументе(ЭлементыФормы.Результат, Маркер);
		КонецЦикла;
	КонецЕсли;
	
	УдаляемоеПолеКомпоновки1=Неопределено;
	Для Каждого тэКНКОлонки Из КомпоновщикНастроек.Настройки.Структура[0].Колонки[0].Выбор.Элементы Цикл
		Если Строка(тэКНКОлонки.Поле)="СтоимостьТ" Тогда
			Если Не ПоказыватьСтоимость Тогда 
				УдаляемоеПолеКомпоновки1=тэКНКОлонки;
			КонецЕсли;
			тэКНКОлонки.Использование=ПоказыватьСтоимость;
		КонецЕсли;
		Если Строка(тэКНКОлонки.Поле)="КоличествоТ" Тогда
			Если Не ПоказыватьКоличество Тогда 
				УдаляемоеПолеКомпоновки1=тэКНКОлонки;
			КонецЕсли;
			тэКНКОлонки.Использование=ПоказыватьКоличество;
		КонецЕсли;
	КонецЦикла;
	
	УдаляемоеПолеКомпоновки2=Неопределено;
	Для Каждого тэКНКОлонки Из КомпоновщикНастроек.Настройки.Выбор.Элементы Цикл
		Если Строка(тэКНКОлонки.Поле)="СтоимостьТ" Тогда
			Если Не ПоказыватьСтоимость Тогда 
				УдаляемоеПолеКомпоновки2=тэКНКОлонки;
			КонецЕсли;
		КонецЕсли;
		Если Строка(тэКНКОлонки.Поле)="КоличествоТ" Тогда
			Если Не ПоказыватьКоличество Тогда 
				УдаляемоеПолеКомпоновки2=тэКНКОлонки;
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	
	Если Не УдаляемоеПолеКомпоновки1=Неопределено Тогда
		КомпоновщикНастроек.Настройки.Структура[0].Колонки[0].Выбор.Элементы.Удалить(УдаляемоеПолеКомпоновки1);
	КонецЕсли;
	
	Если Не УдаляемоеПолеКомпоновки2=Неопределено Тогда
		КомпоновщикНастроек.Настройки.Выбор.Элементы.Удалить(УдаляемоеПолеКомпоновки2);
	КонецЕсли;