Перепроведение документа

Наверняка, вопрос поднимался много раз, но долгий гуглинг не принес плодов.

В документе (списание товара со склада) нужно проверить остатки товара на складе перед проведением. Проблема в том, что если документ1 был проведен, то в регистрах накопления есть записи списания от документа1 и получается, что на складе товара не хватает. Как исключить движения Документа1 из проверки остатков товара на складе?

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

    Оперативно = (Режим = РежимПроведенияДокумента.Оперативный);

    Для Каждого Товар Из Товары Цикл
        СписокЗначений.Добавить(Товар.Товар);
    КонецЦикла;

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

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

    ДостатоточноТовара = Истина;
    НедостающиеТовары = "";
    МассивТоваров = Новый Массив;


    Для Каждого Товар Из Товары Цикл
        ДобавитьВМассив(Товар.Товар, Товар.Количество, МассивТоваров);
    КонецЦикла;

    Для Каждого Элемент ИЗ МассивТоваров Цикл
        СтруктураПоиска = Новый Структура;
        СтруктураПоиска.Вставить("Товары", Элемент.Товар);
        Если Выборка.НайтиСледующий(СтруктураПоиска) Тогда
            Если Выборка.КоличествоОстаток < Элемент.Количество Тогда
                ДостатоточноТовара = Ложь;
                НедостающиеТовары = НедостающиеТовары + " " + Элемент.Товар + ",";
            Иначе
                //Списание
            КонецЕсли;
        Иначе
            ДостатоточноТовара = Ложь;
            НедостающиеТовары = НедостающиеТовары + " " + Элемент.Товар + ",";
        КонецЕсли;

    КонецЦикла;

    Если НЕ ДостатоточноТовара Тогда
        Сообщить("Недостаточно товаров" + Лев(НедостающиеТовары, СтрДлина(НедостающиеТовары) - 1)
         + " на складе " + Склад);
         Если Режим = РежимПроведенияДокумента.Оперативный Тогда
             Отказ = Истина;
             Возврат;
         КонецЕсли;
     КонецЕсли;