Код

DBConn = CreateObject("ADODB.Connection");
	DBConn.ConnectionString = СокрЛП(СтрокаСоединения);
	DBConn.CommandTimeout = 1200;              

	DBConn.Open();  

	DBConn.Execute("CREATE TABLE  ##ID2 (IDDOC1 char (9))");

	НеУдаляемыеДокументы.ВыбратьСтроки();
	Пока НеУдаляемыеДокументы.ПолучитьСтроку()=1 цикл
		Если НеУдаляемыеДокументы.Флаг = 2 тогда
			НеУдаляемыйДок = СоздатьОбъект("Документ."+НеУдаляемыеДокументы.ИдДокумента);

			НеУдаляемыйДок.ВыбратьДокументы();
			Пока НеУдаляемыйДок.ПолучитьДокумент()=1 цикл

				ВнутреннийИДДока = ЗначениеВСтрокуВнутр(НеУдаляемыйДок.ТекущийДокумент());
				IDДока = GetID(ВнутреннийИДДока);
				DBConn.Execute("INSERT INTO ##ID2 (IDDOC1) VALUES('"+ _IdToStr(СокрЛП(IDДока))+"')");

			КонецЦикла;                                      
		КонецЕсли;
	КонецЦикла;

	ДатаОтформатированная = Строка(Формат(ДатаПо,"ДГГГГММДД")+"Z");   // Z - означает на конец дня
	ДатаОтформатированнаяНаНачало = Строка(Формат(ДатаС,"ДГГГГММДД"));  
	                                                              

	DBConn.Execute("CREATE TABLE  ##ID (IDDOC char (9) primary key clustered)");                                    
	DBConn.Execute("INSERT INTO ##ID SELECT DISTINCT IDDOC FROM _1SJOURN WHERE IDDOC NOT IN (SELECT IDDOC1 FROM ##ID2) AND LEFT(DATE_TIME_IDDOC,8) BETWEEN '"+ДатаОтформатированнаяНаНачало+"'"+" AND '"+ДатаОтформатированная+"'");

    ТекстЗапроса = "
	|SELECT sysobjects.name AS TableName, syscolumns.name AS ColumnName
	|FROM syscolumns INNER JOIN sysobjects ON syscolumns.id = sysobjects.id WHERE (syscolumns.name = 'IDDOC') OR (syscolumns.name = 'DOCID')
	|";                        

	RecordSet = DBConn.Execute(ТекстЗапроса);

	Пока RecordSet.EOF=0 Цикл
		DBConn.Execute("DELETE FROM "+RecordSet.Fields("TableName").Value+" with (tablock) "+" WHERE "+RecordSet.Fields("ColumnName").Value + " IN (SELECT IDDOC FROM ##ID) ");
	RecordSet.MoveNext(); // Переходим на следующую запись
	КонецЦикла;

	DBConn.Execute("DROP TABLE ##ID");  
	DBConn.Execute("DROP TABLE ##ID2");