Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5698)
2. C++ (2733)
3. Куча (2326)
4. JavaScript (2027)
5. C# (1925)
6. Java (1501)
7. Си (1095)
8. Pascal (647)
9. Python (582)
10. 1C (532)
11. SQL (431)
12. ActionScript (292)
13. Objective C (202)
14. bash (197)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (29)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

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

   −133

   1. 001
   2. 002
   3. 003
   4. 004
   5. 005
   6. 006
   7. 007
   8. 008
   9. 009
   10. 010
   11. 011
   12. 012
   13. 013
   14. 014
   15. 015
   16. 016
   17. 017
   18. 018
   19. 019
   20. 020
   21. 021
   22. 022
   23. 023
   24. 024
   25. 025
   26. 026
   27. 027
   28. 028
   29. 029
   30. 030
   31. 031
   32. 032
   33. 033
   34. 034
   35. 035
   36. 036
   37. 037
   38. 038
   39. 039
   40. 040
   41. 041
   42. 042
   43. 043
   44. 044
   45. 045
   46. 046
   47. 047
   48. 048
   49. 049
   50. 050
   51. 051
   52. 052
   53. 053
   54. 054
   55. 055
   56. 056
   57. 057
   58. 058
   59. 059
   60. 060
   61. 061
   62. 062
   63. 063
   64. 064
   65. 065
   66. 066
   67. 067
   68. 068
   69. 069
   70. 070
   71. 071
   72. 072
   73. 073
   74. 074
   75. 075
   76. 076
   77. 077
   78. 078
   79. 079
   80. 080
   81. 081
   82. 082
   83. 083
   84. 084
   85. 085
   86. 086
   87. 087
   88. 088
   89. 089
   90. 090
   91. 091
   92. 092
   93. 093
   94. 094
   95. 095
   96. 096
   97. 097
   98. 098
   99. 099
   100. 100

   ВЫБРАТЬ
       МИНИМУМ(ЗапросСортировки.НомерСтроки)           КАК НомерСтроки,
       МИНИМУМ(ЗапросСортировки.НомерТЧ)               КАК НомерТЧ,
       ЗапросСоставаТЧ.Номенклатура.Артикул            КАК Артикул,
       ЗапросСоставаТЧ.Номенклатура                    КАК Номенклатура,
       ВЫРАЗИТЬ(ЗапросСоставаТЧ.Товар КАК Строка(100)) КАК Товар,
       МАКСИМУМ(ЗапросСоставаТЧ.Количество)            КАК Количество,
       ЗапросСоставаТЧ.ЕдиницаИзмерения.Представление  КАК ЕдиницаЦены,
       ЗапросСоставаТЧ.Цена                            КАК Цена,
       МАКСИМУМ(ЗапросСоставаТЧ.Сумма)                 КАК Сумма,
       МАКСИМУМ(ЗапросСоставаТЧ.СуммаНДС)              КАК СуммаНДС,
       ЗапросСоставаТЧ.Характеристика                  КАК Характеристика,
       NULL КАК Серия
   ИЗ
   (ВЫБРАТЬ
       ВложенныйЗапрос.Номенклатура     КАК Номенклатура,
       ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Товар,
       ВложенныйЗапрос.Номенклатура.Код КАК КодАртикул,
       ВложенныйЗапрос.Количество       КАК Количество,
       ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
       ВложенныйЗапрос.Цена             КАК Цена,
       ВложенныйЗапрос.Сумма            КАК Сумма,
       ВложенныйЗапрос.СуммаНДС         КАК СуммаНДС,
       ВложенныйЗапрос.Характеристика   КАК Характеристика
   ИЗ
       (
       ВЫБРАТЬ
           ЗаказПоставщику.Номенклатура,
           ЗаказПоставщику.ЕдиницаИзмерения,
           ЗаказПоставщику.Цена                        КАК Цена,
           СУММА(ЗаказПоставщику.Количество)           КАК Количество,
           СУММА(ЗаказПоставщику.Сумма     )           КАК Сумма,
           СУММА(ЗаказПоставщику.СуммаНДС  )           КАК СуммаНДС,
           ЗаказПоставщику.ХарактеристикаНоменклатуры  КАК Характеристика
       ИЗ
           Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщику
   
       ГДЕ
           ЗаказПоставщику.Ссылка = &ТекущийДокумент
   
       СГРУППИРОВАТЬ ПО
           ЗаказПоставщику.Номенклатура,
           ЗаказПоставщику.ЕдиницаИзмерения,
           ЗаказПоставщику.Цена,
           ЗаказПоставщику.ХарактеристикаНоменклатуры
       ) КАК ВложенныйЗапрос
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       ВложенныйЗапрос.Номенклатура     КАК Номенклатура,
       ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Товар,
       ВложенныйЗапрос.Номенклатура.Код КАК КодАртикул,
       ВложенныйЗапрос.Количество       КАК Количество,
       ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
       ВложенныйЗапрос.Цена             КАК Цена,
       ВложенныйЗапрос.Сумма            КАК Сумма,
       ВложенныйЗапрос.СуммаНДС         КАК СуммаНДС,
       ВложенныйЗапрос.Характеристика   КАК Характеристика
   ИЗ
       (
       ВЫБРАТЬ
           ЗаказПоставщику.Номенклатура,
           ЗаказПоставщику.ЕдиницаИзмерения,
           ЗаказПоставщику.Цена                        КАК Цена,
           СУММА(ЗаказПоставщику.Количество)           КАК Количество,
           СУММА(ЗаказПоставщику.Сумма     )           КАК Сумма,
           СУММА(ЗаказПоставщику.СуммаНДС  )           КАК СуммаНДС,
           ЗаказПоставщику.ХарактеристикаНоменклатуры  КАК Характеристика
       ИЗ
           Документ.ЗаказПоставщику.Оборудование КАК ЗаказПоставщику
   
       ГДЕ
           ЗаказПоставщику.Ссылка = &ТекущийДокумент
   
       СГРУППИРОВАТЬ ПО
           ЗаказПоставщику.Номенклатура,
           ЗаказПоставщику.ЕдиницаИзмерения,
           ЗаказПоставщику.Цена,
           ЗаказПоставщику.ХарактеристикаНоменклатуры
       ) КАК ВложенныйЗапрос
   
   ОБЪЕДИНИТЬ ВСЕ    
   
   ВЫБРАТЬ
       ЗаказПоставщику.Номенклатура,
       ЗаказПоставщику.Содержание КАК Товар,
       ЗаказПоставщику.Номенклатура.Код КАК КодАртикул,
       ЗаказПоставщику.Количество,
       ЗаказПоставщику.Номенклатура.ЕдиницаХраненияОстатков,
       ЗаказПоставщику.Цена,
       ЗаказПоставщику.Сумма,
       ЗаказПоставщику.СуммаНДС,
       NULL
       
   ИЗ
       Документ.ЗаказПоставщику.Услуги КАК ЗаказПоставщику
   
   ГДЕ
       ЗаказПоставщику.Ссылка = &ТекущийДокумент) КАК ЗапросСоставаТЧ

   получи фашист гранату... вытянул запрос и функции печать уникального автора

   drhihi, 01 Апреля 2011

   Комментарии (0)

