Как из одной формы внешней обработки открыть другую форму этой же обработки и при закрытии вернуть результат?

&НаКлиенте
Процедура ПроверитьТЧ(Команда)
	
	ПараметрыНовойФормы =  Новый Структура;
	ПараметрыНовойФормы.Вставить("Масс", Масс);
	ОткрытьФорму("ВнешняяОбработка.Обработка.Форма.Форма2",ПараметрыНовойФормы);
	
КонецПроцедуры

НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	СтандартнаяОбработка=Ложь;	
			
	Если ТипЗнч(Параметры.Масс)=Тип("Массив") тогда
	Для Каждого  Элемент из Параметры.Масс Цикл
		НоваяСтрока=Объект.НоменклатураСравнение.Добавить();
	НоваяСтрока.Сравнение=Элемент;
КонецЦикла;
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Перенести(Команда)
	      
НазваниеСобытия = "ПеренестиНоменклатуру";
ИмяСобытия = НазваниеСобытия;
ПараметрВызова = ПеренестиНаСервере();
ФормаИсточник = "ВнешняяОбработка.АнализПрайсаПоставщика.Форма.Форма";
Оповестить(ИмяСобытия,ПараметрВызова,ФормаИсточник);
Закрыть();
КонецПроцедуры

&НаСервере
Функция  ПеренестиНаСервере()
Массив=Новый Массив;
для каждого стр из Объект.НоменклатураСравнение цикл
	          Массив.Добавить(стр.Номенклатура);

		  КонецЦикла;
Возврат Массив; 
КонецФункции 

НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
	
	НазваниеСобытия = "ПеренестиНоменклатуру";
	Если ИмяСобытия = НазваниеСобытия Тогда
		ОповещениеНаСервере(Параметр);
	КонецЕсли;
	
	
КонецПроцедуры

&НаСервере
Процедура ОповещениеНаСервере(параметр)	
	    
	колво = Параметр.Количество();    
	i = 0;
	Для каждого стр из объект.Товары цикл
		если НЕ ЗначениеЗаполнено(стр.Номенклатура) Тогда 
			Если i = Колво Тогда
				Прервать;
			Иначе
				Стр.номенклатура= Справочники.Номенклатура.НайтиПоНаименованию(Параметр.Получить(i));
				i = i + 1;
			КонецЕсли;
		КонецЕсли;
	КонецЦикла; 
	
КонецПроцедуры

&НаКлиенте
Процедура ИзменитьКоличествоСПомощьюКалькулятора(Команда)
	
	ТекущиеДанные = Элементы.Услуги.ТекущиеДанные;
	Если ТекущиеДанные <> Неопределено Тогда
		Оповещение = Новый ОписаниеОповещения("ИзменитьКоличествоСПомощьюКалькулятораЗавершение", ЭтаФорма);
		
		СтруктураПараметров = Новый Структура("Услуга, Количество, Цена, Сумма, ПроцентСкидкиНаценки", 
			ТекущиеДанные.Услуга, 
			ТекущиеДанные.Количество, 
			ТекущиеДанные.Цена,
			ТекущиеДанные.Сумма,
			ТекущиеДанные.ПроцентСкидкиНаценки);
			
		ОткрытьФорму("ВнешняяОбработка.АРМ_Сервис.Форма.ФормаВводаКоличества", СтруктураПараметров,,,,,Оповещение);
	Иначе
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Не выбрана строка!";
		Сообщение.Поле = "Объект.Услуги";
		Сообщение.Сообщить();
	КонецЕсли;
	
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	КоличествоСимволовПослеЗапятой = 3;
	
	Услуга  = Параметры.Услуга;
	Количество = Параметры.Количество;
	Цена = Параметры.Цена;
	Сумма = Параметры.Сумма;
	ПроцентСкидкиНаценки = Параметры.ПроцентСкидкиНаценки;
	
	// Установка сочетания клавиш
	Для Сч = 0 По 9 Цикл
		Элементы["Кнопка"+Сч].СочетаниеКлавиш = Новый СочетаниеКлавиш(Клавиша["Num"+Сч]);
	КонецЦикла;
	Элементы.РазделительДробнойЧасти.СочетаниеКлавиш = Новый СочетаниеКлавиш(Клавиша.NumDecimal);
	Элементы.Сбросить.СочетаниеКлавиш = Новый СочетаниеКлавиш(Клавиша.BackSpace);
	
КонецПроцедуры

// Процедура - обработчик команды ОК формы.
//
&НаКлиенте
Процедура ОК(Команда)
	
	ПараметрыЗакрытия = Новый Структура("Количество", Количество);
	Закрыть(ПараметрыЗакрытия);
	
КонецПроцедуры