1. Куча / Говнокод #19110

    −4

    1. 1
    https://github.com/kagami-ryuuji/kuroneko

    По просьбам пользователей

    kgm-rj, 30 Ноября 2015

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

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

    −94

    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 Тогда
				ВыборкаПоКонтрагентам = ВыборкаПоПроектам.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
				Пока ВыборкаПоКонтрагентам.Следующий() Цикл  /// Контрагент
					
					Если ВыборкаПоКонтрагентам.СуммаОстаток <> 0 Тогда
						
						ВыборкаПоПлательщикам = ВыборкаПоКонтрагентам.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
						
						Пока ВыборкаПоПлательщикам.Следующий() Цикл  // плательщик
							
							Если (ВыборкаПоПлательщикам.СуммаОстаток <> 0) Тогда
								
								ВыборкаПоДоговорам = ВыборкаПоПлательщикам.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
								
								Пока ВыборкаПоДоговорам.Следующий() Цикл   // договор
									
									Если ВыборкаПоДоговорам.СуммаОстаток <> 0 Тогда
										
										
										ВыборкаПоДокументам = ВыборкаПоДоговорам.Выбрать();
										Пока ВыборкаПоДокументам.Следующий() Цикл  // документ
											
											СтрокаВзаиморасчетов = ТаблицаВзаиморасчетов.Добавить();
											ЗаполнитьЗначенияСвойств(СтрокаВзаиморасчетов, ВыборкаПоДокументам);

    А потом вот такая таблица помещается в СКД, на неё накладывается отбор... и даже по 1 контрагенту отчёт формируется минут 5. Научили дурака Богу молиться...

    levxxx, 30 Ноября 2015

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

  3. Куча / Говнокод #19107

    0

    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
    breakPar :: (Token -> Bool) -> [Token] -> Either String ([Token], [Token])
