Changed description and added new func

src/cf/CommonModules/пбп_СхемыЗапросов/Ext/Module.bsl

@@ -121,20 +121,11 @@
 
 	КонецЦикла;
 
-	// Удалим "мусор" схемы запроса
-	НомерПоля = 1;
-	ИскомаяПодстрока = " КАК Поле" + НомерПоля;
-	НайденоМусорноеПоле = СтрНайти(ТекстЗапроса, ИскомаяПодстрока) > 0;
-	Пока НайденоМусорноеПоле Цикл 
-		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, ИскомаяПодстрока, "");
-
-		НомерПоля = НомерПоля + 1;
-		ИскомаяПодстрока = " КАК Поле" + НомерПоля;
-		НайденоМусорноеПоле = СтрНайти(ТекстЗапроса, ИскомаяПодстрока) > 0;
-	КонецЦикла;
-
 	НовыйТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса();
 
+	// Удалим "мусор" схемы запроса
+	УдалитьНенужныеПоля(НовыйТекстЗапроса);
+
 	Если ТипЗнч(Запрос) = Тип("Строка") Тогда
 		Запрос = НовыйТекстЗапроса;
 	ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда 
@@ -145,7 +136,7 @@
 
 КонецФункции
 
-// Добавляет новое поле в конец секции выборки переданного запроса
+// Добавляет список полей в конец секции выборки переданного запроса
 //
 // Параметры:
 //  Запрос - Строка, Запрос - текст запроса или запрос.
@@ -237,16 +228,7 @@
 	НовыйТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса();
 
 	// Удалим "мусор" схемы запроса
-	НомерПоля = 1;
-	ИскомаяПодстрока = " КАК Поле" + НомерПоля;
-	НайденоМусорноеПоле = СтрНайти(НовыйТекстЗапроса, ИскомаяПодстрока) > 0;
-	Пока НайденоМусорноеПоле Цикл 
-		НовыйТекстЗапроса = СтрЗаменить(НовыйТекстЗапроса, ИскомаяПодстрока, "");
-
-		НомерПоля = НомерПоля + 1;
-		ИскомаяПодстрока = " КАК Поле" + НомерПоля;
-		НайденоМусорноеПоле = СтрНайти(НовыйТекстЗапроса, ИскомаяПодстрока) > 0;
-	КонецЦикла;
+	УдалитьНенужныеПоля(НовыйТекстЗапроса);
 
 	Если ТипЗнч(Запрос) = Тип("Строка") Тогда
 		Запрос = НовыйТекстЗапроса;
@@ -789,3 +771,23 @@
 #КонецОбласти
 
 #КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Процедура УдалитьНенужныеПоля(ТекстЗапроса)
+
+	// Удалим "мусор" схемы запроса
+	НомерПоля = 1;
+	ИскомаяПодстрока = " КАК Поле" + НомерПоля;
+	НайденоМусорноеПоле = СтрНайти(ТекстЗапроса, ИскомаяПодстрока) > 0;
+	Пока НайденоМусорноеПоле И НомерПоля < 20 Цикл 
+		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, ИскомаяПодстрока, "");
+
+		НомерПоля = НомерПоля + 1;
+		ИскомаяПодстрока = " КАК Поле" + НомерПоля;
+		НайденоМусорноеПоле = СтрНайти(ТекстЗапроса, ИскомаяПодстрока) > 0;
+	КонецЦикла;
+
+КонецПроцедуры
+
+#КонецОбласти