SAP ABAP FUNCTION ALV报表模板

实现ALV报表展示 快速实现的方法。

实现方案：
1：SE11创建报表需要展示的结构字段。

2.SE38创建一个 INCLUDE 程序此代码可直接copy使用。（后续报表只需要将此INCLUDE嵌入程序即可）

*&---------------------------------------------------------------------*
*& 包含               ZALV
*&---------------------------------------------------------------------*

  TYPE-POOLS:slis.
  DATA:gt_fieldcat TYPE lvc_t_fcat,
       gs_fieldcat LIKE LINE OF gt_fieldcat,
       is_layout   TYPE lvc_s_layo,
       is_variant  TYPE disvariant,
       formname    TYPE slis_formname,
       lt_events   TYPE slis_t_event , "SLIS_T_EVENT
       ls_events   TYPE slis_alv_event.

  DATA: lr_grid    TYPE REF TO cl_gui_alv_grid,
        is_stable  TYPE lvc_s_stbl,
        lc_i       TYPE i,
        es_variant TYPE disvariant,
        e_save     TYPE char1,
        gt_ddval   TYPE lvc_t_drop WITH HEADER LINE,
        lv_gui     TYPE string.

*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_HANDLER DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
  CLASS lcl_event_handler DEFINITION."类定义
    PUBLIC SECTION.
      METHODS:
        handle_data_changed FOR EVENT data_changed_finished OF cl_gui_alv_grid
          IMPORTING e_modified et_good_cells.
  ENDCLASS. "lcl_event_handler DEFINITION
*----------------------------------------------------------------------*
*       CLASS lcl_event_handler IMPLEMENTATION
*----------------------------------------------------------------------*
*       类实现
*----------------------------------------------------------------------*

  CLASS lcl_event_handler IMPLEMENTATION."类实现
    METHOD handle_data_changed.
      PERFORM handle_data_changed IN PROGRAM (sy-cprog) IF FOUND ."具体处理数据事件
      IF e_modified = 'X'.
        is_stable-row = 'X'." 基于行的稳定刷新
        is_stable-col = 'X'." 基于列稳定刷新
        CALL METHOD lr_grid->refresh_table_display
          EXPORTING
            is_stable = is_stable.
      ENDIF.
    ENDMETHOD.                    "HANDLE_DATA_CHANGED
  ENDCLASS. "lcl_event_handler IMPLEMENTATION

  DATA: gr_event_handler TYPE REF TO lcl_event_handler.


*&---------------------------------------------------------------------*
*&      Form  show_alv
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->TABLE                  内表
*      -->L_HANDLE               变式名
*      -->I_STRUCTURE_NAME       结构名
*----------------------------------------------------------------------*
  FORM show_alv TABLES table
                 USING l_handle
                       i_structure_name
                       .
*ALV表格显示样式
    PERFORM alv_list_layout.
*ALV报表的字段设置
    PERFORM pf_alv_list_fcat USING i_structure_name
                                  gt_fieldcat.
*ALV报表显示
    PERFORM pf_alv_list_disply TABLES table
                               USING  l_handle
                                      ''
                                      ''
                                      ''
                                      ''
                                      ''
                                      ''
                                      .


  ENDFORM.                    " SHOW_ALV
*&---------------------------------------------------------------------*
*&      Form  show_alv2
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->TABLE                  内表
*      -->L_HANDLE               变式名
*      -->I_STRUCTURE_NAME       结构名
*      -->I_SCREEN_START_COLUMN  text
*      -->I_SCREEN_START_LINE    text
*      -->I_SCREEN_END_COLUMN    text
*      -->I_SCREEN_END_LINE      text
*      -->I_HTML_TOP_OF_PAGE     标题html名
*      -->I_HTML_HEIGHT_TOP      标题htlm的高
*----------------------------------------------------------------------*
  FORM show_alv2 TABLES table
                  USING l_handle
                        i_structure_name

                        i_screen_start_column
                        i_screen_start_line
                        i_screen_end_column
                        i_screen_end_line

                        i_html_top_of_page
                        i_html_height_top
                        .
