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

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

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

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


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


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