Чек ККМ / Выбор эквайрингового терминала / Модуль формы

#Область ОбработчикиСобытийФормы

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	Если Параметры.Свойство("АвтоТест") Тогда
		Возврат;
	КонецЕсли;
	
	СписокТерминалов = Параметры.СписокВыбора;	// см. Справочники.ЭквайринговыеТерминалы.ПараметрыЭквайринговыхТерминаловПоОрганизации
	
	Для каждого ЭлементСписка Из СписокТерминалов Цикл
		ЭлементСпискаЗначение = ЭлементСписка.Значение;	// Структура
		Элементы.ЭквайринговыйТерминал.СписокВыбора.Добавить(ЭлементСпискаЗначение.Ссылка, ЭлементСписка.Представление);
	КонецЦикла;
	
	Если Элементы.ЭквайринговыйТерминал.СписокВыбора.Количество() > 0 Тогда
		ЭлементыЭквайринговыйТерминал = Элементы.ЭквайринговыйТерминал.СписокВыбора[0].Значение; // СправочникСсылка.ПодключаемоеОборудование
		ЭквайринговыйТерминал = ЭлементыЭквайринговыйТерминал.Ссылка;
	КонецЕсли;

	СобытияФорм.ПриСозданииНаСервере(ЭтаФорма, Отказ, СтандартнаяОбработка);

КонецПроцедуры

#КонецОбласти

#Область ОбработчикиКомандФормы

&НаКлиенте
Процедура Выбрать(Команда)
	
	Для каждого ЭлементСписка Из СписокТерминалов Цикл
		ЭлементСпискаЗначение = ЭлементСписка.Значение; // Структура
			Если ЭлементСпискаЗначение.Ссылка = ЭквайринговыйТерминал Тогда
			Закрыть(ЭлементСпискаЗначение);
			Прервать;
		КонецЕсли;
	КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура Отмена(Команда)
	
	Закрыть(Неопределено);
	
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ВыполнитьПереопределяемуюКоманду(Команда)
	
	СобытияФормКлиент.ВыполнитьПереопределяемуюКоманду(ЭтаФорма, Команда);
	
КонецПроцедуры

#КонецОбласти