(Архив) Автоматическая подстановка уничтожений временных таблиц
Функция, которая сама подставляет в текст запроса "УНИЧТОЖИТЬ" в местах последнего использования ВТ
Пока все рассуждают на тему, “Нужно ли удалять временные таблицы”, мне это периодически делать приходится. Посему написал функцию, которая делает это сама. Выкладываю здесь - быть может, кому пригодится.
Механизм реализован при помощи относительно нового объекта “СхемаЗапроса”. Поэтому работать будет только под платформой начиная с 8.3.5.1068.
Пока что во всех ситуациях ошибок не было, но если появятся, то прошу оставлять примеры в комментариях.
В публикации есть полный текст механизма + обработка для “поглазеть”. В ней ничего особенного, просто тот же механизм, завернутый в обработку с двумя кнопками “Подставить уничтожения” (сам механизм) и “Сравнить” (сравнение текста результата с оригинальным текстом).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
Функция ТекстЗапросаСУничтожениямиВременныхТаблиц(ТекстЗапроса) Экспорт
СхемаЗапроса = Новый СхемаЗапроса;
СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса);
ТаблицаЗапроса = Новый ТаблицаЗначений;
ТаблицаЗапроса.Колонки.Добавить("ИндексПакетаЗапроса", Новый ОписаниеТипов("Число"));
ТаблицаЗапроса.Колонки.Добавить("ИспользуемаяВременнаяТаблица", Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(150)));
Для Каждого ПакетЗапроса Из СхемаЗапроса.ПакетЗапросов Цикл
#Если Клиент Тогда
Состояние("Обработка пакета " + ПакетЗапроса.Представление());
#КонецЕсли
ОбработатьПакет(СхемаЗапроса, ПакетЗапроса, ТаблицаЗапроса);
КонецЦикла;
ТаблицаЗапроса.Свернуть("ИндексПакетаЗапроса,ИспользуемаяВременнаяТаблица");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ТаблицаЗапроса.ИндексПакетаЗапроса,
| ТаблицаЗапроса.ИспользуемаяВременнаяТаблица
|ПОМЕСТИТЬ ВТ_ТаблицаЗапроса
|ИЗ
| &ТаблицаЗапроса КАК ТаблицаЗапроса
|;
|
////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ_ТаблицаЗапроса.ИспользуемаяВременнаяТаблица КАК ИмяТаблицы,
| МАКСИМУМ(ВТ_ТаблицаЗапроса.ИндексПакетаЗапроса) + 1 КАК ИндексДляПакетаУдаления
|ИЗ
| ВТ_ТаблицаЗапроса КАК ВТ_ТаблицаЗапроса
|
|СГРУППИРОВАТЬ ПО
| ВТ_ТаблицаЗапроса.ИспользуемаяВременнаяТаблица
|
|УПОРЯДОЧИТЬ ПО
| ИндексДляПакетаУдаления УБЫВ";
Запрос.УстановитьПараметр("ТаблицаЗапроса", ТаблицаЗапроса);
ТаблицаПоследнегоИспользования = Запрос.Выполнить().Выгрузить();
СхемаНовогоЗапроса = Новый СхемаЗапроса;
СхемаНовогоЗапроса.УстановитьТекстЗапроса(ТекстЗапроса);
Для Каждого стрТаблицаПоследнегоИспользования Из ТаблицаПоследнегоИспользования Цикл
ПакетУничтожения = СхемаНовогоЗапроса.ПакетЗапросов.Добавить(Тип("ЗапросУничтоженияТаблицыСхемыЗапроса"));
ПакетУничтожения.ИмяТаблицы = стрТаблицаПоследнегоИспользования.ИмяТаблицы;
СтарыйИндекс = СхемаНовогоЗапроса.ПакетЗапросов.Индекс(ПакетУничтожения);
НовыйИндекс = стрТаблицаПоследнегоИспользования.ИндексДляПакетаУдаления;
СхемаНовогоЗапроса.ПакетЗапросов.Сдвинуть(СтарыйИндекс, НовыйИндекс);
КонецЦикла;
Возврат СхемаНовогоЗапроса.ПолучитьТекстЗапроса();
КонецФункции
Процедура ОбработатьПакет(СхемаЗапроса, ПакетЗапроса, ТаблицаЗапроса, ИндексПакетаЗапроса = Неопределено)
Если ТипЗнч(ПакетЗапроса) = Тип("ЗапросВыбораСхемыЗапроса") Тогда
ИндексПакетаЗапроса = ?(ИндексПакетаЗапроса = Неопределено, СхемаЗапроса.ПакетЗапросов.Индекс(ПакетЗапроса), ИндексПакетаЗапроса);
АнализируемыеВременныеТаблицы = ДоступныеВременныеТаблицыПакета(ПакетЗапроса);
АнализируемыеВыражения = Новый Массив;
Если НЕ ПустаяСтрока(ПакетЗапроса.ТаблицаДляПомещения) Тогда
ДобавитьСтрокуВТаблицуЗапроса(ТаблицаЗапроса, ПакетЗапроса.ТаблицаДляПомещения, ИндексПакетаЗапроса);
КонецЕсли;
Для Каждого Оператор Из ПакетЗапроса.Операторы Цикл
Для Каждого Источник Из Оператор.Источники Цикл
//Источник
Если ТипЗнч(Источник.Источник) = Тип("ТаблицаСхемыЗапроса") Тогда
ИмяИспользуемойТаблицы = Источник.Источник.ИмяТаблицы;
Если Найти(Источник.Источник.ИмяТаблицы, ".") = 0 Тогда //Это обращение к ВТ
ДобавитьСтрокуВТаблицуЗапроса(ТаблицаЗапроса, ИмяИспользуемойТаблицы, ИндексПакетаЗапроса);
КонецЕсли;
ИначеЕсли ТипЗнч(Источник.Источник) = Тип("ВложенныйЗапросСхемыЗапроса") Тогда
ОбработатьПакет(СхемаЗапроса, Источник.Источник.Запрос, ТаблицаЗапроса, ИндексПакетаЗапроса);
КонецЕсли;
//Удаляем найденные ВТ из массива искомых, потому что они уже и так используются
ИспользуемыеВТ = ТаблицаЗапроса.НайтиСтроки(Новый Структура("ИндексПакетаЗапроса", ИндексПакетаЗапроса));
Для Каждого ИспользуемаяВТ Из ИспользуемыеВТ Цикл
ИндексЭлемента = АнализируемыеВременныеТаблицы.Найти(ИспользуемаяВТ.ИспользуемаяВременнаяТаблица);
Если ИндексЭлемента <> Неопределено Тогда
АнализируемыеВременныеТаблицы.Удалить(ИндексЭлемента);
КонецЕсли;
КонецЦикла;
//Соединения
Если АнализируемыеВременныеТаблицы.Количество() > 0 Тогда
Для Каждого Соединение Из Источник.Соединения Цикл
ИспользуемыеВТ = ИспользуемыеВременныеТаблицыВВыражении(АнализируемыеВременныеТаблицы, Соединение.Условие);
Для Каждого ИспользуемаяВТ Из ИспользуемыеВТ Цикл
ДобавитьСтрокуВТаблицуЗапроса(ТаблицаЗапроса, ИспользуемаяВТ, ИндексПакетаЗапроса);
ИндексЭлемента = АнализируемыеВременныеТаблицы.Найти(ИспользуемаяВТ);
Если ИндексЭлемента <> Неопределено Тогда
АнализируемыеВременныеТаблицы.Удалить(ИндексЭлемента);
КонецЕсли;
КонецЦикла;
Если АнализируемыеВременныеТаблицы.Количество() = 0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
//Отборы
Если АнализируемыеВременныеТаблицы.Количество() > 0 Тогда
Для Каждого Отбор Из Оператор.Отбор Цикл
ИспользуемыеВТ = ИспользуемыеВременныеТаблицыВВыражении(АнализируемыеВременныеТаблицы, Отбор);
Для Каждого ИспользуемаяВТ Из ИспользуемыеВТ Цикл
ДобавитьСтрокуВТаблицуЗапроса(ТаблицаЗапроса, ИспользуемаяВТ, ИндексПакетаЗапроса);
ИндексЭлемента = АнализируемыеВременныеТаблицы.Найти(ИспользуемаяВТ);
Если ИндексЭлемента <> Неопределено Тогда
АнализируемыеВременныеТаблицы.Удалить(ИндексЭлемента);
КонецЕсли;
КонецЦикла;
Если АнализируемыеВременныеТаблицы.Количество() = 0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
ИначеЕсли ТипЗнч(ПакетЗапроса) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда
УдаляемыеСтроки = ТаблицаЗапроса.НайтиСтроки(Новый Структура("ИспользуемаяВременнаяТаблица", ПакетЗапроса.ИмяТаблицы));
Для Каждого УдаляемаяСтрока Из УдаляемыеСтроки Цикл
ТаблицаЗапроса.Удалить(УдаляемаяСтрока);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Функция ИспользуемыеВременныеТаблицыВВыражении(АнализируемыеВременныеТаблицы, Выражение)
ИспользуемыеВременныеТаблицыВВыражении = Новый Массив;
ТекстВыражения = ВРег(Строка(Выражение));
Если Найти(ТекстВыражения, "ВЫБРАТЬ") <> 0
И Найти(ТекстВыражения, "ИЗ") <> 0
И Найти(ТекстВыражения, "КАК") <> 0 Тогда
Для Каждого ВременнаяТаблица Из АнализируемыеВременныеТаблицы Цикл
КоординатаИспользованияВТ = Найти(ТекстВыражения, ВРег(ВременнаяТаблица) + " КАК");
Если КоординатаИспользованияВТ <> 0 Тогда
Если Сред(ТекстВыражения, КоординатаИспользованияВТ-1, 1) <> "." Тогда //отсекаем выражения "Таблица.ИмяВТ КАК ИмяВТ" И "Документ.ИмяВТ КАК ИмяВТ"
ИспользуемыеВременныеТаблицыВВыражении.Добавить(ВременнаяТаблица);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Возврат ИспользуемыеВременныеТаблицыВВыражении;
КонецФункции
Процедура ДобавитьСтрокуВТаблицуЗапроса(ТаблицаЗапроса, ИспользуемаяВременнаяТаблица, ИндексПакетаЗапроса)
//Добавляем, если такой ещё нет
Если ТаблицаЗапроса.НайтиСтроки(Новый Структура("ИспользуемаяВременнаяТаблица, ИндексПакетаЗапроса", ИспользуемаяВременнаяТаблица, ИндексПакетаЗапроса)).Количество() = 0 Тогда
стрТаблицаЗапроса = ТаблицаЗапроса.Добавить();
стрТаблицаЗапроса.ИндексПакетаЗапроса = ИндексПакетаЗапроса;
стрТаблицаЗапроса.ИспользуемаяВременнаяТаблица = ИспользуемаяВременнаяТаблица;
КонецЕсли;
КонецПроцедуры
Функция ДоступныеВременныеТаблицыПакета(ПакетЗапроса)
ДоступныеВременныеТаблицыПакета = Новый Массив;
ДоступныеТаблицы = ПакетЗапроса.ДоступныеТаблицы.Найти("Временные таблицы");
Если ДоступныеТаблицы <> Неопределено Тогда
Для Каждого ДоступнаяТаблица Из ДоступныеТаблицы.Состав Цикл
ДоступныеВременныеТаблицыПакета.Добавить(ДоступнаяТаблица.Имя);
КонецЦикла;
КонецЕсли;
Возврат ДоступныеВременныеТаблицыПакета;
КонецФункции
Авторский пост защищен лицензией CC BY 4.0 .