Автоматическая подстановка уничтожений временных таблиц в текст запроса

Пока все рассуждают на тему, «Нужно ли удалять временные таблицы», мне это периодически делать приходится. Посему написал функцию, которая делает это сама. Выкладываю здесь — быть может, кому пригодится. 

Механизм реализован при помощи относительно нового объекта «СхемаЗапроса». Поэтому работать будет только под платформой начиная с 8.3.5.1068.

Пока что во всех ситуациях ошибок не было, но если появятся, то прошу оставлять примеры в комментариях.

В публикации есть полный текст механизма + обработка для «поглазеть». В ней ничего особенного, просто тот же механизм, завернутый в обработку с двумя кнопками «Подставить уничтожения» (сам механизм) и «Сравнить» (сравнение текста результата с оригинальным текстом).   

Функция ТекстЗапросаСУничтожениямиВременныхТаблиц(ТекстЗапроса) Экспорт

СхемаЗапроса    = Новый СхемаЗапроса;
СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса);

ТаблицаЗапроса    = Новый ТаблицаЗначений;
ТаблицаЗапроса.Колонки.Добавить("ИндексПакетаЗапроса", Новый ОписаниеТипов("Число"));
ТаблицаЗапроса.Колонки.Добавить("ИспользуемаяВременнаяТаблица", Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(150)));

Для Каждого ПакетЗапроса Из СхемаЗапроса.ПакетЗапросов Цикл

#Если Клиент Тогда
Состояние("Обработка пакета " + ПакетЗапроса.Представление());
#КонецЕсли

ОбработатьПакет(СхемаЗапроса, ПакетЗапроса, ТаблицаЗапроса);

КонецЦикла;

ТаблицаЗапроса.Свернуть("ИндексПакетаЗапроса,ИспользуемаяВременнаяТаблица");

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|    ТаблицаЗапроса.ИндексПакетаЗапроса,
|    ТаблицаЗапроса.ИспользуемаяВременнаяТаблица
|ПОМЕСТИТЬ ВТ_ТаблицаЗапроса
|ИЗ
|    &ТаблицаЗапроса КАК ТаблицаЗапроса
|;
|
////////////////////////////////////////////////////////////////////////////////

|ВЫБРАТЬ
|    ВТ_ТаблицаЗапроса.ИспользуемаяВременнаяТаблица КАК ИмяТаблицы,
|    МАКСИМУМ(ВТ_ТаблицаЗапроса.ИндексПакетаЗапроса) + 1 КАК ИндексДляПакетаУдаления
|ИЗ
|    ВТ_ТаблицаЗапроса КАК ВТ_ТаблицаЗапроса
|
|СГРУППИРОВАТЬ ПО
|    ВТ_ТаблицаЗапроса.ИспользуемаяВременнаяТаблица
|
|УПОРЯДОЧИТЬ ПО
|    ИндексДляПакетаУдаления УБЫВ";
Запрос.УстановитьПараметр("ТаблицаЗапроса", ТаблицаЗапроса);
ТаблицаПоследнегоИспользования    = Запрос.Выполнить().Выгрузить();

СхемаНовогоЗапроса    = Новый СхемаЗапроса;
СхемаНовогоЗапроса.УстановитьТекстЗапроса(ТекстЗапроса);

Для Каждого стрТаблицаПоследнегоИспользования Из ТаблицаПоследнегоИспользования Цикл

ПакетУничтожения    = СхемаНовогоЗапроса.ПакетЗапросов.Добавить(Тип("ЗапросУничтоженияТаблицыСхемыЗапроса"));
ПакетУничтожения.ИмяТаблицы = стрТаблицаПоследнегоИспользования.ИмяТаблицы;

СтарыйИндекс    = СхемаНовогоЗапроса.ПакетЗапросов.Индекс(ПакетУничтожения);
НовыйИндекс     = стрТаблицаПоследнегоИспользования.ИндексДляПакетаУдаления;

СхемаНовогоЗапроса.ПакетЗапросов.Сдвинуть(СтарыйИндекс, НовыйИндекс);

КонецЦикла;

Возврат СхемаНовогоЗапроса.ПолучитьТекстЗапроса();

КонецФункции

Процедура ОбработатьПакет(СхемаЗапроса, ПакетЗапроса, ТаблицаЗапроса, ИндексПакетаЗапроса = Неопределено)

Если ТипЗнч(ПакетЗапроса) = Тип("ЗапросВыбораСхемыЗапроса") Тогда

