Код

select
 j.iddoc     [Документ $Документ],
 j.iddocdef  [Документ_вид],
 j.date_time_iddoc
from
 $Регистр.Обороты рег (nolock)
inner join
 _1sjourn j (nolock) on j.iddoc = рег.iddoc /*это если нет флага БыстраяОбработкаДвижений*/
where
 j.date_time_iddoc between :НачДата and :КонДата~ and
 $рег.Фирма = :ВыбФирма and
 $рег.Покупатель = :ВыбКонтрагент and
 $рег.ТорговаяТочка = :ВыбТТ and
 $рег.ТМЦ = :ВыбТМЦ
group by
 j.iddoc,j.iddocdef,j.date_time_iddoc
order by
 j.date_time_iddoc 

Код

ТекстЗапроса = "-- qryMaker:Отчет1.2009.05.13.17.45.24
	|SELECT Рег.Покупатель [Покупатель $Справочник.Контрагенты]
	|	, Рег.ТорговаяТочка [ТорговаяТочка $Справочник.ТорговыеТочки]
	|	, Рег.ФормаОплаты [ФормаОплаты $Перечисление.ФормыОплаты]
	|	, Рег.ТМЦ [ТМЦ $Справочник.ТМЦ]
	|	, Рег.РасходСумОборот ОтгруженоСумма
	|	, Рег.РасходКвоОборот ОтгруженоКво
	|	, Рег.ДоходОборот Доход
	|FROM $РегистрОбороты.Обороты(:НачДата,:КонДата~
	|		,Документ,,
	|		(Фирма = :ВыбФирма)
	|		AND (Покупатель = :ВыбКонтрагент)
	|		AND (ТорговаяТочка = :ВыбТТ)
	|		AND (ТМЦ = :ВыбТМЦ),
	|		(Покупатель, ТорговаяТочка, ФормаОплаты, ТМЦ),
	|		(РасходСум, РасходКво, Доход)) AS Рег
	|";
 

Код

ТекстЗапроса = "-- qryMaker:Отчет1.2009.07.28.17.53.52
		|SELECT ПокупателиОбороты.Договор [Договор $Справочник.Договоры]
		|	, ПоставщикиОбороты.Договор [ПоставщикиОборотыДоговор $Справочник.Договоры]
		|	, right(ПокупателиОбороты.ПозицияДокумента,9) [Док $Документ]
		|	, right(ПоставщикиОбороты.ПозицияДокумента,9) [Докдва $Документ]
		|FROM $РегистрОбороты.Покупатели(:НачДата,
		|		:КонДата ~,
		|		Документ,,,
		|		Договор,) AS ПокупателиОбороты
		|	CROSS JOIN $РегистрОбороты.Поставщики(:НачДата,
		|		:КонДата ~,
		|		Документ,,,
		|		Договор,) AS ПоставщикиОбороты
		|GROUP BY ПокупателиОбороты.Договор
		|	, ПоставщикиОбороты.Договор
		|	, ПокупателиОбороты.ПозицияДокумента
		|	, ПоставщикиОбороты.ПозицияДокумента
		|";
 

Код

|FROM $РегистрОбороты.ВзаиморасчетыПокупателей(:НачДата,
|		:КонДата ~,
|		Документ,
|		INNER JOIN $Документ.Договор AS ДокДоговор With (NOLOCK) ON Договор = $ВидДокумента36.Договор + ДокДоговор.IDDOC
|		INNER JOIN $Справочник.Контрагенты AS Контрагенты With (NOLOCK) ON $ДокДоговор.Контрагент = Контрагенты.ID,
|		($Контрагенты.ВидКонтрагента = :ВыбВид),
|		Договор,) AS ВзаиморасчетыПокупателейОбороты
 

Код

Процедура Сформировать()
	Запрос = СоздатьОбъект("ODBCRecordSet");
	ТекстЗапроса = "SELECT  $Рег.Товар as ID_Товара
	|,left(Жур.Date_Time_IDDoc,6) as МесяцНакладной
	|, (case  when $Рн.ПризнакНакладной = :ЗначПродажа then   $Рег.ОстатокТовара  else - $Рег.ОстатокТовара end) as ОстатокТовара
	|  FROM
	|  $Регистр.ОстаткиТоваров as Рег
	|INNER JOIN  
	|  _1SJourn as Жур ON Рег.IDDoc = Жур.IDDoc  
	|			AND Жур.Date_Time_IDDoc BETWEEN :ДатаНачала AND :ДатаКонца~
	|			AND Жур.IDDocDef = $ВидДокумента.РасходнаяБН
	|INNER JOIN  $Документ.РасходнаяБН as Рн ON Рн.IDDoc = Жур.IDDoc  
	|WHERE $Рег.Склад = :ВыбСклад
	|AND ( $Рн.ПризнакНакладной = :ЗначПродажа  OR $Рн.ПризнакНакладной = :ЗначВозврат )
	|
	|";
	Запрос.УстановитьТекстовыйПараметр("ДатаНачала", ДатаНачала);
	Запрос.УстановитьТекстовыйПараметр("ДатаКонца" , ДатаКонца);
	Запрос.УстановитьТекстовыйПараметр("ВыбСклад"  , ВыбСклад);
	Запрос.УстановитьТекстовыйПараметр("ЗначПродажа"  , Перечисление.ПризнРасхНакл.Продажа );
	Запрос.УстановитьТекстовыйПараметр("ЗначВозврат"  , Перечисление.ПризнРасхНакл.ВозвратПоставщику );

	Сообщить("Начали запрос = " + ТекущееВремя() );
	ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
	Сообщить("закончили запрос = " + ТекущееВремя() );
	Сообщить("Колво строк = " + ТЗ.КоличествоСтрок() );
	ТЗ.ВыбратьСтроку();

КонецПроцедуры