Не присваивается статус к номенклатуре! Не могу найти ошибку

Функция ОбновитьСтатусыНоменклатуры(Знач Номенклатура, ВернутьПервоеНайденноеЗначение = Ложь) Экспорт
	
	Если Не ТипЗнч(Номенклатура) = Тип("Массив") Тогда
		
		ЗначениеНоменклатура = Номенклатура;
		Номенклатура = Новый Массив;
		Номенклатура.Добавить(ЗначениеНоменклатура);
		
	КонецЕсли;
	
	НоменклатураКопия = Новый Массив;
	ОбщегоНазначенияКлиентСервер.ДополнитьМассив(НоменклатураКопия, Номенклатура, Истина);
	Номенклатура = НоменклатураКопия;
	
	УзелERP = БИТ_СТ_ПовторноеИспользованиеЗначений.ПолучитьЗначениеКонстанты("СТ_НСИ_УзелERP");
	
	СтатусыНоменклатуры = СтатусыНоменклатуры();
	СхемаКомпоновкиДанных = ПолучитьМакет("СхемаКомпоновкиДанныхОтбора");
	
	Для Каждого Статус Из СтатусыНоменклатуры Цикл
		
		Если Не Номенклатура.Количество() Тогда
			Прервать;
		КонецЕсли;
		
		НастройкиКомпоновкиХранилище = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Статус, "НастройкиОтбора");
		НастройкиКомпоновки = НастройкиКомпоновкиХранилище.Получить();
		Если НастройкиКомпоновки = Неопределено Тогда
			Продолжить;
		КонецЕсли;
		
		// Настройки могут меняться. Перезаполняем используемые параметры
		НастройкиКомпоновки.ПараметрыДанных.Элементы.Очистить();
		Для Каждого Параметр Из СхемаКомпоновкиДанных.Параметры Цикл
			НовыйПараметр = НастройкиКомпоновки.ПараметрыДанных.Элементы.Добавить();
			НовыйПараметр.Параметр = Новый ПараметрКомпоновкиДанных(Параметр.Имя);
			НовыйПараметр.Использование = Истина;
		КонецЦикла;
		
		//
		ПараметрНастройки = Новый ПараметрКомпоновкиДанных("Номенклатура");
		НастройкиКомпоновки.ПараметрыДанных.УстановитьЗначениеПараметра(ПараметрНастройки, Номенклатура);
		
		ПараметрНастройки = Новый ПараметрКомпоновкиДанных("УзелERP");
		НастройкиКомпоновки.ПараметрыДанных.УстановитьЗначениеПараметра(ПараметрНастройки, УзелERP);
		
		ПараметрНастройки = Новый ПараметрКомпоновкиДанных("ГруппаПроектные");
		НастройкиКомпоновки.ПараметрыДанных.УстановитьЗначениеПараметра(ПараметрНастройки, БИТ_СТ_ПовторноеИспользованиеЗначений.ПолучитьЗначениеКонстанты("СТ_ГруппаПроектныхСветильников"));
			
		КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных();
		МакетКомпоновки   = КомпоновщикМакета.Выполнить(
			СхемаКомпоновкиДанных, 
			НастройкиКомпоновки, 
			, 
			,
			Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
		
		ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
		ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки);
		
		ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
		ТаблицаРезультат = Новый ТаблицаЗначений;
		
		ПроцессорВывода.УстановитьОбъект(ТаблицаРезультат);
		ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
		
		Если ТаблицаРезультат.Количество() И ВернутьПервоеНайденноеЗначение Тогда
			Возврат Статус;
		КонецЕсли;
		
		Если ТаблицаРезультат.Количество() Тогда		
			
			НоменклатураКОбновлениюСтатуса = ТаблицаРезультат.ВыгрузитьКолонку("Номенклатура");
			УстановитьОбновитьСтатусыНоменклатуры(НоменклатураКОбновлениюСтатуса, Статус);
			
			Номенклатура = ОбщегоНазначенияКлиентСервер.СократитьМассив(Номенклатура, НоменклатураКОбновлениюСтатуса);
			
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат Номенклатура;
	
КонецФункции

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