2. 1C / Говнокод #6161

   −135

   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

   "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ " + ПериодАнализаВРабочихДнях + "
   |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря
   |ИЗ
   |    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
   |ГДЕ
   |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря <     &ДатаНач
   |    И (РегламентированныйПроизводственныйКалендарь.ВидДня = &РабочийДень
   |            ИЛИ РегламентированныйПроизводственныйКалендарь.ВидДня = &ПредпраздничныйДень)
   |
   |УПОРЯДОЧИТЬ ПО
   |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря УБЫВ";
   датаначала = Неопределено;
   Выборка = запрос.выполнить().выбрать();
   пока выборка.следующий() цикл
   датаначала = выборка.ДатаКалендаря;
   конеццикла;
   возврат датаначала;

   и почему я не могу додуматься взять минимальное значение??

   drhihi, 31 Марта 2011

   Комментарии (2)

3. 1C / Говнокод #6159

   −124

   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

   "ВЫБРАТЬ
   |	ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
   |	СУММА(ТоварыНаСкладахОстатки.КоличествоОстаток) КАК КоличествоОстатокНаСкладах
   |ИЗ
   |	РегистрНакопления.ТоварыОрганизаций.Остатки(
   |			,
   |			Номенклатура В (&НоменклатураПоОтбору)
   |				И Склад В (&СписокСкладов)
   |				И Организация = (&Организация)) КАК ТоварыНаСкладахОстатки
   |ГДЕ
   |	ТоварыНаСкладахОстатки.Склад В(&СписокСкладов)
   |
   |СГРУППИРОВАТЬ ПО
   |	ТоварыНаСкладахОстатки.Номенклатура

   1с никогда меня не может понять, что мне нужны свернутые остатки....
   1с загоняется... если я в виртуальной таблице отобрал по складам, то мне вновь приходится отбирать по складам

   drhihi, 31 Марта 2011

   Комментарии (6)

4. 1C / Говнокод #6158

   −92

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7
   8. 8
   9. 9

   "ВЫБРАТЬ РАЗРЕШЕННЫЕ
   |	Номенклатура.Ссылка КАК Номенклатура
   |ИЗ
   |	Справочник.Номенклатура КАК Номенклатура
   |ГДЕ
   |	Номенклатура.Ссылка В(&НоменклатураПоОтбору)
   |
   |СГРУППИРОВАТЬ ПО
   |	Номенклатура.Ссылка

   Пусть 1с раздупляется, что тебе не нужны одинаковые элементы справочника "номенклатура"

   drhihi, 31 Марта 2011

   Комментарии (10)

