Как переделать отчет .чтоб быстрее работал?

Всем привет отчет на скд

ВЫБРАТЬ РАЗРЕШЕННЫЕ
    ЛК_ЛизингополучательОССрезПоследних.ОсновноеСредство КАК ОсновноеСредство,
    ЛК_ЛизингополучательОССрезПоследних.Организация КАК Организация,
    ЛК_ЛизингополучательОССрезПоследних.Лизингополучатель КАК Лизингополучатель,
    ЛК_ЛизингополучательОССрезПоследних.ДоговорКонтрагента КАК ДоговорКонтрагента,
    ЛК_ЛизингополучательОССрезПоследних.ОСВыбыло КАК ОСВыбыло
ПОМЕСТИТЬ вр_ОсновноеСредство
ИЗ
    РегистрСведений.ЛК_ЛизингополучательОС.СрезПоследних КАК ЛК_ЛизингополучательОССрезПоследних

ИНДЕКСИРОВАТЬ ПО
    ОсновноеСредство,
    Организация
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
    ЛК_ЛизингополучательОС.ДоговорКонтрагента КАК ДоговорКонтрагента,
    ЛК_ЛизингополучательОС.Лизингополучатель КАК Лизингополучатель,
    ЛК_ЛизингополучательОС.ОсновноеСредство КАК ОсновноеСредство,
    ЛК_ЛизингополучательОС.Организация КАК Организация
ПОМЕСТИТЬ вр_Договора
ИЗ
    РегистрСведений.ЛК_ЛизингополучательОС КАК ЛК_ЛизингополучательОС
ГДЕ
    ЛК_ЛизингополучательОС.ОсновноеСредство В
            (ВЫБРАТЬ
                вр_ОсновноеСредство.ОсновноеСредство
            ИЗ
                вр_ОсновноеСредство КАК вр_ОсновноеСредство)

ИНДЕКСИРОВАТЬ ПО
    ОсновноеСредство,
    Организация
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
    ЛК_ЛизингополучательОССрезПоследних.ОсновноеСредство КАК ОсновноеСредство,
    ЛК_ГрафикиДоговоровЛизингСрезПоследних.Регистратор КАК Регистратор,
    ЛК_ГрафикиДоговоровЛизингСрезПоследних.ДатаЗавершенияГрафика КАК ДатаЗавершенияГрафика,
    ЛК_ГрафикиДоговоровЛизингСрезПоследних.ОбщаяСуммаПлатежей КАК ОбщаяСуммаПлатежей,
    ЛК_ГрафикиДоговоровЛизингСрезПоследних.СуммаАванса КАК СуммаАванса,
    ЕСТЬNULL(ЛК_ГрафикиДоговоровЛизингСрезПоследних.ОбщаяСуммаПлатежей, 0) - ЕСТЬNULL(ВложенныйЗапрос51_62.СуммаОборот, 0) - ЕСТЬNULL(ОплатаПрошлыхПериодов.СуммаОплаты, 0) + ЕСТЬNULL(ВложенныйЗапрос62_51.СуммаОборот, 0) - ЕСТЬNULL(ВложенныйЗапрос62_62.СуммаОборот, 0) КАК Остаток,
    ЕСТЬNULL(ВложенныйЗапрос51_62.СуммаОборот, 0) КАК Сумма51_62,
    ЕСТЬNULL(ОплатаПрошлыхПериодов.СуммаОплаты, 0) КАК СуммаОплата,
    ЕСТЬNULL(ВложенныйЗапрос62_51.СуммаОборот, 0) КАК Сумма62_51,
    ЕСТЬNULL(ВложенныйЗапрос62_62.СуммаОборот, 0) КАК Сумма62_62,
    ЛК_ГрафикиДоговоровЛизингСрезПоследних.Контрагент КАК Контрагент,
    ЛК_ГрафикиДоговоровЛизингСрезПоследних.Договор КАК Договор,
    ЛК_ГрафикиДоговоровЛизингСрезПоследних.Организация КАК Организация,
    ЕСТЬNULL(ВложенныйЗапрос51_62.СуммаОборот, 0) + ЕСТЬNULL(ОплатаПрошлыхПериодов.СуммаОплаты, 0) - ЕСТЬNULL(ВложенныйЗапрос62_51.СуммаОборот, 0) + ЕСТЬNULL(ВложенныйЗапрос62_62.СуммаОборот, 0) КАК Оплачено,
    ЛК_ЛизингополучательОССрезПоследних.ОСВыбыло КАК ОСВыбыло
