Бухгалтерия / Говнокод #20080 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("НоменклатурнаяГруппа", Объект.Ссылка);
	
Запрос.Текст = 
"ВЫБРАТЬ
|	Номенклатура.Код,
|	Номенклатура.Ссылка КАК Номенклатура
|ИЗ
|	Справочник.Номенклатура КАК Номенклатура
|ГДЕ
|	Номенклатура.НоменклатурнаяГруппа.Ссылка = &НоменклатурнаяГруппа
|
|УПОРЯДОЧИТЬ ПО
|	Номенклатура";
	
ТаблицаТоваров = Запрос.Выполнить().Выгрузить();

СписокГруппы.Загрузить(ТаблицаТоваров);

БП 3.0.43.174 (но не только), типовое заполнение формы номенклатурной группы номенклатурой.

Запостил: OdinAss OdinAss, (Updated )

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

  • > ВЫБРАТЬ
    > ИЗ
    > ГДЕ
    > УПОРЯДОЧИТЬ ПО
    Боже, как же омерзительно выглядит эта калька...
    Ответить
    • Действительно, уж лучше полностью свой язык придумать, чем слепо калькировать.
      Ответить
    • А представляете, как омерзительно выглядит язык SQL для англоговорящих...
      Ответить
        • 1C не плох.

          Смешнее всего им асм.

          ДВГ АБ 0x42
          ПРЕРВ 21
          ПРГННЛЬ
          ПРГ НАЧПРОГ
          Ответить
          • А на советских машинах разве не подобный асм-на-русском был?
            Ответить
            • Был, вероятнее всего.
              Но я в ту пору был спермотозоидом, и читать еще не умел.

              ps: вообще клонов PC в восточном блоке было дофига. Помню, у меня даже была книжка про программирование под его какой-то болгарский клон. Очень теплая и ламповая: там чуваки с помощью программирования таймера и писи спикера делали музыку, например)
              Ответить
  • А что не так?
    Ну кроме мелочей вроде НоменклатурнаяГруппа.Ссылка ?
    Ответить
    • В древней БП 1.6.8.3, например, используется СправочникСписок с установленным отбором по номенклатурной группе. Там кода в 2 раза меньше и работать это ,по идее, должно быстрее.

      Если Ссылка.Пустая() Тогда
      СписокГруппы.Отбор.Код.Установить("");
      Иначе
      СписокГруппы.Отбор.Сбросить();
      СписокГруппы.Отбор.НоменклатурнаяГруппа. Установить(Ссылка);
      КонецЕсли;
      КонецЕсли;
      Ответить

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

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?


    8