1. Список говнокодов пользователя Cascader

    Всего: 7

  2. Куча / Говнокод #16574

    +101

    1. 1
    удалено

    Кто делает выгрузка в таком формате???
    xml? json? так лучше, епта

    Cascader, 21 Августа 2014

    Комментарии (36)
  3. Куча / Говнокод #16457

    +125

    1. 1
    https://users.v8.1c.ru/

    Делаем размер браузера в пол экрана, справа вверху появляется кнопочка меню.
    И правильно, нахуя править дефолтный шаблон Bootstrap.

    Cascader, 31 Июля 2014

    Комментарии (0)
  4. 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)
  5. 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)
  6. 1C / Говнокод #16392

    −162

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

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

    Cascader, 21 Июля 2014

    Комментарии (0)
  7. 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)
  8. 1C / Говнокод #16361

    −166

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

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

    Cascader, 17 Июля 2014

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