Код

Процедура УложитьСписокЗначений(РС, таблица, тип, СпЗн)
	Попытка
		Рс.ВыполнитьСкалярный("DROP TABLE "+таблица);
	Исключение
	КонецПопытки;
	//Рс.ВыполнитьИнстр(ТекстЗапроса);
	Если СпЗн.РазмерСписка() = 0 Тогда
	    ТекстЗапроса =
		"CREATE TABLE "+Таблица+" (val "+Тип+")";
	Иначе
		ТекстЗапроса =
		"CREATE TABLE "+Таблица+" (val "+Тип+")
		|SET NOCOUNT ON
		|INSERT INTO "+таблица+ "
		|SELECT *
		|from
		|(";

		Для Индекс = 1 по СпЗн.РазмерСписка()-1 цикл
			ТекстЗапроса = ТекстЗапроса + "
			|select '"+СтрЗаменить(СпЗн.РазмерСписка(),"'","\'")+"' val union all "
		КонецЦикла;
		ТекстЗапроса = ТекстЗапроса + "
		|select '"+СтрЗаменить(СпЗн.РазмерСписка(),"'","\'")+"') Строки ";
	КонецЕсли;
	Рс.ВыполнитьСкалярный(ТекстЗапроса);
КонецПроцедуры