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

    Всего: 1

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

    −102

    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
    68. 68
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Продукт=ВыборкаДетальныеЗаписи.Продукт;
		ЕдИзм=ВыборкаДетальныеЗаписи.ЕдИзмПродукта;
		Количество=ВыборкаДетальныеЗаписи.КолвоПродукта;
		Если Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1/2 кг" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1/2кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1\2 кг" ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1\2кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(500  гр)"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,5кг" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="(05кг)"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта/2;
			
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,7)="1/2,5кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(250 гр)" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(0,25 кг)" ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,25кг"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.25;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1/4кг." ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1/4кг"   ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1/4 кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,7)="1/4 кг."  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,4кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,3)="1/4"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.4;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="0,085 кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(0,085кг)"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.085;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,7кг"  Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.7;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(100 гр)"  Тогда
	        Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.1;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(350 гр)"  ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="350гр."  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,35кг"  ИЛИ 
			 Прав(ВыборкаДетальныеЗаписи.Продукт,7)="0,35 кг" Тогда
 	        Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.35;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(450 гр)" ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(0,45 кг)" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,45кг"  Тогда
            Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.45;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1/3кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(0,3 кг)" ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,3кг"   Тогда
		    Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.3;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="1\1,8 кг" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(0,18кг)"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.18;
		ИначеЕсли  Прав(ВыборкаДетальныеЗаписи.Продукт,8)="1/1,5 кг" Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.15;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(0,12кг)" Тогда 
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.12;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,7)="0,08 кг" Тогда 
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.08;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,7)="0,075кг" Тогда 
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.75;
		ИначеЕсли  Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,03кг" Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.03;
		ИначеЕсли  Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,23кг" Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.23;
	
		Иначе
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта;
		КонецЕсли;
		
	КонецЦикла;

    Отчет почему-то не всегда работал :)

    sipkin, 14 Мая 2012

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