Код

Select
	Рег.Клиент as [Клиент $Справочник.Контрагенты],
	Рег.Договор as [Договор $Справочник.Договора],
	Рег.КредДокумент as [Докум $Документ],
	Рег.СтавкаНДС as [НДС $Справочник.СтавкиНДС],
	-(Рег.ДолгОстаток) as Долг,
	Cast(Left(Жур.Date_Time_IdDoc,8) as DateTime) as Дата,
	$СпрД.Вид as [ВидДоговора $Перечисление.ВидыДоговоров],
	ДокР.Удаление as Удаление,
	Жур.IdDocDef as Док_вид
From
	$РегистрОстатки.Платежи(:НачДата,,,
	(Клиент,Договор,КредДокумент,СтавкаНДС),
					(Долг)) as Рег
Inner Join
	$Справочник.Договора as СпрД On СпрД.ID = Рег.Договор
Inner Join
	(Select
		0 as Удаление,
		$ВидДокумента36.Взаиморасчет as ВидДок,
		ДокВзаиморасчет.IdDoc as ДокумДвижения
	From
		$Документ.Взаиморасчет As ДокВзаиморасчет

	Union all
....
	Union all
	Select
		1 as Удаление,
		$ВидДокумента36.РасходнаяВино as ВидДок,
		ДокРасходнаяВино.IdDoc as ДокумДвижения
	From
		$Документ.РасходнаяВино As ДокРасходнаяВино
	Where
	     $ДокРасходнаяВино.ПризнакНакладной = $Перечисление.ПризнРасхНакл.ВнутреннееПеремещение
) as ДокР On ДокР.ДокумДвижения = Right(Рег.КредДокумент,9)

Inner Join
	_1Sjourn as Жур On Жур.IdDoc = Right(Рег.КредДокумент,9)
					and Жур.Date_Time_IdDoc < :НачДата
					and Жур.Closed & 1 = 1
Where
	(Рег.ДолгОстаток != 0)
	and (Клиент in (Select Val From #СписокКлиентов))

Union All
Select
	$Рег.Клиент as [Клиент $Справочник.Контрагенты],
	$Рег.Договор as [Договор $Справочник.Договора],
	ДокР.ВидДок + Рег.IdDoc as [Докум $Документ],
	$Рег.СтавкаНДС as [НДС $Справочник.СтавкиНДС],
	$Рег.Долг as Долг,
	Cast(Left(Жур1.Date_Time_IdDoc,8) as DateTime) as Дата,
	$СпрД.Вид as [ВидДоговора $Перечисление.ВидыДоговоров],
	ДокР.Удаление as Удаление,
	Жур1.IdDocDef as Док_вид

From
	$Регистр.Взаиморасчеты as Рег

Inner Join
	$Справочник.Договора as СпрД On СпрД.ID = $Рег.Договор
Inner Join
	(Select
		0 as Удаление,
		$ВидДокумента36.Взаиморасчет as ВидДок,
		ДокВзаиморасчет.IdDoc as ДокумДвижения
	From
		$Документ.Взаиморасчет As ДокВзаиморасчет
	Union all
....
	Union all
	Select
		1 as Удаление,
		$ВидДокумента36.РасходнаяНакладная as ВидДок,
		ДокРасходнаяНакладная.IdDoc as ДокумДвижения
	From
		$Документ.РасходнаяНакладная As ДокРасходнаяНакладная
	Where
	     $ДокРасходнаяНакладная.ПризнакНакладной = $Перечисление.ПризнРасхНакл.ВнутреннееПеремещение
) as ДокР On ДокР.ДокумДвижения = Рег.IdDoc
Inner Join
	_1Sjourn as Жур1 On Жур1.IdDoc = Рег.IdDoc
					and (Жур1.IdDoc = ДокР.ДокумДвижения)
					and (Жур1.Date_Time_IdDoc Between :НачДата and :КонДата~)
					and (Жур1.Closed & 1 = 1)
Where
	($Рег.Долг != 0)
	and (Рег.Date_Time_IdDoc between :НачДата and :КонДата~)
	and (Рег.Debkred = 1)
	and ($Рег.Клиент in (Select Val From #СписокКлиентов))