*ALV表格显示样式
    PERFORM alv_list_layout.
*ALV报表的字段设置
    PERFORM pf_alv_list_fcat USING i_structure_name
                                  gt_fieldcat.
*ALV报表显示
    PERFORM pf_alv_list_disply TABLES table
                               USING  l_handle
                                      i_html_top_of_page
                                      i_screen_start_column
                                      i_screen_start_line
                                      i_screen_end_column
                                      i_screen_end_line
                                      i_html_height_top
                                      .


  ENDFORM.                    " SHOW_ALV
*&---------------------------------------------------------------------*
*&      Form  ALV_LIST_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
  FORM alv_list_layout .
    is_layout-zebra = 'X'. " 斑马线
    is_layout-cwidth_opt  = 'X'.   " 自动调节字段长度
    is_layout-box_fname = 'SEL'.

    PERFORM frm_layout_usexit IN PROGRAM (sy-cprog) IF FOUND CHANGING is_layout.
  ENDFORM.                    " ALV_LIST_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  PF_ALV_LIST_FCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_IT_FIELDCAT  text
*----------------------------------------------------------------------*
  FORM pf_alv_list_fcat  USING i_structure_name    p_it_fieldcat TYPE lvc_t_fcat.

    FREE p_it_fieldcat.
    DATA: p_st_fieldcat TYPE lvc_s_fcat.
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_buffer_active        = ''
        i_structure_name       = i_structure_name
        i_client_never_display = 'X'
        i_bypassing_buffer     = 'X'
        i_internal_tabname     = 'X'
      CHANGING
        ct_fieldcat            = p_it_fieldcat
      EXCEPTIONS
        inconsistent_interface = 1
        program_error          = 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.

    DELETE p_it_fieldcat WHERE fieldname(6) = 'FIELD0'.
    DELETE p_it_fieldcat WHERE fieldname    = 'CELLCOLOR'.
*    DELETE p_it_fieldcat WHERE fieldname    = 'SEL'.
*    p_st_fieldcat-checkbox = 'X'.
*    MODIFY p_it_fieldcat FROM p_st_fieldcat TRANSPORTING checkbox WHERE fieldname = 'ZTLBS' .
*    p_st_fieldcat-edit = 'X'.
*    MODIFY p_it_fieldcat FROM p_st_fieldcat TRANSPORTING edit WHERE  fieldname = 'STEUS'.
    PERFORM frm_fieldcat_usexit IN PROGRAM (sy-cprog) IF FOUND CHANGING p_it_fieldcat.


  ENDFORM.                    " PF_ALV_LIST_FCAT
*&---------------------------------------------------------------------*
*&      Form  PF_ALV_LIST_DISPLY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_TABLE  text
*----------------------------------------------------------------------*
  FORM pf_alv_list_disply  TABLES  table USING
                                          l_handle
                                          i_html_top_of_page
                                          i_screen_start_column
                                          i_screen_start_line
                                          i_screen_end_column
                                          i_screen_end_line
                                          i_html_height_top
                                          .
    is_variant-report = sy-repid.
    is_variant-handle = l_handle.
    formname = i_html_top_of_page .

*--------------------------------------------------------------------*
*去掉中间对象

    FIELD-SYMBOLS:<ls_fieldcat> TYPE lvc_s_fcat.
    LOOP AT gt_fieldcat ASSIGNING <ls_fieldcat>.
      <ls_fieldcat>-scrtext_m = ''.
      <ls_fieldcat>-scrtext_s = ''.