ПОМЕСТИТЬ вр_Осн
ИЗ
    вр_ОсновноеСредство КАК ЛК_ЛизингополучательОССрезПоследних
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ЛК_ГрафикиДоговоровЛизинг.СрезПоследних КАК ЛК_ГрафикиДоговоровЛизингСрезПоследних
        ПО ЛК_ЛизингополучательОССрезПоследних.Организация = ЛК_ГрафикиДоговоровЛизингСрезПоследних.Организация
            И ЛК_ЛизингополучательОССрезПоследних.Лизингополучатель = ЛК_ГрафикиДоговоровЛизингСрезПоследних.Контрагент
            И ЛК_ЛизингополучательОССрезПоследних.ДоговорКонтрагента = ЛК_ГрафикиДоговоровЛизингСрезПоследних.Договор
        ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
            СУММА(ХозрасчетныйОборотыДтКт.СуммаОборот) КАК СуммаОборот,
            вр_Договора.ОсновноеСредство КАК ОсновноеСредство
        ИЗ
            РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(, &Дата, , НЕ СчетДт В ИЕРАРХИИ (&Счет90), , СчетКт В ИЕРАРХИИ (&Счет62), , ) КАК ХозрасчетныйОборотыДтКт
                ВНУТРЕННЕЕ СОЕДИНЕНИЕ вр_Договора КАК вр_Договора
                ПО ХозрасчетныйОборотыДтКт.СубконтоКт2 = вр_Договора.ДоговорКонтрагента

        СГРУППИРОВАТЬ ПО
            вр_Договора.ОсновноеСредство) КАК ВложенныйЗапрос51_62
        ПО ЛК_ЛизингополучательОССрезПоследних.ОсновноеСредство = ВложенныйЗапрос51_62.ОсновноеСредство
        ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
            СУММА(ХозрасчетныйОборотыДтКт.СуммаОборот) КАК СуммаОборот,
            вр_Договора.ОсновноеСредство КАК ОсновноеСредство
        ИЗ
            РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(
                    ,
                    &Дата,
                    ,
                    СчетДт В ИЕРАРХИИ (&Счет62),
                    ,
                    СчетКт В ИЕРАРХИИ (&Счет62),
                    ,
                    СубконтоДт2 <> СубконтоКт2
                        И СубконтоДт2 В
                            (ВЫБРАТЬ
                                вр_Договора.ДоговорКонтрагента
                            ИЗ
                                вр_Договора КАК вр_Договора)
                        И НЕ СубконтоКт2 В
                                (ВЫБРАТЬ
                                    вр_Договора.ДоговорКонтрагента
                                ИЗ
                                    вр_Договора КАК вр_Договора)) КАК ХозрасчетныйОборотыДтКт
                ВНУТРЕННЕЕ СОЕДИНЕНИЕ вр_Договора КАК вр_Договора
                ПО (ХозрасчетныйОборотыДтКт.СубконтоКт2 = вр_Договора.ДоговорКонтрагента
                        ИЛИ ХозрасчетныйОборотыДтКт.СубконтоДт2 = вр_Договора.ДоговорКонтрагента)
                    И ХозрасчетныйОборотыДтКт.СубконтоКт1 = вр_Договора.Лизингополучатель
                    И ХозрасчетныйОборотыДтКт.СубконтоДт1 = вр_Договора.Лизингополучатель

        СГРУППИРОВАТЬ ПО
            вр_Договора.ОсновноеСредство) КАК ВложенныйЗапрос62_62
        ПО ЛК_ЛизингополучательОССрезПоследних.ОсновноеСредство = ВложенныйЗапрос62_62.ОсновноеСредство
        ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
            СУММА(ХозрасчетныйОборотыДтКт.СуммаОборот) КАК СуммаОборот,
            вр_Договора.ОсновноеСредство КАК ОсновноеСредство
        ИЗ
            РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(, &Дата, , СчетДт В ИЕРАРХИИ (&Счет62), , НЕ СчетКт В ИЕРАРХИИ (&Счет90), , ) КАК ХозрасчетныйОборотыДтКт
                ВНУТРЕННЕЕ СОЕДИНЕНИЕ вр_Договора КАК вр_Договора
                ПО ХозрасчетныйОборотыДтКт.СубконтоДт2 = вр_Договора.ДоговорКонтрагента

        СГРУППИРОВАТЬ ПО
            вр_Договора.ОсновноеСредство) КАК ВложенныйЗапрос62_51
        ПО ЛК_ЛизингополучательОССрезПоследних.ОсновноеСредство = ВложенныйЗапрос62_51.ОсновноеСредство
        ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
            СУММА(ЛК_ОплатаПрошлыхПериодов.СуммаОплаты) КАК СуммаОплаты,
            вр_Договора.ОсновноеСредство КАК ОсновноеСредство
        ИЗ
            РегистрСведений.ЛК_ОплатаПрошлыхПериодов КАК ЛК_ОплатаПрошлыхПериодов
                ВНУТРЕННЕЕ СОЕДИНЕНИЕ вр_Договора КАК вр_Договора
                ПО ЛК_ОплатаПрошлыхПериодов.Договор = вр_Договора.ДоговорКонтрагента

        СГРУППИРОВАТЬ ПО
            вр_Договора.ОсновноеСредство) КАК ОплатаПрошлыхПериодов
        ПО ЛК_ЛизингополучательОССрезПоследних.ОсновноеСредство = ОплатаПрошлыхПериодов.ОсновноеСредство

