Документ проводится 2 раза, где ошибка?

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

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

Пока Выборка.Следующий() Цикл
Если Выборка.Количество > Выборка.КоличествоОстаток Тогда
Нехватает = Число(Выборка.Количество - Выборка.КоличествоОстаток);
Сообщение = Новый СообщениеПользователю;
Сообщение.УстановитьДанные(ЭтотОбъект);
Сообщение.Текст = "Не хватает товара "+"'"+Выборка.Номенклатура+"'"+" "+"количество " +
Нехватает + " в наличии только"+Выборка.КоличествоОстаток;
Сообщение.Поле = "Товары.["+(Выборка.НомерСтроки-1)+"[.Количество]";
Сообщение.Сообщить();
Отказ=Истина;
КонецЕсли;
КонецЦикла;

Если Отказ Тогда
Возврат;
КонецЕсли;

Выборка.Сбросить();

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