ИндексПакетаЗапроса             = ?(ИндексПакетаЗапроса = Неопределено, СхемаЗапроса.ПакетЗапросов.Индекс(ПакетЗапроса), ИндексПакетаЗапроса);
АнализируемыеВременныеТаблицы   = ДоступныеВременныеТаблицыПакета(ПакетЗапроса);
АнализируемыеВыражения          = Новый Массив;

Если НЕ ПустаяСтрока(ПакетЗапроса.ТаблицаДляПомещения) Тогда
ДобавитьСтрокуВТаблицуЗапроса(ТаблицаЗапроса, ПакетЗапроса.ТаблицаДляПомещения, ИндексПакетаЗапроса);
КонецЕсли;

Для Каждого Оператор Из ПакетЗапроса.Операторы Цикл

Для Каждого Источник Из Оператор.Источники Цикл

//Источник

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

//Удаляем найденные ВТ из массива искомых, потому что они уже и так используются

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

//Соединения

Если АнализируемыеВременныеТаблицы.Количество() > 0 Тогда
Для Каждого Соединение Из Источник.Соединения Цикл
ИспользуемыеВТ  = ИспользуемыеВременныеТаблицыВВыражении(АнализируемыеВременныеТаблицы, Соединение.Условие);
Для Каждого ИспользуемаяВТ Из ИспользуемыеВТ Цикл
ДобавитьСтрокуВТаблицуЗапроса(ТаблицаЗапроса, ИспользуемаяВТ, ИндексПакетаЗапроса);
ИндексЭлемента  = АнализируемыеВременныеТаблицы.Найти(ИспользуемаяВТ);
Если ИндексЭлемента <> Неопределено Тогда
АнализируемыеВременныеТаблицы.Удалить(ИндексЭлемента);
КонецЕсли;
КонецЦикла;
Если АнализируемыеВременныеТаблицы.Количество() = 0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;

КонецЦикла;

//Отборы

Если АнализируемыеВременныеТаблицы.Количество() > 0 Тогда
Для Каждого Отбор Из Оператор.Отбор Цикл
ИспользуемыеВТ  = ИспользуемыеВременныеТаблицыВВыражении(АнализируемыеВременныеТаблицы, Отбор);
Для Каждого ИспользуемаяВТ Из ИспользуемыеВТ Цикл
ДобавитьСтрокуВТаблицуЗапроса(ТаблицаЗапроса, ИспользуемаяВТ, ИндексПакетаЗапроса);
ИндексЭлемента  = АнализируемыеВременныеТаблицы.Найти(ИспользуемаяВТ);
Если ИндексЭлемента <> Неопределено Тогда
АнализируемыеВременныеТаблицы.Удалить(ИндексЭлемента);
КонецЕсли;
КонецЦикла;
Если АнализируемыеВременныеТаблицы.Количество() = 0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;

КонецЦикла;

ИначеЕсли ТипЗнч(ПакетЗапроса) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда

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

КонецЕсли;

КонецПроцедуры

Функция ИспользуемыеВременныеТаблицыВВыражении(АнализируемыеВременныеТаблицы, Выражение)

ИспользуемыеВременныеТаблицыВВыражении  = Новый Массив;

ТекстВыражения  = ВРег(Строка(Выражение));
Если Найти(ТекстВыражения, "ВЫБРАТЬ") <> 0
И Найти(ТекстВыражения, "ИЗ") <> 0
И Найти(ТекстВыражения, "КАК") <> 0 Тогда


Для Каждого ВременнаяТаблица Из АнализируемыеВременныеТаблицы Цикл
КоординатаИспользованияВТ   = Найти(ТекстВыражения, ВРег(ВременнаяТаблица) + " КАК");
Если КоординатаИспользованияВТ <> 0 Тогда
Если Сред(ТекстВыражения, КоординатаИспользованияВТ-1, 1) <> "." Тогда    //отсекаем выражения "Таблица.ИмяВТ КАК ИмяВТ" И "Документ.ИмяВТ КАК ИмяВТ"
ИспользуемыеВременныеТаблицыВВыражении.Добавить(ВременнаяТаблица);
КонецЕсли;
КонецЕсли;
КонецЦикла;

КонецЕсли;

Возврат ИспользуемыеВременныеТаблицыВВыражении;

КонецФункции

Процедура ДобавитьСтрокуВТаблицуЗапроса(ТаблицаЗапроса, ИспользуемаяВременнаяТаблица, ИндексПакетаЗапроса)

//Добавляем, если такой ещё нет

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

КонецПроцедуры

Функция ДоступныеВременныеТаблицыПакета(ПакетЗапроса)

ДоступныеВременныеТаблицыПакета    = Новый Массив;

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

Возврат ДоступныеВременныеТаблицыПакета;

КонецФункции