Долго выполняется запрос, база бухгалтерия 3.0 + Аренда

	Запрос.Текст = 
	"ВЫБРАТЬ РАЗЛИЧНЫЕ
	|	АР_ВзаиморасчетыПоАрендеОстатки.УслугаАренды КАК УслугаАренды,
	|	АР_ВзаиморасчетыПоАрендеОстатки.ОбъектАренды КАК ОбъектАренды,
	|	АР_ВзаиморасчетыПоАрендеОстатки.СчетНаАренду КАК СчетНаАренду,
	|	АР_ВзаиморасчетыПоАрендеОстатки.ДокументРасчетов КАК ДокументРасчетов,
	|	НАЧАЛОПЕРИОДА(АР_ВзаиморасчетыПоАрендеОстатки.ДокументРасчетов.ОкончаниеПериода, МЕСЯЦ) КАК ПериодАренды,
	|	ВЫБОР
	|		КОГДА НАЧАЛОПЕРИОДА(АР_ВзаиморасчетыПоАрендеОстатки.ДатаОплаты, ДЕНЬ) = ДАТАВРЕМЯ(1, 1, 1)
	|			ТОГДА НАЧАЛОПЕРИОДА(АР_ВзаиморасчетыПоАрендеОстатки.Период, ДЕНЬ)
	|		ИНАЧЕ НАЧАЛОПЕРИОДА(АР_ВзаиморасчетыПоАрендеОстатки.ДатаОплаты, ДЕНЬ)
	|	КОНЕЦ КАК ДатаРасчета,
	|	СУММА(АР_ВзаиморасчетыПоАрендеОстатки.СуммаВзаиморасчетовНачальныйОстаток) КАК Сумма,
	|	МАКСИМУМ(ВЫБОР
	|			КОГДА АР_ВзаиморасчетыПоАрендеОстатки.ДокументРасчетов ССЫЛКА Документ.АР_НачислениеАренднойПлаты
	|				ТОГДА ДОБАВИТЬКДАТЕ(ДОБАВИТЬКДАТЕ(НАЧАЛОПЕРИОДА(АР_ВзаиморасчетыПоАрендеОстатки.ДокументРасчетов.ОкончаниеПериода, МЕСЯЦ), МЕСЯЦ, &КоличествоПериодов), ДЕНЬ, &СрокОплаты)
	|			ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1)
	|		КОНЕЦ) КАК СрокОплаты,
	|	АР_ВзаиморасчетыПоАрендеОстатки.СуммаРасход,
	|	АР_ВзаиморасчетыПоАрендеОстатки.СуммаВзаиморасчетовРасход КАК СуммаВалРасход
	|ПОМЕСТИТЬ ВТЗадолженность
	|ИЗ
	|	РегистрНакопления.АР_ВзаиморасчетыПоАренде.ОстаткиИОбороты(
	|			&НачалоПериодаНачисленияПени,
	|			&МоментНачисленияПени,
	|			Запись,
	|			,
	|			ДоговорКонтрагента = &ДоговорКонтрагента
	|				И НЕ Депозит
	|				И НЕ Пени) КАК АР_ВзаиморасчетыПоАрендеОстатки
	|ГДЕ
	|	АР_ВзаиморасчетыПоАрендеОстатки.СуммаВзаиморасчетовНачальныйОстаток > 0
	|
	|СГРУППИРОВАТЬ ПО
	|	АР_ВзаиморасчетыПоАрендеОстатки.ОбъектАренды,
	|	АР_ВзаиморасчетыПоАрендеОстатки.СчетНаАренду,
	|	АР_ВзаиморасчетыПоАрендеОстатки.ДокументРасчетов,
	|	АР_ВзаиморасчетыПоАрендеОстатки.УслугаАренды,
	|	НАЧАЛОПЕРИОДА(АР_ВзаиморасчетыПоАрендеОстатки.ДокументРасчетов.ОкончаниеПериода, МЕСЯЦ),
	|	АР_ВзаиморасчетыПоАрендеОстатки.СуммаРасход,
	|	АР_ВзаиморасчетыПоАрендеОстатки.СуммаВзаиморасчетовРасход,
	|	ВЫБОР
	|		КОГДА НАЧАЛОПЕРИОДА(АР_ВзаиморасчетыПоАрендеОстатки.ДатаОплаты, ДЕНЬ) = ДАТАВРЕМЯ(1, 1, 1)
	|			ТОГДА НАЧАЛОПЕРИОДА(АР_ВзаиморасчетыПоАрендеОстатки.Период, ДЕНЬ)
	|		ИНАЧЕ НАЧАЛОПЕРИОДА(АР_ВзаиморасчетыПоАрендеОстатки.ДатаОплаты, ДЕНЬ)
	|	КОНЕЦ
	|;
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ РАЗЛИЧНЫЕ
	|	Задолженность.УслугаАренды КАК УслугаАренды,
	|	Задолженность.ОбъектАренды КАК ОбъектАренды,
	|	Задолженность.СчетНаАренду КАК СчетНаАренду,
	|	Задолженность.ДокументРасчетов КАК ДокументРасчетов,
	|	Задолженность.ДатаРасчета КАК ДатаРасчета,
	|	Задолженность.Сумма КАК Сумма,
	|	Задолженность.СрокОплаты КАК СрокОплаты,
	|	ДанныеПроизводственногоКалендаряОграничитель.Дата КАК СрокОплатыСОтсрочкой,
	|	Задолженность.ПериодАренды,
	|	Задолженность.СуммаРасход,
	|	Задолженность.СуммаВалРасход
	|ПОМЕСТИТЬ ВТЗадолженность2
	|ИЗ
	|	ВТЗадолженность КАК Задолженность
	|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ДанныеПроизводственногоКалендаря КАК ДанныеПроизводственногоКалендаря
	|			ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ДанныеПроизводственногоКалендаря КАК ДанныеПроизводственногоКалендаряОграничитель
	|			ПО ДанныеПроизводственногоКалендаря.Дата <= ДанныеПроизводственногоКалендаряОграничитель.Дата
	|		ПО (ДанныеПроизводственногоКалендаря.Дата >= Задолженность.СрокОплаты)
	|			И (ДанныеПроизводственногоКалендаря.Дата <= Задолженность.ДатаРасчета)
	|
	|СГРУППИРОВАТЬ ПО
	|	Задолженность.ОбъектАренды,
	|	Задолженность.УслугаАренды,
	|	Задолженность.СчетНаАренду,
	|	Задолженность.ДокументРасчетов,
	|	Задолженность.ДатаРасчета,
	|	Задолженность.СрокОплаты,
	|	Задолженность.Сумма,
	|	ДанныеПроизводственногоКалендаряОграничитель.Дата,
	|	Задолженность.ПериодАренды,
	|	Задолженность.СуммаРасход,
	|	Задолженность.СуммаВалРасход
	|
	|ИМЕЮЩИЕ
	|	СУММА(ВЫБОР
	|			КОГДА Задолженность.СрокОплаты = ДанныеПроизводственногоКалендаряОграничитель.Дата
	|				ТОГДА 1
	|			КОГДА &УчитыватьТолькоРабочиеДниОтсрочки
	|				ТОГДА ВЫБОР
	|						КОГДА ДанныеПроизводственногоКалендаря.ВидДня В (&РабочийДень)
	|							ТОГДА 1
	|						ИНАЧЕ 0
	|					КОНЕЦ
	|			ИНАЧЕ 1
	|		КОНЕЦ) = &ДнейОтсрочки + 1
	|;
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ РАЗЛИЧНЫЕ
	|	ВложенныйЗапрос.УслугаАренды КАК УслугаАренды,
	|	ВложенныйЗапрос.ОбъектАренды КАК ОбъектАренды,
	|	ВложенныйЗапрос.СчетНаАренду КАК СчетНаАренду,
	|	ВложенныйЗапрос.ДокументРасчетов КАК ДокументРасчетов,
	|	ВложенныйЗапрос.ДатаРасчета,
	|	ВложенныйЗапрос.Сумма КАК Сумма,
	|	ВложенныйЗапрос.СрокОплаты КАК СрокОплаты,
	|	МИНИМУМ(ВложенныйЗапрос.СрокОплатыСОтсрочкой) КАК СрокОплатыСОтсрочкой,
	|	ВложенныйЗапрос.ПериодАренды,
	|	ВложенныйЗапрос.СуммаРасход,
	|	ВложенныйЗапрос.СуммаВалРасход
	|ПОМЕСТИТЬ ВТЗадолженность3
	|ИЗ
	|	ВТЗадолженность2 КАК ВложенныйЗапрос
	|
	|СГРУППИРОВАТЬ ПО
	|	ВложенныйЗапрос.СчетНаАренду,
	|	ВложенныйЗапрос.СрокОплаты,
	|	ВложенныйЗапрос.ОбъектАренды,
	|	ВложенныйЗапрос.УслугаАренды,
	|	ВложенныйЗапрос.ДокументРасчетов,
	|	ВложенныйЗапрос.ДатаРасчета,
	|	ВложенныйЗапрос.Сумма,
	|	ВложенныйЗапрос.ПериодАренды,
	|	ВложенныйЗапрос.СуммаРасход,
	|	ВложенныйЗапрос.СуммаВалРасход
	|;
	|
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ РАЗЛИЧНЫЕ
	|	ВложенныйЗапрос.УслугаАренды КАК Номенклатура,
	|	ВложенныйЗапрос.ОбъектАренды,
	|	ВложенныйЗапрос.СчетНаАренду,
	|	1 КАК Количество,
	|	1 КАК Коэффициент,
	|   """" КАК Контрагент,
	|   """" КАК ДоговорКонтрагента,
	|   """" КАК СчетРасчетов,
	|   """" КАК СуммаОтсрочки,
	|	ВложенныйЗапрос.Сумма КАК ДолгЗаПериод,
	|	ВложенныйЗапрос.СрокОплатыСОтсрочкой КАК СрокОплаты,
	|	ВложенныйЗапрос.ДокументРасчетов КАК ДокументРасчетов,
	|	ВложенныйЗапрос.ДатаРасчета КАК ДатаРасчета,
	|	МИНИМУМ(ДанныеПроизводственногоКалендаря.Дата) КАК НачДатаРасчета,
	|	СУММА(ВЫБОР
	|			КОГДА &УчитыватьТолькоРабочиеДниПросрочки
	|				ТОГДА ВЫБОР
	|						КОГДА ДанныеПроизводственногоКалендаря.ВидДня В (&РабочийДень)
	|							ТОГДА 1
	|						ИНАЧЕ 0
	|					КОНЕЦ
	|			ИНАЧЕ 1
	|		КОНЕЦ) КАК КоличествоДнейПросрочки,
	|	ВложенныйЗапрос.УслугаАренды.УдалитьСтавкаНДС КАК СтавкаНДС,
	|	ВЫБОР
	|		КОГДА &СпособНачисленияПропорциональноСуммеСроку
	|			ТОГДА СУММА(ВЫБОР
	|						КОГДА &УчитыватьТолькоРабочиеДниПросрочки
	|							ТОГДА ВЫБОР
	|									КОГДА ДанныеПроизводственногоКалендаря.ВидДня В (&РабочийДень)
	|										ТОГДА 1
	|									ИНАЧЕ 0
	|								КОНЕЦ
	|						ИНАЧЕ 1
	|					КОНЕЦ) * &СтавкаПени / 100 * ВложенныйЗапрос.Сумма
	|		ИНАЧЕ &СтавкаПени
	|	КОНЕЦ КАК Цена,
	|	ВЫБОР
	|		КОГДА &СпособНачисленияПропорциональноСуммеСроку
	|			ТОГДА СУММА(ВЫБОР
	|						КОГДА &УчитыватьТолькоРабочиеДниПросрочки
	|							ТОГДА ВЫБОР
	|									КОГДА ДанныеПроизводственногоКалендаря.ВидДня В (&РабочийДень)
	|										ТОГДА 1
	|									ИНАЧЕ 0
	|								КОНЕЦ
	|						ИНАЧЕ 1
	|					КОНЕЦ) * &СтавкаПени / 100 * ВложенныйЗапрос.Сумма
	|		ИНАЧЕ &СтавкаПени
	|	КОНЕЦ КАК Сумма,
	|	ВложенныйЗапрос.ПериодАренды,
	|	ВложенныйЗапрос.СуммаРасход,
	|	ВложенныйЗапрос.СуммаВалРасход
	|ИЗ
	|	ВТЗадолженность3 КАК ВложенныйЗапрос
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ДанныеПроизводственногоКалендаря КАК ДанныеПроизводственногоКалендаря
	|		ПО (ВЫБОР
	|				КОГДА ВложенныйЗапрос.СрокОплатыСОтсрочкой < &НачалоПериодаНачисленияПени
	|					ТОГДА ВЫБОР
	|							КОГДА ВложенныйЗапрос.ДатаРасчета = &ДатаНачисленияПени
	|								ТОГДА ДанныеПроизводственногоКалендаря.Дата >= &НачалоПериодаНачисленияПени
	|										И ДанныеПроизводственногоКалендаря.Дата <= ВложенныйЗапрос.ДатаРасчета
	|							ИНАЧЕ ДанныеПроизводственногоКалендаря.Дата >= &НачалоПериодаНачисленияПени
	|									И ДанныеПроизводственногоКалендаря.Дата < ВложенныйЗапрос.ДатаРасчета
	|						КОНЕЦ
	|				ИНАЧЕ ВЫБОР
	|						КОГДА ВложенныйЗапрос.ДатаРасчета = &ДатаНачисленияПени
	|							ТОГДА ДанныеПроизводственногоКалендаря.Дата > ВложенныйЗапрос.СрокОплатыСОтсрочкой
	|									И ДанныеПроизводственногоКалендаря.Дата <= ВложенныйЗапрос.ДатаРасчета
	|						ИНАЧЕ ДанныеПроизводственногоКалендаря.Дата > ВложенныйЗапрос.СрокОплатыСОтсрочкой
	|								И ДанныеПроизводственногоКалендаря.Дата <= ВложенныйЗапрос.ДатаРасчета
	|					КОНЕЦ
	|			КОНЕЦ)
	|
	|СГРУППИРОВАТЬ ПО
	|	ВложенныйЗапрос.СчетНаАренду,
	|	ВложенныйЗапрос.ОбъектАренды,
	|	ВложенныйЗапрос.УслугаАренды,
	|	ВложенныйЗапрос.Сумма,
	|	ВложенныйЗапрос.СрокОплатыСОтсрочкой,
	|	ВложенныйЗапрос.ДокументРасчетов,
	|	ВложенныйЗапрос.ДатаРасчета,
	|	ВложенныйЗапрос.УслугаАренды.УдалитьСтавкаНДС,
	|	ВложенныйЗапрос.ПериодАренды,
	|	ВложенныйЗапрос.СуммаРасход,
	|	ВложенныйЗапрос.СуммаВалРасход
	|
	|ИМЕЮЩИЕ
	|	СУММА(ВЫБОР
	|			КОГДА &УчитыватьТолькоРабочиеДниПросрочки
	|				ТОГДА ВЫБОР
	|						КОГДА ДанныеПроизводственногоКалендаря.ВидДня В (&РабочийДень)
	|							ТОГДА 1
	|						ИНАЧЕ 0
	|					КОНЕЦ
	|			ИНАЧЕ 1
	|		КОНЕЦ) > 0
	|
	|УПОРЯДОЧИТЬ ПО
	|	ДокументРасчетов Возр,
	|	ДатаРасчета";

	СписокРабочихДней = Новый СписокЗначений;
	СписокРабочихДней.Добавить(Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий);
	СписокРабочихДней.Добавить(Перечисления.ВидыДнейПроизводственногоКалендаря.Предпраздничный);
	Запрос.УстановитьПараметр("РабочийДень"						  , СписокРабочихДней);
	Запрос.УстановитьПараметр("ДнейОтсрочки"					  ,ПараметрыНачисленияПени.ОтсрочкаПоОплате);
	Запрос.УстановитьПараметр("УчитыватьТолькоРабочиеДниПросрочки",ПараметрыНачисленияПени.УчитыватьТолькоРабочиеДниПросрочки);
	Запрос.УстановитьПараметр("УчитыватьТолькоРабочиеДниОтсрочки" ,ПараметрыНачисленияПени.УчитыватьТолькоРабочиеДниОтсрочки);
	Запрос.УстановитьПараметр("ПустойСчетНаАренду"				  ,Документы.АР_СчетНаАренду.ПустаяСсылка());
	Запрос.УстановитьПараметр("ДатаНачисленияПени"				  , НачалоДня(МоментВремени));
	Запрос.УстановитьПараметр("МоментНачисленияПени"			  , НачалоДня(МоментВремени + 60*60*24));
	Запрос.УстановитьПараметр("СрокОплаты"						  , ?(ПараметрыНачисленияПени.СрокОплаты = 0, 0, ПараметрыНачисленияПени.СрокОплаты - 1));
	Запрос.УстановитьПараметр("ДоговорКонтрагента"				  ,ДоговорКонтрагента);
	Запрос.УстановитьПараметр("СпособНачисленияПропорциональноСуммеСроку",ПараметрыНачисленияПени.СпособНачисленияПени = Перечисления.АР_СпособыНачисленияПени.ПропорциональноСуммеСроку);
	Запрос.УстановитьПараметр("СтавкаПени",ПараметрыНачисленияПени.СтавкаПени);
	Запрос.УстановитьПараметр("КоличествоПериодов", ПараметрыНачисленияПени.МесяцСрокаОплаты);
	Запрос.УстановитьПараметр("НачалоПериодаНачисленияПени", ДатаНачалаРасчета);
	
	ДанныеПоНачислениям = Запрос.Выполнить().Выгрузить();