Нужны советы по оптимизации запроса

Есть запрос. Контроль списания МЗ по физ. таблицам бухгалтерии. Как можно ускорить?

ВЫБРАТЬ
    взДанныеВиртуальных.Счет КАК Счет
ПОМЕСТИТЬ втСпСчетов
ИЗ
    (ВЫБРАТЬ
        Хозрасчетный.Ссылка КАК Счет
    ИЗ
        ПланСчетов.Хозрасчетный КАК Хозрасчетный
    ГДЕ
        Хозрасчетный.ВидыСубконто.ВидСубконто = ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура)
        И Хозрасчетный.ВидыСубконто.ВидСубконто = ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады)) КАК взДанныеВиртуальных
;

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

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ХозрасчетныйСубконто.Период КАК Период,
    ХозрасчетныйСубконто.Регистратор КАК Регистратор,
    ХозрасчетныйСубконто.ВидДвижения КАК ВидДвижения,
    ХозрасчетныйСубконто.Вид КАК Вид,
    ХозрасчетныйСубконто.Значение КАК Значение,
    ХозрасчетныйСубконто.НомерСтроки КАК НомерСтроки
ПОМЕСТИТЬ втЗапСубконто
ИЗ
    РегистрБухгалтерии.Хозрасчетный.Субконто КАК ХозрасчетныйСубконто
ГДЕ
    (ХозрасчетныйСубконто.Регистратор, ХозрасчетныйСубконто.НомерСтроки) В
            (ВЫБРАТЬ
                втЗапСчетов.Регистратор КАК Регистратор,
                втЗапСчетов.НомерСтроки КАК НомерСтроки
            ИЗ
                втЗапСчетов КАК втЗапСчетов)
    И ХозрасчетныйСубконто.Вид В (ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура), ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады))
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    взОборотыФизДт.Период КАК Период,
    взОборотыФизДт.Счет КАК Счет,
    втЗапСубконтоНом.Значение КАК Субконто1,
    втЗапСубконтоСклад.Значение КАК Субконто2,
    взОборотыФизДт.Количество КАК Количество,
    взОборотыФизДт.Сумма КАК Сумма,
    взОборотыФизДт.Регистратор КАК Регистратор,
    взОборотыФизДт.МоментВремени КАК МоментВремени
ПОМЕСТИТЬ втОбДт
ИЗ
    (ВЫБРАТЬ
        втДанныеХоз.СчетДт КАК Счет,
        втДанныеХоз.КоличествоДт КАК Количество,
        втДанныеХоз.Сумма КАК Сумма,
        втДанныеХоз.Регистратор КАК Регистратор,
        втДанныеХоз.НомерСтроки КАК НомерСтроки,
        втДанныеХоз.Период КАК Период,
        втДанныеХоз.МоментВремени КАК МоментВремени
    ИЗ
        втЗапСчетов КАК втДанныеХоз
    ГДЕ
        втДанныеХоз.СчетДт В
                (ВЫБРАТЬ
                    втСпСчетов.Счет КАК Счет
                ИЗ
                    втСпСчетов КАК втСпСчетов)) КАК взОборотыФизДт
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ втЗапСубконто КАК втЗапСубконтоНом
        ПО взОборотыФизДт.Регистратор = втЗапСубконтоНом.Регистратор
            И взОборотыФизДт.НомерСтроки = втЗапСубконтоНом.НомерСтроки
            И (втЗапСубконтоНом.Вид = ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура))
            И (втЗапСубконтоНом.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияБухгалтерии.Дебет))
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ втЗапСубконто КАК втЗапСубконтоСклад
        ПО взОборотыФизДт.Регистратор = втЗапСубконтоСклад.Регистратор
            И взОборотыФизДт.НомерСтроки = втЗапСубконтоСклад.НомерСтроки
            И (втЗапСубконтоСклад.Вид = ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады))
            И (втЗапСубконтоСклад.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияБухгалтерии.Дебет))
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    взОборотыФизКт.Период КАК Период,
    взОборотыФизКт.Счет КАК Счет,
    втЗапСубконтоНом.Значение КАК Субконто1,
    втЗапСубконтоСклад.Значение КАК Субконто2,
    взОборотыФизКт.Количество КАК Количество,
    взОборотыФизКт.Сумма КАК Сумма,
    взОборотыФизКт.Регистратор КАК Регистратор,
    взОборотыФизКт.МоментВремени КАК МоментВремени
