ALV屏幕捕捉回车及下拉框事件&ALV弹出框回车及下拉框事件

示例展示：

屏幕依据输入的物料编码或下拉框物料编码拍回车自动带出物料描述：

点击弹出框，输入物料编码拍回车带出物料描述，点击确认，更新ALV：

 

 

1.创建屏幕9000，用于处理ALV弹出框：

2.针对屏幕9000画屏幕如下：

3.屏幕属性如下：

4.为屏幕9000设置OK_CODE接收屏幕回传值：

5.为屏幕9000设置状态栏，下拉框列表，命令执行：

6.为屏幕1000设置AG1状态栏

7.为屏幕9000设置AG2状态栏(ENTER用于接收弹出框回车事件)：

8.全部代码如下：

*&---------------------------------------------------------------------*
*& Report ZTEST2
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST2.
TABLES: vbak,vbap.


TYPE-POOLS: slis.


DATA:t_fieldcat TYPE lvc_t_fcat,
     w_fieldcat TYPE lvc_s_fcat,
     t_layout TYPE lvc_s_layo.

DATA: gt_event TYPE slis_t_event,
      gs_event LIKE LINE OF gt_event.

DATA:  ref_grid TYPE REF TO cl_gui_alv_grid.
DATA:  stbl TYPE lvc_s_stbl.


DATA:  le_row     TYPE i,
       le_value   TYPE c,
       le_col     TYPE i,
       les_row_id TYPE lvc_s_row,
       les_col_id TYPE lvc_s_col,
       les_row_no TYPE lvc_s_roid.

DATA gv_smart TYPE rs38l_fnam.

DATA: ok_code(3).


TYPES:BEGIN OF ty_result,
     vbeln    TYPE vbak-vbeln,   "so
     posnr    TYPE vbap-posnr,   "项目
     ckbox    TYPE char1,
     matnr    TYPE makt-matnr,
     dlmatnr  TYPE makt-matnr,
     maktx    TYPE makt-maktx,
     dd_handle TYPE int4,

END OF ty_result.


DATA: gt_ddval TYPE lvc_t_drop,
      gw_ddval TYPE lvc_s_drop.

DATA:t_result TYPE TABLE OF ty_result.
DATA:w_result TYPE ty_result.

DATA:parvw TYPE C LENGTH 2.

TYPES:BEGIN OF ty_vbakp,
    vbeln TYPE vbak-vbeln,   "so
    posnr TYPE vbap-posnr,   "项目
END OF ty_vbakp.

DATA:t_vbakp TYPE TABLE OF ty_vbakp,
     w_vbakp TYPE ty_vbakp.

DATA:t_vbpa TYPE STANDARD TABLE OF vbpa,
     w_vbpa TYPE vbpa.
DATA:rt_extab TYPE slis_t_extab.

SELECTION-SCREEN:BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_vbeln FOR vbak-vbeln.
 SELECTION-SCREEN:END OF BLOCK a1.
CLASS lcl_event_receiver DEFINITION.

  PUBLIC SECTION.

    METHODS handle_modify

    FOR EVENT data_changed_finished OF cl_gui_alv_grid

    IMPORTING e_modified et_good_cells.

ENDCLASS.                    "LCL_EVENT_RECEIVER DEFINITION


CLASS lcl_event_receiver IMPLEMENTATION.

  METHOD handle_modify.
*    PERFORM refresh.
* Get the Current Cell
    CALL METHOD ref_grid->get_current_cell
      IMPORTING
        E_ROW     = le_row
        E_VALUE   = le_value
        E_COL     = le_col
        ES_ROW_ID = les_row_id
        ES_COL_ID = les_col_id
        ES_ROW_NO = les_row_no.

    READ TABLE t_result INTO w_result INDEX les_row_id-index.

    IF sy-subrc = 0.
    SELECT SINGLE maktx INTO w_result-maktx FROM makt WHERE matnr = w_result-matnr OR matnr = w_result-dlmatnr.
    MODIFY t_result FROM w_result INDEX les_row_id-index.
    stbl-row = 'X'." 基于行的稳定刷新
    stbl-col = 'X'." 基于列稳定刷新

    CALL METHOD ref_grid->refresh_table_display
      EXPORTING
        is_stable = stbl.
    ENDIF.
  ENDMETHOD.                    "HANDLE_MODIFY

ENDCLASS.

START-OF-SELECTION.
*-----------------------获取数据
  PERFORM frm_get_data.



