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

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• 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 / Говнокод #23234

   +2

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

   Если ЭтоНовыйОбъект Тогда
   		Если Найти(НРег(ЭтотОбъект.ТекстЗаявки),"принтер") > 0 Тогда
   			ЭтотОбъект.ВидОбращения = Справочники.ИТ_ПричинаОбращения.НайтиПоНаименованию("Принтер");
   		КонецЕсли;
   	КонецЕсли;

   Если в тексте заявки есть "принтер", значит это по принтеру, если в тексте "Замените картридж" - peaceDa рулю.

   M1CE, 02 Августа 2017

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

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

   +2

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

   defmodule Utils.String do
     @moduledoc false
     def comma_split(str), do: String.split(str, " ", trim: true)
   end

   AndrewDryga, 10 Июля 2017

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

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

   +2

   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, Истина); 	
   		
       ПродатьСлона(Акцепт);
   	
   КонецПроцедуры	
   
   &НаКлиенте
   Процедура ПриОткрытии(Отказ)
   	
   	ПродатьСлона("");
   	
   КонецПроцедуры

   Продаём слона!

   informatikmarazmatik, 30 Мая 2017

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

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

   0

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

   Попытка
              ЗаблокироватьДанныеФормыДляРедактирования();
   Исключение
              ВызватьИсключение КраткоеОписаниеОшибки(ОписаниеОшибки());
   КонецПопытки

   Процедура ЗаблокироватьДанныеФормыДляРедактировани я() при невозможности заблокировать данные сама вызывает исключение

   acula98, 26 Мая 2017

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

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

   +1

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

   рсДополнительныеСведения = РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
   СвойствоУведомление = рсДополнительныеСведения.Добавить();
   СвойствоУведомление.Объект = ЭтотОбъект.Ссылка;
   СвойствоУведомление.Свойство = ДопСведение;
   СвойствоУведомление.Значение = Истина;
   рсДополнительныеСведения.Записать();

   Код одних франчей.
   причем все ж по ТЗ)) запись записалась? записалась! И побоку, что остальные записи при этом снесли нах)))

   Moonlight, 22 Мая 2017

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

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

   −264

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

   Ответ = Вопрос("Будет запущена процедура создания договоров и печати документов. Продолжить?",
             РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да, ЗаголовокОкнаПредупреждения);
       
   Если НЕ Ответ = КодВозвратаДиалога.Да Тогда
            Возврат;
   КонецЕсли;

   wezug, 05 Мая 2017

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

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

   −10

   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, Дата2, ВключаяГраницы = Истина)
   	
   	Результат = ?(ВключаяГраницы, 1, 0);
   	Если Дата1 < Дата2 Тогда
   		ТекущаяДата = НачалоДня(Дата1);
   		ДатаОкончания = НачалоДня(Дата2);
   	Иначе
   		ТекущаяДата = НачалоДня(Дата2);
   		ДатаОкончания = НачалоДня(Дата1);
   	КонецЕсли;
   	Пока ТекущаяДата < ДатаОкончания Цикл
   		ТекущаяДата = НачалоДня(ТекущаяДата + 24 * 60 * 60);
   		Результат = Результат + 1;
   	КонецЦикла;
   	Возврат Результат;
   
   КонецФункции

   можно тремя строками заменить:
   ДатаНачала = Мин(НачалоДня(Дата1), НачалоДня(Дата2));
   ДатаОкончания = Макс(НачалоДня(Дата1), НачалоДня(Дата2));
   Возврат ?(ВключаяГраницы, 1, 0) + (ДатаОкончания - ДатаНачала) / 86400

   noncode, 17 Апреля 2017

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

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

   −98

   1. 1
   2. 2

   Если НоменклатураКонтрагентов.Наличие=Перечисления.ДаНет.Да тогда
   ....

   Создан новый элемент перечисления "ДаНет" на который ссылается измерение регистра сведений. Джордж Буль продолжает медленно крутиться...

   FesenkoA, 03 Апреля 2017

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

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

   −99

   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

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

   Нужно больше параметров! Иначе ты не адинэсник, а полное ничтожество. (Это не результат легаси, там реально скопипащено ПЯТЬ процедур с одинаковыми параметрами, из которых используется только "Отказ", да и то как видим - через заднепроходное отверстие)

   Old_Chroft, 31 Марта 2017

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

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

    −98

    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

    ВЫБОР
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 1
    		ТОГДА "01 Январь"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 2
    		ТОГДА "02 Февраль"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 3
    		ТОГДА "03 Март"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 4
    		ТОГДА "04 Апрель"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 5
    		ТОГДА "05 Май"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 6
    		ТОГДА "06 Июнь"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 7
    		ТОГДА "07 Июль"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 8
    		ТОГДА "08 Август"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 9
    		ТОГДА "09 Сентябрь"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 10
    		ТОГДА "10 Октябрь"
    	КОГДА МЕСЯЦ(НДФЛСведенияОДоходах.ДатаПолученияДохода) = 11
    		ТОГДА "11 Ноябрь"
    	ИНАЧЕ "12 Декабрь"
    КОНЕЦ

    Конвертация

    spaceashot, 30 Марта 2017

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

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

• 54
• …
• 46
• 45
• 44
• 43
• 42
• 41
• 40
• 39
• 38
• …
• 1