Код

	МД = СоздатьОбъект("MetaDataWork");
	RS = СоздатьОбъект("ODBCRecordSet");
	ТЗ = СоздатьОбъект("ТаблицаЗначений");
	СЗ1 = СоздатьОбъект("СписокЗначений");
	СЗ2 = СоздатьОбъект("СписокЗначений");
	СписокИДСправ = "";
	Для сс=1 По Метаданные.Справочник() Цикл
		Если сс = 1 Тогда
			СписокИДСправ = СписокИДСправ + СокрЛП(МД.ИДСправочника(сс));
		Иначе
			СписокИДСправ = СписокИДСправ + ", "+СокрЛП(МД.ИДСправочника(сс));
		КонецЕсли;
	КонецЦикла;
	СписокИДДок = "";
	Для дд=1 По Метаданные.Документ() Цикл
		Если дд = 1 Тогда
			СписокИДДок = СписокИДДок+ СокрЛП(МД.ИДДокумента(дд));
		Иначе
			СписокИДДок = СписокИДДок+ ", "+СокрЛП(МД.ИДДокумента(дд));
		КонецЕсли;
	КонецЦикла;
	RS.Отладка(1);
	Запрос = "
	|select
	|  dbo.sp_tohex(УРБД.TypeID) + УРБД.ObjID as [Спр $Справочник]
	//|dbo.sp_tohex(УРБД.TypeID) + УРБД.ObjID as [Док $Документ]
	|from
	|  _1supdts as УРБД
	|where
	|  УРБД.TypeID IN ("+СписокИДСправ+")
		    //|  УРБД.TypeID IN ("+СписокИДДок+")
	|group by
	|  УРБД.TypeID, УРБД.ObjID
	|";
 	Если RS.Открыть(Запрос,,) = 0 Тогда
		Сообщить(RS.ПолучитьОписаниеОшибки (),"");
		Возврат;
	КонецЕсли;
	RS.ПолучитьРезультатыВ_ТЗ(ТЗ,1);
	RS.Закрыть();
	ТЗ.ВыбратьСтроку();