SCREEN 下拉框触发事件

PROCESS BEFORE OUTPUT.
  MODULE get_data.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'CTL'
  MODULE ctl_change_tc_attr.
*&SPWIZARD: MODULE CTL_CHANGE_COL_ATTR.
  LOOP AT   lt_entry
       INTO wa
       WITH CONTROL ctl
       CURSOR ctl-current_line.
    MODULE ctl_get_lines.
*&SPWIZARD:   MODULE CTL_CHANGE_FIELD_ATTR
  ENDLOOP.

  MODULE status_0400.

*
PROCESS AFTER INPUT.
  MODULE exit AT EXIT-COMMAND.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'CTL'
  LOOP AT lt_entry.
    CHAIN.
      FIELD wa-num.
      FIELD wa-class.
      FIELD wa-matnr.
      FIELD wa-maktx.
      FIELD wa-unit1.
      FIELD wa-symbol1.
      FIELD wa-unit2.
      FIELD wa-symbol2.
      FIELD wa-unit3.
      FIELD wa-symbol3.
      FIELD wa-unit4.
      FIELD wa-price.
      FIELD wa-symbol4.
      FIELD wa-amount.
      FIELD wa-curr.
      FIELD wa-symbol5.
      FIELD wa-sum.
      MODULE ctl_modify ON CHAIN-REQUEST.
    ENDCHAIN.
    FIELD wa-line
      MODULE ctl_mark ON REQUEST.
  ENDLOOP.
  MODULE ctl_user_command.
*&SPWIZARD: MODULE CTL_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE CTL_CHANGE_COL_ATTR.

  MODULE user_command_0400.

PROCESS ON VALUE-REQUEST.

  FIELD wa-class MODULE create_dropdown_box.

  FIELD: wa-symbol1 MODULE create_symbol_dropdown,
         wa-symbol2 MODULE create_symbol_dropdown,
         wa-symbol3 MODULE create_symbol_dropdown,
         wa-symbol4 MODULE create_symbol_dropdown,
         wa-symbol5 MODULE create_symbol_dropdown.

MODULE create_symbol_dropdown INPUT.
  CLEAR symbol_value[].
  symbol_value-ch = '%'.
  APPEND symbol_value.
  symbol_value-ch = '$'.
  APPEND symbol_value.
  symbol_value-ch = '￥'.
  APPEND symbol_value.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'CH'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      value_org       = 'S'
    TABLES
      value_tab       = symbol_value[]
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDMODULE.                 " CREATE_SYMBOL_DROPDOWN  INPUT

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/22367662/viewspace-677747/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/22367662/viewspace-677747/