Feldkatalog für interne Tabelle erstellen

Code: Alles auswählen.

go_alv              TYPE REF TO cl_gui_alv_grid,         " ALV Class
TYPES: BEGIN OF struct_mt_production_pieces .
         INCLUDE TYPE zle_lager.
         TYPES: icon TYPE icon_d,
       END OF struct_mt_production_pieces.

Code: Alles auswählen.

DATA: it_fieldcat_slis TYPE slis_t_fieldcat_alv .
  TYPE-POOLS: slis.

  "CREATE SLIS Fieldcatalogue
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = sy-repid  "'MZ_TH_WAREHOUSE_MANAGEMENT'
      i_internal_tabname     = 'STRUCT_MT_PRODUCTION_PIECES'
      i_inclname             = sy-repid "'MZ_WAREHOUSE_MANAGEMENT_TOP'
    CHANGING
      ct_fieldcat            = it_fieldcat_slis
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.

  DATA: it_fieldcat_lvc TYPE lvc_t_fcat.

  "Transfer the SLIS fieldcatalog to LVC fieldcatalog
  CALL FUNCTION 'LVC_TRANSFER_FROM_SLIS'
    EXPORTING
      it_fieldcat_alv = it_fieldcat_slis "SLIS fieldcat
    IMPORTING
      et_fieldcat_lvc = it_fieldcat_lvc
    TABLES
      it_data         = go_app->mt_production_pieces
    EXCEPTIONS
      it_data_missing = 1
      OTHERS          = 2.
  IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  " Display itab in ALV-Grid
  go_alv->set_table_for_first_display(
  EXPORTING
*    i_structure_name = 'zle_lager'  " if active the FieldCatalogue is generated automatically
    is_layout = gs_layout "Layout-Settings, above defined
  CHANGING
    it_fieldcatalog               = it_fieldcat_lvc
    it_outtab                     = go_app->mt_production_pieces" Output table
  EXCEPTIONS
    OTHERS                        = 1
    ).
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.