获取mb52 库存内表数据

  types:
    BEGIN OF ts_mb52,
        matnr TYPE mara-matnr,
        maktx TYPE makt-maktx,
        werks TYPE marc-werks,
        lgort TYPE mard-lgort,
        lvorm TYPE mard-lvorm,
        charg TYPE mchb-charg,
        meins TYPE mara-meins,
        labst TYPE mard-labst,
        umlme TYPE mard-umlme,
        insme TYPE mard-insme, "
        einme TYPE mard-einme, "
        speme TYPE mard-speme,
      END OF ts_mb52 .

  data:
    gt_mb52 TYPE STANDARD TABLE OF ts_mb52  WITH EMPTY KEY 

      SUBMIT rm07mlbs
        WITH matnr IN r_matnr
        WITH werks IN r_werks
        WITH pa_sond = 'X'
        WITH xmchb   = 'X'
        WITH nozero  = 'X'
        WITH pa_flt  = 'X'
        WITH pa_hsq  = ''
        WITH p_vari  = '/GAODF'
        AND RETURN.

      FIELD-SYMBOLS: <fs_mb52> TYPE ANY TABLE.
      TRY.
          CALL METHOD cl_salv_bs_runtime_info=>get_data_ref
            IMPORTING
              r_data = DATA(r_data).

          ASSIGN r_data->* TO <fs_mb52>.
          IF <fs_mb52> IS ASSIGNED AND <fs_mb52> IS NOT INITIAL.
            gt_mb52 = CORRESPONDING #( <fs_mb52> ).
            SORT gt_mb52 BY matnr werks .
          ENDIF.
        CATCH cx_salv_bs_sc_runtime_info .
          MESSAGE '获取库存数据失败' TYPE 'S' DISPLAY LIKE 'E'.
      ENDTRY.
      CALL METHOD cl_salv_bs_runtime_info=>clear_all.