Лучший говнокод за всё время

Лучший говнокод

В номинации:

Лучший рейтинг
Самый комментируемый

За время:

1C / Говнокод #19520

−96

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16

Запас=0; ВПутиУжеЗаказано=0;Остаток=0;Резерв=0;
	
	Для Каждого ВыбСклад из СписокСкладов Цикл
		Скл=Справочники.Склады.НайтиПоНаименованию(СокрЛП(ВыбСклад.Ссылка.Наименование));
		СтруктураОтбора = Новый Структура(); // для отбора остатков взаиморасчетов
		СтруктураОтбора.Вставить("Номенклатура", Номенклатура);
		СтруктураОтбора.Вставить("Склад", Скл);
		Остаток =Остаток+ РегистрыНакопления.ТоварыНаСкладах.Остатки(КонецДня(КонДата),
		СтруктураОтбора,"Номенклатура,Склад","Количество").Итог("Количество");
		Резерв = Резерв+РегистрыНакопления.ТоварыВРезервеНаСкладах.Остатки(КонецДня(КонДата),
		СтруктураОтбора,"Номенклатура,Склад","Количество").Итог("Количество");
	КонецЦикла;
		
	СтрокаЗапаса=СокрЛП(Остаток);
	СтрокаЗапаса=СтрЗаменить(СтрокаЗапаса," ","");
	Запас=?(СтрокаЗапаса="",0,Число(СтрокаЗапаса));

Лихие манипуляции со стоками. Следите за руками!

saturn5, 24 Февраля 2016

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

1C / Говнокод #19519

−95

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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

