ABAP 获取ALV报表中的数据

当程序中需要获取某张报表展示的ALV数据，又不想重新写一遍查询逻辑，则可以调用该报表，直接将报表的ALV内表的数据获取到，提高开发效率

复制代码
"-----------------------------@斌将军-----------------------------
DATA:lo_data   TYPE REF TO data,
     lt_select TYPE TABLE OF rsparams,
     ls_select TYPE rsparams.
FIELD-SYMBOLS <lt_data> TYPE ANY TABLE.

"初始设置
CALL METHOD cl_salv_bs_runtime_info=>set
  EXPORTING
    display  = abap_false
    metadata = abap_false
    data     = abap_true.

"报表筛选条件
CLEAR ls_select.
ls_select-selname = 'S_MONTH'.
ls_select-sign    = 'I'.
ls_select-option  = 'EQ'.
ls_select-low     = '202204'.
*ls_select-high    = ''.
APPEND ls_select TO lt_select.

*CLEAR ls_select.
*ls_select-selname = 'S_KUNNR'.
*ls_select-sign    = 'I'.
*ls_select-option  = 'EQ'.
*ls_select-low     = '202204'.
**ls_select-high    = ''.
*APPEND ls_select TO lt_select.

"调用目标报表
SUBMIT zsd001
  WITH SELECTION-TABLE lt_select "多选
*        WITH p_year = i_year
     AND RETURN.
TRY.

    "获取ALV显示数据
    CALL METHOD cl_salv_bs_runtime_info=>get_data_ref
      IMPORTING
        r_data = lo_data.

    IF lo_data IS INITIAL.
      MESSAGE '无数据' TYPE 'S' DISPLAY LIKE 'E'.
      RETURN.
    ENDIF.

    ASSIGN lo_data->* TO <lt_data>.
  CATCH cx_salv_bs_sc_runtime_info.

ENDTRY.

IF <lt_data> IS NOT INITIAL.
  "填充报表数据到内表
  MOVE-CORRESPONDING <lt_data> TO gt_alv.
ENDIF.
"清理
cl_salv_bs_runtime_info=>clear_all( ).
"-----------------------------@斌将军-----------------------------
复制代码

 

定期更文，欢迎关注

 
posted @   斌将军  阅读(544)  评论(0)  编辑  收藏  举报
相关博文：
· 获取标准报表CJI3的ALV数据
· ABAP 内表与JSON转换
· ABAP 读取其他ALV的显示结果
· 获取其他报表数据
· SAP ABAP 调用SAP报表（标准报表或者自定义报表）
阅读排行：
· 阿里最新开源QwQ-32B，效果媲美deepseek-r1满血版，部署成本又又又降低了！
· AI编程工具终极对决：字节Trae VS Cursor，谁才是开发者新宠？
· 开源Multi-agent AI智能体框架aevatar.ai，欢迎大家贡献代码
· Manus重磅发布：全球首款通用AI代理技术深度解析与实战指南
· 被坑几百块钱后，我竟然真的恢复了删除的微信聊天记录！
点击右上角即可分享
微信分享提示
AI IDE Trae