Код

	MetaDataWork=СоздатьОбъект("MetaDataWork");
	ФормаЗапрос=СоздатьОбъект("ODBCRecordSet");

	ФормаЗапрос.Выполнить("
	|IF EXISTS (SELECT * FROM tempdb..sysobjects WHERE
	|ID=OBJECT_ID('tempdb..#ВыборкаДокументов') AND sysstat & 0xf = 3 )
	|DROP TABLE #ВыборкаДокументов
	|");
	Рез=ФормаЗапрос.Выполнить("
	|CREATE TABLE #ВыборкаДокументов (
	|IDDOC char(9),
	|IDDOCDEF int,
	|DATE_TIME_IDDOC char(23),
	|PRIMARY KEY CLUSTERED (IDDOC)
	|)
	|");
	ФормаЗапрос.УстановитьТекстовыйПараметр("КонДата",ВыбДата);
	ФормаЗапрос.Выполнить("
	|INSERT INTO #ВыборкаДокументов
	|SELECT
	|Журнал.IDDOC as IDDOC,
	|Журнал.IDDOCDEF as IDDOCDEF,
	|Журнал.DATE_TIME_IDDOC as DATE_TIME_IDDOC
	|FROM
	|_1SJOURN AS Журнал With (NOLOCK)
	|WHERE (1=1)
	|-- AND (Журнал.DATE_TIME_IDDOC >= :НачДата)
	| AND (Журнал.DATE_TIME_IDDOC <= :КонДата~)
	|-- AND (Журнал.ISMARK = 0)
	|");

	сзЗапросыДокументы_DelДвижения=СоздатьОбъект("СписокЗначений");
	сзЗапросыРегистры_DelИтоги=СоздатьОбъект("СписокЗначений");
	СписокЖурSET="
	|Жур.ISMARK = 1,
	|Жур.CLOSED = 0,
	|Жур.ACTCNT = 0";
	Для ООО=1 По Метаданные.Регистр() Цикл
		МетаРег=Метаданные.Регистр(ООО);
		РегИмя=МетаРег.Идентификатор;
		РегИд=MetaDataWork.ИДРегистра(ООО);

		СписокЖурSET=СписокЖурSET+?(ПустаяСтрока(СписокЖурSET)=1,"",",
		|")+"Жур.RF"+РегИд+" = 0";

		сзЗапросыДокументы_DelДвижения.ДобавитьЗначение(
		"DELETE Рег
		|FROM
		|$Регистр."+РегИмя+" as Рег (NOLOCK)
		|INNER JOIN
		|#ВыборкаДокументов as ДокВыб (NOLOCK) ON (Рег.IDDOC = ДокВыб.IDDOC)
		|","Регистр."+РегИмя);

		сзЗапросыРегистры_DelИтоги.ДобавитьЗначение(
		"TRUNCATE TABLE $РегистрИтоги."+РегИмя,РегИмя);
	КонецЦикла;
	Для ООО=1 По Метаданные.Последовательность() Цикл
		РегИд=MetaDataWork.ИДОбъекта(Метаданные.Последовательность(ООО));

		СписокЖурSET=СписокЖурSET+?(ПустаяСтрока(СписокЖурSET)=1,"",",
		|")+"Жур.DS"+РегИд+" = 0";
	КонецЦикла;

	сзЗапросыДокументы_DelДвижения.ДобавитьЗначение(
	"DELETE Кон
	|FROM
	|_1SCONST as Кон (NOLOCK)
	|INNER JOIN
	|#ВыборкаДокументов as ВыбДок (NOLOCK) ON (Кон.DOCID = ВыбДок.IDDOC)
	|","Справочники.ИсторияРеквизитов");

	ФормаЗапрос.ВыполнитьИнструкцию("
	|UPDATE Жур
	|SET "+СписокЖурSET+"
	|FROM
	|_1SJOURN as Жур (NOLOCK)
	|INNER JOIN
	|#ВыборкаДокументов as ВыбДок ON (ВыбДок.IDDOC=Жур.IDDOC)
	|");

	Для ООО=1 По сзЗапросыДокументы_DelДвижения.РазмерСписка() Цикл
		ДвижИмя="";
		ТекстЗапроса=сзЗапросыДокументы_DelДвижения.ПолучитьЗначение(ООО,ДвижИмя);
		ФормаЗапрос.ВыполнитьИнструкцию(ТекстЗапроса);
	КонецЦикла;

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

Код

delete from _1SJourn
where ...

declare Names cursor for
SELECT
	RTrim(obj.name) name
FROM
	sysobjects obj
WHERE
	obj.type = 'U'
ORDER BY
	obj.name

declare @NRows int, @name nvarchar(100)
open Names
SET @NRows = @@Cursor_Rows
WHILE @NRows > 0 BEGIN
 	FETCH Names Into @name
	SET @Nrows = @NRows - 1

	If Left(@name, 2) = 'DH' or Left(@name, 2) = 'DT' or Left(@name, 2) = 'RA'
	Begin
		declare @query nvarchar(500)
		set @query = N'delete from ' + @name + ' where IDDoc Not In (SELECT IDDoc FROM _1SJourn (NoLock))'
		exec sp_executesql @query
	End
End

close Names