Помогите оптимизировать код сравнения 2 ТЧ

<NULL>, <НЕОПРЕРЕДЕЛЕНО>, <0>, <Пустая строка>, <ПустаяСсылка (спр. такой-то)>.(еще что уже мне нужно чтоб бросалось в глаза)..

//###Дораборка+ (13.01.2015 kostyaomsk Юрин К.А.) -->  Прямой перебор строк и колонок в строке на предмет значения NULL 
	// Примечание. Более оптимальный способ это динамическая замена в запросах типа NULL на текст "<NULL>" - этот медленнее
	
	Если ВыделитьNULL Тогда
		Если ТипЗнч(Рез)<>ТипЗнч(ДЗ) Тогда
			
			НовРез = Новый ТаблицаЗначений;
			
			Для каждого Кол Из Рез.Колонки Цикл				
				МасНул        =  Рез.НайтиСтроки(Новый Структура(Кол.Имя, NULL) ); // МассивСтрок с нуллами по очередной колонке
				МасНеопр      =  Рез.НайтиСтроки(Новый Структура(Кол.Имя, НЕОПРЕДЕЛЕНО) ); // МассивСтрок с нуллами по очередной колонке																				
				МасНоль       =  Рез.НайтиСтроки(Новый Структура(Кол.Имя, 0) ); // МассивСтрок с нуллами по очередной колонке																				
				МасПустаяСтр  =  Рез.НайтиСтроки(Новый Структура(Кол.Имя, "") ); // МассивСтрок с нуллами по очередной колонке																				
				
				// Запомним данные по колонке для создания копии
				индСохр = Рез.Колонки.Индекс(Кол); // запомнил индекс удаляемой колонки!
				СтарыйТип = Кол.ТипЗначения; // Описание типов!				
				ИмяСохр = Кол.Имя;
				ЗаголовокСохр = Кол.Заголовок; // Если был заголовок?!
				ШиринаСохр = Кол.Ширина; // То же ?!
				
				// Если колонка нам нужна по одному из "невидимых" критериев 
				Если (МасНул.Количество() > 0) Или 
					(МасНеопр.Количество() > 0) Или
					(МасНоль.Количество() > 0) ИЛИ
					(МасПустаяСтр.Количество() > 0) Тогда
					Если НЕ Кол.ТипЗначения.СодержитТип(Тип("Строка")) Тогда
						СтарыйТип = Новый ОписаниеТипов(СтарыйТип, "Строка"); // дополним тип до строки если он уже не строка
					КонецЕсли;																								
				КонецЕсли; // Добавим строковый тип для рисования НЕОПРЕДЕЛЕНО и NULL	
				
				НовРез.Колонки.Добавить(ИмяСохр, СтарыйТип, ЗаголовокСохр, ШиринаСохр);
				НовРез.ЗагрузитьКолонку(Рез.ВыгрузитьКолонку(ИмяСохр), ИмяСохр);
				
				Если МасПустаяСтр.Количество() > 0 Тогда
					Для каждого СтрРез из МасПустаяСтр Цикл					
						СтрРез[ИмяСохр] = "<Пустая строка>"; // НЕ заполненный множественный тип.					
					КонецЦикла;	// Для каждого СтрРез из Мас Цикл...
				КонецЕсли;
				
				Если МасНул.Количество() > 0 Тогда
					// Меняем только там где есть 
					Для каждого СтрРез из МасНул Цикл					
						СтрРез[ИмяСохр] = "<NULL>";					
					КонецЦикла;	// Для каждого СтрРез из Мас Цикл...
				КонецЕсли;
				
				Если МасНеопр.Количество() > 0 Тогда
					// Меняем только там где есть 
					Для каждого СтрРез из МасНеопр Цикл					
						СтрРез[ИмяСохр] = "<НЕОПРЕДЕЛЕНО>"; // НЕ заполненный множественный тип.					
					КонецЦикла;	// Для каждого СтрРез из Мас Цикл...
				КонецЕсли;
				
				Если МасНоль.Количество() > 0 Тогда
					Для каждого СтрРез из МасНоль Цикл					
						СтрРез[ИмяСохр] = "<ноль>"; // НЕ заполненный множественный тип.					
					КонецЦикла;	// Для каждого СтрРез из Мас Цикл...
				КонецЕсли;
				
				// Еще есть тип "Пустая ссылка" у ссылочных типов и GUID				 
			КонецЦикла; // Для каждого Кол Из Рез.Колонки Цикл...
		Иначе
			// Тут сложнее - перебор дерева приходится дублировать код :) Поиск по подчиненным
			//Для каждого Кол Из Рез.Колонки Цикл				
			//	Мас = Рез.НайтиСтроки(Новый Структура(Кол.Имя, NULL), ИСТИНА); // МассивСтрок с нуллами по очередной колонке
			//	Если Мас.Количество() > 0 Тогда
			//		Если НЕ Кол.ТипЗначения.СодержитТип(Тип("Строка")) Тогда						
			//			Кол. = Новый ОписаниеТипов(Кол.ТипЗначения, "Строка"); // Добавим к сложному исходному типу еще строку
			//		КонецЕсли;
			//	КонецЕсли; // Добавим строковый тип для рисования НЕОПРЕДЕЛЕНО и NULL	
			//	Для каждого СтрРез из Мас Цикл
			//		Если СтрРез[Кол.Имя] = NULL Тогда
			//			СтрРез[Кол.Имя] = "<NULL>";					
			//		КонецЕсли; // Для каждого СтрРез из Мас Цикл...
			//	КонецЦикла;	
			//КонецЦикла; // Для каждого Кол Из Рез.Колонки Цикл...					
		КонецЕсли; // Если ТипЗнч(Рез)<>ТипЗнч(ДЗ) Тогда...	
	КонецЕсли; // Если ВыделитьNULL Тогда ...
	//###Дораборка-
	
	Если ТипЗнч(Рез)=ТипЗнч(ДЗ) Тогда
		ДЗ = Рез;
		ЭлементыФормы.ДЗ.Данные = "ДЗ";
	Иначе
		ТЗ = Рез;
		ЭлементыФормы.ДЗ.Данные = "ТЗ";
	КонецЕсли;