Оптимизация вывода данных

	ЦветИнкассация =	Новый Цвет(230,250,250); 	
	ЦветДоставка =		Новый Цвет(230,255,235);  
	ЦветВархиве =		Новый Цвет(218,215,205);
	ЦветДругая =		WebЦвета.Персиковый;

	Соответствие = Новый Соответствие;
	СсылкиМассив = Новый Массив;
	Для каждого ТекСтрока из ОформленияСтрок Цикл	    //По старому неверно работает
		Если Не ТекСтрока.ДанныеСтроки.ЭтоГруппа Тогда   // ТекСтрока.ДанныеСтроки.Ссылка.ЭтоГруппа  Почему имеено так было ??
			СсылкиМассив.Добавить(ТекСтрока.ДанныеСтроки.Ссылка);
			//Соответствие.Вставить(ТекСтрока.ДанныеСтроки.Ссылка,ТекСтрока);
		КонецЕсли;		
	КонецЦикла;
	
	// из запроса найдем действующие точки
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	СостояниеТочекОбслуживанияСрезПоследних.ТочкаОбслуживания,
	|	СостояниеТочекОбслуживанияСрезПоследних.РабочаяТочка,
	|	СостояниеТочекОбслуживанияСрезПоследних.Услуга
	|ИЗ
	|	РегистрСведений.СостояниеТочекОбслуживания.СрезПоследних(&НаДату, ) КАК СостояниеТочекОбслуживанияСрезПоследних
	|ГДЕ
	|	СостояниеТочекОбслуживанияСрезПоследних.ТочкаОбслуживания В(&МассивТочек)";  
	Запрос.УстановитьПараметр("МассивТочек",СсылкиМассив);
	Запрос.УстановитьПараметр("НаДату",ТекущаяДата());
	
	Выборка = Запрос.Выполнить().Выбрать(); // Запрос.Выполнить().Выгрузить()
	
	запросАдрес = Новый Запрос;
		запросАдрес.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
		               |	КонтактнаяИнформация.Поле4,
					    |	КонтактнаяИнформация.Объект,
		               |	КонтактнаяИнформация.Поле5,
		               |	КонтактнаяИнформация.Поле6 КАК Поле6,
		               |	КонтактнаяИнформация.Поле7,
		               |	КонтактнаяИнформация.Поле8,
		               |	КонтактнаяИнформация.Поле9,
		               |	КонтактнаяИнформация.Поле10,
		               |	КонтактнаяИнформация.Поле4 + "" "" + КонтактнаяИнформация.Поле5 + "" "" + КонтактнаяИнформация.Поле6 + "" "" + КонтактнаяИнформация.Поле7 + "" "" + КонтактнаяИнформация.Поле8 + "" "" + КонтактнаяИнформация.Поле9 + "" "" + КонтактнаяИнформация.Поле10 КАК НаселённыйПункт
		               |ИЗ
		               |	РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
		               |ГДЕ
		               |	КонтактнаяИнформация.Объект В (&Объект)
		               |	И КонтактнаяИнформация.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресТочкиОбслуживания)";
		запросАдрес.УстановитьПараметр("Объект", СсылкиМассив);
	ВыборкаАдреса = запросАдрес.Выполнить().Выбрать();
	
	запросТелефон = Новый Запрос;
	запросТелефон.Текст = "ВЫБРАТЬ
					|	КонтактнаяИнформация.Объект,
					|	КонтактнаяИнформация.Представление
					|ИЗ
					|	РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
					|ГДЕ
					|	КонтактнаяИнформация.Объект В( &Объект)
					|	И КонтактнаяИнформация.Тип = &Тип
					|	И КонтактнаяИнформация.Вид = &Вид";
	запросТелефон.УстановитьПараметр("Объект", СсылкиМассив);
	запросТелефон.УстановитьПараметр("Тип", Перечисления.ТипыКонтактнойИнформации.Телефон);
	запросТелефон.УстановитьПараметр("Вид", Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("000001002"));
	ВыборкаТелефон = запросТелефон.Выполнить().Выбрать();
	
	ЗапросМаршруты = Новый Запрос;
	ЗапросМаршруты.Текст = "ВЫБРАТЬ
	                       |	Заезды.Ссылка КАК Заезд,
	                       |	Заезды.Владелец,
	                       |	Заезды.МаршрутСуббота,
	                       |	Заезды.МаршрутВоскресенье,
	                       |	Заезды.Маршрут,
	                       |	Заезды.ДниЗаездов.Наименование
	                       |ИЗ
	                       |	Справочник.Заезды КАК Заезды
	                       |ГДЕ
	                       |	Заезды.Владелец В(&Владелец)
	                       |	И НЕ Заезды.ПометкаУдаления
	                       |	И Заезды.Действует";
	ЗапросМаршруты.УстановитьПараметр("Владелец",СсылкиМассив);
	ВыборкаМаршруты = ЗапросМаршруты.Выполнить().Выбрать();
	
	
	// Раскрашиваем строки с рабочими тосками обслуживания
	// Пока Выборка.Следующий() Цикл
	Для каждого ТекСтрока из ОформленияСтрок Цикл
		Если (не ТекСтрока.ДанныеСтроки.ЭтоГруппа)  ТОгда
			ПОКА	Выборка.НайтиСледующий(Новый Структура("ТочкаОбслуживания", ТекСтрока.ДанныеСтроки.Ссылка)) ЦИКЛ //Тогда
				Если  Выборка.РабочаяТочка Тогда
					Если ТекСтрока.Ячейки.Доставка.Значение = Неопределено ТОгда
						Доставка = ТекСтрока.ДанныеСтроки.Ссылка.Доставка;
					иначе
						Доставка = ТекСтрока.ДанныеСтроки.Доставка ;
					КонецЕсли;  
					Если Доставка Тогда  
						ТекСтрока.ЦветФона = ЦветДоставка;
					Иначе 
						ТекСтрока.ЦветФона = ЦветИнкассация;
					КонецЕсли; 
				КонецЕсли; 				
			КонецЦикла;	
			//КонецЕсли;
			Выборка.Сбросить();
			Если Не ТекСтрока.ДанныеСтроки.Актуальность Тогда 
				ТекСтрока.ЦветФона = ЦветВархиве;
			КонецЕсли;
			Если ТекСтрока.Ячейки.Подразделение.Значение = ОсновноеПодразделение Тогда
			ИначеЕсли ЗначениеЗаполнено(ОсновноеПодразделение)И Прав(СокрЛП(ОсновноеПодразделение.Код),3) ="001" тогда
			ИначеЕсли Не ЗначениеЗаполнено(ОсновноеПодразделение) Тогда				
			иначе
				ТекСтрока.Ячейки.Картинка.ЦветФона = ЦветДругая;
				ТекСтрока.Ячейки.Подразделение.ЦветФона = ЦветДругая;
			КонецЕсли;  		
			
			/// А Д Р Е С А
			Если	ВыборкаАдреса.НайтиСледующий(Новый Структура("Объект", ТекСтрока.ДанныеСтроки.Ссылка)) Тогда
				ТекСтрока.ячейки.Адрес.Значение = СокрЛП(ВыборкаАдреса.НаселённыйПункт);// АдресТО;				
				ВыборкаАдреса.Сбросить();
			КонецЕсли;
			Если	ВыборкаТелефон.НайтиСледующий(Новый Структура("Объект", ТекСтрока.ДанныеСтроки.Ссылка)) Тогда
				ТекСтрока.ячейки.Телефон.Значение = СокрЛП(ВыборкаТелефон.Представление);// АдресТО;				
				ВыборкаТелефон.Сбросить();
			КонецЕсли;
			МаршрутыПоДням = ""; т=0;
			Пока ВыборкаМаршруты.НайтиСледующий(Новый Структура("Владелец", ТекСтрока.ДанныеСтроки.Ссылка)) Цикл
				МаршрутыПоДням = МаршрутыПоДням+?(т=0,ОбработатьМаршрутыЗаезда(ВыборкаМаршруты),"/"+ОбработатьМаршрутыЗаезда(ВыборкаМаршруты));
				т=1;                  			
			КонецЦикла;  
			ТекСтрока.ячейки.Маршруты.Значение = МаршрутыПоДням;// АдресТО;
			ВыборкаМаршруты.Сбросить();
		КонецЕсли;
	КонецЦикла;