SAP中SALV的输出

小赫不吃姜

已于 2025-05-12 14:06:04 修改

阅读量818

点赞数 23

CC 4.0 BY-SA版权

文章标签： sap abap 开发语言

于 2025-05-09 16:39:39 首次发布

本文链接：https://blog.youkuaiyun.com/fuyangshida/article/details/147831497

1.常见SALV输出中的各种情况

2. 在 CL_SALV_TABLE 输出中增加 GUI 状态

2.2. 创建 GUI 状态的方法

2.3. 注意事项

3. 高级定制选项

4. 解决 lcl_handler 未知类型错误

5. 在 CL_SALV_TABLE 中修改输出列名称

5.1. 方法一：使用列对象的 set_short_text/set_long_text/set_medium_text

6. 在 CL_SALV_TABLE 中控制输出字段（隐藏不需要的字段）

6.1. 方法一：使用 set_visible 隐藏特定列

6.2. 方法二：使用 set_technical 隐藏技术字段

1.常见SALV输出中的各种情况

  DATA: lr_columns TYPE REF TO cl_salv_columns_table,
      lr_column  TYPE REF TO cl_salv_column_table.

  IF GT_ZFI027A IS INITIAL.
    MESSAGE '没有满足条件的数据' TYPE 'S' DISPLAY LIKE 'E'.
    RETURN.
  ENDIF.

  TRY.
      CL_SALV_TABLE=>FACTORY(
        IMPORTING
          R_SALV_TABLE = DATA(LR_SALV)
        CHANGING
          T_TABLE      = GT_ZFI027A
      ).
      " 设置 GUI 状态
      SET PF-STATUS 'STANDARD' OF PROGRAM SY-REPID. " 使用自定义状态
      SET TITLEBAR 'TITLE1'.                       " 设置标题栏

      " 添加自定义功能
      DATA(LR_FUNCTIONS) = LR_SALV->GET_FUNCTIONS( ).
      LR_FUNCTIONS->SET_ALL( ABAP_TRUE ).          " 显示所有标准功能

      " 注册事件处理（可选）
*      DATA(lr_events) = LR_SALV->get_event( ).
*      SET HANDLER lcl_handler=>on_user_command FOR lr_events. "这里需要定义事件处理类lcl_handler

      " 可以进一步定制 ALV 显示
      DATA(LR_DISPLAY) = LR_SALV->GET_DISPLAY_SETTINGS( ).
      LR_DISPLAY->SET_STRIPED_PATTERN( ABAP_TRUE ).  " 斑马线样式

*       lr_display->set_list_header( '我的自定义 ALV 报表' ).

      " 列优化
      LR_SALV->GET_COLUMNS( )->SET_OPTIMIZE( ABAP_TRUE ).

    " 修改特定列标题  下列情况适用于只有单独几个字段需要修改字段名称时
*TRY.
*    lr_column ?= lr_columns->get_column( 'MATNR' ).  " 物料编号字段
*    lr_column->set_short_text( '物料编号' ).        " 短文本
*    lr_column->set_medium_text( '物料编号' ).       " 中等文本
*    lr_column->set_long_text( '物料主数据编号' ).    " 长文本
*  CATCH cx_salv_not_found.
*    " 处理列不存在的情况
*ENDTRY.


" 隐藏不需要的列
" 获取列对象
lr_columns = LR_SALV->get_columns( ).

TRY.
    lr_column ?= lr_columns->get_column( 'TABIX' ). " 要隐藏的字段名
    lr_column->set_visible( abap_false ).                   " 设置为不可见
  CATCH cx_salv_not_found.
ENDTRY.

TRY.
    lr_column ?= lr_columns->get_column( 'MANDT' ). " 要隐藏的字段名
    lr_column->set_visible( abap_false ).                   " 设置为不可见
  CATCH cx_salv_not_found.
ENDTRY.

* 隐藏不需要的列 方法2
* 获取列对象
*lr_columns = gr_table->get_columns( ).
*
* 将字段标记为技术字段（会自动隐藏）
*TRY.
*    lr_column ?= lr_columns->get_column( 'TECH_FIELD' ).
*    lr_column->set_technical( abap_true ).  " 设置为技术字段
*  CATCH cx_salv_not_found.
*ENDTRY.

