Код

ТекстЗапроса = "
|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')");// отключили блокировки  

Код

|SELECT
|     Жур.IDDocDef+Жур.IDDoc as [Док $Документ]
|    ,Жур.$ОбщийРеквизит.Проект as [Проект $Справочник.Проекты]
|
|FROM
|    1SJourn Жур
|LEFT JOIN
|	1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND
|				Отбор. MDID = $ГрафаОтбора.Контрагент AND
|			    left(Отбор.ParentVal,4) = 'B1  '  AND   substring(Отбор.ParentVal,5,9) in (SELECT Val FROM :ВыбКонтр) AND
|			    Отбор.ChildDate BETWEEN (DTOS(:НачДата~~)+'		   ') AND (DTOS(:КонДата~~)+'ZZZZZZZZZZZZZZZ')
|WHERE DTOS(date)+time+iddoc BETWEEN (DTOS(:НачДата~~)+'		   ') AND (DTOS(:КонДата~~)+'ZZZZZZZZZZZZZZZ')
|AND Жур.$ОбщийРеквизит.Проект IN (SELECT val FROM :ВыбПроект) AND
|Жур.Closed  = 1
| 

Код

|SELECT
|     Жур.IDDocDef+Жур.IDDoc as [Док $Документ]
|    ,Жур.$ОбщийРеквизит.Проект as [Проект $Справочник.Проекты]
|
|FROM
|    1SJourn Жур
|LEFT JOIN
|	1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND
|				Отбор. MDID = $ГрафаОтбора.Контрагент AND
|			    Отбор.ParentVal IN (SELECT val FROM :ВыбКонтр) AND
|			    Отбор.ChildDate BETWEEN (DTOS(:НачДата~~)+'		   ') AND (DTOS(:КонДата~~)+'ZZZZZZZZZZZZZZZ')
|WHERE DTOS(date)+time+iddoc BETWEEN (DTOS(:НачДата~~)+'		   ') AND (DTOS(:КонДата~~)+'ZZZZZZZZZZZZZZZ')
|AND Жур.$ОбщийРеквизит.Проект IN (SELECT val FROM :ВыбПроект) AND
|Жур.Closed  = 1
| 

Код

FROM
    1SJourn Жур
INNER JOIN
	1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND
				Отбор. MDID = '  NY' AND
				Отбор.ParentVal IN (SELECT val FROM '8a1b6cfc-6bd3-4ce4-bd6f-7549b571930a') AND
			    Отбор.ChildDate BETWEEN {d '1990-01-01'} AND {d '2010-03-31'}
WHERE DTOS(date)+time+iddoc BETWEEN (DTOS({d '1990-01-01'})+'		   ') AND (DTOS({d '2010-03-31'})+'ZZZZZZZZZZZZZZZ')
AND Жур.sp798 IN (SELECT val FROM '6db28948-060d-40a9-81ca-dbca3e747e45') AND
Жур.Closed  = 1 

Код

SELECT
     Жур.IDDocDef+Жур.IDDoc as [Док_1c_type_Документ]
    ,Жур.sp798 as [Проект_1c_type_Справочник_Проекты]
    
FROM
    1SJourn Жур
INNER JOIN
	1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND
				Отбор. MDID = '  NY' AND
				left(Отбор.ParentVal,4) = 'B1  '  AND   substring(Отбор.ParentVal,5,9) in (SELECT Val FROM '3ee4f320-1a14-4134-8304-cf9d11ecbb3d')
			    
WHERE DTOS(date)+time+iddoc BETWEEN (DTOS({d '1990-01-01'})+'		   ') AND (DTOS({d '2010-03-31'})+'ZZZZZZZZZZZZZZZ')
AND Жур.sp798 IN (SELECT val FROM 'e2b83c8e-b52e-4254-babb-877055b1378f') AND
Жур.Closed  = 1
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
ICommandText::Execute(): SQL: Queries of this type are not supported. 

Код

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

|SELECT
|     Жур.IDDocDef+Жур.IDDoc as [Док $Документ]
|    ,Жур.$ОбщийРеквизит.Проект as [Проект $Справочник.Проекты]
|    
|FROM
|    1SJourn Жур
|INNER JOIN
|	1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND
|				Отбор. MDID = $ГрафаОтбора.Контрагент AND
|				Отбор.ParentVal = :ВыбКонтр
|			    
|WHERE DTOS(date)+time+iddoc BETWEEN (DTOS(:НачДата~~)+'		   ') AND (DTOS(:КонДата~~)+'ZZZZZZZZZZZZZZZ')
|AND Жур.$ОбщийРеквизит.Проект IN (SELECT val FROM :ВыбПроект) AND
|Жур.Closed  = 1
|
|";


врГруппа="";
Запрос.УложитьСписокОбъектов(ВыбПроект, врГруппа,"Проекты");
Запрос.УстановитьТекстовыйПараметр("ВыбПроект", врГруппа);

врГруппа2="";
Запрос.УложитьСписокОбъектов(ВыбКонтр, врГруппа2,"Контрагенты");
Запрос.УстановитьТекстовыйПараметр("ВыбКонтр", врГруппа2);
 

Код

|SELECT
|     Жур.IDDocDef+Жур.IDDoc as [Док $Документ]
|     ,substr(Отбор.ParentVal,7,9) as [Контрагент $Справочник.Контрагенты]
|FROM
|    1SJourn Жур
|INNER JOIN
|	1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc
|	  AND Отбор. MDID = $ГрафаОтбора.Контрагент
|Where
|    substr(Отбор.ParentVal,7,9) in (SELECT val FROM :ВыбКонтрагент)