Цикл ввода данных, пример решения

12.07.16

Разработка - Универсальные функции

Отказ от модальности создает проблему организации последовательного ввода данных в рамках одной пользовательской операции. Цепочки процедур, обрабатывающих введенные данные и вызывающие следующий диалог - головная боль даже для самостоятельной поддержки или изменения логики ввода, не говоря о том уже, чтобы разбираться в чужом коде. Предлагаемое решение является некой заготовкой и может быть любым образом улучшено.

Данная тема уже обсуждалась //infostart.ru/public/305935/, но, столкнувшись с проблемой в реальной разработке, я решил изобретать свой "велосипед" =)

Основной целью являлось:

  • создание некого общего модуля, который будет отвечать непосредственно за организацию и контроль цикла ввода данных;
  • возможность запустить цикл на любое количество итерации обращений к пользователю и обработать результ ввода в 2 процедуры.
Начнем с разбора общего модуля "ВводДанныхКлиент":
//_____________________________________________________________
#Область ПрограммныйИнтерфейс

// Шаблон структуры, описывающий каждую итерацию ввода данных 
// 
&НаКлиенте
Функция ПолучитьШаблонОжидаемогоВвода() Экспорт
	
	Результат = Новый Структура;
	
	Результат.Вставить("Ключ", "");
	Результат.Вставить("Владелец", Неопределено);
	Результат.Вставить("ОбработчикВвода", "");
	
	Результат.Вставить("СписокЗначений", Новый СписокЗначений);
	
	Результат.Вставить("ОткрываемаяФорма", "");
	Результат.Вставить("ПараметрыФормы", Новый Структура);
	
	Результат.Вставить("ЧислоДлина", 0);
	Результат.Вставить("ЧислоТочность", 0);
	
	Результат.Вставить("Подсказка", "");
	Результат.Вставить("ПроизвольныйПараметр", Неопределено);
	
	Результат.Вставить("РежимДиалогаВопрос", РежимДиалогаВопрос.ДаНет);
	
	Результат.Вставить("Обязательный", Ложь);
	Результат.Вставить("ФлагЗавершения", Ложь);
	Результат.Вставить("ПостОбработка", Ложь);
	Результат.Вставить("Результат", Неопределено);
	
	Возврат Результат
	
КонецФункции

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

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

//_____________________________________________________________
#Область Диалоги

// Тут довольно все очевидно, обработка необбходимости вода данных
// с шаблонным возвратом в цикл

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

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

&НаКлиенте
Процедура ВводСтроки(Подсказка, СквозныеДанные)
	
	ОписаниеОповещения = Новый ОписаниеОповещения("ВводСтроки_Завершение", ЭтотОбъект, СквозныеДанные);
	
	ПоказатьВводСтроки(ОписаниеОповещения, "", Подсказка);
	
КонецПроцедуры

&НаКлиенте
Процедура ВводЧисла(Подсказка, Длина, Точность, СквозныеДанные)
	
	ОписаниеОповещения = Новый ОписаниеОповещения("ВводЧисла_Завершение", ЭтотОбъект, СквозныеДанные);
	
	ПоказатьВводЧисла(ОписаниеОповещения, 0, Подсказка, Длина, Точность);
	
КонецПроцедуры

&НаКлиенте
Процедура ОтветНаВопрос(Подсказка, Кнопки, СквозныеДанные)
	
	ОписаниеОповещения = Новый ОписаниеОповещения("ОтветНаВопрос_Завершение", ЭтотОбъект, СквозныеДанные);
	
	ПоказатьВопрос(ОписаниеОповещения, Подсказка, Кнопки);
	
КонецПроцедуры

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

//_____________________________________________________________
#Область ОбработкиОповещений

// Закрывашки наших диалогов

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

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

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

&НаКлиенте
Процедура ОтветНаВопрос_Завершение(Ответ, СквозныеДанные) Экспорт
	
	СквозныеДанные.Результат = Ответ;
	СквозныеДанные.ФлагЗавершения = Истина;
	
	ЗапуститьЦикл(СквозныеДанные.ТочкаВозврата, СквозныеДанные.МассивОжидаемогоВвода, СквозныеДанные);
	
КонецПроцедуры 

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

Теперь расмотрим живой пример изспользования данного модуля. 

Решим следующую задачу: при выборе товара в корзину нужно сразу запросить необходимое количество, спросить о необходимости поставить товар в резерв и, если будет положительный ответ, то дать выбрать место размещения товара.

Получаем следующие итерации ввода:

  • ввести число;
  • диалог вопроса;
  • если на диалог был ответ да, то выбрать ссылку.

Приступим.

&НаКлиенте
Процедура ТоварыПриИзменении(Элемент)
	
	// Товар был добавлен в корзину. 
	// Запросим необходимые данные.
	ЗапроситьДанные();
	
КонецПроцедуры

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

&НаКлиенте
Процедура ЗапроситьДанные_ОбработкаВвода(МассивОжидаемогоВвода)
	// тут уже делаем с результатом ввода что хотим...	
КонецПроцедуры

Собственно все =)  Надеюсь данный пример раскрывает простоту использованиях представленного модуля.

Вот несколько примеров из рабочего проекта.

Пример выбора из произвольной формы

Пример вариативности диалога

Данная разработка представляется как есть. Можете дорабатывать как угодно для своих нужд. Всем успехов!

8.3 ввод данных

См. также

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

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    2670    0    John_d    8    

54

GUID в 1С 8.3 - как с ними быть

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

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4607    atdonya    22    

45

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

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

30.11.2023    3961    ke.92@mail.ru    16    

61

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

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

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

28.08.2023    8821    YA_418728146    6    

141

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2071    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16143    133    sapervodichka    112    

129

Система контроля ведения учета [БСП]

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

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7243    quazare    8    

109
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Diversus 2306 13.07.16 12:34 Сейчас в теме
(0) Этот способ не будет работать в web-клиенте.
Вы используете процедуру Выполнить(...) на клиенте.
2. botokash 389 13.07.16 12:49 Сейчас в теме
(1) Diversus, Вы правы. Но веб-клиент не требовался поэтому как есть. На ум только приходит сделать #Если ВебКлиент Тогда и для него делать тоже самое через сервер. Может у кого еще какие идеи будут, что бы оставаться только в рамках клиента.
3. botokash 389 13.07.16 13:10 Сейчас в теме
В принципе можно попробовать сделать через Оповестить(). Если запуск цикла происходит в общем модуле то подключать процедуру возврата как обработчик оповещения, а если в форме - то через стандартную ОбработкаОповещения().
4. Сурикат 393 14.07.16 08:36 Сейчас в теме
Очень сильно радует появление таких статей на ИС=) Не обработок за стартмани, а аля библиотек =)

Не думали, что заполнение структуры "НовыйВводДаных" удобно оберточку в виде процедуры сделать. Чисто из-за подсказок, вы свой код хорошо знаете, а просто пользователям библиотеки придется скакать в общий модуль смотреть как параметры называются =)
5. botokash 389 14.07.16 09:07 Сейчас в теме
(4) Сурикат, была такая мысль, но каюсь - не было времени довести до ума.
(1) Diversus, идею вызовов через Оповестить() реализовал и проверил. Использованию в веб-клиенте быть =) Скоро выложу в этой же публикации, нужно еще пример актуализировать.
6. starik-2005 3033 17.07.16 11:42 Сейчас в теме
Не совсем понял, что за проблемы появляются при отказе от модальности? Чем они отличаются от проблем при ее использовании?
Оставьте свое сообщение