Запрос = Новый Запрос;
	Запрос.Текст = 
	 "текст запроса не важен...";
	Запрос.УстановитьПараметр("Заказ", Заказ);
	Выборка = Запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл
		Если Выборка.Версия = 0 Тогда 
			Версия = "0";
		Иначе
			Версия = Выборка.Версия;
		КонецЕсли;
		ИмяФайла = "\\eskoautomation\HotFolders\zakaz\" +Выборка.НомерЗаказа+"_"+Версия+".xml";
		Файл = Новый ЗаписьXML;
		Файл.ОткрытьФайл(ИмяФайла);
		Файл.ЗаписатьНачалоЭлемента("Главный");
			Файл.ЗаписатьНачалоЭлемента("НомерЗаказа");
			ЗаписатьXML(Файл,Выборка.НомерЗаказа);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Версия");
			ЗаписатьXML(Файл,Выборка.Версия);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Контрагент");
			ЗаписатьXML(Файл,Выборка.Контрагент);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ТипЗаказа");
			ЗаписатьXML(Файл,Выборка.ТипЗаказа);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ВидЗаказа");
			ЗаписатьXML(Файл,Выборка.ВидЗаказа);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ТипРЦ");
			ЗаписатьXML(Файл,Выборка.ТипРЦ);
			Файл.ЗаписатьКонецЭлемента();
			РабочийЦентр = Выборка.РабочийЦентр;
			Если Не ЗначениеЗаполнено(РабочийЦентр) Тогда
				Отбор = Новый Структура;
				Отбор.Вставить("НомерПроката", 1);
				Отбор.Вставить("Номерварианта", Выборка.НомерВарианта);
				строки = Выборка.Спецификация.ВидыРабот.НайтиСтроки(Отбор);
				Если строки<>Неопределено Тогда 
					РабочийЦентр = строки[0].рабочийЦентр.порядковыйномер;
				КонецЕсли;
			КонецЕсли;	
	        Файл.ЗаписатьНачалоЭлемента("РабочийЦентр");
			ЗаписатьXML(Файл,РабочийЦентр);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ОсновнойМатериал");
			ЗаписатьXML(Файл,Выборка.ОсновнойМатериал);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Штамп");
			ЗаписатьXML(Файл,Выборка.Штамп);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ЭтикетокНаЛисте");
			ЗаписатьXML(Файл,Выборка.ЭтикетокНаЛисте);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Нарезка");
			ЗаписатьXML(Файл,Выборка.Нарезка);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Ручьи");
			ЗаписатьXML(Файл,Выборка.Ручьи);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Z");
			ЗаписатьXML(Файл,Выборка.Z);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ШагПечати");
			ЗаписатьXML(Файл,Выборка.ШагПечати);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ДлинаЭтикетки");
			ЗаписатьXML(Файл,Выборка.ДлинаЭтикетки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ШиринаЭтикетки");
			ЗаписатьXML(Файл,Выборка.ШиринаЭтикетки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ДлинаКонтрЭтикетки");
			ЗаписатьXML(Файл,Выборка.ДлинаКонтрЭтикетки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ДлинаКольеретки");
			ЗаписатьXML(Файл,Выборка.ДлинаКольеретки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ШиринаКонтрЭтикетки");
			ЗаписатьXML(Файл,Выборка.ШиринаКонтрЭтикетки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ШиринаКольеретки");
			ЗаписатьXML(Файл,Выборка.ШиринаКольеретки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ШиринаПоНожам");
			ЗаписатьXML(Файл,Выборка.ШиринаПоНожам);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ИнтервалМеждуРучьями");
			ЗаписатьXML(Файл,Выборка.ИнтервалМеждуРучьями);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ИнтервалМеждуЭтикетками");
			ЗаписатьXML(Файл,Выборка.ИнтервалМеждуЭтикетками);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Комментарий");
			ЗаписатьXML(Файл,Заказ.Комментарий);
			Файл.ЗаписатьКонецЭлемента();

А вот так мы выгружаем XML. Можно конечно было бы пройтись циклом по колонкам выборки или таблицы значений, но зачем?! Зачем, когда можно написать лишних 300 строчек. Я соду с ума.

levxxx, 24 Февраля 2016

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

PHP / Говнокод #19511

−1

01
02
03
04
05
06
07
08
09
10
11
12

$_LOADER['cmps']   = @file ($_LOADER['follow']);
if ($_LOADER['cmps'])
    {
    unset($_LOADER['cmps'][0]);
    $_LOADER['count'] = count ($_LOADER['cmps']);
    while ($_LOADER['cmp'] < $_LOADER['count'])
        {
        $_LOADER['cmp']++;
        $_LOADER['cmp_path'] = GLISS_DIR.'cmpnnt/'.trim($_LOADER['cmps'][$_LOADER['cmp']]);
        require_once ($_LOADER['cmp_path']);
        }
    }

Мой код пятилетней давности. Я раньше не искал легких путей, foreach для мажоров, while для тру кодеров!!11!

mr-lekafe, 22 Февраля 2016

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

1C / Говнокод #19498

−100

1
2
3
4
5
6
7
8
9

|ИЗ
|	РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(
|			&ДатаНач,
|			&ДатаКон,
|			СчетДт В ИЕРАРХИИ (&СчетаРасчетов)
|				И СчетКт В ИЕРАРХИИ (&СчетаВозврата)
|				И Организация = &Организация
|				И Активность = ИСТИНА
|				И (НЕ СчетДт В ИЕРАРХИИ (&СчетаРасчетов))) КАК ХозрасчетныйОборотыДтКт

БП 2.0, типовой отчет.

OdinAss, 19 Февраля 2016

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

1C / Говнокод #19481

−99

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

Типовая зуп 2.5 данные берутся из справочника  "Степени родства физических лиц" не предопределенные элементы. 



	Если ТекущаяСтрока.Пол = Перечисления.ПолФизическихЛиц.Мужской Тогда
		
		Если СтепеньРодстваРебенка = "05 " ИЛИ СтепеньРодстваРебенка = "06 " Тогда // Сын // Дочь
			
			ТекущаяСтрока.Статус = СоответствиеСтепенейРодства["03"]; // Отец
			
		ИначеЕсли СтепеньРодстваРебенка = "42 " ИЛИ СтепеньРодстваРебенка = "43 " Тогда // Пасынок // Падчерица
			
			ТекущаяСтрока.Статус = СоответствиеСтепенейРодства["40"]; // Отчим
			
		КонецЕсли; 
		
	Иначе
		
		Если СтепеньРодстваРебенка = "05 " ИЛИ СтепеньРодстваРебенка = "06 " Тогда // Сын // Дочь
			
			ТекущаяСтрока.Статус = СоответствиеСтепенейРодства["04"]; // Мать
			
		ИначеЕсли СтепеньРодстваРебенка = "42 " ИЛИ СтепеньРодстваРебенка = "43 " Тогда // Пасынок // Падчерица
			
			ТекущаяСтрока.Статус = СоответствиеСтепенейРодства["41"]; // Мачеха
			
		КонецЕсли; 
		
	КонецЕсли;

sandrohaos, 18 Февраля 2016

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

PHP / Говнокод #19453

−1

01
02
03
04
05
06
07
08
09
10

<?php
global $userinfo;
...
$a_query = "select id,name,company,email,phone,url,type from user where login='" .
								$_SESSION["se_login"] . "' and passwd='" .
								$_SESSION["se_passwd"] . "' and status=1";
$a_res = mysql_query($a_query);
...
list($userinfo['id'],$userinfo['name'],$userinfo['company'],$userinfo['email'],$userinfo['phone'],$userinfo['url'],$userinfo['type']) = mysql_fetch_row($a_res);
...

roman_gemini, 13 Февраля 2016

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

PHP / Говнокод #19424

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20

class ConnectDB {
  protected static $_instance; 
  
  private function __construct() {
    $this->DB = new DBConnector();
  }

  private function __clone() {}

  private function __wakeup() {}

  public static function getInstance() {
    
    if (empty(self::$instance)) {
      self::$_instance = new self;   
    }
    return self::$_instance;
  }

}

Синглтон, который каждый рас создает новый объект

Nemesys, 10 Февраля 2016

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

C# / Говнокод #19409

+1

1

bool isNoGoodCommentText = String.IsNullOrEmpty(this.txbxCommentCtrl.Text) || String.IsNullOrWhiteSpace(this.txbxCommentCtrl.Text);

И действительно, is not good

pipjaka, 05 Февраля 2016

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

PHP / Говнокод #19396

+3

1
2
3
4

$tdir = APPLICATION_PATH.'/../tmp/lv/'.md5(json_encode($_GET));
if (!is_dir($tdir))
    mkdir($tdir, 0777, true);
foreach(glob($lv.'/*') as $f) if(filemtime($f) < time() - 3600) rm_rf($f);

Вот поэтому нотайсы должны быть фатальными

DIX315, 04 Февраля 2016

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

PHP / Говнокод #19389

+2

1
2
3
4
5
6
7
8

<?php
	function generate_number_part($length=2) { 
		$password = substr(preg_replace("/[^0-9]/", "", crypt(time())) .
			preg_replace("/[^0-9]/", "", crypt(time())) .
			preg_replace("/[^0-9]/", "", crypt(time())),
			0, $length);
			return $password;
	}

Сгенерировать пароль из ровно $length цифр... или меньше

ruslanbes2, 03 Февраля 2016

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

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