Search code examples
abapsaprfcalv

Hierarchical ALV report called via GUI has 18 columns, but via RFC only 6. Why?


I want to export the report RM07MLBS (tcode mb52). If I call this report via the SAP-GUI it has 18 columns, and if I call it with the following code, it returns only maktx, werks, matkl, matnr, name1, mtart columns:

cl_salv_bs_runtime_info=>set(
 EXPORTING
   display  = abap_false
   metadata = abap_false
   data     = abap_true
).

SUBMIT (IV_REPORT_NAME)
   WITH SELECTION-TABLE selection_table
  AND RETURN.

DATA: lo_data TYPE REF TO data.

cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = lo_data ).

IF lo_data IS NOT BOUND.
  ev_result_json = '[]'.
  EXIT.
ENDIF.

field-SYMBOLS <lv_data> type any table.
ASSIGN lo_data->* TO <lv_data>.
ev_result_json = /ui2/cl_json=>serialize( data = <lv_data> pretty_name = /ui2/cl_json=>pretty_mode-low_case ).

cl_salv_bs_runtime_info=>clear_all( ).

How to get all columns?


Solution

  • User JozsefSzikszai gave me the needed hint to solve this.

    This way I can read all columns from hierarchical ALV

    SUBMIT (IV_REPORT_NAME)
       WITH SELECTION-TABLE selection_table
      AND RETURN.
    
    FIELD-SYMBOLS <lt_data>             TYPE ANY TABLE.
    FIELD-SYMBOLS <lt_data_line>        TYPE ANY TABLE.
    
    DATA          lr_data               TYPE REF TO data.
    DATA          lr_data_line          TYPE REF TO data.
    
    cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data_descr      = DATA(lr_data_descr)
                                                     r_data_line_descr = DATA(lr_data_line_descr) ).
    
    CREATE DATA lr_data         TYPE HANDLE lr_data_descr.
    CREATE DATA lr_data_line    TYPE HANDLE lr_data_line_descr.
    ASSIGN lr_data->*           TO <lt_data>.
    ASSIGN lr_data_line->*      TO <lt_data_line>.
    
    cl_salv_bs_runtime_info=>get_data(
      IMPORTING
        t_data      = <lt_data>
        t_data_line = <lt_data_line>
           ).
    
    IF <lt_data> IS INITIAL.
      ev_result_json = '[]'.
      EXIT.
    ENDIF.
    
    ev_result_json = /ui2/cl_json=>serialize( data = <lt_data_line> pretty_name = /ui2/cl_json=>pretty_mode-low_case ).
    cl_salv_bs_runtime_info=>clear_all( ).
    
    ENDFUNCTION.
    

    Feedback and hints how to improve this are welcome.