Код

процедура тест_типизацияЗапросаТипомТЗ()
	Перем итТипов; //:ИндексированнаяТаблица
	_Соединение = СоздатьОбъект("ODBCRecordSet");
	_Соединение.УстБД1С();
	_Соединение.Отладка(1);

	пустаяТЗстрокой = ЗначениеВСтрокуВнутр(СоздатьОбъект("ТаблицаЗначений"));
	_Соединение.Выполнить("CREATE TABLE #tempTableForTZ(value char(42))");
	_Соединение.Выполнить("DELETE FROM #tempTableForTZ");
	_Соединение.Подготовить("INSERT INTO #tempTableForTZ (value) VALUES(?)");

	тзДанных = СоздатьОбъект("ТаблицаЗначений");
	тзДанных.НоваяКолонка("value", "Строка");

	Для сч=1 По 1000 Цикл
		тзДанных.НоваяСтрока();
		тзДанных.value = пустаяТЗстрокой;
	КонецЦикла;

	_Соединение.ВыполнитьSQL_ИзТЗ(тзДанных);

	итзРезультатов = СоздатьОбъект("ИндексированнаяТаблица");
	итзРезультатов.УдалитьСтроки();
	_Соединение.Отладка(1);
	_Соединение.ВыполнитьИнструкцию("
	|SELECT
	| 	RTRIM(value) as [emptyTable1C $ТаблицаЗначений],
	|   RTRIM(value) as строкаТЗ,
	|   '' as востановленнаяТЗ,
	|	'1' as типЗначения
	|FROM
	|	#tempTableForTZ
	|", итзРезультатов,1);

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

	_модуль = СоздатьОбъект("ВыполняемыйМодуль");

	Если итТипов.КоличествоСтрок()=0 Тогда
		_модуль.ВыброситьИскл(Контекст,"таблицы значений вообще не типизировались");
	Иначе
		итТипов.ВыбратьСтроки();
		Пока итТипов.ПолучитьСтроку() = 1 Цикл
			Если итТипов.типЗначения <> "ТаблицаЗначений" Тогда
				_модуль.ВыброситьИскл(Контекст,"ошибочная типизаци ТЗ - тип("+итТипов.типЗначения+")");
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;

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