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

    Всего: 14

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

    −110

    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;
РезультатВыбора = ФормаВыбораТиповЦен.ОткрытьМодально();
Для Каждого Элемент Из РезультатВыбора Цикл 
	СписокЗначенийТиповЦен.Добавить(Элемент.Значение);
	КоличествоЦен = КоличествоЦен + 1;
КонецЦикла;

Если КоличествоЦен = 0 Тогда
	Предупреждение("Не выбран ни один тип цен!!!");	
	Возврат;
КонецЕсли;

    Нет проверки на возвращение "неопределено" в строке 4. К тому же в результате возвращает список значений, зачем создавать еще один список и все элементы переносить в него для меня загадка.
    Ну и счетчик количества элементов в цикле вместо РезультатВыбора.Количество() на десерт.

    ingenuus, 14 Марта 2011

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

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

    −92

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    ...
Запрос.Текст =
"...
|ГДЕ
|    ...
|    И ТипыЦенНоменклатуры.ПроцентСкидкиНаценки <> &Нуль
|    ...";
Запрос.УстановитьПараметр("Нуль", 0);
...

    ingenuus, 14 Марта 2011

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

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

    −133

    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
    Процедура БазоваяПриИзменении(Элемент)
		Если ЭтаФорма.ЕдОтчетов = Истина Тогда
			ЭтаФорма.ВДаллах = Ложь; 
			ЭтаФорма.ВРублях = Ложь; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		Иначе
			ЭтаФорма.ВДаллах = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		КонецЕсли;	
КонецПроцедуры
	
Процедура ВДаллахПриИзменении(Элемент)
		Если ЭтаФорма.ВДаллах = Истина Тогда
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Ложь; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		Иначе
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		КонецЕсли;	
КонецПроцедуры
	
Процедура Ед_храненияОстПриИзменении(Элемент)
		Если ЭтаФорма.Ед_храненияОст = Истина Тогда
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Ложь; 
			ЭтаФорма.ВДаллах = Ложь; 
		Иначе
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.ВДаллах = Ложь; 
		КонецЕсли;	
КонецПроцедуры
	
Процедура ВРубляхПриИзменении(Элемент)
		Если ЭтаФорма.ВРублях = Истина Тогда
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
			ЭтаФорма.ВДаллах = Ложь; 
		Иначе
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.ВДаллах = Ложь; 
		КонецЕсли;
КонецПроцедуры

    Замечательная реализация радиобаттонов через флажки

    ingenuus, 16 Декабря 2010

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

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

    −128

    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 Тогда
    Родит1=Родит.Родитель;
	Если ПустоеЗначение(Родит1.Телефон)=1 Тогда
	    Родит2=Родит1.Родитель;
			Если ПустоеЗначение(Родит2.Телефон)=1 Тогда
			     Родит3=Родит2.Родитель;
				 ТЗДок.Тел=Родит3.Телефон;
			Иначе
		    	ТЗДок.Тел=Родит2.Телефон;
			КонецЕсли;        
	Иначе
	     ТЗДок.Тел=Родит1.Телефон;
	КонецЕсли;            
Иначе
	ТЗДок.Тел=Родит.Телефон;
КонецЕсли;

    ingenuus, 24 Августа 2010

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