*-------------------------处理数据
  PERFORM frm_handle_data.
 IF t_result IS NOT INITIAL.
    PERFORM frm_alv_show.
  ELSE.
    MESSAGE '没有符合的数据，请重新查询' TYPE 'S' DISPLAY LIKE 'E'.
  ENDIF.

END-OF-SELECTION.

FORM frm_get_data .
  SELECT * INTO CORRESPONDING FIELDS OF TABLE t_vbakp UP TO 5 ROWS
           FROM vbak
                JOIN vbap ON vbak~vbeln = vbap~vbeln
                WHERE vbak~vbeln IN s_vbeln.

ENDFORM.

FORM frm_handle_data .
  CLEAR w_vbakp.
  LOOP AT t_vbakp INTO w_vbakp.
    w_result-vbeln = w_vbakp-vbeln.
    w_result-posnr = w_vbakp-posnr.

    APPEND w_result TO t_result.
    CLEAR w_result.
  ENDLOOP.
ENDFORM.                    " FRM_HANDLE_DATA

*------展示ALV
FORM frm_alv_show.
  PERFORM frm_init_layout.
  PERFORM frm_set_fieldset.
  PERFORM create_dropdown_values.
  PERFORM frm_set_event.
  PERFORM frm_output_alv.
  PERFORM f_status USING rt_extab.
ENDFORM.

*------初始化ALV布局，可以自动根据数据长度调整列宽
FORM frm_init_layout.
  t_layout-zebra = 'X'.
  t_layout-box_fname = 'ckbox'.
ENDFORM.

*------该子程序主要用于设置ALV字段
FORM frm_set_fieldset.
  PERFORM frm_init_fieldcat USING  'VBELN' '销售凭证'    'X'   ''  10 ''.
  PERFORM frm_init_fieldcat USING  'POSNR' '项目'        'X'   ''  4  ''.
  PERFORM frm_init_fieldcat USING  'MATNR' '物料编码'        space   'X' 20 ''.
  PERFORM frm_init_fieldcat USING  'DLMATNR' '物料编码'        space   'X' 20 'DD_HANDLE'.
  PERFORM frm_init_fieldcat USING  'MAKTX' '物料描述'     space   ''  40 ''.


ENDFORM.

FORM frm_init_fieldcat USING fieldcatname     LIKE w_fieldcat-fieldname
                                  seltext      LIKE w_fieldcat-scrtext_l
                                  selkey       LIKE w_fieldcat-key
                                  edit         LIKE w_fieldcat-edit
                                  len          LIKE w_fieldcat-outputlen
                                  drdn_field   LIKE w_fieldcat-drdn_field.
                                  .
  CLEAR w_fieldcat.
  w_fieldcat-fieldname  = fieldcatname .
  w_fieldcat-scrtext_l  = seltext.
  w_fieldcat-key        = selkey.
  w_fieldcat-edit       = edit.
  w_fieldcat-outputlen  = len.
  w_fieldcat-drdn_field = drdn_field.
  APPEND w_fieldcat TO t_fieldcat.

ENDFORM.

FORM frm_output_alv .

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'F_STATUS '
      i_callback_user_command  = 'ALV_USER_COMMAND'
      is_layout_lvc            = t_layout
      it_fieldcat_lvc          = t_fieldcat
      i_default                = 'X'
      i_save                   = 'A'
     IT_EVENTS                = gt_event
    TABLES
      t_outtab                 = t_result
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
  IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.

FORM f_status USING rt_extab TYPE slis_t_extab.   
SET PF-STATUS 'AG1' EXCLUDING rt_extab.                             
"frm_platform_o
ENDFORM.

FORM alv_user_command USING r_ucomm LIKE sy-ucomm                        rs_selfield 
TYPE slis_selfield.    

CASE r_ucomm.     
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.       
LEAVE TO SCREEN 0.     
WHEN '&IC1'."双击       
IF rs_selfield-fieldname  = 'VBELN'.         
READ TABLE t_result INTO w_result INDEX rs_selfield-tabindex.         
SET PARAMETER ID 'AUN' FIELD rs_selfield-value.         
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.         
CLEAR w_result.       
ENDIF.     
WHEN 'DIALOG'.       
CALL SCREEN 9000 STARTING AT 20 10 ENDING AT  108  20 .       
CHECK ok_code EQ 'YES'.       
CLEAR ok_code.       
PERFORM save_matnr.   

ENDCASE.

ENDFORM.

FORM frm_set_event.   
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'    
EXPORTING      I_LIST_TYPE   
= 0    
IMPORTING      ET_EVENTS     
= gt_event    
EXCEPTIONS      LIST_TYPE_WRONG 
= 1      
OTHERS          = 2.    

