ListBox联动

REPORT zabapgit_test_ssl.


PARAMETERS:
  listbox  AS LISTBOX VISIBLE LENGTH 10 OBLIGATORY USER-COMMAND zzz,
  listbox1 AS LISTBOX VISIBLE LENGTH 10.


"AT SELECTION-SCREEN OUTPUT.
"AT SELECTION-SCREEN.

INITIALIZATION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR listbox.
  DATA:
    name  TYPE vrm_id,
    list  TYPE vrm_values,
    "list1  TYPE vrm_values,
    value TYPE vrm_value.
  CLEAR: list.
  name = 'LISTBOX'. " Name should be in UPPER CASE

  value-key = '1'.
  value-text = 'Text 1'.
  APPEND value TO list.
  value-key = '2'.
  value-text = 'Text 2'.
  APPEND value TO list.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = name
      values          = list
    EXCEPTIONS
      id_illegal_name = 0
      OTHERS          = 0.
  CLEAR listbox1.

AT SELECTION-SCREEN .
  DATA:
    name  TYPE vrm_id,
    "list  TYPE vrm_values,
    list1 TYPE vrm_values,
    value TYPE vrm_value.
  CLEAR list1.
  clear listbox1.
  name = 'LISTBOX1'. " Name should be in UPPER CASE
  IF listbox = '1'.
    value-key = '1'.
    value-text = 'Text 10'.
    APPEND value TO list1.
  ELSE.
    value-key = '2'.
    value-text = 'Text 20'.
    APPEND value TO list1.
  ENDIF.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = name
      values          = list1
    EXCEPTIONS
      id_illegal_name = 0
      OTHERS          = 0.