Код

	DD = СоздатьОбъект("AddIn.V7TextFile");
	DD.ОткрытьФайл(КаталогИБ()+"1Cv7.DDS");
	ttm=_GetPerformanceCounter();
	Состояние("Выполняется запрос к SQL-серверу ...");
	ДТх = Формат(ДатаКонцаПериода+1,"ДГГГГММДД");
	ДТу = Формат(ДобавитьМесяц(ДатаКонцаПериода+1, -3),"ДГГГГММДД");
	DD.ВыбратьСтроки();
	стр="";
	Пока DD.ПрочитатьСтроку(стр)=1 Цикл
		поз=найти(стр,"T=D");
		Если поз>0 Тогда
			тбл=сокрп(сред(стр,поз+2,8));
		//Сообщить(стр);
			sql="delete "+тбл+" from _1sjourn j, "+тбл+" d
			 	  |where d.iddoc=j.iddoc AND j.date_time_iddoc < '"+ДТу+"'
				|";
			RecSet=Conn.Execute(sql);
		КонецЕсли;
		стр="";
	КонецЦикла;
	DD.ЗакрытьФайл();
	Сообщить("Выполняется очистка ЛОГ-файла БД...");
	LogFile.ЗаписатьСтроку("Выполняется очистка ЛОГ-файла БД...");
	// обрезка ЛОГа базы
	sql="BACKUP LOG "+SQL_db+"
	 	  |    WITH TRUNCATE_ONLY";
	RecSet=Conn.Execute(sql);
	sql="DBCC SHRINKDATABASE
	 	  |    ("+SQL_db+", TRUNCATEONLY)";
	RecSet=Conn.Execute(sql);
	Сообщить("Очищается журнал от старых документов...");
	LogFile.ЗаписатьСтроку("Очищается журнал от старых документов...");
	//sql="delete from _1sconst where rtrim(ltrim(objid)) <> '0' AND date < '"+ДТу+"' AND rtrim(docid) <> ''";
	////Тхт.ДобавитьСтроку(sql);
	//RecSet=Conn.Execute(sql);
	sql="delete from _1scrdoc where child_date_time_iddoc < '"+ДТу+"'";
	//Тхт.ДобавитьСтроку(sql);
	RecSet=Conn.Execute(sql);

	sql="delete _1sjourn
	    |where date_time_iddoc < '"+ДТу+"'
		|";
	//Тхт.ДобавитьСтроку(sql);
	RecSet=Conn.Execute(sql);
	sql="update _1sjourn SET ismark=1, closed=0
	    |where date_time_iddoc < '"+ДТх+"'
		|";
	//Тхт.ДобавитьСтроку(sql);
	RecSet=Conn.Execute(sql);
	Сообщить("Выполняется очистка ЛОГ-файла БД...");
	LogFile.ЗаписатьСтроку("Выполняется очистка ЛОГ-файла БД...");
	// обрезка ЛОГа базы
	sql="BACKUP LOG "+SQL_db+"
	 	  |    WITH TRUNCATE_ONLY";
	RecSet=Conn.Execute(sql);
	sql="DBCC SHRINKDATABASE
	 	  |    ("+SQL_db+", TRUNCATEONLY)";
	RecSet=Conn.Execute(sql);
	// Удаление движений регистров
	Сообщить("Удаляются движения регистров магазинов до "+ДТу);
	LogFile.ЗаписатьСтроку("Удаляются движения регистров магазинов до "+ДТу);
	Если Optim=1 Тогда
		//sql="delete ra6283 Where date_time_iddoc < '"+ДТу+"'
		//	|";
		sql="select * into mag from ra6283 Where date_time_iddoc >= '"+ДТу+"'
			|";
	иначе
		//sql="delete ra6283 Where not exists (select 1 from _1sjourn where ra6283.iddoc = _1sjourn.iddoc)
		sql="select * into mag from ra6283 Where exists (select 1 from _1sjourn where ra6283.iddoc = _1sjourn.iddoc)
			|";
	КонецЕсли;
	RecSet=Conn.Execute(sql);
	sql="truncate table ra6283
		|";
	RecSet=Conn.Execute(sql);
	// восстановим данные в регистре магазинов
	sql="insert into ra6283 select * from mag
		|
		|
		|";
	RecSet=Conn.Execute(sql);
	sql="IF OBJECT_ID('"+SQL_db+"..mag') IS NOT NULL
	    |drop table mag
		|";
	RecSet=Conn.Execute(sql);
	Сообщить("Выполняется очистка ЛОГ-файла БД...");
	LogFile.ЗаписатьСтроку("Выполняется очистка ЛОГ-файла БД...");
	// обрезка ЛОГа базы
	sql="BACKUP LOG "+SQL_db+"
	 	  |    WITH TRUNCATE_ONLY
		|";
	RecSet=Conn.Execute(sql);
	sql="DBCC SHRINKDATABASE
	 	  |    ("+SQL_db+", TRUNCATEONLY)
		|";
	RecSet=Conn.Execute(sql);
	Сообщить("Удаляются движения регистров остатков до "+ДТу);
	LogFile.ЗаписатьСтроку("Удаляются движения регистров остатков до "+ДТу);
	//sql="delete ra99 Where not exists (select 1 from _1sjourn where ra99.iddoc = _1sjourn.iddoc)
	sql="select * into mag from ra99  Where date_time_iddoc >= '"+ДТу+"'
			//Where exists (select 1 from _1sjourn where ra99.iddoc = _1sjourn.iddoc)
		|
		|
		|";
	RecSet=Conn.Execute(sql);
	sql="truncate table ra99
		|";
	RecSet=Conn.Execute(sql);
	// восстановим данные в регистре остатков
	sql="insert into ra99 select * from mag
		|
		|
		|";
	RecSet=Conn.Execute(sql);
	sql="IF OBJECT_ID('"+SQL_db+"..mag') IS NOT NULL
	    |drop table mag
		|";
	RecSet=Conn.Execute(sql);
	Сообщить("Выполняется очистка ЛОГ-файла БД...");
	LogFile.ЗаписатьСтроку("Выполняется очистка ЛОГ-файла БД...");
	// обрезка ЛОГа базы
	sql="BACKUP LOG "+SQL_db+"
	 	  |    WITH TRUNCATE_ONLY
		|";
	RecSet=Conn.Execute(sql);
	sql="DBCC SHRINKDATABASE
	 	  |    ("+SQL_db+", TRUNCATEONLY)
		|";
	RecSet=Conn.Execute(sql);
	Сообщить("Удаляются движения регистров партий до "+ДТу);
	LogFile.ЗаписатьСтроку("Удаляются движения регистров партий до "+ДТу);
	//sql="delete ra1130 Where not exists (select 1 from _1sjourn where ra1130.iddoc = _1sjourn.iddoc)
	sql="select * into mag from ra1130  Where date_time_iddoc >= '"+ДТу+"'
			//Where exists (select 1 from _1sjourn where ra1130.iddoc = _1sjourn.iddoc)
		|
		|
		|";
	RecSet=Conn.Execute(sql);
	sql="truncate table ra1130
		|";
	RecSet=Conn.Execute(sql);
	// восстановим данные в регистре остатков
	sql="insert into ra1130 select * from mag
		|
		|
		|";
	RecSet=Conn.Execute(sql);
	sql="IF OBJECT_ID('"+SQL_db+"..mag') IS NOT NULL
	    |drop table mag
		|";
	RecSet=Conn.Execute(sql); 

Код

	Состояние("Удаляется история периодических реквизитов...");
	  
	Если ДБФ = 0 Тогда
		RS.УстановитьТекстовыйПараметр("Дата", Формат(ДатаУдаления,"Д ГГГГММДД"));
		RS.ВыполнитьИнструкцию("delete from "+ИмяКонстант +" where (date < cast(:Дата as datetime)) and (OBJID <> '     0   ')");
	Иначе  
		сДата = Формат(ДатаУдаления,"Д ГГГГММДД");
   		сДата = Лев(сДата,4)+"-"+Сред(сДата,5,2)+"-" + Прав(сДата,2)+"T";
		//ТЗ =	RS.ВыполнитьИнструкцию("Select *, CTOT(""" + сДата + """) from "+ИмяКонстант +" where (DATE <= CTOT(""" + сДата + """)) and (OBJID <> ""     0   "") order by DATE" ,ТЗ);
		RS.ВыполнитьИнструкцию("delete from "+ИмяКонстант +" where (date <= CTOT(""" + сДата + """))  and (OBJID <> ""     0   "")");
	КонецЕсли;