Код

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

|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 :ВыбКонтрагент)