Код

рс = СоздатьОбъект("ODBCRecordSet");
	//1. Удаляем таблицу, если с таким именем уже имеется
		ТекстЗапроса="
		|set nocount on
		|if exists (select * from %База%..sysobjects where id=object_id('%База%..%Имя%') and sysstat & 0xf = 3 )
		|  drop table %База%..%Имя%;
		|set nocount off
		|";
		ИмяБазы = КаталогИБ();
		ИмяБазы = СтрЗаменить(Нрег(КаталогИБ()),"h:\","");
		ИмяБазы = СтрЗаменить(ИмяБазы,"\","");
		Если ИмяБазы = "db" Тогда
			ИмяБазы = "office";
		КонецЕсли;
		ИмяТаблицы = "ПодчиненныеПеремещения";
		Текстзапроса = СтрЗаменить(Текстзапроса,"%База%",ИмяБазы);
		Текстзапроса = СтрЗаменить(Текстзапроса,"%Имя%",ИмяТаблицы);
		рс.Выполнить(ТекстЗапроса);
		// 2. Создаем таблицу заново
		рс.Выполнить("Create Table ПодчиненныеПеремещения (Документ Char(13), Документ_вид Int, Основание Char(23))");
		// 3. Укладываем в неё все проведенные подчиненные перемещения нужного вида
		ТекстЗапроса = "-- qryMaker:Просроченные перемещения.2011.11.25.15.38.51
		|Insert into ПодчиненныеПеремещения
		|Select ЖурналПодч.IDDOC    Документ,
		|			   ЖурналПодч.IDdocdef Документ_вид,
		|			   Отбор.ParentVal     Основание
		|		From _1SCRDOC AS Отбор With (NOLOCK)
		|		Left Join _1SJOURN AS ЖурналПодч With (NOLOCK) On  ЖурналПодч.IDDOC = Отбор.Childid
		|		Where (ЖурналПодч.IDdocdef = $ВидДокумента."+ВидПеремещения+")
		|			And ((ЖурналПодч.CLOSED & 1)=1)
		|";
		тз = рс.Выполнить(ТекстЗапроса);
		// 4. Получаем таблицу непринятых данного вида
		ТекстЗапроса = "-- qryMaker:Просроченные перемещения.2011.11.25.15.38.51
		|SELECT  "+ВидПеремещения+".$ОбщийРеквизит.СтатусПеремещения СтатусПеремещения
		|	, "+ВидПеремещения+".IDDOC [Перемещение $Документ."+ВидПеремещения+"]
		|   , Выборка.Документ     [Документ $Документ]
		|   , Выборка.Документ_вид Документ_вид
		|FROM _1SJOURN AS Журнал With (NOLOCK)
		|	INNER JOIN $Документ."+ВидПеремещения+" AS "+ВидПеремещения+" With (NOLOCK) ON Журнал.IDDOC = "+ВидПеремещения+".IdDoc
		|   Left JOIN ПодчиненныеПеремещения As Выборка ON 'O1' + $ВидДокумента36."+ВидПеремещения+"+Журнал.IDDOC = Выборка.Основание
		|WHERE (Журнал.DATE_TIME_IDDOC >= :НачДата)
		|	AND (Журнал.DATE_TIME_IDDOC <= :КонДата~)
		|   AND ((Журнал.CLOSED & 1) = 1)
		|   And (Выборка.Документ Is Null)
		|ORDER BY Журнал.DATE_TIME_IDDOC
		|";

		рс.УстановитьТекстовыйПараметр("НачДата", Дата_-МинусДней-60);
		рс.УстановитьТекстовыйПараметр("КонДата", Дата_-МинусДней);
		тз = рс.ВыполнитьИнструкцию(ТекстЗапроса);
		Возврат тз;