Код

	НачДата=Дата1; КонДата=Дата2;
	База=СоздатьОбъект("ODBCDatabase");

	Запрос=СоздатьОбъект("ODBCRecordset");
	Запрос.УстановитьТекстовыйПараметр("НачДата",НачДата);
	Запрос.УстановитьТекстовыйПараметр("КонДата",КонДата);

	ТЗ=Запрос.ВыполнитьИнструкцию("
	|select
	| iddoc [Документ $Документ],
	| iddocdef Документ_вид
	|from _1sjourn j (nolock)
	|where j.date_time_iddoc between :НачДата and :КонДата~
//	| and j.IDDocDef = $ВидДокумента.РасходнаяНакладная
	|order by j.date_time_iddoc
	|");

	ДоковВСеансе=5;		  //     Жур.IDDocDef = $ВидДокумента.Реализация
	Сч=ДоковВСеансе;
	ДокОбъект=СоздатьОбъект("Документ");

	ТЗ.ВыбратьСтроки();
	Пока ТЗ.ПолучитьСтроку()=1 Цикл
		Док12=ТЗ.Документ;
		Если ((Док12.Вид()="РасходнаяНакладная") Или (Док12.Вид()="ПеремещениеТМЦ")
		Или (Док12.Вид()="КорректировкаСклада") Или (Док12.Вид()="СписаниеТМЦ")
		Или (Док12.Вид()="РасходнаяНакладнаяИтог") Или (Док12.Вид()="ПоступлениеТМЦ")
		Или (Док12.Вид()="РезервированиеТовара") Или (Док12.Вид()="КорректировкаПоступлениеТМЦ")
		Или (Док12.Вид()="ОприходованиеТМЦ") Или (Док12.Вид()="СчетФактураВыданный")
		Или (Док12.Вид()="ТовЧек_Накладная") Или (Док12.Вид()="НакладнаяУпр"))Тогда

			ДокОбъект.НайтиДокумент(Док12);
			Сообщить(Док12);
			ДокОбъект.Провести();

			Сч=Сч-1;

			Если Сч=0 Тогда
				ДокОбъект="";Док12="";Док="";
				Сообщить("============================ Реконнект ================================");
				База.ReconnectNative();
		ДокОбъект=СоздатьОбъект("Документ");
				Сч=ДоковВСеансе;
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;