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

Процедура ОбработкаПроведения(Отказ, Режим)
    
    
    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    
    Запрос = Новый Запрос;
    Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    АктВыполненыхРаботЗИП.Номенклатура,
        |    СУММА(АктВыполненыхРаботЗИП.Колличество) КАК Колличество,
        |    АктВыполненыхРаботЗИП.ЦенаЗакупки,
        |    АктВыполненыхРаботЗИП.СчетЗакупа
        |ПОМЕСТИТЬ ДокТЧ
        |ИЗ
        |    Документ.АктВыполненыхРабот.ЗИП КАК АктВыполненыхРаботЗИП
        |ГДЕ
        |    АктВыполненыхРаботЗИП.Ссылка = &Ссылка
        |
        |СГРУППИРОВАТЬ ПО
        |    АктВыполненыхРаботЗИП.Номенклатура,
        |    АктВыполненыхРаботЗИП.ЦенаЗакупки,
        |    АктВыполненыхРаботЗИП.СчетЗакупа
        |;
        |
        |////////////////////////////////////////////////////////////­////////////////////
        |ВЫБРАТЬ
        |    ДокТЧ.Номенклатура,
        |    ДокТЧ.Колличество,
        |    ДокТЧ.ЦенаЗакупки,
        |    ДокТЧ.СчетЗакупа
        |ИЗ
        |    ДокТЧ КАК ДокТЧ";
    
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    
    РезультатЗапроса = Запрос.Выполнить();
    Движения.ОстаткиНоменклатуры.Записывать = Истина;
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
**************

    //тут располагается мудреный код движения по регистрам

*************
        КонецЦикла; 


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


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