ABAP - SALV教程14 状态栏添加按钮

HeathlX

已于 2024-03-04 03:13:12 修改

阅读量1.2k

点赞数 22

分类专栏： ABAP-SALV 文章标签： ABAP

于 2024-03-04 02:17:00 首次发布

本文链接：https://blog.csdn.net/HeathlX/article/details/136441648

版权

ABAP-SALV 专栏收录该内容

23 篇文章 2 订阅

订阅专栏

文章介绍了如何在SAPABAP中使用cl_salv_functions_list类添加功能按钮，如选择/取消全选和拣配处理，以及在不同模式下处理SALV全屏模式下的错误。

摘要由CSDN通过智能技术生成

SALV的派生类cl_salv_functions_list提供了add_function方法增加按钮
使用该方法的注意事项：SALV全屏模式下使用会报错
其他两种模式的SALV都是可以的
可控模式生成SALV的方式：http://t.csdnimg.cn/zB7tu
Docking container生成SALV的方式：http://t.csdnimg.cn/QJ5Q9

关键代码

  METHOD set_status.

    DATA: lo_functions TYPE REF TO cl_salv_functions_list.
    " 设置默认的标准状态栏
    lo_functions = co_alv->get_functions( ).
    lo_functions->set_all( abap_true ).
    INCLUDE <icon>.
    DATA: l_icon TYPE string.

    " 添加全部选择按钮
    l_icon = icon_select_all.
    lo_functions->add_function( name = 'ALL'  tooltip = '全部选择'
                                icon = l_icon
                                position = if_salv_c_function_position=>right_of_salv_functions
                               ).
    " 添加取消全选按钮
    l_icon = icon_deselect_all.
    lo_functions->add_function( name = 'CAL'  tooltip = '取消全选'
                                icon = l_icon
                                position = if_salv_c_function_position=>right_of_salv_functions
                               ).
    " 添加拣配处理按钮按钮
    l_icon = icon_execute_object.
    lo_functions->add_function( name = 'JP'  text = '拣配处理' tooltip = '拣配处理'
                                icon = l_icon
                                position = if_salv_c_function_position=>right_of_salv_functions
                               ).

  ENDMETHOD.

完整代码

CLASS lcl_model DEFINITION.
  PUBLIC SECTION.
    TYPES:BEGIN OF TY_dATA,
            vbeln TYPE vbak-vbeln,
            erdat TYPE erdat,
            erzet TYPE erzet,
            ernam TYPE ernam,
            auart TYPE auart.
    TYPES:END  OF ty_data.

    DATA mt_data TYPE TABLE OF ty_data.

    DATA mo_salv TYPE REF TO cl_salv_table.

    "获取数据的方法
    METHODS get_data.
    "展示SALV的方法
    METHODS alv_show.

  PRIVATE SECTION.
    METHODS:
      set_status CHANGING co_alv TYPE REF TO cl_salv_table.

ENDCLASS.

CLASS lcl_model IMPLEMENTATION.
  METHOD get_data.
    SELECT vbeln erdat erzet ernam auart
      INTO TABLE mt_data
      FROM vbak
      UP TO 20 ROWS.
  ENDMETHOD.

  METHOD alv_show.

    DATA(lo_dock) = NEW cl_gui_docking_container(
        repid = sy-cprog
        dynnr = sy-dynnr
        ratio = 80
        side  = cl_gui_docking_container=>dock_at_bottom
       ).

    TRY.
        cl_salv_table=>factory(
          EXPORTING
           r_container    = lo_dock
          IMPORTING
            r_salv_table   = mo_salv
          CHANGING
            t_table        = mt_data ).
      CATCH cx_salv_msg INTO DATA(msg).
        MESSAGE  msg TYPE 'S' DISPLAY LIKE 'E'.
    ENDTRY.

    me->set_status( CHANGING co_alv = mo_salv ).

    mo_salv->display( ).
  ENDMETHOD.

  METHOD set_status.

    DATA: lo_functions TYPE REF TO cl_salv_functions_list.
    " 设置默认的标准状态栏
    lo_functions = co_alv->get_functions( ).
    lo_functions->set_all( abap_true ).
    INCLUDE <icon>.
    DATA: l_icon TYPE string.

    " 添加全部选择按钮
    l_icon = icon_select_all.
    lo_functions->add_function( name = 'ALL'  tooltip = '全部选择'
                                icon = l_icon
                                position = if_salv_c_function_position=>right_of_salv_functions
                               ).
    " 添加取消全选按钮
    l_icon = icon_deselect_all.
    lo_functions->add_function( name = 'CAL'  tooltip = '取消全选'
                                icon = l_icon
                                position = if_salv_c_function_position=>right_of_salv_functions
                               ).
    " 添加拣配处理按钮按钮
    l_icon = icon_execute_object.
    lo_functions->add_function( name = 'JP'  text = '拣配处理' tooltip = '拣配处理'
                                icon = l_icon
                                position = if_salv_c_function_position=>right_of_salv_functions
                               ).

  ENDMETHOD.
ENDCLASS.

SELECT-OPTIONS vbeln FOR vbak-vbeln.

AT SELECTION-SCREEN OUTPUT.
  DATA(lo_model) = NEW lcl_model( ).
  lo_model->get_data( ).
  lo_model->alv_show( ).