SAP ABAP ALV（LVC）的一个自定义事件（F4帮助事件，回车ENTER按钮事件）的一个实例

最新推荐文章于 2024-05-22 20:18:17 发布

SAP剑客

最新推荐文章于 2024-05-22 20:18:17 发布

阅读量2.2k

点赞数 1

分类专栏：程序人生 ABAPer

程序人生 ABAPer 专栏收录该内容

1330 篇文章 170 订阅

订阅专栏

1. 定义和注册事件接受器类

*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED
*----------------------------------------------------------------------*
*       LCL_EVENT_RECEIVER
*----------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION DEFERRED.
DATA gv_flg  TYPE char01.

*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_RECEIVER DEFINITION
*----------------------------------------------------------------------*
*       lcl_event_receiver的类定义：
*----------------------------------------------------------------------*
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.

    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_modify.
    DATA: lv_enter    TYPE REF TO cl_gui_event,
          lv_eventid  TYPE i.

*   获取当前事件
    lv_enter   = tem_grid->cur_event.

*   实例化成功的时候
    IF lv_enter IS NOT INITIAL.
      lv_eventid = lv_enter->eventid.
    ENDIF.

*   只有在[回车]事件的时候，再进行检查(19:代表回车事件)
    IF lv_eventid = 19
   AND sy-ucomm   = ''.

      IF p_mmvds = 'X'.
*       设置供应商描述字段和物料描述字段
        PERFORM set_name1_maktx.

*       设置后，alv稳定刷新
        PERFORM refresh_table_alv.

*       添加行项目检查（多频次包装基础表）
        PERFORM check_line_mmvds.

      ELSEIF p_detail = 'X'.
*       添加行项目检查（窗口时间表）
        PERFORM check_line_dtdetail.

      ELSEIF p_vds = 'X'.
*       设置供应商描述字段（供应商供货信息基础表）
        PERFORM set_name1_vds.

*       设置后，alv稳定刷新
        PERFORM refresh_table_alv.

*       添加行项目检查（供应商供货信息基础表）
        PERFORM check_line_vds.
      ENDIF.

    ENDIF.

*   设置后，alv稳定刷新
    PERFORM refresh_table_alv.

  ENDMETHOD.                    "HANDLE_MODIFY


  METHOD  handle_f4.
*   供应商供货信息基础表的情况
    IF p_vds = 'X'.
*     窗口时间参数的自定义f4检索帮助
      PERFORM f4_help_zsjcs USING e_fieldname
                                  es_row_no.

*     设置后，alv稳定刷新
      PERFORM refresh_table_alv.

    ENDIF.

  ENDMETHOD.                    "HANDLE_F4

ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION

2. 调用alv函数

**EVENT LAYOUT
  DATA: ls_events     TYPE slis_alv_event,
        lt_event      TYPE slis_t_event,
        ls_layout     TYPE lvc_s_layo.

  ls_events-name = 'CALLER_EXIT'.
  ls_events-form = 'FM_BUTTON'.
  APPEND ls_events TO lt_event.

  ls_layout-stylefname = 'FIELD_STYL'.
  ls_layout-zebra      = 'X'.
  ls_layout-box_fname  = 'CHK_BOX'.
  ls_layout-cwidth_opt = 'X'.


  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'PF_STATUS_SET'
      i_callback_user_command  = 'USER_COMMAND'
      is_layout_lvc            = ls_layout
      it_fieldcat_lvc          = gt_fieldcat_lvc
      i_save                   = 'X'
      it_events                = lt_event
    TABLES
      t_outtab                 = pt_outdata
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.

3. 定义是事件子程序

*&---------------------------------------------------------------------*
*&      Form  FM_BUTTON
*&---------------------------------------------------------------------*
*       设置enter事件
*----------------------------------------------------------------------*
*      -->E_GRID     text
*----------------------------------------------------------------------*
FORM fm_button USING e_grid TYPE slis_data_caller_exit.
  DATA: lv_event_receiver TYPE REF TO lcl_event_receiver,
        lt_f4             TYPE lvc_t_f4,
        ls_f4             TYPE lvc_s_f4.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = tem_grid.

* 设置enter事件
  CALL METHOD tem_grid->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_enter
    EXCEPTIONS
      error      = 1
      OTHERS     = 2.

  CREATE OBJECT lv_event_receiver.
  SET HANDLER lv_event_receiver->handle_modify FOR tem_grid.


* 设置f4事件
  CHECK gv_flg IS INITIAL.

  gv_flg = 'X'.

  ls_f4-fieldname  = 'ZSJCS'.   "窗口时间参数（需要定义F4帮助按钮的字段）
  ls_f4-register   = 'X'.
  ls_f4-getbefore  = 'X'.
  ls_f4-chngeafter = 'X'.
  INSERT ls_f4 INTO TABLE lt_f4.

  CREATE OBJECT lv_event_receiver.
  SET HANDLER lv_event_receiver->handle_f4 FOR tem_grid.

  CALL METHOD tem_grid->register_f4_for_fields
    EXPORTING
      it_f4 = lt_f4[].

ENDFORM.                    "FM_BUTTON

4. 定义alv-status子程序

*&---------------------------------------------------------------------*
*&      Form  PF_STATUS_SET
*&---------------------------------------------------------------------*
*       status设定
*----------------------------------------------------------------------*
*      -->RT_EXTAB   text
*----------------------------------------------------------------------*
FORM pf_status_set USING rt_extab TYPE slis_t_extab.

  SET PF-STATUS 'STATUS_ALV'.

