Код

//*******************************************
Процедура Сформировать()
	База  = СоздатьОбъект("OLEDBData");
	База.Соединение("Provider=VFPOLEDB.1;
	|Deleted=Yes;
	|Mode=ReadWrite;
	|Collating Sequence=RUSSIAN;
	|Data Source=" + КаталогИБ());
	Запрос = База.СоздатьКоманду();
	Temp = "";
	Запрос.УложитьСписокОбъектов(Список1,Temp,"Номенклатура");
	ТекстЗапроса = "
	|SELECT
	|	Спр.ID as [Номенклатура $Справочник.Номенклатура]
	|FROM
	|	$Справочник.Номенклатура as Спр
	|WHERE
	|	Спр.ID IN (SELECT Val FROM " + Temp + ")
    |";
    ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
	ТЗ.ВыбратьСтроки();
	Пока ТЗ.ПолучитьСтроку() = 1 Цикл
		Если Список2.НайтиЗначение(ТЗ.Номенклатура.Родитель) = 0
		Тогда
			Список2.ДобавитьЗначение(ТЗ.Номенклатура.Родитель);
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры
 

Код

	ТекстЗапроса = "";
	Для А = 1 По Список1.РазмерСписка() Цикл
		Temp = "";
		Запрос.УложитьСписокОбъектов(Список1.ПолучитьЗначение(А),Temp,"Номенклатура");
		ТекстЗапроса = ТекстЗапроса + ?(А = 1,"","UNION ALL") + "
		|SELECT
		|	Спр.ID as [Номенклатура $Справочник.Номенклатура]
		|FROM
		|	$Справочник.Номенклатура as Спр
		|WHERE
		|	Спр.ID IN (SELECT Val FROM " + Temp + ")
	    |";
	КонецЦикла;