*      <ls_fieldcat>-ref_field = ''.
*      <ls_fieldcat>-ref_table = ''.

    ENDLOOP.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
      EXPORTING
        i_callback_program          = sy-repid
        i_callback_pf_status_set    = 'FRM_PF_STATUS_SET'
        i_callback_user_command     = 'FRM_USER_COMMAND'
        i_callback_html_top_of_page = formname
        is_layout_lvc               = is_layout
        it_fieldcat_lvc             = gt_fieldcat
        i_save                      = 'A'
        is_variant                  = is_variant
        i_screen_start_column       = i_screen_start_column
        i_screen_start_line         = i_screen_start_line
        i_screen_end_column         = i_screen_end_column
        i_screen_end_line           = i_screen_end_line
        i_html_height_top           = i_html_height_top   "html高度
        it_events                   = lt_events   "
      TABLES
        t_outtab                    = table
      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.                    " PF_ALV_LIST_DISPLY
*&---------------------------------------------------------------------*
*&      Form  frm_pf_status_set
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->RT_EXTAB   text
*----------------------------------------------------------------------*
  FORM frm_pf_status_set USING rt_extab TYPE slis_t_extab.
    PERFORM frm_set_gui IN PROGRAM (sy-cprog) IF FOUND USING lv_gui  .
    PERFORM frm_set_gui2 IN PROGRAM (sy-cprog) IF FOUND USING lv_gui rt_extab .
    IF lv_gui IS INITIAL .
      lv_gui = 'GUI01' .
    ENDIF.
    SET PF-STATUS lv_gui EXCLUDING rt_extab .

  ENDFORM.                    "frm_pf_status_set

*&---------------------------------------------------------------------*
*&      Form  FEM_USER_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
  FORM frm_user_command USING r_ucomm TYPE sy-ucomm
                          rs_selfield TYPE slis_selfield.

    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = lr_grid.


    CALL METHOD lr_grid->check_changed_data.

    CALL METHOD lr_grid->get_frontend_layout
      IMPORTING
        es_layout = is_layout.

    is_layout-cwidth_opt = 'X'.

    CALL METHOD lr_grid->set_frontend_layout
      EXPORTING
        is_layout = is_layout.
    rs_selfield-refresh = 'X'.


    is_stable-col = 'X'.
    is_stable-row = 'X' .
    CALL METHOD lr_grid->check_changed_data.


    CALL METHOD lr_grid->get_variant
      IMPORTING
        es_variant = es_variant
        e_save     = e_save.

    CALL METHOD lr_grid->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_enter
      EXCEPTIONS
        error      = 1
        OTHERS     = 2.

    PERFORM user_exit_comm IN PROGRAM (sy-cprog) IF FOUND  USING es_variant-handle r_ucomm rs_selfield.

*--------------------------------------------------------------------*
*刷新
    is_stable-col = 'X'.
    is_stable-row = 'X'.
    CALL METHOD lr_grid->refresh_table_display
      EXPORTING
        is_stable = is_stable.
  ENDFORM.                    "FEM_USER_COMMAND
*&---------------------------------------------------------------------*
*&      Form  html_top_of_page
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->DOCUMENT   text
*----------------------------------------------------------------------*
  FORM html_top_of_page USING document TYPE REF TO cl_dd_document.
    DATA: p_html   TYPE string,
          position TYPE i,
          text     TYPE sdydo_text_element..

    PERFORM frm_set_html IN PROGRAM (sy-cprog) IF FOUND USING p_html .

    "接受有长度限制
    APPEND p_html TO document->html_table.

  ENDFORM .                    "f_top_of_page

3.直接调用展示报表（注意：1.报表GUI需要进行重写 2.报表展示内表的结构必须存在SEL字段 ）

报表GUI需要进行重写
FORM frm_set_gui  USING   lv_gui.
  lv_gui = 'GUI100'.
ENDFORM.

报表展示内表的结构必须存在SEL字段
DATA: BEGIN OF gt_alv OCCURS 0.
        INCLUDE STRUCTURE zssdr004_alv.
DATA:   sel TYPE flag,
      END OF gt_alv.

调用展示报表
”PERFORM show_alv TABLES 内表 USING '变式名称' '字母大写结构'.
 PERFORM show_alv TABLES gt_alv USING 'SH01' 'ZSSDR004_ALV'.