Код

ТекстЗапроса = "
|create FUNCTION  sp_tohex(@val int, @len1 int) RETURNS varchar(9)
|AS
|begin
|declare @v int;
|declare @tval varchar(9);
|set @v = @val;
|set @tval = '';
|
|while (@v > 0)
|begin
|   set @tval = SUBSTRING('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ',1+@v%36,1)+@tval;
|   set @v = @v/36;
|end;
|
|if @tval='' set @tval='0';
|
|while (len(@tval) < @len1)
|begin
|set @tval = ' '+@tval;
|end;
|RETURN(@tval);
|end
|";
Запрос.Открыть(ТекстЗапроса);
ТекстЗапроса = "
|SELECT
|     dbo.sp_tohex(Жур.IDDocDef, 4) +
|Рег.IDDoc [Док $Документ],
|	Жур.SP798 [Проект $Справочник.Проекты]
|FROM
|    $Регистр.Покупатели Рег
|LEFT JOIN 1SJourn Жур ON Жур.IDDoc = Рег.IDDoc
|WHERE Жур.SP798 IN (SELECT val FROM #ВыбПроект) AND
|Жур.Date BETWEEN :НачДата AND :КонДата~ AND
|Жур.Closed  = 1
|";

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

Код

ТекстЗапроса = "

|SELECT

|  Жур.IDDoc [Док $Документ],

|  Жур.IDDocDef Док_вид

|FROM

|  1Sjourn Жур

|INNER JOIN

|  1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND

|			  Отбор.MDID = $ГрафаОтбора.Проект AND

|			  Отбор.ParentVal = #ВыбПроект AND

|			  Отбор.ChildDate BETWEEN :НачДата AND :КонДата~";
 

Код

гЗапрос = глОлеДБ.СоздатьКоманду();
гЗапрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");  
// Устанавливаем время ожидания захвата таблиц , если во время выполнения запроса кто то проводит документы
// Очень полезная функция - аналогична времени ожидания в 1С
гЗапрос.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");
// Убираем буфепизацию, чтобы данные возвращаемые запросам всегда были актуальны

гЗапрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");
гЗапрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");// отключили блокировки