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

    −144

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    Функция ПроверкаОснДаты(Конт,Текст) Экспорт
	Попытка	Дат=Конт.ДатаОперации;
	Исключение
		Попытка		Дат=Конт.ДатаДок;
		Исключение	Дат='';	КонецПопытки;
	КонецПопытки;
	Если Дат<Константа.ОснДатаГл Тогда
		ДействиеНеВыполнено(Шаблон("[Текст]. Период закрыт"));
	КонецЕсли;
	Возврат СтатусВозврата();
КонецФункции

    Запостил: Terrible, 19 Апреля 2012

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

    • ava Steve_Brown 19.04.2012 15:58 # 0

      Попытка
      // 500 строк
      Исключение
      Сообщение("Данная услуга для Вас недоступна!")
      Ответить

    • ava Lure Of Chaos 19.04.2012 17:47 # +2 

      try      ПОПЫТКА
catch    ПОЙМАЛ
finallly КОНЧЕНО
      Ответить

    • ava 3.14159265 19.04.2012 18:22 # +2 

      Попытка(Не Пытка)
  ...
КонецПопытки
      Ответить

    • ava Unknown181538 29.07.2012 22:59 # 0

      А что тут не так?
      Ответить

      • ava ilya2184 27.09.2012 16:04 # 0

        Дат тут кое-чего не так:
        * несколько попыток вместо проверки типов/наличия реквизитов
        * имя ОснДатаГл - не соответствует стандарту
        * комментарии где?
        Ответить

        • ava Unknown181538 27.09.2012 17:44 # 0

          1) Очень сложные могут быть типы/реквизиты... Конечно можно там параметры всякие передавать...
          2) Да. Но в 7.7 и в типовых много что стандарту не соответствует. Мелочь.
          3) Тут и так все понятно.
          Ответить

    • ava guest 25.04.2014 01:57 # 0

      Рарус - он такой. Всё через попытки ебашит)
      Ответить

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