Код

	ДатаБаза=СоздатьОбъект("ODBCDataBase");
	ДатаБаза.ПрисоединитьИБ("ПУТЬ","Логин","Пароль");
	Сообщить(ДатаБаза.ЕстьСоединение());

	Запрос = СоздатьОбъект("OdbcRecordSet");
	Запрос.УстБД(ДатаБаза);

	ТекстЗапроса="
	|SELECT top 10
	|	Left(DATE_TIME_IDDOC,8) [Дата $Дата]
	|	,DOCNO as НомерДок
	|	,IDDOC as [Док $Документ]
	|	,IDDOCDEF as Док_вид
	|FROM [_1SJourn] as Жур WITH (NOLOCK)
	|Where DOCNO like :НомерДок+'%'
	|Order by
	|	DATE_TIME_IDDOC
	|";

	Запрос.УстановитьТекстовыйПараметр("НомерДок",СокрЛП(НомерДок));
	иТз=СоздатьОбъект("ИндексированнаяТаблица");
	Запрос.ВыполнитьИнструкцию(ТекстЗапроса,иТз);
	иТз.Показать();

	//ПереборОлеДок("ВводЛюбогоРасчета",НачДата,КонДата);
	Запрос="";
	ДатаБаза.Закрыть();