5. 1C / Говнокод #6157

   −100

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7

   //ВИНМАНИЕ Деление на 0
   Если СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод = 0 Тогда
   	СтрокаЗаказа.КоличествоСделокВДень = 0;
   Иначе
   	СтрокаЗаказа.КоличествоСделокВДень = СтрокаЗаказа.КоличествоСделокЗаПериод
   		/ ?( СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод = 0, 1, СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод );
   КонецЕсли;

   по условию 1с не догнала, что там 0...

   drhihi, 31 Марта 2011

   Комментарии (7)

6. 1C / Говнокод #6127

   −91

   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

   Функция СравнитьЭлементыСправочника(Элемент1, Элемент2, фЗаписатьРазличия=0) Экспорт
   	Перем Рез;
   	Рез = 0;
   	Если (Элемент1 <> Элемент2) и (фЗаписатьРазличия=0) Тогда
   		Рез = 1;
   		Перейти ~М1;
   	КонецЕсли;
   	
   	// сначала проверим код и наименование 
   	Если (Элемент1.Код <> Элемент2.Код) Тогда
   		если фЗаписатьРазличия=1 Тогда
   			ЗаписьЖурналаРегистрации("изменен код с '"+СокрЛП(Элемент1.Код)+"' на '"+СокрЛП(Элемент2.Код)+"'","Справочники","Изменен реквизит справочника",Элемент1,2);
   		Иначе
   			Рез = 1;
   			Перейти ~М1;
   		КонецЕсли;	
   	КонецЕсли;
   	
   	Если Элемент1.Наименование <> Элемент2.Наименование Тогда
   		если фЗаписатьРазличия=1 Тогда
   			ЗаписьЖурналаРегистрации("изменено наименование с '"+СокрЛП(Элемент1.наименование)+"' на '"+СокрЛП(Элемент2.наименование)+"'","Справочники","Изменен реквизит справочника",Элемент1,2);
   		Иначе
   			Рез = 1;
   			Перейти ~М1;
   		КонецЕсли;	
   	КонецЕсли;	
   
   	// == тут было код который удалил автор поста	==
   
   ~М1:	
   	Возврат Рез;
   		
   КонецФункции

   Внезапно нашел такую функцию неизвестного автора :)

   CYFiVE, 30 Марта 2011

   Комментарии (18)

7. 1C / Говнокод #6113

   −103

   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;
   ТЗ2=СоздатьОбъект("ТаблицаЗначений");
   ВыгрузитьТабличнуюЧасть(ТЗ2,"ТМЦ,Кво");
   ТЗ2.НоваяКолонка("Арт");
   ТЗ2.ВыбратьСтроки();
   Пока ТЗ2.ПолучитьСтроку()=1 Цикл
   	ТМЦ_=ТЗ2.ПолучитьЗначение(к+1,"ТМЦ");
   	Если Лев(ТМЦ_,5)="Набор" Тогда
   		ТЗ2.Арт=ТМЦ_.Родитель;
   	Иначе
   		ТЗ2.Арт=ТМЦ_.Родитель.Родитель;
   	КонецЕсли;
   	к=к+1;
   КонецЦикла;

   Из 7.7. Особенно радует момент ТМЦ_=ТЗ2.ПолучитьЗначение(к+1,"ТМЦ");

   bytemdfab, 29 Марта 2011

   Комментарии (2)

8. 1C / Говнокод #6110

   −87

   1. 1
   2. 2

   ТекЗакладка=0;
   Если ТекЗакладка=0 тогда ТекЗакладка=1;КонецЕсли;

   Путаем следы?

   CYFiVE, 29 Марта 2011

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

9. 1C / Говнокод #5983

   −110

   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

   СписокЗначенийТиповЦен = Новый СписокЗначений;
   ...
   КоличествоЦен = 0;
   РезультатВыбора = ФормаВыбораТиповЦен.ОткрытьМодально();
   Для Каждого Элемент Из РезультатВыбора Цикл 
   	СписокЗначенийТиповЦен.Добавить(Элемент.Значение);
   	КоличествоЦен = КоличествоЦен + 1;
   КонецЦикла;
   
   Если КоличествоЦен = 0 Тогда
   	Предупреждение("Не выбран ни один тип цен!!!");	
   	Возврат;
   КонецЕсли;

   Нет проверки на возвращение "неопределено" в строке 4. К тому же в результате возвращает список значений, зачем создавать еще один список и все элементы переносить в него для меня загадка.
   Ну и счетчик количества элементов в цикле вместо РезультатВыбора.Количество() на десерт.

   ingenuus, 14 Марта 2011

   Комментарии (13)

10. 1C / Говнокод #5977

    −92

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9

    ...
    Запрос.Текст =
    "...
    |ГДЕ
    |    ...
    |    И ТипыЦенНоменклатуры.ПроцентСкидкиНаценки <> &Нуль
    |    ...";
    Запрос.УстановитьПараметр("Нуль", 0);
    ...

    ingenuus, 14 Марта 2011

    Комментарии (31)

• ← влево
• вправо →

• 54
• …
• 11
• 10
• 9
• 8
• 7
• 6
• 5
• 4
• 3
• …
• 1