"而如果需要每个都改的话,则可以用下列方式
*" 获取所有列引用
*lt_cols = lr_columns->get( ).
*
*" 循环设置列标题
*LOOP AT lt_cols INTO ls_col.
*  CASE ls_col-columnname.
*    WHEN 'MATNR'.
*      ls_col-r_column->set_short_text( '物料编号' ).
*    WHEN 'MAKTX'.
*      ls_col-r_column->set_short_text( '物料描述' ).
*    WHEN 'WERKS'.
*      ls_col-r_column->set_short_text( '工厂' ).
*    WHEN 'LGORT'.
*      ls_col-r_column->set_short_text( '库存地点' ).
*    " 添加更多字段...
*  ENDCASE.
*ENDLOOP.


      LR_SALV->DISPLAY( ).
    CATCH CX_ROOT INTO DATA(LX_ERROR).
      MESSAGE 'Error displaying ALV: ' && LX_ERROR->GET_TEXT( ) TYPE 'E'.
  ENDTRY.

2. 在 CL_SALV_TABLE 输出中增加 GUI 状态

在使用 CL_SALV_TABLE=>FACTORY 显示 ALV 表格时，可以通过以下方法添加自定义 GUI 状态（菜单栏和工具栏）：

2.1. 完整实现步骤

REPORT z_alv_with_gui_status.

* 定义数据
DATA: gt_data TYPE TABLE OF spfli.  " 示例数据表
DATA: gr_table TYPE REF TO cl_salv_table.

* 获取数据
SELECT * FROM spfli INTO TABLE gt_data UP TO 20 ROWS.

* 创建 ALV 显示
START-OF-SELECTION.
  TRY.
      " 创建 ALV 实例
      cl_salv_table=>factory(
        IMPORTING
          r_salv_table = gr_table
        CHANGING
          t_table      = gt_data
      ).

      " 设置 GUI 状态
      SET PF-STATUS 'MYSTATUS' OF PROGRAM sy-repid. " 使用自定义状态
      SET TITLEBAR 'TITLE1'.                       " 设置标题栏

      " 添加自定义功能
      DATA(lr_functions) = gr_table->get_functions( ).
      lr_functions->set_all( abap_true ).          " 显示所有标准功能

      " 注册事件处理（可选）
      DATA(lr_events) = gr_table->get_event( ).
      SET HANDLER lcl_handler=>on_user_command FOR lr_events.

      " 显示 ALV
      gr_table->display( ).

    CATCH cx_salv_msg INTO DATA(lx_error).
      MESSAGE lx_error->get_text( ) TYPE 'E'.
  ENDTRY.

2.2. 创建 GUI 状态的方法

在 ABAP 开发工具中创建状态：

- 进入程序属性（右键程序 → 属性）
- 转到 "GUI 状态" 选项卡
- 创建新状态（如 'MYSTATUS'）
- 添加菜单项和工具栏按钮
- 定义状态代码（通常在程序顶部）：

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'MYSTATUS'.
  SET TITLEBAR 'TITLE1'.
ENDMODULE.

事件处理类示例（用于处理用户命令）：

CLASS lcl_handler DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS:
      on_user_command FOR EVENT added_function OF cl_salv_events
        IMPORTING e_salv_function.
ENDCLASS.

CLASS lcl_handler IMPLEMENTATION.
  METHOD on_user_command.
    CASE e_salv_function.
      WHEN 'MYFUNCTION1'.
        MESSAGE '自定义功能1被触发' TYPE 'I'.
      WHEN 'MYFUNCTION2'.
        MESSAGE '自定义功能2被触发' TYPE 'I'.
      WHEN OTHERS.
        " 处理其他功能
    ENDCASE.
  ENDMETHOD.
ENDCLASS.

2.3. 注意事项

状态名称：确保 SET PF-STATUS 中使用的状态名与 GUI 状态设计中创建的名称一致
程序范围：GUI 状态必须与 ALV 程序在同一个程序中定义
功能代码：自定义按钮的功能代码必须唯一，不能与标准 ALV 功能代码冲突
权限检查：对于敏感操作，应在事件处理中添加权限检查

3. 高级定制选项

" 可以进一步定制 ALV 显示
DATA(lr_display) = gr_table->get_display_settings( ).
lr_display->set_striped_pattern( abap_true ).  " 斑马线样式
lr_display->set_list_header( '我的自定义 ALV 报表' ).

" 列优化
gr_table->get_columns( )->set_optimize( abap_true ).

4. 解决 `lcl_handler` 未知类型错误

当在使用 CL_SALV_TABLE 并尝试注册事件处理程序时遇到 "类型 lcl_handler 未知" 的错误，这是因为尚未定义事件处理类 lcl_handler。

