Код

Процедура Сформировать()
	Перем тз; //:ТаблицаЗначений
	ИБ=СоздатьОбъект("ODBCDataBase");
	ИБ.ПрисоединитьИБ("\\1cprog\bases_1c_П\");
	рс=СоздатьОбъект("ODBCRecordset");
	рс.УстБД(ИБ);
	ТекстЗапроса = "-- qryMaker:Отчет1.2009.01.27.15.42.18
	|SELECT $РасходнаяНакладнаяСтроки.НомерБланка НомерБланка
	|, $РасходнаяНакладнаяСтроки.НомерБилета НомерБилета
	|, $РасходнаяНакладнаяСтроки.АвиаКомпания [АвиаКомпания $Справочник.Авиакомпании]
	|, Журнал.DATE_TIME_IDDOC ДатаВремяИдДок
	|FROM _1SJOURN AS Журнал
	|FULL OUTER JOIN $ДокументСтроки.РасходнаяНакладная AS РасходнаяНакладнаяСтроки ON Журнал.IDDOC = РасходнаяНакладнаяСтроки.IDDOC
	|FULL OUTER JOIN $Документ.РасходнаяНакладная AS РасходнаяНакладная ON Журнал.IDDOC = РасходнаяНакладная.IDDOC
	|WHERE (Журнал.DATE_TIME_IDDOC > :ДатаНач)
	|AND (Журнал.DATE_TIME_IDDOC < :ДатаКон)
	|ORDER BY Журнал.DATE_TIME_IDDOC
	|";
	рс.УстановитьТекстовыйПараметр("ДатаНач", НачДата);
	рс.УстановитьТекстовыйПараметр("ДатаКон", КонДата);
	тз = рс.ВыполнитьИнструкцию(ТекстЗапроса);
	тз.ВыбратьСтроку();
КонецПроцедуры