选择界面LISTBOX

ksaponka

REPORT Z_BARRY_LISTBOX .
TYPE-POOLS: vrm.
DATA: it_val1 TYPE vrm_values,
      it_val2 TYPE vrm_values,
      w_line LIKE LINE OF it_val1.
PARAMETERS: p_bukrs LIKE t001-bukrs AS LISTBOX VISIBLE LENGTH 25 OBLIGATORY,
            p_month LIKE t247-mnr AS LISTBOX VISIBLE LENGTH 12 OBLIGATORY.
INITIALIZATION.
  SELECT bukrs butxt FROM t001 INTO (w_line-key, w_line-text).
    APPEND w_line TO it_val1.
    CHECK p_bukrs IS INITIAL.
    p_bukrs = w_line-key.
  ENDSELECT.
  SELECT mnr ltx FROM t247 INTO (w_line-key, w_line-text) WHERE spras = sy-langu.
    APPEND w_line TO it_val2.
    CHECK p_month IS INITIAL.
    p_month = w_line-key.
  ENDSELECT.
AT SELECTION-SCREEN OUTPUT.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_BUKRS'
      values = it_val1.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_MONTH'
      values = it_val2.
END-OF-SELECTION.
  WRITE: / 'Company Code:', p_bukrs.
  WRITE: / 'Month:', p_month.


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u1/48634/showart_381970.html