ПОМЕСТИТЬ втОбКт
ИЗ
    (ВЫБРАТЬ
        втДанныеХоз.СчетКт КАК Счет,
        втДанныеХоз.КоличествоКт КАК Количество,
        втДанныеХоз.Сумма КАК Сумма,
        втДанныеХоз.Регистратор КАК Регистратор,
        втДанныеХоз.НомерСтроки КАК НомерСтроки,
        втДанныеХоз.Период КАК Период,
        втДанныеХоз.МоментВремени КАК МоментВремени
    ИЗ
        втЗапСчетов КАК втДанныеХоз
    ГДЕ
        втДанныеХоз.СчетКт В
                (ВЫБРАТЬ
                    втСпСчетов.Счет КАК Счет
                ИЗ
                    втСпСчетов КАК втСпСчетов)) КАК взОборотыФизКт
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ втЗапСубконто КАК втЗапСубконтоНом
        ПО взОборотыФизКт.Регистратор = втЗапСубконтоНом.Регистратор
            И взОборотыФизКт.НомерСтроки = втЗапСубконтоНом.НомерСтроки
            И (втЗапСубконтоНом.Вид = ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура))
            И (втЗапСубконтоНом.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияБухгалтерии.Кредит))
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ втЗапСубконто КАК втЗапСубконтоСклад
        ПО взОборотыФизКт.Регистратор = втЗапСубконтоСклад.Регистратор
            И взОборотыФизКт.НомерСтроки = втЗапСубконтоСклад.НомерСтроки
            И (втЗапСубконтоСклад.Вид = ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады))
            И (втЗапСубконтоСклад.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияБухгалтерии.Кредит))
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    взДанныеФизНачОстаток.Счет КАК Счет,
    взДанныеФизНачОстаток.Субконто1 КАК Субконто1,
    взДанныеФизНачОстаток.Субконто2 КАК Субконто2,
    взДанныеФизНачОстаток.Количество КАК Количество,
    взДанныеФизНачОстаток.Сумма КАК Сумма
ПОМЕСТИТЬ втОстНаНачПериода
ИЗ
    (ВЫБРАТЬ
        взФизХоз.Счет КАК Счет,
        взФизХоз.Субконто1 КАК Субконто1,
        взФизХоз.Субконто2 КАК Субконто2,
        СУММА(взФизХоз.КоличествоНач) КАК КоличествоНач,
        СУММА(взФизХоз.СуммаНач) КАК СуммаНач,
        СУММА(взФизХоз.Количество) КАК Количество,
        СУММА(взФизХоз.Сумма) КАК Сумма
    ИЗ
        (ВЫБРАТЬ
            втОбДт.Счет КАК Счет,
            втОбДт.Субконто1 КАК Субконто1,
            втОбДт.Субконто2 КАК Субконто2,
            втОбДт.Количество КАК КоличествоНач,
            втОбДт.Сумма КАК СуммаНач,
            втОбДт.Количество КАК Количество,
            втОбДт.Сумма КАК Сумма
        ИЗ
            втОбДт КАК втОбДт
        ГДЕ
            втОбДт.Период < &ПериодНачало

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

        ВЫБРАТЬ
            втОбКт.Счет,
            втОбКт.Субконто1,
            втОбКт.Субконто2,
            -втОбКт.Количество,
            -втОбКт.Сумма,
            -втОбКт.Количество,
            -втОбКт.Сумма
        ИЗ
            втОбКт КАК втОбКт
        ГДЕ
            втОбКт.Период < &ПериодНачало) КАК взФизХоз

    СГРУППИРОВАТЬ ПО
        взФизХоз.Счет,
        взФизХоз.Субконто1,
        взФизХоз.Субконто2) КАК взДанныеФизНачОстаток
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    взОборотыФиз.Счет КАК Счет,
    взОборотыФиз.Субконто1 КАК Субконто1,
    взОборотыФиз.Субконто2 КАК Субконто2,
    взОборотыФиз.Регистратор КАК Регистратор,
    взОборотыФиз.МоментВремени КАК МоментВремени,
    взОборотыФиз.Количество КАК Количество,
    взОборотыФиз.Сумма КАК Сумма
ПОМЕСТИТЬ втОбЗаПериод
ИЗ
    (ВЫБРАТЬ
        взФизХоз.Счет КАК Счет,
        взФизХоз.Субконто1 КАК Субконто1,
        взФизХоз.Субконто2 КАК Субконто2,
        СУММА(взФизХоз.КоличествоНач) КАК КоличествоНач,
        СУММА(взФизХоз.СуммаНач) КАК СуммаНач,
        взФизХоз.Регистратор КАК Регистратор,
        взФизХоз.МоментВремени КАК МоментВремени,
        СУММА(взФизХоз.Количество) КАК Количество,
        СУММА(взФизХоз.Сумма) КАК Сумма
    ИЗ
        (ВЫБРАТЬ
            втОбДт.Счет КАК Счет,
            втОбДт.Субконто1 КАК Субконто1,
            втОбДт.Субконто2 КАК Субконто2,
            втОбДт.Количество КАК КоличествоНач,
            втОбДт.Сумма КАК СуммаНач,
            втОбДт.Регистратор КАК Регистратор,
            втОбДт.МоментВремени КАК МоментВремени,
            втОбДт.Количество КАК Количество,
            втОбДт.Сумма КАК Сумма
        ИЗ
            втОбДт КАК втОбДт
        ГДЕ
            втОбДт.Период >= &ПериодНачало

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

        ВЫБРАТЬ
            втОбКт.Счет,
            втОбКт.Субконто1,
            втОбКт.Субконто2,
            -втОбКт.Количество,
            -втОбКт.Сумма,
            втОбКт.Регистратор,
            втОбКт.МоментВремени,
            -втОбКт.Количество,
            -втОбКт.Сумма
        ИЗ
            втОбКт КАК втОбКт
        ГДЕ
            втОбКт.Период >= &ПериодНачало) КАК взФизХоз

    СГРУППИРОВАТЬ ПО
        взФизХоз.Счет,
        взФизХоз.Субконто1,
        взФизХоз.Субконто2,
        взФизХоз.Регистратор,
        взФизХоз.МоментВремени) КАК взОборотыФиз
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    взОстакиПоДокументам.Счет КАК Счет,
    взОстакиПоДокументам.Субконто1 КАК Субконто1,
    взОстакиПоДокументам.Субконто2 КАК Субконто2,
    взОстакиПоДокументам.Регистратор КАК Регистратор,
    взОстакиПоДокументам.ОстатокКолвоНаДок КАК ОстатокКолвоНаДок,
    взОстакиПоДокументам.ОстатокСуммаНаДок КАК ОстатокСуммаНаДок
