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

    −128

    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
    Родит=ДокР.Контрагент.Родитель; 
Если ПустоеЗначение(Родит.Телефон)=1 Тогда
    Родит1=Родит.Родитель;
	Если ПустоеЗначение(Родит1.Телефон)=1 Тогда
	    Родит2=Родит1.Родитель;
			Если ПустоеЗначение(Родит2.Телефон)=1 Тогда
			     Родит3=Родит2.Родитель;
				 ТЗДок.Тел=Родит3.Телефон;
			Иначе
		    	ТЗДок.Тел=Родит2.Телефон;
			КонецЕсли;        
	Иначе
	     ТЗДок.Тел=Родит1.Телефон;
	КонецЕсли;            
Иначе
	ТЗДок.Тел=Родит.Телефон;
КонецЕсли;

    Запостил: ingenuus, 24 Августа 2010

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

    • ava K900 24.08.2010 14:45 # +19

      Если Кто.Родит.Такое.Говно Тогда Паяльник.В.Жопу
      Ответить

      • ava guest 07.10.2011 14:49 # −1

        +100500
        Ответить

      • ava guest 18.08.2012 13:06 # +1

        Может, лучше так?

        Если Кто.Родит(ТакоеГовно) Тогда Паяльник.ВЖопу()
        Ответить

    • ava walk_ 25.08.2010 14:10 # 0

      Никогда не понимал этот "язык"
      Ответить

      • ava Анонимус 25.08.2010 16:13 # +1

        Кстати на 1С можно писать на английском.
        Тогда он очень похож на visual basic.
        Ответить

        • ava koodeer 26.08.2010 00:43 # +2

          Сейчас во многих ЯП можно юзать юникодные имена, и тогда они становятся удивительно похожи на 1С...
          Ответить

      • ava guest 10.04.2011 01:55 # 0

        Все должны подумать, что это проблемы 1С и впасть в уныние. На форуме по квантовой механике впали?
        Ответить

    • ava Sanitar0 06.09.2010 11:14 # 0

      Странный код, нету проверок на наличие родителей, вызывает еще сомнение что у родителей есть реквизит телефон
      Ответить

      • ava Трактор 06.09.2010 11:24 # +2

        Если ПустоеЗначение(Родит1.Телефон)=1 Тогда
        Это и есть проверка на наличие родителя, а заодно и теле фона :-) Автырь таким образом находит первого встречного родителя у которого есть теле фон.
        Причём количество уровней вложенности не больше двух. За такой код надо увольнять в день обнаружения кода.
        Ответить

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