Создание выпадающего меню

Nesteroff

Время доброе! Появилась необходимость создать выпадающий список с несколькими позициями, не содержащимися ни в одной таблице.
Допустим, выбрать тип документа, по которому будет создаваться отчет. Ставить семь checkbox`ов не умно, создавать свою таблицу -- хлопотно и не совсем верно, как мне кажется. Есть ли такая функция в GUI? Заранее благодарен.

Uukrul

Nesteroff написал(а):

Время доброе! Появилась необходимость создать выпадающий список с несколькими позициями, не содержащимися ни в одной таблице.
Допустим, выбрать тип документа, по которому будет создаваться отчет. Ставить семь checkbox`ов не умно, создавать свою таблицу -- хлопотно и не совсем верно, как мне кажется. Есть ли такая функция в GUI? Заранее благодарен.

А чем тебе поле ввода куда задаются типы обрабатываемых документов сделать или выпадающий лист-бокс если выборка всегда идет по одному виду документа... или еще много чего можно придумать... кстати 7 чекбоксов это даже ничего так себе и много если их красиво разместить

Clarus

Создай домен с фиксированными значениями и используй его в своем отчете.

Nesteroff

А возможно ли обойтись без создания доменов (кстати, почему именно домена?), таблиц и т.п.?

Clarus

Nesteroff написал(а):

А возможно ли обойтись без создания доменов (кстати, почему именно домена?), таблиц и т.п.?

Теоретически можно сделать свое средство поиска, динамически заполнить его значениями и привязать к нужному полю. Только муторно это, для тебя домен с фиксированными значенями - оптимальный выход из положения. Захочешь в будущем добавить - добавишь значение в список домена и все, больше ничего делать не надо.

slash

Code:

      DATA: list TYPE vrm_values,
            value LIKE LINE OF list.
      REFRESH list.
      CLEAR list.

      value-key = '1'.
      value-text = 'First'.
      APPEND value TO list.
      value-key = '2'.
      value-text = 'Second'.
      APPEND value TO list.
      value-key = '3'.
      value-text = 'Third'.
      APPEND value TO list.
      value-key = '4'.
      value-text = '4th'.
      APPEND value TO list.
      value-key = '5'.
      value-text = 'Accesories'.
      APPEND value TO list.

      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          id     = 'SEL_RLEVEL'
          values = list.

Nesteroff

А дальше If value=N ... и сами formы?
Правильно понял?

Nesteroff

Попробовал -- не работает.
Сначала ругалася на vrm_values, написал -- TYPE-POOLS VRM. -- перестало. Только вот на экране выпадающего списка нет.
Нутром чую, что чего-то не хватает, а вот чего? Господа гуру и гурукалы, помогайте...

MilAndAl1

SEL_RLEVEL - это параметр, объявленный как LISTBOX, что-то вроде

PARAMETER sel_rlevel(10) TYPE C AS LISTBOX VISIBLE LENGTH 10.

Nesteroff

Поставил -- получилось. Спасибо!

Для тех, кто потопчется по тем же граблям

"вывешиваю" рабочий код:

Code:

...
TYPE-POOLS VRM .

 DATA: list TYPE vrm_values,
       val LIKE LINE OF list,
       F_CENA TYPE F, NETWR LIKE VBAP-NETWR,
       MODE(5) TYPE C, BNAME LIKE VBAK-BNAME, ERDAT LIKE VBAP-ERDAT,
       TVBAK LIKE TABLE OF VBAK WITH HEADER LINE,
       TVBAP LIKE TABLE OF VBAP WITH HEADER LINE,
       TVBRK LIKE TABLE OF VBRK WITH HEADER LINE,
       TVBRP LIKE TABLE OF VBRP WITH HEADER LINE.


      REFRESH list.
      CLEAR list.

PARAMETERS: text AS LISTBOX VISIBLE LENGTH 40.


INITIALIZATION.
      text = val-text.
      val-key = '1'.
      val-text = 'Внутреннее перемещение'.
      APPEND val TO list.
      val-key = '2'.
      val-text = 'Накладная с НДС'.
      APPEND val TO list.
      val-key = '3'.
      val-text = 'Накладная без НДС'.
      APPEND val TO list.
      val-key = '4'.
      val-text = 'Счет-Фактура с НДС'.
      APPEND val TO list.
      val-key = '5'.
      val-text = 'Счет-фактура без НДС'.
      APPEND val TO list.
      val-key = '6'.
      val-text = 'Налоговая накладная'.
      APPEND val TO list.

      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          id     = 'text'
          values = list.
...

Nesteroff

Возникла проблемка

.Прога перебеирает последовательно все строки и присваивает последнее значение ключу. Как заставить её реагировать на выбранный параметр?

MilAndAl1

А поточнее? Где перебирает и что означает реагировать на
выбранный параметр?
Если имеется в виду, что надо присвоить начальное значение ключу,
то это так и делается: TEXT = '1'.

OlegDm

Clarus написал(а):

Nesteroff написал(а):

А возможно ли обойтись без создания доменов (кстати, почему именно домена?), таблиц и т.п.?

Теоретически можно сделать свое средство поиска, динамически заполнить его значениями и привязать к нужному полю. Только муторно это, для тебя домен с фиксированными значенями - оптимальный выход из положения. Захочешь в будущем добавить - добавишь значение в список домена и все, больше ничего делать не надо.

Да прислушайся к тому что говорит Clarus - работы на 5 мин., и специально что-то программировать не надо.

Nesteroff

Я захожу в отладку, смотрю значение val-key, а оно -- 7. В любом случае. То есть, чтобы не выбрали в меню, значение val-key становится равным 7, так как программа просто проходит по всем строкам и запоминает последнее значение.
Вот. А с таблицами я ничего не могу поделать, потому что для создания таблиц требуется ключ разработчика, а получить его достаточно сложно на данный момент.

OlegDm

Nesteroff написал(а):

Я захожу в отладку, смотрю значение val-key, а оно -- 7. В любом случае. То есть, чтобы не выбрали в меню, значение val-key становится равным 7, так как программа просто проходит по всем строкам и запоминает последнее значение.
Вот. А с таблицами я ничего не могу поделать, потому что для создания таблиц требуется ключ разработчика, а получить его достаточно сложно на данный момент.

Слушай ты что-то путаешь, выбранное значение будет сохранено у тебя в твоем селекционном параметре (у тебя он называется "text"), а не в val-key, и будет оно соответственно равно ключу (1,2,...) который ты выбрал. А в val-key само собой сохранится последний ключ который ты аппендил в list.

Правила форума

Создание выпадающего меню

Кто сейчас на конференции