Переделка модального окна в режиме выбора в немодальное или ошибка dZO.showModalDialog

10.08.15

Разработка - Механизмы платформы 1С

1C хоть и продолжает яростную борьбу с модальными окнами (http://v8.1c.ru/o7/201301nm), но все еще попадаются места, где нужно переделать модальный вызов окон в немодальный.
Для этой цели уже достаточно давно, с платформы 8.3.5.1068 появился инструмент рефакторинг http://v8.1c.ru/o7/201312ref/index.htm.
Использовать нужно именно его и новые методы вроде ПоказатьВводЗначения(), однако не везде установлена 8.3, а работу приложения в web-интерфейсе "вынь да положь".
Предлагаю простой вариант переделки модального окна в режиме выбора в немодальное, который будет работать и на 8.2 и на 8.3.

В качестве примера возьмем обработку ШаблоныЭтикетокИЦенников из УТ11.0 (в 11.1 такая же, без видимых изменений).

В Web-интерфейсе при попытке заполнить строки шаблонами этикеток у меня в хроме вылетела такая ошибка (к слову в IE все отработало нормально, но не суть, завтра может и не отработать): 

 

Переделываем следующим образом:

Было (1 процедура):

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

Стало (3 процедуры):

&НаКлиенте
Процедура УстановитьШаблонЭтикеток(Команда)
	
	ПараметрыФормыВыбора = Новый Структура;
	ПараметрыФормыВыбора.Вставить("Отбор", Новый Структура("Назначение", ПредопределенноеЗначение("Перечисление.НазначенияШаблоновЭтикетокИЦенников.Товары")));
	ПараметрыФормыВыбора.Вставить("ЗакрыватьПриВыборе", Истина);	
	
	ОткрытьФорму("Справочник.ШаблоныЭтикетокИЦенников.ФормаВыбора", ПараметрыФормыВыбора, ЭтаФорма, ЭтаФорма.УникальныйИдентификатор);	
	
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
	
	Если ИсточникВыбора.ИмяФормы = "Справочник.ШаблоныЭтикетокИЦенников.ФормаВыбора" Тогда
		ЗаполнитьШаблоныЭтикетокИЦенниковВСтроках(ВыбранноеЗначение);
	КонецЕсли; 
	
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьШаблоныЭтикетокИЦенниковВСтроках(СсылкаШаблон)

	МассивСтрок = Элементы.Товары.ВыделенныеСтроки;

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

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

Вкратце поясню:

Функцию ОткрытьФормуМодально() мы заменили на ОткрытьФорму() с параметром ЗакрыватьПриВыборе = Истина. 

Теперь вопрос: как же получить выбранное значение и обработать его? Оказывается очень просто - формы для выбора, при своем закрытии, автоматом рассылают оповещение о выборе формам владельцам (тем, которые указаны в 3-м параметре метода ОткрытьФорму()). Причем, оповещают и формы для выбора по-умолчанию, и формы, сделанные вручную. Нам остается только принять нужное оповещение в методе ОбработкаВыборка.  

Также смотрите схожие публикации:

//infostart.ru/public/236382/

//infostart.ru/public/305935/

Программно открыть управляемую форму в режиме выбора ОткрытьФормуМодально dZO.showModalDialog ПоказатьВводЗначения

См. также

Поинтегрируем: сервисы интеграции – новый стандарт или просто коннектор?

Обмен между базами 1C Администрирование СУБД Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.17 появился замечательный механизм «Сервисы интеграции». Многие считают, что это просто коннектор 1С:Шины. Так ли это?

11.03.2024    4443    dsdred    53    

70

Как готовить и есть массивы

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Все мы используем массивы в своем коде. Это один из первых объектов, который дают ученикам при прохождении обучения программированию. Но умеем ли мы ими пользоваться? В этой статье я хочу показать все методы массива, а также некоторые фишки в работе с массивами.

24.01.2024    5275    YA_418728146    25    

63

Планы обмена VS История данных

Обмен между базами 1C Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Вы все еще регистрируете изменения только на Планах обмена и Регистрах сведений?

11.12.2023    6394    dsdred    36    

111

1С-ная магия

Механизмы платформы 1С Бесплатно (free)

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    18464    SeiOkami    46    

118

Дефрагментация и реиндексация после перехода на платформу 8.3.22

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Начиная с версии платформы 8.3.22 1С снимает стандартные блокировки БД на уровне страниц. Делаем рабочий скрипт, как раньше.

14.09.2023    12074    human_new    27    

74

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8799    YA_418728146    6    

141

Внешние компоненты Native API на языке Rust - Просто!

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Внешние компоненты для 1С можно разработывать очень просто, пользуясь всеми преимуществами языка Rust - от безопасности и кроссплатформенности до удобного менеджера библиотек.

20.08.2023    6271    sebekerga    54    

94

Все скопируем и вставим! (Буфер обмена в 1С 8.3.24)

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Рассмотрим новую возможность 8.3.24 и как её можно эффективно использовать

27.06.2023    15965    SeiOkami    31    

103
Оставьте свое сообщение