抓取SAP报表ALV GRID上的数据

57 阅读 0 评论 38 点赞

我是靠谱客的博主冷傲枫叶，最近开发中收集的这篇文章主要介绍抓取SAP报表ALV GRID上的数据，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

在开发的产销存报表的过程中，由于数据量过大，且取数逻辑太过于复杂，导致报表性能上很缓慢；

后来业务顾问要求直接在MB5B上取数，一开始有点纳闷，怎么从标准报表上取数。

于是从网络上搜索相关资料发现还真有，即将其转摘下来，以做备用。

在项目开发过程中需要从标准报表 MB5B中获取数据，以下是本人实例中的相关部分，程序同样适用于获取其他标准报表的数据。

 
        CL_SALV_BS_RUNTIME_INFO=> 
        SET 
        ( 
       
        DISPLAY 
         = ABAP_FALSE 
       
        METADATA = ABAP_FALSE 
       
        DATA 
         = ABAP_TRUE  ). 
       
        SUBMIT 
         RM07MLBD                
         " Tcode MB5B 
       
        WITH 
         WERKS  
        IN 
         S_WERKS      
         " 填写筛选屏幕字段 
       
        WITH 
         DATUM  
        IN 
         S_BUDAT 
       
        WITH 
         XSUM =  
        '' 
       
        WITH 
         PA_SUMFL =  
        'X' 
       
        WITH 
         XCHAR =  
        '' 
       
        WITH 
         LGBST =  
        '' 
       
        WITH 
         BWBST =  
        'X' 
       
        AND 
         RETURN 
        . 
       
        TRY 
        . 
       
        CL_SALV_BS_RUNTIME_INFO=>GET_DATA_REF( 
       
        IMPORTING 
         R_DATA = LS_DATA ). 
       
        ASSIGN 
         LS_DATA-> 
        * TO < LT_DATA >. 
       
        CATCH 
         CX_SALV_BS_SC_RUNTIME_INFO. 
       
        MESSAGE 
         '无法获取ALV数据' 
         TYPE 
         'E' 
        . 
       
        ENDTRY 
        . 
       
        CL_SALV_BS_RUNTIME_INFO=>CLEAR_ALL( ). 
       
        IF 
         < LT_DATA > IS  
        ASSIGNED 
        . 
       
        LOOP 
         AT 
         < LT_DATA >  
        ASSIGNING 
         < L_DATA >. 
       
        MOVE 
        - 
        CORRESPONDING 
         < L_DATA >  
        TO 
         LW_MB5B. 
       
        APPEND 
         LW_MB5B  
        TO 
         LT_MB5B. 
       
        CLEAR 
         LW_MB5B. 
       
        ENDLOOP 
        . 
       
        ENDIF 
        .