ИНДЕКСИРОВАТЬ ПО
    Регистратор,
    ОсновноеСредство,
    Контрагент,
    Договор,
    Организация
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
    ЛК_ГрафикДоговораЛизингОсновныеДанные.Ссылка КАК Ссылка,
    СУММА(ЛК_ГрафикДоговораЛизингОсновныеДанные.СуммаПлатежа) КАК СуммаПлатежа,
    СУММА(ЛК_ГрафикДоговораЛизингОсновныеДанные.СуммаНачисления) КАК СуммаНачисления
ПОМЕСТИТЬ вр_доп
ИЗ
    Документ.ЛК_ГрафикДоговораЛизинг.ОсновныеДанные КАК ЛК_ГрафикДоговораЛизингОсновныеДанные
ГДЕ
    ЛК_ГрафикДоговораЛизингОсновныеДанные.Ссылка В
            (ВЫБРАТЬ
                вр_Осн.Регистратор
            ИЗ
                вр_Осн КАК вр_Осн)
    И ЛК_ГрафикДоговораЛизингОсновныеДанные.ДатаПлатежа <= &Дата

СГРУППИРОВАТЬ ПО
    ЛК_ГрафикДоговораЛизингОсновныеДанные.Ссылка
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
    СУММА(ВЫБОР
            КОГДА ЛП_ПениПретензияОбороты.СуммаПоСогласованиюСторонОборот = 0
                ТОГДА ЛП_ПениПретензияОбороты.ПениОборот
            ИНАЧЕ ЛП_ПениПретензияОбороты.СуммаПоСогласованиюСторонОборот
        КОНЕЦ) КАК ПениВыставленные,
    ЛП_ПениПретензияОбороты.Контрагент КАК Контрагент,
    ЛП_ПениПретензияОбороты.ДоговорКонтрагента КАК ДоговорКонтрагента,
    ЛП_ПениПретензияОбороты.Организация КАК Организация
ПОМЕСТИТЬ вр_ПениВыставленые
ИЗ
    РегистрНакопления.ЛП_ПениПретензия.Обороты(
            ,
            ,
            Регистратор,
            ДатаПолучения <= &Дата
                И ДатаПолучения <> &ПустаяДата) КАК ЛП_ПениПретензияОбороты

СГРУППИРОВАТЬ ПО
    ЛП_ПениПретензияОбороты.Контрагент,
    ЛП_ПениПретензияОбороты.ДоговорКонтрагента,
    ЛП_ПениПретензияОбороты.Организация

