CLASS_ALV_F4_LISTBOX ALV显示界面下拉LIST

导读：
　　
　　
　　REPORT z_barry_class_alv_f4_listbox.
　　TYPE-POOLS: rsds.
　　DATA: BEGIN OF itab OCCURS 0 ,
　　mblnr LIKE mseg-mblnr ,
　　kostl LIKE mseg-kostl ,
　　bwart LIKE mseg-bwart ,
　　handle_drdn ,
　　END OF itab .
　　DATA: ok_code LIKE sy-ucomm .
　　DATA: l_valid(1) TYPE c.
　　DATA: go_grid TYPE REF TO cl_gui_alv_grid,
　　go_custom_container TYPE REF TO cl_gui_custom_container.
　　DATA: gt_fieldcat TYPE lvc_t_fcat,
　　gs_fieldcat TYPE lvc_s_fcat,
　　gs_variant TYPE disvariant ,
　　gt_sort TYPE lvc_t_sort,
　　gs_sort TYPE lvc_s_sort,
　　gt_filt TYPE lvc_t_filt,
　　gs_filt TYPE lvc_s_filt,
　　ls_cell TYPE lvc_s_styl,
　　sla TYPE lvc_s_layo,
　　gt_f4 TYPE lvc_t_f4,
　　gs_f4 TYPE lvc_s_f4.
　　*---------------------------------------------------------------------*
　　* CLASS lcl_event_receiver DEFINITION
　　*---------------------------------------------------------------------*
　　CLASS lcl_event_receiver DEFINITION.
　　PUBLIC SECTION.
　　METHODS handle_f4
　　FOR EVENT onf4 OF cl_gui_alv_grid
　　IMPORTING e_fieldname
　　es_row_no
　　er_event_data
　　et_bad_cells.
　　ENDCLASS. "lcl_event_receiver DEFINITION
　　*---------------------------------------------------------------------*
　　* CLASS lcl_event_receiver IMPLEMENTATION
　　*---------------------------------------------------------------------*
　　CLASS lcl_event_receiver IMPLEMENTATION.
　　METHOD handle_f4.
　　PERFORM f4 USING e_fieldname
　　es_row_no
　　er_event_data
　　et_bad_cells.
　　ENDMETHOD. "handle_f4
　　ENDCLASS. "lcl_event_receiver IMPLEMENTATION
　　DATA: event_receiver TYPE REF TO lcl_event_receiver.
　　INITIALIZATION.
　　* gd_repid = sy-repid.
　　PERFORM fieldcat_init USING gt_fieldcat[].
　　START-OF-SELECTION.
　　CALL SCREEN '100'.
　　*&---