Двойное списание номенклатуры

Процедура ОбработкаПроведения(Отказ, Режим)

    Движения.ОстаткиМатериалов.Записывать = Истина;
    Движения.СтоимостьМатериалов.Записывать = Истина;
    Движения.Продажи.Записывать = Истина;

    МенеджерВТ = Новый МенеджерВременныхТаблиц;

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

    Запрос.УстановитьПараметр("Ссылка", Ссылка);

    РезультатЗапроса = Запрос.Выполнить();

    Запрос2 = Новый Запрос;
    Запрос2.МенеджерВременныхТаблиц = МенеджерВТ;
    Запрос2.Текст =
    "ВЫБРАТЬ
    |    НоменклатураДокумента.Номенклатура,
    |    НоменклатураДокумента.ВидНоменклатуры,
    |    НоменклатураДокумента.КоличествоВДокументе,
    |    НоменклатураДокумента.СуммаВДокументе,
    |    ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,
    |    ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество,
    |    ОстаткиМатериаловОстатки.НаборСвойств
    |ИЗ
    |    НоменклатураДокумента КАК НоменклатураДокумента
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(
    |                ,
    |                Материал В
    |                    (ВЫБРАТЬ
    |                        НоменклатураДокумента.Номенклатура
    |                    ИЗ
    |                        НоменклатураДокумента)) КАК ОстаткиМатериаловОстатки
    |        ПО НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материал
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(
    |                ,
    |                Материал В
    |                    (ВЫБРАТЬ
    |                        НоменклатураДокумента.Номенклатура
    |                    ИЗ
    |                        НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки
    |        ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал";

    Движения.СтоимостьМатериалов.БлокироватьДляИзменения = Истина;
    Движения.ОстаткиМатериалов.БлокироватьДляИзменения = Истина;
    Движения.СтоимостьМатериалов.Записать();
    Движения.ОстаткиМатериалов.Записать();

    Результат = Запрос2.Выполнить();
    ТЗ = Результат.Выгрузить();


    ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

        Если ВыборкаДетальныеЗаписи.Количество = 0 Тогда
            СтоимостьМатериала = 0;
        Иначе
            СтоимостьМатериала = ВыборкаДетальныеЗаписи.Стоимость / ВыборкаДетальныеЗаписи.Количество;
        КонецЕсли;

        Если ВыборкаДетальныеЗаписи.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда

            Движение = Движения.ОстаткиМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
            Движение.Склад = Склад;
            Движение.НаборСвойств = ВыборкаДетальныеЗаписи.НаборСвойств;
            Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;

            Движение = Движения.СтоимостьМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
            Движение.Стоимость = ВыборкаДетальныеЗаписи.КоличествоВДокументе  * СтоимостьМатериала;

        КонецЕсли;

        Движение = Движения.Продажи.Добавить();
        Движение.Период = Дата;
        Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
        Движение.Клиент = Клиент;
        Движение.Мастер = Мастер;
        Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
        Движение.Выручка = ВыборкаДетальныеЗаписи.СуммаВДокументе;
        Движение.Стоимость = СтоимостьМатериала * ВыборкаДетальныеЗаписи.КоличествоВДокументе;

    КонецЦикла;

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

         ВыборкаДетальныеЗаписи = Результат.Выбрать();

         Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

             Сообщение = Новый СообщениеПользователю();
             Сообщение.Текст = "Не хватает   " + Строка(- ВыборкаДетальныеЗаписи.КоличествоОстаток) + "   единиц материала" + """"
                                                     + ВыборкаДетальныеЗаписи. Материал + """";
            Сообщение.Сообщить();
            Отказ = Истина;
         КонецЦикла;;

    КонецЕсли;
КонецПроцедуры

почему при реализации товара списывается одна номенклатура два раза?