ИНДЕКСИРОВАТЬ ПО
    Контрагент,
    ДоговорКонтрагента,
    Организация
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
    ЕСТЬNULL(ХозрасчетныйОбороты_51_76_02.СуммаОборот, 0) КАК Пени,
    ХозрасчетныйОбороты_51_76_02.СубконтоКт2 КАК Договор,
    ХозрасчетныйОбороты_51_76_02.СубконтоКт1 КАК Контрагент,
    ХозрасчетныйОбороты_51_76_02.Организация КАК Организация
ПОМЕСТИТЬ вр_ПениОплачено
ИЗ
    РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(, , , СчетДт = &Счет51, , СчетКт = &Счет76_02, , ) КАК ХозрасчетныйОбороты_51_76_02

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
    -ЕСТЬNULL(ХозрасчетныйОбороты_76_02_62.СуммаОборот, 0),
    ХозрасчетныйОбороты_76_02_62.СубконтоДт2,
    ХозрасчетныйОбороты_76_02_62.СубконтоДт1,
    ХозрасчетныйОбороты_76_02_62.Организация
ИЗ
    РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(, , , СчетДт = &Счет76_02, , СчетКт В ИЕРАРХИИ (&Счет62), , ) КАК ХозрасчетныйОбороты_76_02_62

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
    ЕСТЬNULL(ХозрасчетныйОбороты_62_76_02.СуммаОборот, 0),
    ХозрасчетныйОбороты_62_76_02.СубконтоКт2,
    ХозрасчетныйОбороты_62_76_02.СубконтоКт1,
    ХозрасчетныйОбороты_62_76_02.Организация
ИЗ
    РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(, , , СчетДт В ИЕРАРХИИ (&Счет62), , СчетКт = &Счет76_02, , ) КАК ХозрасчетныйОбороты_62_76_02

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
    -ЕСТЬNULL(ХозрасчетныйОбороты_76_02_51.СуммаОборот, 0),
    ХозрасчетныйОбороты_76_02_51.СубконтоДт2,
    ХозрасчетныйОбороты_76_02_51.СубконтоДт1,
    ХозрасчетныйОбороты_76_02_51.Организация
ИЗ
    РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(, , , СчетДт = &Счет76_02, , СчетКт = &Счет51, , ) КАК ХозрасчетныйОбороты_76_02_51

ИНДЕКСИРОВАТЬ ПО
    Договор,
    Контрагент,
    Организация
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    СУММА(вр_ПениОплачено.Пени) КАК ПениОплачено,
    вр_ПениОплачено.Договор КАК Договор,
    вр_ПениОплачено.Контрагент КАК Контрагент,
    вр_ПениОплачено.Организация КАК Организация
ПОМЕСТИТЬ вр_ПениОплаченоГруппа
ИЗ
    вр_ПениОплачено КАК вр_ПениОплачено

СГРУППИРОВАТЬ ПО
    вр_ПениОплачено.Договор,
    вр_ПениОплачено.Контрагент,
    вр_ПениОплачено.Организация

ИНДЕКСИРОВАТЬ ПО
    Организация,
    Контрагент,
    Договор
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
    ХозрасчетныйОборотыДтКт.СуммаОборот КАК ЦенаПродажи,
    ХозрасчетныйОборотыДтКт.СубконтоКт2 КАК ОС,
    ХозрасчетныйОборотыДтКт.Организация КАК Организация
ПОМЕСТИТЬ вр_ЦенаПродажи
ИЗ
    РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(
            ,
            ,
            ,
            СчетДт В ИЕРАРХИИ (&Счет62),
            ,
            СчетКт = &Счет9101,
            ,
            СубконтоКт2 В
                (ВЫБРАТЬ
                    вр_ОсновноеСредство.ОсновноеСредство
                ИЗ
                    вр_ОсновноеСредство КАК вр_ОсновноеСредство)) КАК ХозрасчетныйОборотыДтКт