ENDFORM.                    "PF_STATUS_SET

5. 定义alv-comman子程序

*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND
*&---------------------------------------------------------------------*
*       USER COMMMAND
*----------------------------------------------------------------------*
*      -->P_UCOMM      text
*      -->PS_SELFIELD  text
*----------------------------------------------------------------------*
FORM user_command USING ucomm    LIKE sy-ucomm
                        selfield TYPE slis_selfield.

  DATA l_grid TYPE REF TO cl_gui_alv_grid.
*------------将ALV上修改的内容保存到内表---------------------------------*
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = l_grid.
  CALL METHOD l_grid->check_changed_data.


  CASE ucomm.
*   [行项目追加]按钮
    WHEN 'CREATE'.
*     多频次包装基础表
      IF p_mmvds = 'X'.
*       添加行项目（多频次包装基础表）
        PERFORM cteate_line_mmvds.

*     窗口时间基础表
      ELSEIF p_detail = 'X'.
*       添加行项目（窗口时间基础表）
        PERFORM cteate_line_dtdetail.

*     供应商供货信息基础表
      ELSEIF p_vds = 'X'.
*       添加行项目（供应商供货信息基础表）
        PERFORM cteate_line_vds.

      ENDIF.

      selfield-refresh = 'X'.      "将更新后内表的数据反馈到alv画面，自动刷新功能

*   [行项目删除]按钮
    WHEN 'DELETE'.
*     多频次包装基础表
      IF p_mmvds = 'X'.
*       删除行项目（多频次包装基础表）
        PERFORM delete_line_mmvds.

*     窗口时间基础表
      ELSEIF p_detail = 'X'.
*       删除行项目（窗口时间基础表）
        PERFORM delete_line_dtdetail.

*     供应商供货信息基础表
      ELSEIF p_vds = 'X'.
*       删除行项目（供应商供货信息基础表）
        PERFORM delete_line_vds.

      ENDIF.

      selfield-refresh = 'X'. "将更新后内表的数据反馈到alv画面，自动刷新功能

*   [保存]按钮
    WHEN 'SAVE'.
*     多频次包装基础表
      IF p_mmvds = 'X'.
*       保存处理（多频次包装基础表）
        PERFORM save_data_mmvds.

*     窗口时间基础表
      ELSEIF p_detail = 'X'.
*       保存处理（窗口时间基础表）
        PERFORM save_data_dtdetail.

*     供应商供货信息基础表
      ELSEIF p_vds = 'X'.
*       保存处理（供应商供货信息基础表）
        PERFORM save_data_vds.

      ENDIF.

  ENDCASE.

*------------将ALV上修改的内容保存到内表---------------------------------*
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = l_grid.
  CALL METHOD l_grid->check_changed_data.

ENDFORM.                    "USER_COMMAND

6. 其他子程序定义

*&---------------------------------------------------------------------*
*&      Form  REFRESH_TABLE_ALV
*&---------------------------------------------------------------------*
*       设置后，alv稳定刷新
*----------------------------------------------------------------------*
FORM refresh_table_alv .
  DATA: stbl        TYPE lvc_s_stbl.
*
  stbl-row = 'X'." 基于行的稳定刷新
  stbl-col = 'X'." 基于列稳定刷新
  CALL METHOD tem_grid->refresh_table_display
    EXPORTING
      is_stable = stbl.

ENDFORM.                    " REFRESH_TABLE_ALV

*&---------------------------------------------------------------------*
*&      Form  F4_HELP_ZSJCS
*&---------------------------------------------------------------------*
*       窗口时间参数的自定义f4检索帮助
*----------------------------------------------------------------------*
FORM f4_help_zsjcs USING p_fieldname  TYPE lvc_fname
                         p_row_no     TYPE lvc_s_roid.
  DATA: lt_dtdetail TYPE STANDARD TABLE OF ztpp_dtdetail,
        lt_return   TYPE STANDARD TABLE OF ddshretval,
        ls_return   TYPE ddshretval.

  CLEAR gw_vds.
  READ TABLE gt_vds INTO gw_vds INDEX p_row_no-row_id.

  IF p_fieldname = 'ZSJCS'.

    SELECT *
      INTO TABLE lt_dtdetail
      FROM ztpp_dtdetail
     WHERE werks = gw_vds-werks.

    SORT lt_dtdetail BY werks zsjcs.
    DELETE ADJACENT DUPLICATES FROM lt_dtdetail
                          COMPARING werks zsjcs.

  ENDIF.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield         = 'ZSJCS'            "lt内表里面的字段
      dynpprog         = sy-repid
      dynpnr           = sy-dynnr
      dynprofield      = 'ZSJCS'            "画面上绑定字段
      value_org        = 'S'
      callback_program = sy-repid
    TABLES
      value_tab        = lt_dtdetail        "需要显示帮助的值内表
      return_tab       = lt_return          "返回值
    EXCEPTIONS
      parameter_error  = 1
      no_values_found  = 2
      OTHERS           = 3.


  IF sy-subrc = 0.
    READ TABLE lt_return INTO ls_return INDEX 1.
    gw_vds-zsjcs = ls_return-fieldval.
    MODIFY gt_vds FROM gw_vds INDEX p_row_no-row_id
                       TRANSPORTING zsjcs.
  ENDIF.

ENDFORM.                    " F4_HELP_ZSJCS