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