Не пробивается чек в БП3

&НаСервереБезКонтекста
&ИзменениеИКонтроль("СписокОборудованияПоТипу")
Функция вАУСН_СписокОборудованияПоТипу(ОтборОборудование, ПараметрыОбъекта, ОтборПоСкладу)
	Перем ПараметрыРегистрации, КодыСистемыНалогообложения;

	СписокОборудование = МенеджерОборудования.СписокОборудования(ОтборОборудование);

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

	ТаблицаПараметры = Запрос.Выполнить().Выгрузить();

	КодСистемыНалогообложения = 
	Строка(ОборудованиеЧекопечатающиеУстройстваКлиентСервер.КодСистемыНалогообложенияККТ(ПараметрыОбъекта.СистемаНалогообложения));

	КоличествоОборудования = СписокОборудование.ВГраница();
	Для Поз = 0 По КоличествоОборудования Цикл
		Индекс = КоличествоОборудования-Поз;
		СтрокаОборудование = СписокОборудование[Индекс];
 #Вставка     
	Сообщить("1:" + СтрокаОборудование.Наименование + " " + СтрокаОборудование.ТипОборудования );
#КонецВставки

		ПараметрыОборудования = ТаблицаПараметры.Найти(СтрокаОборудование.Ссылка, "Ссылка");

		Если ОтборПоСкладу 
			И ЗначениеЗаполнено(ПараметрыОборудования) 
			И ЗначениеЗаполнено(ПараметрыОборудования.Склад) 
			И ПараметрыОборудования.Склад <> ПараметрыОбъекта.Склад Тогда

			СписокОборудование.Удалить(Индекс);
			Продолжить;
		КонецЕсли;

		Если НЕ МенеджерОборудованияБП.ЭтоКассовоеОборудование(СтрокаОборудование.ТипОборудования)  Тогда 
			СтрокаОборудование.Вставить("ЭлектронныеСертификатыНСПК", ПараметрыОборудования.ЭлектронныеСертификатыНСПК);

			Продолжить;
		КонецЕсли;

		Если СтрокаОборудование.Свойство("ПараметрыРегистрации", ПараметрыРегистрации)
			И ПараметрыРегистрации.Свойство("КодыСистемыНалогообложения", КодыСистемыНалогообложения) 
			И СтрРазделить(КодыСистемыНалогообложения, ",").Найти(КодСистемыНалогообложения) = Неопределено Тогда
#Вставка                                      
	Сообщить("2:" + ПараметрыРегистрации.КодыСистемыНалогообложения + " " + КодСистемыНалогообложения);
	Перейти ~Пропустить;
#КонецВставки

#Удаление
			СписокОборудование.Удалить(Индекс);
			Продолжить;
#КонецУдаления
#Вставка   
	~Пропустить:
	Сообщить("3:");
#КонецВставки
		КонецЕсли;
	КонецЦикла;

#Вставка                                      
	Сообщить("Кол-во:" + СписокОборудование.Количество());
#КонецВставки
	Возврат СписокОборудование;
КонецФункции

&НаСервереБезКонтекста
&ИзменениеИКонтроль("НастройкиПодключаемогоОборудования")
Функция вАУСН_НастройкиПодключаемогоОборудования(ОтборОборудование, ПараметрыОбъекта, ОтборПоСкладу)
	СписокОборудованияПечатьЧека     = Новый Массив;
	СписокОборудованияПлатежнаяКарта = Новый Массив;

	СписокОборудованияПоТипу = СписокОборудованияПоТипу(ОтборОборудование, ПараметрыОбъекта, ОтборПоСкладу);

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

	Результат = Новый Структура;
	Результат.Вставить("СписокОборудованияПечатьЧека",     СписокОборудованияПечатьЧека);
	Результат.Вставить("СписокОборудованияПлатежнаяКарта", СписокОборудованияПлатежнаяКарта);
	Результат.Вставить("ИспользуютсяСертификатыНСПК",      ИспользуютсяСертификатыНСПК И СписокОборудованияПлатежнаяКарта.Количество() = 1);

	Возврат Результат;
КонецФункции