// *** было: ***
//Каждый следующий шаг - новая процедура:
//два вопроса подряд давали два оповещения
//и «лестницу» из процедур-продолжений
&НаКлиенте
Процедура Шаг1(Команда)
Оповещение = Новый ОписаниеОповещения(
"Шаг2", ЭтотОбъект);
ПоказатьВводЧисла(Оповещение, 0,
"Сколько?");
КонецПроцедуры
&НаКлиенте
Процедура Шаг2(Количество,
ДопПараметры) Экспорт
Оповещение = Новый ОписаниеОповещения(
"Шаг3", ЭтотОбъект);
ПоказатьВводСтроки(Оповещение, "", "Имя?");
КонецПроцедуры
// *** in version 8.3.18: ***
//Шаги идут подряд в одной процедуре
&НаКлиенте
Асинх Процедура Шаги(Команда)
Количество = Ждать ВводЧислаАсинх(0,
"Сколько?");
Если Количество = Неопределено Тогда
Возврат;
КонецЕсли;
Имя = Ждать ВводСтрокиАсинх("", "Имя?");
Если Имя = Неопределено Тогда
Возврат;
КонецЕсли;
Сообщить(СтрШаблон("%1: %2", Имя,
Количество));
КонецПроцедуры