4.1. 完整解决方案

首先定义事件处理类

在程序顶部（START-OF-SELECTION 之前）添加以下类定义：

*---------------------------------------------------------------------*
*       CLASS lcl_event_handler DEFINITION
*---------------------------------------------------------------------*
CLASS lcl_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:
      on_user_command FOR EVENT added_function OF cl_salv_events
        IMPORTING e_salv_function.
ENDCLASS.

*---------------------------------------------------------------------*
*       CLASS lcl_event_handler IMPLEMENTATION
*---------------------------------------------------------------------*
CLASS lcl_handler IMPLEMENTATION.
  METHOD on_user_command.
    CASE e_salv_function.
      WHEN 'MYFUNCTION'.  " 替换为您的功能代码
        MESSAGE '自定义功能被触发' TYPE 'I'.
      WHEN OTHERS.
        " 处理其他功能代码
    ENDCASE.
  ENDMETHOD.
ENDCLASS.

4.2. 修改ALV显示代码

START-OF-SELECTION.
  DATA: lo_handler TYPE REF TO lcl_handler.  " 声明处理程序对象
  
  TRY.
      " 创建ALV实例
      cl_salv_table=>factory(
        IMPORTING
          r_salv_table = gr_table
        CHANGING
          t_table      = gt_data
      ).

      " 创建事件处理程序实例
      CREATE OBJECT lo_handler.
      
      " 获取事件对象并注册处理程序
      DATA(lr_events) = gr_table->get_event( ).
      SET HANDLER lo_handler->on_user_command FOR lr_events.
      
      " 显示ALV
      gr_table->display( ).

    CATCH cx_salv_msg INTO DATA(lx_error).
      MESSAGE lx_error->get_text( ) TYPE 'E'.
  ENDTRY.

4.3. 完整示例程序

REPORT z_alv_with_event_handler.

* 数据定义
DATA: gt_data TYPE TABLE OF spfli,
      gr_table TYPE REF TO cl_salv_table.

* 事件处理类定义
CLASS lcl_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:
      on_user_command FOR EVENT added_function OF cl_salv_events
        IMPORTING e_salv_function.
ENDCLASS.

CLASS lcl_handler IMPLEMENTATION.
  METHOD on_user_command.
    CASE e_salv_function.
      WHEN 'MYFUNCTION'.
        MESSAGE '您点击了自定义功能按钮!' TYPE 'I'.
      WHEN OTHERS.
        " 可以添加对其他功能代码的处理
    ENDCASE.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  " 获取数据
  SELECT * FROM spfli INTO TABLE gt_data UP TO 20 ROWS.
  
  " 创建ALV显示
  DATA: lo_handler TYPE REF TO lcl_handler.
  
  TRY.
      cl_salv_table=>factory(
        IMPORTING
          r_salv_table = gr_table
        CHANGING
          t_table      = gt_data
      ).
      
      " 创建处理程序实例
      CREATE OBJECT lo_handler.
      
      " 注册事件
      DATA(lr_events) = gr_table->get_event( ).
      SET HANDLER lo_handler->on_user_command FOR lr_events.
      
      " 添加自定义功能到工具栏
      DATA(lr_functions) = gr_table->get_functions( ).
      lr_functions->add_function(
        name     = 'MYFUNCTION'
        icon     = '@5D@'  " 使用SAP图标代码
        text     = '自定义功能'
        tooltip  = '这是我的自定义功能'
        position = if_salv_c_function_position=>right_of_salv_functions
      ).
      
      " 显示ALV
      gr_table->display( ).
      
    CATCH cx_salv_msg INTO DATA(lx_error).
      MESSAGE lx_error->get_text( ) TYPE 'E'.
  ENDTRY.

4.4. 关键点说明

类定义位置：必须在程序顶部定义 lcl_handler 类，然后才能在后面的代码中使用
处理程序实例化：必须使用 CREATE OBJECT 创建处理程序实例后才能注册
功能代码匹配：确保 CASE 语句中的功能代码与您添加到工具栏的代码一致
图标代码：@5D@ 是SAP内部图标代码，可以在SE38中执行程序 SHOWICON 查看所有可用图标

这样修改后，您的程序就能正确识别 lcl_handler 类并处理ALV表格的事件了。

5. 在 CL_SALV_TABLE 中修改输出列名称

当使用 CL_SALV_TABLE=>FACTORY 输出数据时，可以通过以下方法修改显示的列名称（列标题），使其不显示底表字段名：