Ошибка момента времени

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

	//  4. Запрос, получающий отрицательные остатки из регистра     
	Запрос.Текст =         
		"ВЫБРАТЬ
		|	РегистрХраненияОстатки.Штрихкод КАК Штрихкод,
		|	-РегистрХраненияОстатки.КоличествоОстаток КАК Дефицит
		|ИЗ
		|	РегистрНакопления.РегистрХранения.Остатки(
		|			&МоментВремени,
		|			(Штрихкод, Склад) В
		|				(ВЫБРАТЬ
		|					НоменклатураДокументРазборкаХранение.Штрихкод,
		|					НоменклатураДокументРазборкаХранение.Склад
		|				ИЗ
		|					НоменклатураДокументРазборкаХранение)) КАК РегистрХраненияОстатки
		|ГДЕ
		|	РегистрХраненияОстатки.КоличествоОстаток < 0";
	
	ГраницаКонтроля = Новый Граница(МоментВремени(), ВидГраницы.Включая);     
	Запрос.УстановитьПараметр("МоментВремени", ГраницаКонтроля);     
	РезультатЗапроса = Запрос.Выполнить();
	
	//  5. Вывод сообщений о недостатке товаров     
	Если Не РезультатЗапроса.Пустой() Тогда         
		//Отказ = Истина;         
		ВыборкаОшибки = РезультатЗапроса.Выбрать();         
		Пока ВыборкаОшибки.Следующий() Цикл             
			Сообщить("Товара "+ВыборкаОшибки.Штрихкод+" недостаточно в количестве "+ВыборкаОшибки.Дефицит+" шт.");         
		КонецЦикла;
		Возврат;
	КонецЕсли;