1. C++ / Говнокод #9726

    +995

    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
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    Для Каждого ТекСтрокаТовары Из ЭтотОбъект.Товары Цикл
		
      //Товары в резерве на складах
      Если ЗначениеЗаполнено(ЭтотОбъект.ЗаказПокупателя) Тогда

        ЗапросРезерв = Новый Запрос;
        ЗапросРезерв.УстановитьПараметр("Период", КонецДня(ЭтотОбъект.Дата));
        ЗапросРезерв.УстановитьПараметр("Склад", ЭтотОбъект.Склад);
        ЗапросРезерв.УстановитьПараметр("Номенклатура", ТекСтрокаТовары.Номенклатура);
	ЗапросРезерв.УстановитьПараметр("Цвет", ТекСтрокаТовары.Цвет);
	ЗапросРезерв.УстановитьПараметр("Регистратор", ЭтотОбъект.ЗаказПокупателя.Ссылка);
	ЗапросРезерв.Текст = "ВЫБРАТЬ
	|	ТоварыВРезервеНаСкладах.Номенклатура,
	|	isnull(ТоварыВРезервеНаСкладах.Количество, 0) КАК Количество,
	|	isnull(ТоварыВРезервеНаСкладах.Размер42, 0) КАК Размер42,
	|	isnull(ТоварыВРезервеНаСкладах.Размер44, 0) КАК Размер44,
	|	isnull(ТоварыВРезервеНаСкладах.Размер46, 0) КАК Размер46,
	|	isnull(ТоварыВРезервеНаСкладах.Размер48, 0) КАК Размер48,
	|	isnull(ТоварыВРезервеНаСкладах.Размер50, 0) КАК Размер50,
	|	isnull(ТоварыВРезервеНаСкладах.Размер52, 0) КАК Размер52,
	|	isnull(ТоварыВРезервеНаСкладах.Размер54, 0) КАК Размер54,
	|	isnull(ТоварыВРезервеНаСкладах.Размер56, 0) КАК Размер56,
	|	isnull(ТоварыВРезервеНаСкладах.Размер58, 0) КАК Размер58,
	|	isnull(ТоварыВРезервеНаСкладах.Размер60, 0) КАК Размер60
	|ИЗ
	|	РегистрНакопления.ТоварыВРезервеНаСкладах КАК ТоварыВРезервеНаСкладах
	|ГДЕ
	|	ТоварыВРезервеНаСкладах.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
	|	ТоварыВРезервеНаСкладах.Период <= &Период
	|	И ТоварыВРезервеНаСкладах.Регистратор = &Регистратор
	|	И ТоварыВРезервеНаСкладах.Склад = &Склад
	|	И ТоварыВРезервеНаСкладах.Номенклатура = &Номенклатура
	|	И ТоварыВРезервеНаСкладах.Цвет = &Цвет";
	ТЗРезерв = ЗапросРезерв.Выполнить().Выгрузить();
			
	Если ЗапросРезерв.Выполнить().Пустой() = Истина Тогда
	Иначе
		ЗапросСнятие = Новый Запрос;
		ЗапросСнятие.УстановитьПараметр("Период", КонецДня(ЭтотОбъект.Дата));
		ЗапросСнятие.УстановитьПараметр("Склад", ЭтотОбъект.Склад);
		ЗапросСнятие.УстановитьПараметр("Номенклатура", ТекСтрокаТовары.Номенклатура);
		ЗапросСнятие.УстановитьПараметр("Цвет", ТекСтрокаТовары.Цвет);
		ЗапросСнятие.УстановитьПараметр("ДокументРезерва", ЭтотОбъект.ЗаказПокупателя.Ссылка);
		ЗапросСнятие.Текст = "ВЫБРАТЬ
		|	ТоварыВРезервеНаСкладах.Номенклатура,
		|	isnull(ТоварыВРезервеНаСкладах.Количество, 0) КАК Количество,
		|	isnull(ТоварыВРезервеНаСкладах.Размер42, 0) КАК Размер42,
				.....
		|	isnull(ТоварыВРезервеНаСкладах.Размер60, 0) КАК Размер60			
		|ИЗ
		|	РегистрНакопления.ТоварыВРезервеНаСкладах КАК ТоварыВРезервеНаСкладах
		|ГДЕ
		|	ТоварыВРезервеНаСкладах.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
		|	И ТоварыВРезервеНаСкладах.ДокументРезерва = &ДокументРезерва
		|	И ТоварыВРезервеНаСкладах.Период = &Период
		|	И ТоварыВРезервеНаСкладах.Склад = &Склад
		|	И ТоварыВРезервеНаСкладах.Номенклатура = &Номенклатура
		|	И ТоварыВРезервеНаСкладах.Цвет = &Цвет";
		ТЗСнятие = ЗапросСнятие.Выполнить().Выгрузить();
				
		//Товары в резерве на складах
		Движение = Движения.ТоварыВРезервеНаСкладах.Добавить();
		Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
		Движение.Период = Дата;
		Движение.Склад = ЭтотОбъект.Склад; 
		Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
		Движение.ДокументРезерва = ЭтотОбъект.ЗаказПокупателя.Ссылка;
		Движение.Цвет = ТекСтрокаТовары.Цвет;
		//42
		Если ТЗРезерв.Итог("Размер42") - ТЗСнятие.Итог("Размер42") > 0 Тогда
			Если ТЗРезерв.Итог("Размер42") - ТЗСнятие.Итог("Размер42") > ТекСтрокаТовары.Количество Тогда
				Движение.Размер42 = ТекСтрокаТовары.Размер42;
			Иначе
				Движение.Размер42 = ТЗРезерв.Итог("Размер42") - ТЗСнятие.Итог("Размер42");
			КонецЕсли;
		КонецЕсли;      
		...
                //И так до 60го размера

    Нашел у себя эту простыню. Чтобы вычислить остатки по резерву - делается запрос по движения со знаком плюс, потом запрос с движениями по минус.
    Далее все это дело выгружается в две таблицы значений и высчитывается разность колонок. Вместо простого запроса по регистру остатков) Ну и много чего интересного)

    Запостил: ErrorEd88, 21 Марта 2012

    Комментарии (16) RSS

    • ava ErrorEd88 21.03.2012 23:29 # 0

      А как отредактировать - поменять язык?
      Ответить

      • ava roman-kashitsyn 22.03.2012 07:48 # +6

        Да, я тоже хочу такую опцию в текстовом редакторе:
        1. Пишешь проект на английском языке.
        2. Tools -> Change Language -> Java.
        3. ...
        4. PROFIT!!!
        Ответить

        • ava Lure Of Chaos 22.03.2012 18:51 # +2

          почему на английском? сразу - на русском!
          упс, мы, правда, рискуем получить 1С
          Ответить

      • ava i-ale 22.03.2012 08:06 # +2

        Не вини себя! Это авторы этого проекта говнокодеры не смогли по синтаксису определять и выдавать предупреждение о не соответствии.
        Ответить

        • ava absolut 23.03.2012 10:34 # 0

          И сразу бы канули в Лету вопросы : "где здесь c++"
          Ответить

          • ava defecate-plusplus 23.03.2012 10:39 # +1

            дело за малым - осталось только написать годный парсер, отличающий произвольный кусок кода на С от С++
            Ответить

    • ava SmackMyBitchUp 22.03.2012 11:47 # +1

      >69 //42
      комментарий объясняет все, других и не надо
      Ответить

    • ava TarasB 22.03.2012 12:15 # +3

      Сразу видно, крестоблядский код.
      Ответить

    • ava eth0 22.03.2012 13:18 # +4

      > isnull
      Прям как нерусские делали.
      Ответить

    • ava Говногость 29.03.2012 13:32 # 0

      Не соизволите ли вы сказать нам, где тут С++?
      Ответить

    • ava ryadovoy 03.04.2012 23:57 # +1

      Хорошо, что английский для меня не родной, а то бы код на C++ читался так-же дико, как этот код на 1C
      Для Каждого ТекСтрокаТовары Из ЭтотОбъект.Товары Цикл - ужос :)
      Ответить

    • ava guest8 09.04.2019 12:52 # −999

      показать все, что скрытоvanished
      Ответить

    Добавить комментарий