ИНДЕКСИРОВАТЬ ПО
    Организация,
    ОС
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    вр_Осн.ОсновноеСредство КАК ОсновноеСредство,
    вр_Осн.Регистратор КАК Регистратор,
    вр_Осн.Контрагент КАК Контрагент,
    вр_Осн.ДатаЗавершенияГрафика КАК ДатаЗавершенияГрафика,
    МАКСИМУМ(вр_Осн.ОбщаяСуммаПлатежей) КАК ОбщаяСуммаПлатежей,
    МАКСИМУМ(вр_Осн.СуммаАванса) КАК СуммаАванса,
    МАКСИМУМ(вр_Осн.Остаток) КАК Остаток,
    МАКСИМУМ(вр_Осн.Сумма51_62) КАК Сумма51_62,
    МАКСИМУМ(вр_Осн.СуммаОплата) КАК СуммаОплата,
    МАКСИМУМ(вр_Осн.Сумма62_62) КАК Сумма62_62,
    МАКСИМУМ(вр_Осн.Сумма62_51) КАК Сумма62_51,
    МАКСИМУМ(вр_доп.СуммаПлатежа) КАК СуммаПлатежа,
    МАКСИМУМ(вр_доп.СуммаПлатежа - вр_Осн.Сумма51_62 - вр_Осн.СуммаОплата + вр_Осн.Сумма62_51 - вр_Осн.Сумма62_62) КАК Всего,
    СУММА(вр_Осн.ОсновноеСредство.ЛК_ПервоначальнаяСтоимость) КАК ПервоначальнаяСтоимость,
    МАКСИМУМ(вр_Осн.Оплачено) КАК Оплачено,
    МАКСИМУМ(вр_доп.СуммаПлатежа - вр_доп.СуммаНачисления) КАК НесписанныйАванс,
    МАКСИМУМ(ЕСТЬNULL(вр_ПениВыставленые.ПениВыставленные, 0)) КАК ПениВыставленные,
    МАКСИМУМ(ЕСТЬNULL(вр_ПениОплаченоГруппа.ПениОплачено, 0)) КАК ПениОплачено,
    СУММА(ЕСТЬNULL(вр_ЦенаПродажи.ЦенаПродажи, 0)) КАК ЦенаПродажи,
    вр_Осн.Договор КАК Договор,
    вр_Осн.Организация КАК Организация,
    вр_Осн.ОСВыбыло КАК ОСВыбыло,
    вр_Осн.Регистратор.СтоимостьИмущества КАК СтоимостьИмущества
ИЗ
    вр_Осн КАК вр_Осн
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ вр_доп КАК вр_доп
        ПО вр_Осн.Регистратор = вр_доп.Ссылка
        ЛЕВОЕ СОЕДИНЕНИЕ вр_ПениВыставленые КАК вр_ПениВыставленые
        ПО вр_Осн.Регистратор.Договор = вр_ПениВыставленые.ДоговорКонтрагента
            И вр_Осн.Регистратор.Контрагент = вр_ПениВыставленые.Контрагент
            И вр_Осн.Регистратор.Организация = вр_ПениВыставленые.Организация
        ЛЕВОЕ СОЕДИНЕНИЕ вр_ПениОплаченоГруппа КАК вр_ПениОплаченоГруппа
        ПО вр_Осн.Регистратор.Договор = вр_ПениОплаченоГруппа.Договор
            И вр_Осн.Регистратор.Контрагент = вр_ПениОплаченоГруппа.Контрагент
            И вр_Осн.Регистратор.Организация = вр_ПениОплаченоГруппа.Организация
        ЛЕВОЕ СОЕДИНЕНИЕ вр_ЦенаПродажи КАК вр_ЦенаПродажи
        ПО вр_Осн.ОсновноеСредство = вр_ЦенаПродажи.ОС
            И вр_Осн.Организация = вр_ЦенаПродажи.Организация

СГРУППИРОВАТЬ ПО
    вр_Осн.Договор,
    вр_Осн.ОсновноеСредство,
    вр_Осн.Организация,
    вр_Осн.Регистратор,
    вр_Осн.ДатаЗавершенияГрафика,
    вр_Осн.ОСВыбыло,
    вр_Осн.Регистратор.СтоимостьИмущества,
    вр_Осн.Контрагент