Вопросы по Simple UI/Simple WMS

Если Переменные.listener = "Завершить" или Переменные.listener = "Обратно" Тогда 
Переменные.Вставить("FinishProcess","");
КонецЕсли;

//ОтладкаПроцессов.Обработчик2(Переменные,ТаблицаСтрок,Ошибка,СообщениеОбОшибке);

Если Переменные.listener = "BACK_BUTTON" ИЛИ Переменные.listener = "btn_exit" Тогда
	Переменные.Вставить("ShowScreen","Приемка товара");
Иначе
	ДокПоступления = Документы.ЗаказПоставщику.ПустаяСсылка();
	Если Переменные.Свойство("barcode_order") и Переменные.listener = "barcode"  Тогда
		ШтрихКодДок = Переменные.barcode_order;
		Поз = Найти(ШтрихКодДок, Символы.ПС);
		Если ЗначениеЗаполнено(ШтрихКодДок) И Поз > 0 Тогда
			ИмяДок = Сред(ШтрихКодДок, 1, Поз - 1);
			ШтрихКодДок = Сред(ШтрихКодДок, Поз + 1);
			Поз = Найти(ШтрихКодДок, Символы.ПС);
			НомерДок = Сред(ШтрихКодДок, 1, Поз - 1);
			ДатаДок = Сред(ШтрихКодДок, Поз + 1);
			ДатаДень = Число(Сред(ДатаДок, 1, 2));
			ДатаМесяц = Число(Сред(ДатаДок, 4, 2));
			ДатаГод = Число(Сред(ДатаДок, 7, 4));
			ДатаДокТекст = ДатаДок;
			ДатаДок = Дата(ДатаГод, ДатаМесяц, ДатаДень);
			Если Лев(ИмяДок, 1) = "З" Тогда
				ДокПоступления = Документы.ЗаказПоставщику.НайтиПоНомеру(НомерДок, ДатаДок);
			Иначе
				ДокПоступления = Документы.ПоступлениеТоваровУслуг.НайтиПоНомеру(НомерДок, ДатаДок);
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	Если Не ДокПоступления.Пустая() Тогда
		ДокПоступленияДата = Строка(ДокПоступления.Дата);
		ДокПоступленияДата = Сред(ДокПоступленияДата, 1, Найти(ДокПоступленияДата, ":") - 4); 
		Переменные.Вставить("order",СокрЛП(ДокПоступления.Контрагент) + ", " + ?(Лев(ИмяДок, 1) = "З", "Заказ", "Поступление") + " №" + СокрЛП(ДокПоступления.Номер) + " от " + ДокПоступленияДата);
		Переменные.Вставить("orderRef",СокрЛП(ДокПоступления.УникальныйИдентификатор()));	
		Переменные.Вставить("ShowScreen","Выбор товара из документа поступления");
	Иначе
		СообщениеОбОшибке = "Документ поступления не найден !";	  
	КонецЕсли;	
КонецЕсли;
  
обработчик ввода 2 экрана:		
//ОтладкаПроцессов.Обработчик2(Переменные,ТаблицаСтрок,Ошибка,СообщениеОбОшибке);


Если Переменные.listener = "BACK_BUTTON" ИЛИ Переменные.listener = "btn_exit" Тогда
	Переменные.Вставить("ShowScreen","Выбор документа поступления");
Иначе
	СообщениеОбОшибке = "";
	ЭтоКнопкаАртикул=ложь;
	ЭтоШтрихКод=ложь;
	ЭтоКликПоТаблице = Ложь;
	Переменные.Вставить("btn_defect",  "false");
	Переменные.Вставить("btn_minus",  "false");
	
	Если Переменные.Свойство("listener") Тогда
		Если Переменные.listener="btn_find" Тогда
			ЭтоКнопкаАртикул=Истина;
		ИначеЕсли Переменные.listener="barcode" Тогда
			ЭтоШтрихКод=Истина;
			
		ИначеЕсли Переменные.listener = "TableClick"  Тогда
			ЭтоКликПоТаблице = Истина;
		КонецЕсли;
	КонецЕсли;
	
	Если ЭтоКнопкаАртикул Тогда
		Если Переменные.Свойство("art") Тогда
			Если Не ЗначениеЗаполнено(Переменные.art) Тогда
				СообщениеОбОшибке = "Пустой артикул";
			Иначе
				Ном = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",Переменные.art); 
				Если НЕ Ном.Пустая() Тогда
					Переменные.Вставить("nom",Ном.Наименование);	
					Переменные.Вставить("descr",Ном.НаименованиеПолное);	
					Переменные.Вставить("key", СокрЛП(Ном.Код));
					
					СтрокаТаблицы = Переменные.table;
					МассивСтрок = СтрРазделить(СтрокаТаблицы, "nom");
					Для Каждого ЭлементМассива из МассивСтрок Цикл
						Поз = Найти(ЭлементМассива, Переменные.key);
						Если Поз > 0 Тогда
							Прервать;
						КонецЕсли;
					КонецЦикла;
					Если Поз = 0 Тогда
						Переменные.Вставить("qty_plan", 0);
						Переменные.Вставить("qty_fact", 0);
						Переменные.Вставить("qty_defect", 0);
					Иначе
						Поз1 = Найти(ЭлементМассива, "qty_plan");
						Поз2 = Найти(ЭлементМассива, "qty_fact");	
						Поз3 = Найти(ЭлементМассива, "qty_defect");	
						Поз4 = Найти(ЭлементМассива, "key");	
						Переменные.Вставить("qty_plan", Число(Сред(ЭлементМассива, Поз1 + 11, Поз2 - Поз1 - 14)));	
						Переменные.Вставить("qty_fact", Число(Сред(ЭлементМассива, Поз2 + 11, Поз3 - Поз2 - 14)));	
						Переменные.Вставить("qty_defect", Число(Сред(ЭлементМассива, Поз3 + 13, Поз4 - Поз3 - 16)));	
					КонецЕсли;
					Переменные.Вставить("qty", 1);	
					//это для дальнейшего использования
					Переменные.Вставить("nomRef",СокрЛП(Ном.УникальныйИдентификатор()));	
					Переменные.Вставить("ShowScreen","Ввод принятого количества");
				Иначе
					СообщениеОбОшибке = "Не найдена номенклатура";
				КонецЕсли;	
			КонецЕсли;
		КонецЕсли; 
	ИначеЕсли ЭтоШтрихКод Тогда
		Если Переменные.Свойство("barcode") Тогда 
			З = Новый Запрос;
			З.Текст = "ВЫБРАТЬ
			|	ШтрихКоды.Владелец КАК Владелец
			|ИЗ
			|	РегистрСведений.ШтрихКоды КАК ШтрихКоды
			|ГДЕ
			|	ШтрихКоды.Штрихкод = &Штрихкод";
			З.УстановитьПараметр("Штрихкод",Переменные.barcode);
			ТабШК = З.Выполнить().Выгрузить();
			Товар = Неопределено;
			Если ТабШК.Количество() = 0 Тогда
