Коллеги, помогите придумать красивый алгоритм.

Задача простая: нужно, чтобы пользователь вводил данные в диалог вввода строки до тех пор, пока не введет что-нибудь либо пока не откажется от ввода.

Не могу придумать как обойтись без дублирования кода: получается либо ВвестиСтроку нужно два раза написать, либо два раза проверить на пустую строку.
Например, вот такая какашка:

Если НЕ ВвестиСтроку(НомерЗаказа, "Номер накладной") Тогда
   Возврат;
КонецЕсли;
Пока ПустаяСтрока(НомерЗаказа) Цикл
   Предупреждение("Необходимо указать номер!");
   Если НЕ ВвестиСтроку(НомерЗаказа, "Номер накладной") Тогда
       Возврат;
   КонецЕсли;
КонецЦикла;

либо определять первое вхождение в цикл – то же уродство

А сначала сделать пустой?
И предупреждение после проверки?

+(2) Бесконечный цикл. Прервать по условию, иначе предупреждение

Пока Не ВвестиСтроку(НомерЗаказа, "Номер накладной") ИЛИ ПустаяСтрока(НомерЗаказа) Цикл; КонецЦикла;

Пока Не ВвестиСтроку(НомерЗаказа, "Номер накладной") ИЛИ ПустаяСтрока(НомерЗаказа) Цикл; КонецЦикла; Если ПустаяСтрока(НомерЗаказа) Тогда Возврат КонецЕсли;

вообще фиговая задача

Пока Не ВвестиСтроку(НомерЗаказа, "Номер накладной") И ПустаяСтрока(НомерЗаказа) Цикл; КонецЦикла; Если ПустаяСтрока(НомерЗаказа) Тогда Возврат КонецЕсли;

галка номерзаказа и строка

(3) ++

(7) а где отказ?

Пока ПустаяСтрока(НомерЗаказа) Цикл
ВвестиСтроку(НомерЗаказа);
КонецЦикла;

У чувака некислый стаж

(10) какой отказ?

+(11) точнее, учитывая что пользователь может отказаться
Пока ПустаяСтрока(НомерЗаказа) Цикл
Если НЕ ВвестиСтроку(НомерЗаказа)Тогда
Прервать;
КонецЕсли;
КонецЦикла;

хотя, задача дурная - да ... что значит пока не введет или пока не откажется?

(14)
Пока ПустаяСтрока(НомерЗаказа) И ВвестиСтроку(НомерЗаказа) Цикл
КонецЦикла;

хотя (14) лучше в плане (15) - можно добавить флаг отказал ся или таки что-то ввел

копрокодеры детектед

(18) Дай покопрокодить в первый рабочий день

(19) ))))

вы еще динамическим обновлением воспользуйтесь

(2, 3) Строка и так сначала пустая. Предупреждение после проверки в моем примере кода ничего не меняет.
Бесконечный цикл – да, это идея. Уже лучше получится, но всё-таки не то.

(10) тонко, очень, оценил.

+(23) нет, не то, я подумал это ответ на (0) never mind

(22) Кроме первого прохода ничего не меняет.

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

НомерЗаказа = "";
Пока Истина Цикл
   Если НЕ ВвестиСтроку(НомерЗаказа, "Номер накладной") Тогда
       Возврат;
   ИначеЕсли ПустаяСтрока(НомерЗаказа) Тогда
       Предупреждение("Необходимо указать номер!");
   Иначе
       Прервать;
   КонецЕсли;
КонецЦикла;

(22) В смысле "не то"?

еще версия
НомерЗаказа="";
Пока ВвестиСтроку(НомерЗаказа) И ПустаяСтрока(НомерЗаказа) Цикл КонецЦикла;

(27) А как выглядит решение целиком ? Если начать его додумывать, и пробовать, то окажется, что не так всё просто. Иначе бы я тему не создал.

(28) Оно там целиком. Про необходимость вывода предупреждения в (0) не было

рекурсию уже предлагали? :)


Функция ВвестиНомерНакладной(НомерЗаказа = "")
   
   ВвестиСтроку(НомерЗаказа, "Номер накладной");
   
   Если ПустаяСтрока(НомерЗаказа) Тогда
       Предупреждение("Необходимо указать номер!");
       ВвестиНомерНакладной(НомерЗаказа);
   КонецЕсли;
   
   Возврат НомерЗаказа;
   
КонецФункции

НомерЗаказа = ВвестиНомерНакладной();
Сообщить("Номер заказа: " + НомерЗаказа);


(29) Предупреждение не обязательно. Но и без того ваше решение не рабочее. Что будет, если пользователь нажмет "Отмену"? Исполнение кода продолжится дальше, а нужно, чтобы прервалось (Возврат).

зачем делать через ввести строку? А если ошибется и нужно поправить?

(31) Про это в (0) ни слова!
тех задание в (0):
"вводил данные в диалог вввода строки до тех пор, пока не введет что-нибудь либо пока не откажется от ввода"

кхм... в снежке вроде проверка на заполненность поля или нет?))

(31) Так что не бросайся "решение не рабочее".

Вот еще вброс:
(возможно, тебе "как читателю будеть въехать легче" (lol))

~ВводимНомер:
Пока ВВестиСтроку(НомерЗаказа) цикл; КонецЦикла;
Если ПустаяСтрока(НомерЗаказа) goto ~ВводимНомер; КонецЕсли;

(36) не читать, прогнал :(
вот что значит нет опыта в таком стиле

(31) Тогда в (14) Замени "прервать" на "возврат"

(30) Красиво, да. Но очень академично. В 1с как-то принято рекурсию использовать только тогда, когда это действительно единственное решение (деревья с условно бесконечным уровнем вложенности). Т.к. язык беден, нет вложенных функций. А вынос подобных алгоритмов в полновесную функцию сильно утяжеляет код.

(39) Вам шашечки? Или ехать?

(40) если ввести пустую строку ~1500 раз - 1ска молча упадет

(33), (38) Да, предупреждение таки подразумевается, что нужно.

(41) Если шашечки - то, что надо. Красиво. Но не функционально. :))

(41) Так вот почему вас больше часа не было в теме.

(44) нет, я работал

(42) Имхо:
По моему, нужно быть сильным идиотом, если видеть перед собой окно с предложением ввода, которое не исчезает, если ничего не вводить и не понимать что от тебя требуют

(46) Юзабилити такого решения – это другой вопрос. Но если хочется сделать именно с предупреждением, существует ли простой алгоритм, без рекурсии, без бесконечного цикла? Я вот не смог придумать, как голову не ломал, вот и полез на мисту. Возможно, таки не решаемая задача.

(47) бесконечный процесс не может быть без бесконечного цикла

доработал (26):

НомерЗаказа = "";
СчетчикТерпения=1500;
Пока Истина Цикл
   
   Если Не ВвестиСтроку(НомерЗаказа, "Номер накладной") Тогда
       Возврат;
   КонецЕсли;
   Если Не ПустаяСтрока(НомерЗаказа) Тогда
       Прервать;
   КонецЕсли;
   Предупреждение("Необходимо указать номер!");
       
   
   СчетчикТерпения=СчетчикТерпения-1;
   Если СчетчикТерпения=0 тогда
       Сообщить("Задолбал(а) ты меня");
       Возврат;
   КонецЕсли;

КонецЦикла;

(49) почему не "Для" а "пока истина"?

(50) Не сообразил.
см (19)

(35) И не кипятитесь вы так. Я резковато оценил ваш код не намерено.

(52) я не кипятюсь. Я пытаюсь, как могу, развлекаться.