ПОМЕСТИТЬ втОстакиПоДокументам
ИЗ
    (ВЫБРАТЬ
        ВложенныйЗапрос.Счет КАК Счет,
        ВложенныйЗапрос.Субконто1 КАК Субконто1,
        ВложенныйЗапрос.Субконто2 КАК Субконто2,
        ВложенныйЗапрос.Регистратор КАК Регистратор,
        ВложенныйЗапрос.ОборотыКолвоНаДок + ЕСТЬNULL(втОстНаНачПериода.Количество, 0) КАК ОстатокКолвоНаДок,
        ВложенныйЗапрос.ОборотыСуммаНаДок + ЕСТЬNULL(втОстНаНачПериода.Сумма, 0) КАК ОстатокСуммаНаДок
    ИЗ
        (ВЫБРАТЬ
            втОбЗаПериод.Счет КАК Счет,
            втОбЗаПериод.Субконто1 КАК Субконто1,
            втОбЗаПериод.Субконто2 КАК Субконто2,
            СУММА(ЕСТЬNULL(втОбЗаПериод1.Количество, 0)) КАК ОборотыКолвоНаДок,
            СУММА(ЕСТЬNULL(втОбЗаПериод1.Сумма, 0)) КАК ОборотыСуммаНаДок,
            втОбЗаПериод.Регистратор КАК Регистратор
        ИЗ
            втОбЗаПериод КАК втОбЗаПериод
                ВНУТРЕННЕЕ СОЕДИНЕНИЕ втОбЗаПериод КАК втОбЗаПериод1
                ПО втОбЗаПериод.Счет = втОбЗаПериод1.Счет
                    И втОбЗаПериод.Субконто1 = втОбЗаПериод1.Субконто1
                    И втОбЗаПериод.Субконто2 = втОбЗаПериод1.Субконто2
                    И втОбЗаПериод.МоментВремени > втОбЗаПериод1.МоментВремени

        СГРУППИРОВАТЬ ПО
            втОбЗаПериод.Счет,
            втОбЗаПериод.Субконто1,
            втОбЗаПериод.Субконто2,
            втОбЗаПериод.Регистратор) КАК ВложенныйЗапрос
            ЛЕВОЕ СОЕДИНЕНИЕ втОстНаНачПериода КАК втОстНаНачПериода
            ПО ВложенныйЗапрос.Счет = втОстНаНачПериода.Счет
                И ВложенныйЗапрос.Субконто1 = втОстНаНачПериода.Субконто1
                И ВложенныйЗапрос.Субконто2 = втОстНаНачПериода.Субконто2) КАК взОстакиПоДокументам
;

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

        СГРУППИРОВАТЬ ПО
            втОбКт.Счет,
            втОбКт.Субконто1,
            втОбКт.Субконто2,
            втОбКт.Регистратор) КАК взДвиженияКт
            ЛЕВОЕ СОЕДИНЕНИЕ втОстакиПоДокументам КАК втОстакиПоДокументам
            ПО взДвиженияКт.Счет = втОстакиПоДокументам.Счет
                И взДвиженияКт.Субконто1 = втОстакиПоДокументам.Субконто1
                И взДвиженияКт.Субконто2 = втОстакиПоДокументам.Субконто2
                И взДвиженияКт.Регистратор = втОстакиПоДокументам.Регистратор) КАК ВложенныйЗапрос
ГДЕ
    ВЫБОР
            КОГДА ВложенныйЗапрос.СуммаДокумента - ВложенныйЗапрос.СуммаРассчитанная > 0.02
                ТОГДА ИСТИНА
            КОГДА ВложенныйЗапрос.СуммаДокумента - ВложенныйЗапрос.СуммаРассчитанная < -0.02
                ТОГДА ИСТИНА
            ИНАЧЕ ЛОЖЬ
        КОНЕЦ