Код

Процедура ДобавитьДокументы()
 	  Сз = СоздатьОбъект("СписокЗначений");
	Для ы = 1 по Метаданные.Документ() Цикл
		Сз.ДобавитьЗначение(Метаданные.Документ(ы).Идентификатор, Метаданные.Документ(ы).Синоним);
	КонецЦикла;
	ВидДок = "";
	Выбор = Сз.ВыбратьЗначение(ВидДок, "Выберите вид документа",,, 0);
	Если Выбор = 1 Тогда
		Запрос = глОлеДБ.СоздатьКоманду();
		ТекстЗапроса = "
		|select
		|    Жур.iddoc as [Док $Документ." + ВидДок + "]
		|from 1sjourn Жур
		|where Жур.iddocdef = $ВидДокумента." + ВидДок + "
		|and (dtos(Жур.date)+Жур.time+Жур.iddoc between dtos(:НачДата~~)+'	'+'	   ' and dtos(:КонДата~~)+'ZZZZZZ'+'ZZZZZZZZZ')
		|";
		Если ВклПроведенныеВсе > 1 Тогда
			ТекстЗапроса = ТекстЗапроса + "
			|and " + ?(ВклПроведенныеВсе = 2, "Жур.Closed>0", "Жур.Closed=0");
		КонецЕсли;
		Если ВклПомеч > 1 Тогда
			ТекстЗапроса = ТекстЗапроса + "
			|and " + ?(ВклПомеч = 2, "Жур.ismark=''", "Жур.ismark='*'");
		КонецЕсли;
		ТекстЗапроса = ТекстЗапроса + " order by Жур.date, Жур.time, Жур.iddoc";
		Запрос.УстановитьТекстовыйПараметр("НачДата", НачДата);
		Запрос.УстановитьТекстовыйПараметр("КонДата", КонДата);
		Счетчик = 100;
		Т = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
		Т.ВыбратьСтроки();
		Пока Т.ПолучитьСтроку() = 1 Цикл
			Если Счетчик = 0 Тогда
				Обновить = 1;
				Счетчик = 100;
			Иначе
				Счетчик = Счетчик - 1;
				Обновить = 0;
			КонецЕсли;
			Если ДобавлятьСсылки = 1 Тогда
				ДобавитьОбъектСВложеннымиДанными(Т.Док, 12, Обновить);
			Иначе
				ДобавитьОбъектСПроверкой(Т.Док, 12, Обновить);
			КонецЕсли;
		КонецЦикла;
		ТабПоле.ОбновитьСтроки();
	Иначе
		//Переспросить о выгрузке всех доков
		Если Вопрос("Отказаться от добавления документов?
		|Нет = Выбрать все", 4, 180) = 7
		Тогда
			Запрос = глОлеДБ.СоздатьКоманду();
			ТекстЗапроса = "
			|select
			|    Жур.iddocdef + Жур.iddoc as [Док $Документ]
			|from 1sjourn Жур
			|where (dtos(Жур.date)+Жур.time+Жур.iddoc between dtos(:НачДата~~)+'	'+'	   ' and dtos(:КонДата~~)+'ZZZZZZ'+'ZZZZZZZZZ')
			|";
			Если ВклПроведенныеВсе > 1 Тогда
				ТекстЗапроса = ТекстЗапроса + "
				|and " + ?(ВклПроведенныеВсе = 2, "Жур.Closed>0", "Жур.Closed=0");
			КонецЕсли;
			Если ВклПомеч > 1 Тогда
				ТекстЗапроса = ТекстЗапроса + "
				|and " + ?(ВклПомеч = 2, "Жур.ismark=''", "Жур.ismark='*'");
			КонецЕсли;
			ТекстЗапроса = ТекстЗапроса + " order by Жур.date, Жур.time, Жур.iddoc";
			Запрос.УстановитьТекстовыйПараметр("НачДата", НачДата);
			Запрос.УстановитьТекстовыйПараметр("КонДата", КонДата);
			Счетчик = 100;
			Т = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
			Т.ВыбратьСтроки();
			Пока Т.ПолучитьСтроку() = 1 Цикл
			Если Счетчик = 0 Тогда
				Обновить = 1;
				Счетчик = 100;
			Иначе
				Счетчик = Счетчик - 1;
				Обновить = 0;
			КонецЕсли;
				Если ДобавлятьСсылки = 1 Тогда
					ДобавитьОбъектСВложеннымиДанными(Т.Док, 12, Обновить);
				Иначе
					ДобавитьОбъектСПроверкой(Т.Док, 12, Обновить);
				КонецЕсли;
			КонецЦикла;
			ТабПоле.ОбновитьСтроки();
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры // ДобавитьДокументы 

Код

INSERT INTO tmp_docs(dt,dc)
SELECT SUBSTR(о.Заказ,1,4), SUBSTR(о.Заказ,5,9)
FROM [Регистр.ВозвратныеОтходы] о
INNER JOIN [Журнал] ж ON ж.iddoc = о.iddoc
AND ((ж.date = :ДатаСвертки0 AND ж.time >= id2str(863990000, 6)) OR (ж.date >= :ДатаСвертки))
INNER JOIN [Журнал] жж ON жж.iddoc = SUBSTR(о.Заказ,5,9)
AND ((жж.date = :ДатаСвертки0 AND жж.time < id2str(863990000, 6)) OR (жж.date < :ДатаСвертки)) 

Код

 INSERT INTO 'tablename'
SELECT
'data1' AS 'column1',
'data2' AS 'column2'
UNION SELECT 'data3', 'data4'
UNION SELECT 'data5', 'data6'
UNION SELECT 'data7', 'data8'

 

Код

INSERT INTO tmp_docs(dt,dc)
SELECT SUBSTR(о.Заказ,1,4), SUBSTR(о.Заказ,5,9)
FROM [Регистр.ВозвратныеОтходы] о
INNER JOIN [Журнал] ж ON ж.iddoc = о.iddoc
AND ((ж.date = :ДатаСвертки0 AND ж.time >= id2str(863990000, 6)) OR (ж.date >= :ДатаСвертки))
INNER JOIN [Журнал] жж ON жж.iddoc = SUBSTR(о.Заказ,5,9)
AND ((жж.date = :ДатаСвертки0 AND жж.time < id2str(863990000, 6)) OR (жж.date < :ДатаСвертки)) 

Код

SELECT жж.iddocdef || жж.iddoc [Док :Документ]
FROM [Регистр.ВозвратныеОтходы] о
INNER JOIN [Журнал] ж ON ж.iddoc = о.iddoc
AND ((ж.date = :ДатаСвертки0 AND ж.time >= id2str(863990000, 6)) OR (ж.date >= :ДатаСвертки))
INNER JOIN [Журнал] жж ON жж.iddoc = SUBSTR(о.Заказ,5,9)
AND ((жж.date = :ДатаСвертки0 AND жж.time < id2str(863990000, 6)) OR (жж.date < :ДатаСвертки))
GROUP BY жж.iddocdef, жж.iddoc 

Код

Процедура Сформировать()
	Попытка
		база = СоздатьОбъект("SQLiteBase");
	Исключение
		ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
		база = СоздатьОбъект("SQLiteBase");
	КонецПопытки;
	база.Открыть(":memory:");
    запросSQLLite = база.НовыйЗапрос();
	ТЗ = СоздатьОбъект("ТаблицаЗначений");
	ТЗ.НоваяКолонка("ИД");
	ТЗ.НоваяКолонка("Объект");
	Для к=1 По 10 Цикл
		ТЗ.НоваяСтрока();
		ТЗ.ИД = к;
		ТЗ.Объект = "Вася"+к;
	КонецЦикла;
	база.уложитьТЗ(ТЗ,"Табличка",0);

	ТекстЗапроса="
	|CREATE TEMP TABLE tmp_docs(dt varchar(4), dc varchar(9))
	|";

	запросSQLLite.ВыполнитьЗапрос(ТекстЗапроса);

	ТекстЗапроса = "
	|insert or replace INTO tmp_docs ('dt','dc')
	| -- select ИД,Объект from Табличка
	|  select * from Табличка
	| ";

	запросSQLLite.ВыполнитьЗапрос(ТекстЗапроса);

	ТекстЗапроса = "
	|select * from tmp_docs
	|";

	запросSQLLite.ВыполнитьЗапрос(ТекстЗапроса).ВыбратьСтроку();

КонецПроцедуры 

• Запрос без инсерта
• Запрос без OR в условиях джойнов

• Сначала получаю только реквизиты новых документов
• Затем проверяю что эти реквизиты ссылаются именно на старые документы.

• Копируется папка базы.
• В копии очищаются все dbf.
• В оригинале формируются двойные бух.итоги (сначала все в ноль на 23:59:50, а потом восстановление на 23:59:59). - около 45 сек.
• По тому же принципу формируются остатки. - около двух часов.
• Копирование всех справочников методом INSERT INTO '" + ПутьКБазе2 + идСправ + "' SELECT * FROM '" + КаталогИБ() + идСправ + "'
  Также копируются и блобы для всех реквизитов - все вместе у меня заняло меньше 15 сек.
• Копирование непериодических констант по списку (почти 2 минуты для 114 констант - не попадаю в индекс)
• Периодика:
  • Фиксация периодических констант методом "Константа." + ИмяКонстанты + ".Установить(ЗначениеИзСтрокиВнутр(""" + ЗначениеДаты + """), Константа." + ИмяКонстанты + ".Получить(ЗначениеИзСтрокиВнутр(""" + ЗначениеДаты + """)));"
  • Аналогичная фиксация периодики, у которой ИзменяетсяДокументами = 0.
  • Формирование документов фиксации периодики с ИзменяетсяДокументами = 1.
  (11,5 часов)
• Копирование значений периодических констант и ручной периодики для нового периода по условию date >= :ДатаСвертки~~ AND docid = $ПустойИД (операция занимает чуть больше 10 сек.)
• Выявление старых документов, ссылки на которые имеются в переносимом периоде - 2 часа. (у меня получилось около 50 тысяч доков - с ними потом еще разобраться надо, т.к. ссылки то есть, но многие из них нафик никому не надо...)
• Перенос старых документов - только записи журнала с последующим обнулением флага closed - 2 минуты.
• Перенос новых документов со всеми реквизитами, проводками, движениями и периодикой - 24 минуты.
• Тестирование и исправление ИБ - выполнялось ночью, потому не знаю длительность, но максимально могло занять только 12 часов...