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

    −98

    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
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    Перем ОписаниеФормы;
    	
    	ОписаниеФормы = Новый Структура;
    	ОписаниеФормы.Вставить("ТипОбъектаФормы", Неопределено);
    	ОписаниеФормы.Вставить("ТипФормы", Неопределено);
    	ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
    	ОписаниеФормы.Вставить("СсылкаНаФорму", ФормаКлиента);
    	
    	Попытка
    		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ОбработкаОбъект)).Имя);
    		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.ОбработкаОбъект.Ссылка);
    		ОписаниеФормы.Вставить("ТипФормы", "Обработка");
    	Исключение
    	КонецПопытки;
    	
    	Попытка
    		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ДокументСписок)).Имя);
    		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
    		ОписаниеФормы.Вставить("ТипФормы", " ДокументСписок");
    	Исключение
    	КонецПопытки;
    	
    	Попытка
    		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ДокументОбъект)).Имя);
    		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.ДокументОбъект.Ссылка);
    		ОписаниеФормы.Вставить("ТипФормы", "Документ");
    	Исключение
    	КонецПопытки;
    	
    	Попытка
    		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.СправочникСписок)).Имя);
    		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
    		ОписаниеФормы.Вставить("ТипФормы", "СправочникСписок");
    	Исключение
    	КонецПопытки;
    	
    	Попытка
    		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.СправочникОбъект)).Имя);
    		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.СправочникОбъект.Ссылка);
    		ОписаниеФормы.Вставить("ТипФормы", "Справочник");
    	Исключение
    	КонецПопытки;
    	
    	Попытка	//если в самой форме описан её тип...
    		ОписаниеФормы.Вставить("ТипОбъектаФормы", ФормаКлиента.ТипОбъектаФормы);
    		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.СсылкаНаОбъектФормы);
    		ОписаниеФормы.Вставить("ТипФормы", ФормаКлиента.ТипФормы);
    	Исключение
    	КонецПопытки;
    	
    	Возврат ОписаниеФормы;

    Более "эвристического" метода чем N попыток аффтар видимо придумать не смог. Всё бы ничего, пытайся на здоровье, просто есть люди которые иногда включают режим отладки "остановка по ошибке"... бесит...

    Запостил: levxxx, 27 Ноября 2015

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

    • > Новый Структура

      "Чей туфля? О! Моё!"
      Ответить
      • Неопределено

        ТипЗнч(Пх, ТПрнс)?
        Ответить
      • уже можно относиться снисходительно к падежам при переводе с английского на русский. это именно то, почему английский больше подходит для компьютерных языков (спасибо, что не латынь)
        Ответить
      • Почему-то шутки на эту тему в данном разделе всё ещё кажутся свежими.
        Ответить
      • Структура! Структура!!!

        https://youtu.be/0zg-v5UScg0?t=3m32s

        Удали Еву, нахуй, дебил, сук. 
        Ответить
        • Вы ещё про "Вставить" пошутите.
          Ответить
          • Попытка
                Институт.Студентки.Вставить()
            Исключение
            КонецПопытки
            Ответить
            • Попытка
                  Институт.Студентки.Вставить()
              Исключение
                  Дом.ВключитьХентай(Название).НуИНахерМнеЭтиСтудентки(Рука)
              КонецПопытки
              Ответить
              • Попытка
                    Школа.Школьницы.Вставить()
                Заключение
                КонецПопытки
                Ответить
                • Попытка
                      Школа.Школьницы.Вставить()
                  Заключение
                      Пока(неНадоест)
                          Негр.ВставитьВ(this)
                      КонецПока
                  КонецПопытки
                  Ответить
                • Синтакс еррор же )
                  Ответить
                  • Этот синтакс еррор спас жизнь как минимум двум людям...
                    Ответить
                • Метод вставить должен же быть у хуя, а не у школьниц.
                  Ответить
      • Алиасы надо: новый = новая = новый. Или вообще парсер, который сранивает слова с точностью до окончаний...
        Ответить
    • А что здесь, собственно, происходит вообще? :)
      Ответить
    • Похоже на Рарус.Амбулатория.
      Там на таком ужасе конфа построена.
      Ответить

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