Код

	Перем Temp;
	OLEDB = СоздатьОбъект("OLEDBData");
	OLEDB.Соединение("Provider=VFPOLEDB.1;
	|Deleted=Yes;
	|Mode=ReadWrite;
	|Collating Sequence=RUSSIAN;
	|Data Source=" + КаталогИБ());
	Qr = OLEDB.СоздатьКоманду();
	Qr.УложитьСписокОбъектов(Группа, Temp,"Номенклатура");

	ODBC = СоздатьОбъект("ODBCDatabase");
	Рез = ODBC.Соединение("DRIVER=Microsoft Visual FoxPro Driver;
	|Deleted=Yes;
	|Null=Yes;
	|Collate=RUSSIAN;
	|BackgroundFetch=Yes;
	|Exclusive=No;
	|SourceType=DBF;
	|SourceDB=" + КаталогИБ());
	Если Рез = 0 Тогда
		ODBC.Закрыть();
		Сообщить("Ошибка ODBC подключения к базе!"+ ODBC.ПолучитьОписаниеОшибки(),"!!!");
		Возврат;
	КонецЕсли;
	Rs = СоздатьОбъект("ODBCRecordSet");
	Rs.УстБД(ODBC);
	ТекстЗапроса = "
	|SELECT
	|	Спр.Code  as Код,
	|	Спр.ID as [Наименование $Справочник.Номенклатура]
	|FROM
	|	$Справочник.Номенклатура as Спр
	|WHERE
	|  Спр.ID IN (SELECT Val FROM  "+Temp+")
	|";
	ТЗ = Rs.ВыполнитьИнструкцию(ТекстЗапроса);
	ТЗ.ВыбратьСтроку();