Код

   Запрос = СоздатьОбъект("ODBCRecordSet");
   Запрос.УстановитьТекстовыйПараметр("НачДата",НачДата);
   Запрос.УстановитьТекстовыйПараметр("КонДата",КонДата);
   Запрос.УложитьСписокОбъектов(ВыбКонтрагент,"#ВыбКонтрагент","Контрагенты");
 ТекстЗапроса = "
|SELECT
|	Жур.IDDoc as [Док $Документ],
|	Жур.IDDocDef as Док_вид,
|	Жур.$ОбщийРеквизит.Фирма as [Фирма $Справочник.Фирмы]
|FROM
|	_1SJourn Жур
|INNER JOIN
|	_1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND
|				Отбор. MDID = $ГрафаОтбора.Контрагент AND
|			  Отбор.ParentVal = :ВыбКонтрагент AND
|			  Отбор.Child_Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~
|WHERE
|	Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
|	Жур.IDDocDef = $ВидДокумента.Реализация or
|	Жур.IDDocDef = $ВидДокумента.ВозвратОтПокупателя AND

|	Жур.Closed & 1 = 1";

   ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   ТЗ.ВыбратьСтроку();
 

Код

ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{D:\ОБРАБОТКИ\SQL\ПРОДАЖИПОГРУППАНОМЕНКЛАТУРЫ.ERT(31)}: Meta name parser error: не указан параметр ":ВыбКонтрагент" 

Код

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

	Если ВыбКонтрагент.Выбран() = 1 Тогда
		Если ВыбКонтрагент.ЭтоГруппа() = 1 Тогда
			ТекстЗапроса = ТекстЗапроса + "
			|Условие(Контрагент в ВыбКонтрагент);";
		Иначе
			ТекстЗапроса = ТекстЗапроса + "
			|Условие(Контрагент = ВыбКонтрагент);";
		КонецЕсли;
	КонецЕсли;

	Если ВыбНоменклатура.Выбран() = 1 Тогда
		Если ВыбНоменклатура.ЭтоГруппа() = 1 Тогда
			ТекстЗапроса = ТекстЗапроса + "
			|Условие(Номенклатура в ВыбНоменклатура);";
		Иначе
			ТекстЗапроса = ТекстЗапроса + "
			|Условие(Номенклатура = ВыбНоменклатура);";
		КонецЕсли;
	КонецЕсли;
 

Дело в том что ParentVal это char 23
а поле Val это char 9

поэтому вариант № 1 следующий

Код

|  left(Отбор.ParentVal,4) = 'B1  '  AND   substring(Отбор.ParentVal,5,9) (SELECT Val FROM #ВыбКонтрагент) AND
 

Код

{D:\ОБРАБОТКИ\SQL\ПРОДАЖИПОГРУППАНОМЕНКЛАТУРЫ.ERT(27)}: State 42000, native 170, message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 11: Incorrect syntax near '('. 

Z1 писал(а) 21. Июля 2009 :: 12:14:

Дело в том что ParentVal это char 23
а поле Val это char 9

поэтому вариант № 1 следующий

Код

|  left(Отбор.ParentVal,4) = 'B1  '  AND   substring(Отбор.ParentVal,5,9) (SELECT Val FROM #ВыбКонтрагент) AND
 

Выдает ошибку

Код

{D:\ОБРАБОТКИ\SQL\ПРОДАЖИПОГРУППАНОМЕНКЛАТУРЫ.ERT(27)}: State 42000, native 170, message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 11: Incorrect syntax near '('. 

Все как то уж сильно заморочено....

Код

|  left(Отбор.ParentVal,4) = 'B1  '  AND   substring(Отбор.ParentVal,5,9) in (SELECT Val FROM #ВыбКонтрагент) AND
 

Код

|SELECT
|	Жур.IDDoc as [Док $Документ],
|	Жур.IDDocDef as Док_вид,
|	Жур.$ОбщийРеквизит.Фирма as [Фирма $Справочник.Фирмы]
|FROM
|	_1SJourn Жур
|INNER JOIN
|	_1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND
|				Отбор. MDID = $ГрафаОтбора.Контрагент AND
|				  left(Отбор.ParentVal,4) = 'B1  '  AND   substring(Отбор.ParentVal,5,9) in (SELECT Val FROM #ВыбКонтрагент) AND
|			    Отбор.Child_Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~
|WHERE
|	Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
|	(Жур.IDDocDef = $ВидДокумента.Реализация) AND
|	Жур.Closed & 1 = 1";
 

так работает ?

Код

SELECT top 100
|	Жур.IDDoc as [Док $Документ],
|	Жур.IDDocDef as Док_вид,
|	Жур.$ОбщийРеквизит.Фирма as [Фирма $Справочник.Фирмы]
|FROM
|	_1SJourn Жур
|INNER JOIN
|	_1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc ";
 

Код

|SELECT
|	Жур.IDDoc as [Док $Документ],
|	Жур.IDDocDef as Док_вид,
|	Жур.$ОбщийРеквизит.Фирма as [Фирма $Справочник.Фирмы]
|FROM
|	_1SJourn Жур
|WHERE
|	Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
|	Жур.IDDocDef = $ВидДокумента.ВозвратОтПокупателя or
|	Жур.IDDocDef = $ВидДокумента.Реализация AND
|	Жур.Closed & 1 = 1";