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

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

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

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

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

   −163

   1. 1
   2. 2
   3. 3
   4. 4

   Если ЗначениеЗаполнено(Сделка) И ЛЕВ(Сделка.Ссылка, 10) = "Заказ пост" Тогда
            //другой говнокод
   
   КонецЕсли;

   Правильная проверка типов

   alexinzaz, 14 Августа 2014

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

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

   −163

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   Процедура ЗаполнитьТоЧтоможно()
   
   	СписокТогоЧтоМожно = СоздатьОбъект("СписокЗначений");
   	//Start = _GetPerformanceCounter();
   	ЗапросГрупп = CreateObject("ODBCRECORDSET");

   levxxx, 11 Августа 2014

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

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

   −160

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11

   ДляВырезки = 8;	
   
   	Если Не Найти(Стр,"маг") = 0 Тогда
   		Если (Найти(Стр,"маг") + ДляВырезки) > СтрДлина(Стр) Тогда
   			Обрез = Сред(Стр,Найти(Стр,"Маг"),(Найти(Стр,"Маг") - СтрДлина(Стр)) + 1);
   		Иначе
   			Обрез = Сред(Стр,Найти(Стр,"маг"),ДляВырезки);	
   		КонецЕсли;
   	КонецЕсли;
   	
   	Возврат ВторойУровеньСумрака(Обрез);

   А этот наоборот с именем старается)

   Cascader, 28 Июля 2014

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

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

   −164

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11

   аа = регсв.Выгрузить();
   	аа.Очистить();
   	Для каждого стр из Комплектующие Цикл
   		ввв  =аа.Добавить();
   		ввв.Номенклатура = Номенклатура;
   		ввв.характеристикаНоменклатуры = Характеристиканоменклатуры;
   		ввв.Комплектующая               = стр.Номенклатура;
   		ввв.ХарактеристикаКомплектующей = стр.ХарактеристикаНоменклатуры;
   		ввв.количество                  = стр.КоэффициентКолво;
   		ввв.единицаИзмерения            = стр.ЕдиницаИзмерения;
   		ввв.ДоляСтоимости               = стр.ДоляСтоимости;

   Как же сложно нормально назвать переменные((

   Cascader, 23 Июля 2014

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

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

   −163

   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

   Пока ДокиДляЗагрузки.Количество()>0 Цикл
   		СтрокаДоковЗагрузки = ДокиДляЗагрузки.Получить(0);
   		НомерДок = СтрокаДоковЗагрузки.НомерДок;
   		ДатаДок = СтрокаДоковЗагрузки.ДатаДок;
   		Отбор = Новый Структура();
   		Отбор.Вставить("НомерДок", НомерДок);
   		//Отбор.Вставить("ДатаДок", ДатаДок);
   		ДокиДляЗагрузкиФильтр = ДокиДляЗагрузки.НайтиСтроки(Отбор);
   		ДатаНач = НачалоДня(Дата(ДатаДок));
   		ДатаКон = КонецДня(Дата(ДатаДок));
   		Запрос = Новый Запрос;
   		Запрос.Текст = "ВЫБРАТЬ
   		               |	РеализацияТоваровУслуг.Ссылка
   		               |ИЗ
   		               |	Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
   		               |ГДЕ
   		               |	РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНач И &ДатаКон
   		               |	И РеализацияТоваровУслуг.Номер = &Номер";
   		Запрос.УстановитьПараметр("Номер", НомерДок);
   		Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
   		Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
   		Результат = Запрос.Выполнить().Выбрать();
   		Если Результат.Количество()=1 Тогда
   			Результат.Следующий();
   			СтрокаДок7 = ДокиДляЗагрузкиФильтр.Получить(0);
                           ...
                   КонецЕсли;
   КонецЦикла;

   //Поиск документа по номеру
   //Можно заменить одной строкой, но автор был истиный извращенец
   СтрокаДок7 = Документы.РеализацияТоваровУслуг.НайтиПо Номеру(СтрокаДоковЗагрузки.НомерДок, СтрокаДоковЗагрузки.ДатаДок);

   quickes, 21 Июля 2014

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

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

   −162

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   | КОНЕЦ) КАК ПросроченоПиздецКак,
   | СУММА(ВложенныйЗапрос.СуммаОстаток) КАК ДебиторкаВся,
   | ВложенныйЗапрос.Договор.СрокОплатыПоДоговору КАК СрокОплаты,
   | ВложенныйЗапрос.Сделка.Ответственный КАК Менеджер
   | ИЗ

   Не говнокод, пример с лурки но все равно улыбает)

   Cascader, 21 Июля 2014

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

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

   −166

   1. 1

   Дата = Формат(День(Запись.Период),"ЧЦ=2; ЧРГ=; ЧВН=") + "/" + Формат(Месяц(Запись.Период),"ЧЦ=2; ЧРГ=; ЧВН=") + "/" + Формат(Год(Запись.Период),"ЧГ=");

   О как можно еще получить дату в формате: день/месяц/год.
   Хотя тот же результат будет, если: Дата = Формат(Запись.Период, "ДФ=dd/MM/yyyy");
   И этот бред писал специалист крупной внедренческой компании.

   Danik, 18 Июля 2014

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

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

   −171

   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
   52. 52
   53. 53
   54. 54
   55. 55
   56. 56
   57. 57
   58. 58
   59. 59
   60. 60
   61. 61
   62. 62
   63. 63
   64. 64
   65. 65
   66. 66
   67. 67

   Процедура ПересчитатьстоимостьПлан()
   	
   	Если 1=1 тогда //ВидКомплектации = Перечисления.ВидыКомплектации.Сборка тогда
   		Для каждого стр из комплектующие Цикл
   			Если стр.ЦенаПлан = 0 тогда // заполнимЦену
   				мНоменклатура = Новый массив;
   				//Для каждого стр из Комплектующие Цикл
   					мНоменклатура.Добавить(стр.Номенклатура);
   				//Конеццикла;
   				Запрос = новый Запрос;
   				Запрос.Текст =  "ВЫБРАТЬ
   				|	ЦеныНоменклатурыСрезПоследних.Номенклатура,
   				|	ЦеныНоменклатурыСрезПоследних.Цена
   				|ИЗ
   				|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&датаД, ) КАК ЦеныНоменклатурыСрезПоследних
   				|ГДЕ
   				|	ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен
   				|	И ЦеныНоменклатурыСрезПоследних.Номенклатура В ИЕРАРХИИ(&Номенклатура)";
   				Запрос.УстановитьПараметр("ДатаД",дата);
   				Запрос.УстановитьПараметр("типЦен",Склад.ТипЦенРозничнойТорговли);
   				Запрос.УстановитьПараметр("ссылка",ссылка);
   				Запрос.УстановитьПараметр("Номенклатура",стр.Номенклатура);
   				аа =Запрос.Выполнить().Выгрузить();
   				Если аа<> неопределено тогда
   					стр.ЦенаПлан = аа[0].цена;
   				КонецЕсли;
   				
   			Конецесли;
   			
   			стр.ЦенаПлан = стр.ЦенаПлан;
   			стр.Суммаплан = стр.Количество*стр.ЦенаПлан;
   		Конеццикла;
   		// *******************************************************888
   		
   	иначе
   		
   		Если СуммаПлан = 0 тогда
   			возврат;
   		КонецЕсли;
   		итСумма = 0;
   		Для каждого стр из Комплектующие Цикл
   			
   			//стр.Суммаплан = глОкруглить(стр.ДоляСтоимости*СуммаПлан,0.5);
   			стр.Суммаплан = Окр(стр.ДоляСтоимости*СуммаПлан,1);
   			
   			Если стр.Количество = 0 тогда
   				стр.ЦенаПлан = 0;
   			иначе
   				стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
   			КонецЕсли;
   			итсумма = итСумма + стр.Суммаплан;
   			
   		КонецЦикла;
   		
   		Если итСумма<>Суммаплан тогда
   			стр.Суммаплан = стр.СуммаПлан - (СуммаПлан-итСумма);
   			Если стр.Количество = 0 тогда
   				стр.ЦенаПлан = 0;
   			иначе
   				стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
   			КонецЕсли;
   			
   		Конецесли;
   	КонецЕсли;
   	
   	
   конецпроцедуры

   Cascader, 17 Июля 2014

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

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

   −166

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

   итСумма = 0;
   иткол = 0;
   Для каждого стр из комплектующие Цикл
   	итсумма = итсумма + стр.Суммаплан;
   	иткол = иткол + стр.КоличествоБезПотерь;
   Конеццикла;

   Зашел в базу, а там вот это... повторяется...раза 4

   Cascader, 17 Июля 2014

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

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

    −161

    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
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58

    Для А =0 по Значение.Количество()-1 Цикл
    				Попытка	
    					Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7)+"*"+Строка(Значение[А].поле8)+"*"+Строка(Значение[А].поле9)+"*"+Строка(Значение[А].поле10));
    					Табл.InsertParagraphAfter();
    				Исключение	
    					Попытка	
    						Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7)+"*"+Строка(Значение[А].поле8)+"*"+Строка(Значение[А].поле9));
    						Табл.InsertParagraphAfter();
    					Исключение
    						Попытка	
    							Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7)+"*"+Строка(Значение[А].поле8));
    							Табл.InsertParagraphAfter();
    						Исключение
    							
    							Попытка	
    								Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7));
    								Табл.InsertParagraphAfter();
    							Исключение
    								Попытка	
    									Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6));
    									Табл.InsertParagraphAfter();
    								Исключение	
    									Попытка	
    										Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5));
    										Табл.InsertParagraphAfter();
    									Исключение	
    										Попытка	
    											Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4));
    											Табл.InsertParagraphAfter();
    										Исключение
    											Попытка	
    												Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3));
    												Табл.InsertParagraphAfter();
    											Исключение
    												Попытка	
    													Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+(Строка(Значение[А].поле2)));
    													Табл.InsertParagraphAfter();
    												Исключение
    													Попытка	
    														Табл.InsertAfter(Строка(Значение[А].поле1));
    														Табл.InsertParagraphAfter();
    													Исключение
    														Попытка	
    															Табл.InsertAfter(Строка(Значение[А].поле0));
    															Табл.InsertParagraphAfter();
    														Исключение
    														КонецПопытки;
    													КонецПопытки;	
    												КонецПопытки;
    											КонецПопытки;	
    										КонецПопытки;
    									КонецПопытки;
    								КонецПопытки;	
    							КонецПопытки;	
    						КонецПопытки;	
    					КонецПопытки;
    				КонецПопытки;
    			КонецЦикла;

    Ninomia, 15 Июля 2014

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

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

• 54
• …
• 29
• 28
• 27
• 26
• 25
• 24
• 23
• 22
• 21
• …
• 1