Аксиома. Рефсервис. Заполнение спецодежды (СПИ)

ВЫБРАТЬ
    ХозрасчетныйОстаткиМЦ.Субконто1 КАК Субконто1,
    ХозрасчетныйОстаткиМЦ.Субконто2 КАК Субконто2,
    ХозрасчетныйОстаткиМЦ.КоличествоОстатокДт КАК КоличествоОстатокДт
ПОМЕСТИТЬ ВТ_ОстаткиМЦ_Передача
ИЗ
    РегистрБухгалтерии.Хозрасчетный.Остатки(
            &Период,
            Счет = ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.СпецоснасткаВЭксплуатацииВспомогательный),
            ,
            Организация = &Организация
                И (Подразделение = &Подразделение
                    ИЛИ Подразделение ЕСТЬ NULL)
                И Субконто2 ССЫЛКА Документ.ПередачаМатериаловВЭксплуатацию) КАК ХозрасчетныйОстаткиМЦ

ИНДЕКСИРОВАТЬ ПО
    Субконто1,
    Субконто2
;

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

ИНДЕКСИРОВАТЬ ПО
    Субконто1,
    Субконто2
;

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

ИНДЕКСИРОВАТЬ ПО
    Субконто1,
    Субконто2
;

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

ИНДЕКСИРОВАТЬ ПО
    Субконто1,
    Субконто2
;

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

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

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

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

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