- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("НоменклатурнаяГруппа", Объект.Ссылка);
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Код,
| Номенклатура.Ссылка КАК Номенклатура
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.НоменклатурнаяГруппа.Ссылка = &НоменклатурнаяГруппа
|
|УПОРЯДОЧИТЬ ПО
| Номенклатура";
ТаблицаТоваров = Запрос.Выполнить().Выгрузить();
СписокГруппы.Загрузить(ТаблицаТоваров);
БП 3.0.43.174 (но не только), типовое заполнение формы номенклатурной группы номенклатурой.
> ИЗ
> ГДЕ
> УПОРЯДОЧИТЬ ПО
Боже, как же омерзительно выглядит эта калька...
Смешнее всего им асм.
ДВГ АБ 0x42
ПРЕРВ 21
ПРГННЛЬ
ПРГ НАЧПРОГ
Но я в ту пору был спермотозоидом, и читать еще не умел.
ps: вообще клонов PC в восточном блоке было дофига. Помню, у меня даже была книжка про программирование под его какой-то болгарский клон. Очень теплая и ламповая: там чуваки с помощью программирования таймера и писи спикера делали музыку, например)
Ну кроме мелочей вроде НоменклатурнаяГруппа.Ссылка ?
Если Ссылка.Пустая() Тогда
СписокГруппы.Отбор.Код.Установить("");
Иначе
СписокГруппы.Отбор.Сбросить();
СписокГруппы.Отбор.НоменклатурнаяГруппа. Установить(Ссылка);
КонецЕсли;
КонецЕсли;