IF SY-SUBRC <> 0.      
MESSAGE ID SY-MSGID         
TYPE SY-MSGTY         
NUMBER SY-MSGNO         
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.    
ENDIF.   gs_event


-name = 'CALLER_EXIT'.   "slis_ev_caller_exit_at_start事件   gs_event

-FORM = 'FM_BUTTON'.   

APPEND gs_event TO gt_event .


ENDFORM.


FORM fm_button USING e_grid TYPE slis_data_caller_exit.   

DATA gt_event_receiver TYPE REF TO lcl_event_receiver .   

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'   
IMPORTING     e_grid                           
= ref_grid.

*设置Dropdown List事件   
CALL METHOD ref_grid->set_drop_down_table   
EXPORTING     it_drop_down 
= gt_ddval.



* 设置enter事件   

CALL METHOD ref_grid->register_edit_event     

EXPORTING       i_event_id 

= cl_gui_alv_grid=>mc_evt_enter     

EXCEPTIONS       error      

= 1       

OTHERS     = 2.   

CREATE OBJECT gt_event_receiver.   

SET HANDLER   gt_event_receiver->handle_modify FOR ref_grid.

ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  BRING_MAKTX
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*

DATA: p-maktx TYPE makt-maktx,       p
-matnr TYPE makt-matnr.

FORM BRING_MAKTX .   

SELECT SINGLE maktx INTO p-maktx From makt WHERE matnr = p-matnr.


ENDFORM.

*&---------------------------------------------------------------------*
*&      Module  LISTBOX_MATNR  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE LISTBOX_MATNR OUTPUT.   

TYPE-POOLS vrm.    
DATA: vid TYPE vrm_id VALUE 'P-MATNR',         vlist 
TYPE vrm_values,         l_matnr 
TYPE mara-matnr,          values 
LIKE LINE OF vlist.    
CLEAR vlist.    
CLEAR values.    

SELECT DISTINCT matnr INTO l_matnr FROM mara UP TO 10 ROWS WHERE matnr LIKE 'AA%'.      values
-key = l_matnr.      
APPEND values TO vlist.      
CLEAR values.    
ENDSELECT.    

CALL FUNCTION 'VRM_SET_VALUES'      
EXPORTING        
id              = vid        values          
= vlist      
EXCEPTIONS        id_illegal_name 
= 1        
OTHERS          = 2.    
IF sy-subrc <> 0.      
MESSAGE '下拉框出错，请联系管理员！' TYPE 'I' DISPLAY LIKE 'S'.    
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_9000 OUTPUT.   
SET PF-STATUS 'AG2'.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9000 INPUT.   

DATA lv_ok(3).   lv_ok 

= ok_code.   

CASE lv_ok.     
WHEN 'YES' OR '&F1' OR 'CAN'.       
LEAVE TO SCREEN 0.     
WHEN 'ENT'.       
PERFORM bring_maktx.     

WHEN OTHERS.   
ENDCASE.


ENDMODULE.
*&---------------------------------------------------------------------*
*&      Form  SAVE_MATNR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SAVE_MATNR .   

LOOP AT t_result INTO w_result WHERE ckbox = 'X'.     w_result

-matnr = p-matnr.     w_result
-dlmatnr = p-matnr.     w_result
-maktx = p-maktx.     
MODIFY t_result FROM w_result.     
CLEAR w_result.   
ENDLOOP.   

CLEAR ref_grid.   
CLEAR stbl.   stbl
-col = 'X'.   
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'     
IMPORTING       e_grid 
= ref_grid.   

CALL METHOD ref_grid->check_changed_data.   

CALL METHOD ref_grid->refresh_table_display   
EXPORTING     is_stable 
= stbl     i_soft_refresh 
= 'X'.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  CREATE_DROPDOWN_VALUES
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CREATE_DROPDOWN_VALUES .   
CLEAR w_result.   
DATA: l_line  TYPE i VALUE 0,         l_matnr 
TYPE makt-matnr.   

LOOP AT t_result INTO w_result.     
ADD 1 TO l_line.     

SELECT DISTINCT matnr INTO l_matnr UP TO 10 ROWS FROM makt WHERE matnr LIKE 'AA%'.       gw_ddval
-handle = l_line.       gw_ddval
-value  = l_matnr.       
APPEND gw_ddval TO gt_ddval.     
ENDSELECT.     
CLEAR gw_ddval.     w_result

-dd_handle = l_line.     
MODIFY t_result FROM w_result.     
CLEAR w_result.   
ENDLOOP.

ENDFORM.

 

9.设置屏幕显示字段名称：