1. 1C / Говнокод #18368

    −105

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    Г = 0;
Пока Г = 0 Цикл
	ПОПЫТКА
		Док.РазрешитьОтгрузку = Перечисление.Булево.Да;
		Док.Записать();
	ИСКЛЮЧЕНИЕ
		Сообщить("" + Г + " : Документ " + Док.НомерДок + " заблокирован. Пробую еще раз ...");
		Если Г > 20 Тогда
			Сообщить("Неудачка...");
			Прервать;
		КонецЕсли;
	КОНЕЦПОПЫТКИ;
	Г = Г + 1;
КонецЦикла;

    Запостил: dsfix, 19 Июня 2015

    Комментарии (19) RSS

    • ava crazy_horse 19.06.2015 12:53 # −3

      Я все никак не могу разобраться, что меня больше умиляет - говнокод на адынэсе или сам адынэс. В любом случае, радость двойная.
      Ответить

    • ava Vasiliy 19.06.2015 13:41 # +2

      Сообщить("Неудачка...");
      Это ж пиздец
      Ответить

      • ava kegdan 19.06.2015 16:30 # 0

        Функция шла к успеху, неповезло, не фортануло...
        Ответить

    • ava guest 05.09.2015 14:04 # 0

      Посмотрел это и долго думал. В итоге так и не понял, чего хотел автор.
      Ответить

      • ava dsfix 07.09.2015 17:59 # 0

        Автор хотел 20 раз попытаться провести документ, если сразу не получилось. А вдруг на 19-й раз удастся?
        Ответить

    • ava HomoAlbus 14.09.2015 12:29 # 0

      Неудачка * 20 = Печалька
      Ответить

    • ava mir-inoy 24.09.2015 11:28 # +2

      Всё равно после первого прогона Г уже не будет равен нулю, значит цикл остановится.
      Ответить

      • ava guest 08.03.2016 09:18 # +1

        Отряд не заметил потерю "Прервать;" ?)
        Ответить

    • ava SkyHunter 02.10.2015 13:42 # +3

      > Перечисление.Булево.Да
      Вот это - самая мощь.
      Ответить

      • ava HomoAlbus 05.11.2015 18:13 # +1

        И я даже представляю как это перечисление было рождено на свет божий.
        Сказали студенту, добавь значит "разрешить отгрузку" на форму.
        Добавил.
        Ну и что это за флажок? Непонятно. Сделай, "Разрешить отгрузку да и нет"
        Тот почесал репу, потом еще раз почесал, вместо того что бы прочесть книжку, высрал такое говно.
        Думаю как-то так.
        Ответить

      • ava guest 17.11.2015 12:07 # 0

        Я тоже ломал над таким голову, потом дошло: Обычное булево дает возможность обрабатывать "Истина" и "Ложь", а Перечисление.Булево позволяет ловить "Да", "Нет", Неопределено и "ПустаяСсылка"
        Ответить

        • ava SkyHunter 18.11.2015 11:33 # 0

          Но зачем?
          Ответить

          • ava HomoAlbus 18.11.2015 13:15 # +2

            Иногда логика 1с-ников бывает настолько сложна, что не умещается в ограниченные категории Ложности и Истинности... Тут нужно познать дзен.
            Ответить

            • ava guest 29.12.2015 00:39 # +2

              Все гораздо проще.
              В 7.7, если память ни с кем не изменяет, нет встроенного типа "Булево". На уровне кода все сравнивается с 0 и 1.
              Но если эти 0 и 1 выводить на форму, то у тети бухгалтера случится коллапс головы. Поэтому во всех типовых на семерке было такое перечисление.
              Ответить

              • ava FesenkoA 03.04.2017 14:46 # 0

                В 7.7 такое вроде есть. Я знаю точно что в 7.0 такого не было
                Ответить

    • ava Voittamaton 20.11.2015 21:17 # +2

      Процедура ПровестиВоЧтоБыТоНиСтало(ДокументОбъект)
      ДатаОкончания = ТекущаяДата() + 24 * 60 * 60;
      Пока ТекущаяДата() <= ДатаОкончания Цикл
      Попытка ДокументОбъект.Записать(РежимЗаписиДокум ента.Проведение); Исключение КонецПопытки;
      КонецЦикла;
      КонецПроцедуры
      Ответить

    • ava barop 19.03.2017 01:23 # 0

      https://im0-tub-ru.yandex.net/i?id=f9b03486f65c50fbeccd187e0ba7d67b-l&n=13
      Ответить

    • ava barop 19.03.2017 01:26 # 0

      https://im0-tub-ru.yandex.net/i?id=f9b03486f65c50fbeccd187e0ba7d67b-l&n=13
      Ответить

    Добавить комментарий