//				Ошибка=Истина;
//				СообщениеОбОшибке = "Не найден штрихкод: "+СокрЛП(Переменные.barcode);
			ИначеЕсли ТабШК.Количество() > 1 Тогда
				Ошибка=Истина;
				СообщениеОбОшибке = "Найдено (" + СокрЛП(Строка(ТабШК.Количество())) + ") позиции с данным штрихкодом: " + СокрЛП(Переменные.barcode);
			Иначе
				Товар = ТабШК[0].Владелец;
				Если ЗначениеЗаполнено(Товар) Тогда
					Если ТипЗнч(Товар) = Тип("СправочникСсылка.Номенклатура") Тогда
						Переменные.Вставить("nom",Товар.Наименование);	
						Переменные.Вставить("descr",Товар.НаименованиеПолное);
						Переменные.Вставить("key", СокрЛП(Товар.Код));
						
						СтрокаТаблицы = Переменные.table;
						МассивСтрок = СтрРазделить(СтрокаТаблицы, "nom");
						Для Каждого ЭлементМассива из МассивСтрок Цикл
							Поз = Найти(ЭлементМассива, Переменные.key);
							Если Поз > 0 Тогда
								Прервать;
							КонецЕсли;
						КонецЦикла;
						Если Поз = 0 Тогда
							Переменные.Вставить("qty_plan", 0);
							Переменные.Вставить("qty_fact", 0);
							Переменные.Вставить("qty_defect", 0);
						Иначе
							Поз1 = Найти(ЭлементМассива, "qty_plan");
							Поз2 = Найти(ЭлементМассива, "qty_fact");	
							Поз3 = Найти(ЭлементМассива, "qty_defect");	
							Поз4 = Найти(ЭлементМассива, "key");	
							Переменные.Вставить("qty_plan", Число(Сред(ЭлементМассива, Поз1 + 11, Поз2 - Поз1 - 14)));	
							Переменные.Вставить("qty_fact", Число(Сред(ЭлементМассива, Поз2 + 11, Поз3 - Поз2 - 14)));	
							Переменные.Вставить("qty_defect", Число(Сред(ЭлементМассива, Поз3 + 13, Поз4 - Поз3 - 16)));	
						КонецЕсли;
						Переменные.Вставить("qty", 0);	
						
						//Переменные.Вставить("show","false");
						//это для дальнейшего использования
						Переменные.Вставить("nomRef",СокрЛП(Товар.УникальныйИдентификатор()));	
						Переменные.Вставить("ShowScreen","Ввод принятого количества")
					Иначе
						Ошибка=Истина;
						СообщениеОбОшибке = "Отсканирован не товар";
					КонецЕсли;	
				Иначе
					Ошибка=Истина;
					СообщениеОбОшибке = "Неизвестный штрихкод:" + СокрЛП(Переменные.barcode);
				КонецЕсли;	
			КонецЕсли;	
		Иначе
			Ошибка=Истина;
			СообщениеОбОшибке = "Ошибка конфигурации";
		КонецЕсли;
	КонецЕсли;
КонецЕсли;

В первом экране считываю QR-код док-та, после открывается 2-ой экран и сразу сообщение из обработчика ввода второго экрана (хотя во втором экране я штрихкод товара не считывал ) в строке:
Если ТабШК.Количество() = 0 Тогда - сообщения я закомментарил, т.к. возникает ошибка и дальше не работает
//				Ошибка=Истина;
//				СообщениеОбОшибке = "Не найден штрихкод: "+СокрЛП(Переменные.barcode);