breakPar _ []           = Right ([], [])
breakPar p xs@(x:xs')
           | x == TLPar = let t = takePar xs'
                          in case t of
                            Left err -> t
                            Right r -> let tt = breakPar p b
                                           (a,b) = r
                                       in case tt of
                                            Left err -> t
                                            Right rr -> let (y, z) = rr
                                                        in Right ([x] ++ a ++ y, z)
           | p x        = Right ([],xs)
           | otherwise  = checkEither (breakPar p xs') (first ((:) x))

    Abbath, 30 Ноября 2015

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

  4. PHP / Говнокод #19102

    +2

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    Searching 43077 files for "PROPERTY_96" 

D:\OpenServer\domains\aproject.local\public_html\bitrix\templates\aproject\components\aproject\catalog.section\list\template.php: 
19 // говнокод, говнокодом не испортить :) 
20 $itSitno = 0; 
21: if ($arElement['PROPERTY_96'] > 0) 
22 { 
23 $itSitno = 1;

    замечательный проект.. Искал тут свойство в интернет магазине (типа макдака), которое отвечает за тип добавки к заказу (соус, мясо, и т.п.).
    Называется это свойство вот так: PROPERTY_96 встречается в нескольких местах, в самом проекте 43077 файлов.
    вообщем у меня бомбануло через 30 минут когда я его таки смог найти.

    да это битрикс :(

    hell, 27 Ноября 2015

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

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

    −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
    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
    Перем ОписаниеФормы;
	
	ОписаниеФормы = Новый Структура;
	ОписаниеФормы.Вставить("ТипОбъектаФормы", Неопределено);
	ОписаниеФормы.Вставить("ТипФормы", Неопределено);
	ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
	ОписаниеФормы.Вставить("СсылкаНаФорму", ФормаКлиента);
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ОбработкаОбъект)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.ОбработкаОбъект.Ссылка);
		ОписаниеФормы.Вставить("ТипФормы", "Обработка");
	Исключение
	КонецПопытки;
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ДокументСписок)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
		ОписаниеФормы.Вставить("ТипФормы", " ДокументСписок");
	Исключение
	КонецПопытки;
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ДокументОбъект)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.ДокументОбъект.Ссылка);
		ОписаниеФормы.Вставить("ТипФормы", "Документ");
	Исключение
	КонецПопытки;
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.СправочникСписок)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
		ОписаниеФормы.Вставить("ТипФормы", "СправочникСписок");
	Исключение
	КонецПопытки;
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.СправочникОбъект)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.СправочникОбъект.Ссылка);
		ОписаниеФормы.Вставить("ТипФормы", "Справочник");
	Исключение
	КонецПопытки;
	
	Попытка	//если в самой форме описан её тип...
		ОписаниеФормы.Вставить("ТипОбъектаФормы", ФормаКлиента.ТипОбъектаФормы);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.СсылкаНаОбъектФормы);
		ОписаниеФормы.Вставить("ТипФормы", ФормаКлиента.ТипФормы);
	Исключение
	КонецПопытки;
	
	Возврат ОписаниеФормы;

    Более "эвристического" метода чем N попыток аффтар видимо придумать не смог. Всё бы ничего, пытайся на здоровье, просто есть люди которые иногда включают режим отладки "остановка по ошибке"... бесит...

    levxxx, 27 Ноября 2015

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

  6. C# / Говнокод #19099

    +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
    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
    if(itemsCount <= 2)
		{
			if(iteration == 1)
			{
				dragItemPos = new Vector3(-20, -55, 0);
			}else if(iteration == 2){
				dragItemPos = new Vector3(145, 75, 0);
			}
		}else if(itemsCount == 3){
			if(iteration == 1)
			{
				dragItemPos = new Vector3(60, -170, 0);
			}else if(iteration == 2){
				dragItemPos = new Vector3(245, -45, 0);
			}else if(iteration == 3){
				dragItemPos = new Vector3(20, 90, 0);
			}
		}else if(itemsCount == 4){
			if(iteration == 1)
			{
				dragItemPos = new Vector3(60, -170, 0);
			}else if(iteration == 2){
				dragItemPos = new Vector3(245, -45, 0);
			}else if(iteration == 3){
				dragItemPos = new Vector3(-80, 2, 0);
			}else if(iteration == 4){
				dragItemPos = new Vector3(140, 160, 0);
			}
		}
		else{
			if(iteration == 1)
			{
				dragItemPos = new Vector3(60, -170, 0);
			}else if(iteration == 2){
				dragItemPos = new Vector3(245, -45, 0);
			}else if(iteration == 3){
				dragItemPos = new Vector3(-100, -45, 0);
			}else if(iteration == 4){
				dragItemPos = new Vector3(25, 95, 0);
			}else if(iteration == 5){
				dragItemPos = new Vector3(190, 180, 0);
			}
		}

    Определяем позиции объекта по их количеству и по номеру итерации. Массивы? не не слышал.

    kschingiz, 27 Ноября 2015

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

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

    −37

    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
    ФормаВыбора = Справочники.СпецификацииНоменклатуры.ПолучитьФормуВыбораГруппы();
	Родитель = ФормаВыбора.ОткрытьМодально();

	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("Родитель",Сред(Справочники.СпецификацииНоменклатуры.НайтиПоНаименованию(Родитель),1,50));
	Запрос.УстановитьПараметр("Материалы",Справочники.Номенклатура.НайтиПоНаименованию("Материалы"));
	Запрос.УстановитьПараметр("Активная",Истина);
	Запрос.УстановитьПараметр("КодВерсии","00001");
	Запрос.Текст = "ВЫБРАТЬ
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Количество / СпецификацииНоменклатурыВыходныеИзделия.Количество * 1000 КАК Количество,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.ВидНоменклатуры.Ссылка КАК ВидНоменклатуры,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Артикул КАК Обозначение,
	|	ВЫБОР
	|		КОГДА (НЕ ПОДСТРОКА(СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.НаименованиеВКД, 1, 10) = ""          "")
	|			ТОГДА СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.НаименованиеВКД
	|		ИНАЧЕ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Наименование
	|	КОНЕЦ КАК Наименование,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Комментарий КАК Комментарий,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.Наименование КАК ВыходнаяНоменклатура1,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.НаименованиеПолное КАК ВыходнаяНоменклатура,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.Родитель.Родитель КАК Родитель,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.Артикул КАК ВыходнаяНоменклатура1Артикул,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.Родитель КАК Родитель1,
	|	СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Родитель КАК Родитель2,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.НаименованиеВКД КАК НаименованиеВКД,
	|	СпецификацииНоменклатурыВыходныеИзделия.Количество КАК Количество1
	|ИЗ
	|	Справочник.СпецификацииНоменклатуры.ИсходныеКомплектующие КАК СпецификацииНоменклатурыИсходныеКомплектующие
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры.ВыходныеИзделия КАК СпецификацииНоменклатурыВыходныеИзделия
	|		ПО СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.Ссылка = СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Ссылка
	|ГДЕ
	|	(СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Ссылка = &Материалы
	|			ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Родитель.Ссылка = &Материалы
	|			ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Родитель.Родитель.Ссылка = &Материалы
	|			ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Родитель.Родитель.Родитель.Ссылка = &Материалы)
	|	И ПОДСТРОКА(СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.Родитель.Наименование, 1, 50) = &Родитель
	|	И ПОДСТРОКА(СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Родитель.Наименование, 1, 50) = &Родитель
	|	И СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Активная = &Активная
	|	И СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.КодВерсии = &КодВерсии";
	
	//Отладка для таблицы
	//Результат1 = Запрос.Выполнить().Выгрузить();
	//Результат1.ВыбратьСтроку();
	//Возврат;
	Результат = Запрос.Выполнить();
	Возврат Результат;

    Судя по коду "разработчик" был не сильно много знаком с программированием в 1С.

    KDE, 26 Ноября 2015

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

  8. JavaScript / Говнокод #19093

    +2

    1. 1
    url = Ext.String.format('<a href="https://www.mql5.com/en/signals/' + record.get('foreign_id') + '" target="_blank" class="value_bill type_link">{0}</a>', record.get('foreign_id'))

    user-dob, 26 Ноября 2015

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

  9. C# / Говнокод #19092

    +7

    1. 1
    2. 2
    3. 3
    4. 4
    public static bool CheckBoxValue(bool Checked)
        {
            return Conversions.ToBoolean(Interaction.IIf(Checked, true, false));
        }

    inickvel, 26 Ноября 2015

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

  10. JavaScript / Говнокод #19089

    +6

    1. 1
    2. 2
    3. 3
    //Добавление/удаление товара в корзину, вывод содержиого
function itemInCart(id, price, count) {
...........

    Вот такой он, универсальный JavaScript )

    AndreDev, 26 Ноября 2015

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