- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
КодТек = Каст(ID);
Возвр = "{";
ТекПользоваетель Контрагенты.НайтиПоКоду(КодТек);
Если ТекПользователь = Контрагенты.ПустаяСсылка тогда
возврат 1;//Пользователь не найден
конецЕсли;
ТекЛев = Контрагенты.НайтиПоКоду(ТекПользователь.ЛеваяНога);
Если не ТекЛев = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_left"":{"+
"""id"":"""+ТекЛев.ID+""","+
"""last_name"":"""+ТекЛев.Фамилия+""","+
"""first_name"":"""+ТекЛев.Имя+""","+
"""middle_name"":"""+ТекЛев.Отчество+"""},";
ТекЛевЛев = Контрагенты.НайтиПоКоду(ТекЛев.ЛеваяНога);
Если не ТекЛевЛев = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_left_left"":{"+
"""id"":"""+ТекЛевЛев.ID+""","+
"""last_name"":"""+ТекЛевЛев.Фамилия+""","+
"""first_name"":"""+ТекЛевЛев.Имя+""","+
"""middle_name"":"""+ТекЛевЛев.Отчество+"""},";
конецЕсли;
ТекЛевПрв = Контрагенты.НайтиПоКоду(ТекЛев.ПраваяНога);
Если не ТекЛевПрв = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_left_right"":{"+
"""id"":"""+ТекЛевПрв.ID+""","+
"""last_name"":"""+ТекЛевПрв.Фамилия+""","+
"""first_name"":"""+ТекЛевПрв.Имя+""","+
"""middle_name"":"""+ТекЛевПрв.Отчество+"""},";
конецЕсли;
конецЕсли;
ТекПрв = Контрагенты.НайтиПоКоду(ТекПользователь.ПраваяНога);
Если не ТекПрв = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_right"":{"+
"""id"":"""+ТекПрв.ID+""","+
"""last_name"":"""+ТекПрв.Фамилия+""","+
"""first_name"":"""+ТекПрв.Имя+""","+
"""middle_name"":"""+ТекПрв.Отчество+"""},";
ТекПрвЛев = Контрагенты.НайтиПоКоду(ТекПрв.ЛеваяНога);
Если не ТекПрвЛев = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_right_left"":{"+
"""id"":"""+ТекПрвЛев.ID+""","+
"""last_name"":"""+ТекПрвЛев.Фамилия+""","+
"""first_name"":"""+ТекПрвЛев.Имя+""","+
"""middle_name"":"""+ТекПрвЛев.Отчество+"""},";
конецЕсли;
ТекПрвПрв = Контрагенты.НайтиПоКоду(ТекПрв.ПраваяНога);
Если не ТекПрвПрв = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_right_right"":{"+
"""id"":"""+ТекПрвПрв.ID+""","+
"""last_name"":"""+ТекПрвПрв.Фамилия+""","+
"""first_name"":"""+ТекПрвПрв.Имя+""","+
"""middle_name"":"""+ТекПрвПрв.Отчество+"""},";
конецЕсли;
конецЕсли;
ДлСтр = ДлинаСтроки(Возвр);
Если ДлСтр=1 тогда
возврат 2;//Ноги пусты
иначе
Возрв = Лев(Возвр, ДлСтр-1)+"}";
возврат Возвр;
конецЕсли;
1С - хорошая среда. В этой среде очень просто и весело писать говнокод, причем с вполне серьезной мордой.
alexinzaz 06.03.2015 10:18 # 0
сильно
bormand 06.03.2015 11:09 # 0
Этот код точно работал?
Rijen 06.03.2015 11:12 # +1
alexinzaz 06.03.2015 17:14 # +1
Rijen 06.03.2015 17:48 # 0
planaric 24.03.2015 02:43 # 0
Rijen 29.03.2015 12:02 # 0
Правда у меня под рукой последняя - 8,3,19