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

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

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

1. PHP (5703)
2. C++ (2740)
3. Куча (2337)
4. JavaScript (2030)
5. C# (1929)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

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

   −125

   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
   68. 68
   69. 69

   //часть текста запроса
                                  |ИЗ
   		               |	ЭтапыОплатыИсходник КАК ЭтапыОплаты
   		       		   |//ТекстОтбора
   		               |{ГДЕ
   .................
   
   		//Добавляем поля если используется отбор
   		ТекстОтбора="ГДЕ ";
   		ТекстОтбора=ТекстОтбора+" ИСТИНА";		//NP002
   		НомерПеременнойОтбора=1;
   		Для каждого  СтрокаТекущегоОтбора Из ПостроительОтчета.Отбор Цикл
   
   			if НЕ СтрокаТекущегоОтбора.Использование then
   				continue;
   			endif;
   
   			СложноеИмяПоля=ПолучитьИмяПоляБезТочек(СтрокаТекущегоОтбора.ПутьКДанным);
   			Если  ПостроительОтчета.Отбор.Найти(СложноеИмяПоля)=Неопределено Тогда
   				Если СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.Больше Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" > &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.БольшеИлиРавно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" >= &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВИерархии или 
   					СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВСписке или 
   					СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВСпискеПоИерархии Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В (&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВИерархии Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В ИЕРАРХИИ(&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.Меньше Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" < &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.МеньшеИлиРавно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" <= &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеВСписке или 
   					СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеВСпискеПоИерархии Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И НЕ "+"ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В (&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеВИерархии  Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И НЕ "+"ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В ИЕРАРХИИ(&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеРавно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" <> &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.Равно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" = &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				КонецЕсли; 
   			КонецЕсли; 
   		КонецЦикла; 
   
   		Если НомерПеременнойОтбора>1 Тогда
   			Запрос.Текст=СтрЗаменить(Запрос.Текст,"//ТекстОтбора",ТекстОтбора);
   		КонецЕсли;

   При этом при всем, в отчете используется 2 построителя ( на одном не смог построить , одного видимо было было мало для стратегии заложенной в голове:) ) + между ними используется куча запросов , в которых выгружаются таблицы (РезультатЗапроса.Выполнить().Выгрузить( )) и передаются в следующие запросы как параметры.
   От себя добавлю: Добавлял элементарные вещи, чтобы вывести пару дополнительных колонок - убить 1 час , тоже самое, что ничего не сделать..... Да и к тому же отчет рисуется через "ТабДок.Присоеденить".

   Ba_Ka, 22 Декабря 2014

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

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

   −120

   1. 1

   |РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1980, 1, 1), НакладнаяНаОтпускМатериалы.ДатаВозврата, ДЕНЬ) + 2444240 КАК ДатаВозврата,

   Внезапно! Календарь майя

   safer_bwd, 19 Декабря 2014

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

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

   −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

   Процедура Флажок1ПриИзменении(Элемент)
   	
   	//выбираем контрагента
   	ТК	= табК.найти(Контрагент, "контрагент");
   	
   	Первый	= 2+2;
   	для кк=0 по табК.Количество()-1 цикл
   		элементыформы.МаршрутныйЛистК.Область("C"+число(кк*3+1+Первый)).Видимость	= (ОтобразитьВсеМеста и ТабК[кк]=ТК);
   	конеццикла;	
   	
   	
   КонецПроцедуры

   Продукт "1С:Молокозавод. Международная поставка для пользователей "1С:Управление производственным предприятием "
   Форма документа "МОЛ_ЗаказПоМаршруту".
   Фирма "ЦНТУиК" (ЗАО "Центр научно-технических услуг и консультаций").
   Не понятно что они курят.

   x-salik, 18 Декабря 2014

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

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

   −125

   1. 1
   2. 2

   Движение = Движения.Добавить();
   Движение.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду(Счет.Код);

   facepeeler, 04 Декабря 2014

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

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

   −122

   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

   Для Индекс = 1 По 4 Цикл
   
   	Если Индекс = 1 Тогда
   		<Действие1...>;
   	ИначеЕсли Индекс = 2 Тогда
   		<Действие2...>;
   	ИначеЕсли Индекс = 3 Тогда
   		<Действие3...>;
   	ИначеЕсли Индекс = 4 Тогда
   		<Действие4...>;
   	КонецЦикла;	
   
   КонецЦикла

   facepeeler, 04 Декабря 2014

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

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

   −124

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

   Попытка
         ТекущийЭлемент = ЭлементыФормы[АктивныйРеквизит];
         ТекущийЭлемент.АктивиризоватьПоУмолчанию();
   Исключение
   КонецПопытки;

   Это прекрасно...
   Автор - кто-то из 1С-Хомнет

   Aleksandr_N, 02 Декабря 2014

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

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

   −126

   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

   Попытка
           ЭлементыФормы[Надпись].Картинка = БиблиотекаКартинок.ЗначокОбработкаВПанелиФункций16
   Исключение
           Попытка
                   ЭлементыФормы[Надпись].Картинка = БиблиотекаКартинок.Выполнить
           Исключение
                   Попытка
                           ЭлементыФормы[Надпись].Картинка = БиблиотекаКартинок.Сформировать
                   Исключение
                           Попытка
                                   ЭлементыФормы[Надпись].Картинка = БиблиотекаКартинок.ПерейтиНаСледующийЭтапСделки
                           Исключение
                                   Попытка
                                           ЭлементыФормы[Надпись].Картинка = БиблиотекаКартинок.ВыполнитьОбменДаннымиИнтерактивно
                                   Исключение
                                   КонецПопытки
                           КонецПопытки
                   КонецПопытки
           КонецПопытки
   КонецПопытки;

   Отака хуєта розкидана в одній і тій самій обробці в кількох місцях

   monstrodev, 27 Ноября 2014

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

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

   −123

   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

   Функция ПолучитьДробнуюЧасть(Число)
   	
   	Если Не ТипЗнч(Число) = Тип("Число") Тогда
   		Возврат 0;
   	КонецЕсли;
   	ЧислоСтрокой = Строка(Число);
   	Инд = 1;
   	Пока Истина Цикл
   	Символ = Сред(ЧислоСтрокой, Инд, 1);	
   	Если Символ = "" Тогда
   		Возврат 0;
   	ИначеЕсли Символ = "," Тогда
   		Если Сред(ЧислоСтрокой, Инд + 1, 1) = "" Тогда
   			Возврат 0;
   		КонецЕсли;
   		
   		Если Сред(ЧислоСтрокой, Инд + 2, 1) = "" Тогда
   			Возврат Число(Сред(ЧислоСтрокой, Инд + 1, 1));
   		КонецЕсли;
   		
   		Если Сред(ЧислоСтрокой, Инд + 3, 1) = "" Тогда
   			Возврат Число(Сред(ЧислоСтрокой, Инд + 1, 1) + Сред(ЧислоСтрокой, Инд + 2, 1));
   		Иначе
   			Возврат Число(Сред(ЧислоСтрокой, Инд + 1, 1) + Сред(ЧислоСтрокой, Инд + 2, 1) + Сред(ЧислоСтрокой, Инд + 3, 1));
   		КонецЕсли;
   	КонецЕсли;
   	Инд = Инд + 1;
   	КонецЦикла;
   КонецФункции

   Еще один "анекдот" от неизвестного автора. Предыдущий здесь: http://govnokod.ru/16639

   Jeyrico, 07 Ноября 2014

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

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

   −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

   Результат = Запрос.Выполнить();
   Если Результат.Выгрузить().Количество() <> 0 Тогда
   	Выборка = Результат.Выбрать();
   	Пока Выборка.Следующий() Цикл
   		... тут некий код... и внутри контрольный в голову...
   		Если ТЗ.Количество() <> 0 Тогда
   			Для Каждого Строка Из ТЗ Цикл
   				...
   			КонецЦикла;	
   		КонецЕсли;	
   		...
   	КонецЦикла;
   КонецЕсли;

   Видимо это такая "оптимизация", другого объяснения подобным проверкам (это не единичный случай) не нашел.

   Twilight_Sun, 27 Октября 2014

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

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

    −124

    1. 1
    2. 2

    <?"Объект">_и="";<?"Объект">_с=0;<?"Объект">_кол=<?"Объект">.Количество();<?"Объект">_нд=ТекущаяДата();<?"Объект">_пд=<?"Объект">_нд;
    	<?"Объект">_с=<?"Объект">_с+1;Если <?"Объект">_пд<>ТекущаяДата() Тогда <?"Объект">_пд=ТекущаяДата();<?"Объект">_ост=(<?"Объект">_пд-<?"Объект">_нд)/<?"Объект">_с*(<?"Объект">_кол-<?"Объект">_с);Состояние(<?"Объект">_и+Формат(<?"Объект">_с/<?"Объект">_кол*100,"ЧДЦ=1;")+"% "+формат('00010101'+<?"Объект">_ост,"ДФ=ЧЧ:мм:сс"));КонецЕсли;

    Шаблон для строки состояния. Видимо, первая строка вставляется перед циклом, вторая внутри.

    anacefalus, 24 Октября 2014

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

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

• 54
• …
• 31
• 30
• 29
• 28
• 27
• 26
• 25
• 24
• 23
• …
• 1