Код

		ТекстЗапроса = "
		|SELECT
		|Рег.Направление as [НаправлениеЗапроса $Перечисления.Направление],
		|Рег.Место as КонОст
		|FROM
		|  $РегистрОстатки.Заказы(:ДатаЗапроса~,,,(Направление),(Место)) as Рег";
		Путь         = КаталогИБ();
		conStr         = "DRIVER=Microsoft Visual FoxPro rceType=DBF;SourceDB=" + Путь;

    
		БД = СоздатьОбъект("ODBCDatabase");
		Запрос = СоздатьОбъект("ODBCRecordSet");
		Состояние("Подключаемся к базе данных");
		Рез = БД .Соединение(conStr);

		Запрос.Debug(1);
		Запрос.SetDatabase(БД);
		Запрос.УстановитьТекстовыйПараметр("ДатаЗапроса",ДатаЗапроса);

		ТЗр = СоздатьОбъект("ТаблицаЗначений");
		ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса,ТЗр);
 

Код

		Запрос = СоздатьОбъект("Запрос");
		ТекстЗапроса =
		"//{{ЗАПРОС(Сформировать)
		|Направление = Регистр.Заказы.Направление;
		|НаДату = Регистр.Заказы.НаДату;
		|Место = Регистр.Заказы.Место;
		|Функция МестоКонОст = КонОст(Место);
		|Условие(Направление = НаправлениеЗапроса);
		|Условие(НаДату = ДатаЗапроса);
		|"//}}ЗАПРОС
		;
 

Код

глОлеДБ= СоздатьОбъект("OLEDBData");
	Рез=глОлеДБ.Соединение("
	|Provider=VFPOLEDB.1;
//	|Deleted=Yes;
	|Null = Yes;
	|Exclusive = No;
	|SourceType = DBF;
	|Data Source=" + КаталогИБ() + ";
	|Mode=ReadWrite;
	|Extended Properties="""";
	|User ID="""";
	|Password="""";
	|Mask Password=False;
	|Collating Sequence=MACHINE;
	|DSN=""""");
ОлеДБКоманда = глОлеДБ.СоздатьКоманду();
ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);