Code: Alles auswählen.
* Feldkataloge fuellen ----------------------------------------------- *
PERFORM feldkatalog_fuellen.
* Layout bestimmen --------------------------------------------------- *
PERFORM layout_allg_build USING gs_layout.
* Ausgabe auf Bildschirm (ALV Liste) --------------------------------- *
PERFORM alv_anzeigen.
************************************************************************
FORM feldkatalog_fuellen .
CLEAR i_feldkatalog.
CLEAR wa_feldkatalog.
wa_feldkatalog-fieldname = 'ERLEDIGT'.
wa_feldkatalog-seltext_s = 'Erledigt?'.
APPEND wa_feldkatalog TO i_feldkatalog.
wa_feldkatalog-fieldname = 'AUFNR'.
wa_feldkatalog-ref_fieldname = 'AUFNR'.
wa_feldkatalog-ref_tabname = 'VIQMEL'.
wa_feldkatalog-seltext_s = 'Auftrag'.
APPEND wa_feldkatalog TO i_feldkatalog.
ENDFORM.
************************************************************************
************************************************************************
FORM layout_allg_build USING ls_layout TYPE slis_layout_alv.
ls_layout-zebra = 'X'.
ls_layout-colwidth_optimize = 'X'.
ENDFORM. " layout_allg_build
************************************************************************
************************************************************************
FORM alv_anzeigen .
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_repid
i_grid_title = 'CS Statusauswertung'
it_fieldcat = i_feldkatalog
* i_callback_user_command = 'reaktion_auf_doppelklick'
* i_callback_top_of_page = 'DO_TOP_OF_PAGE'
TABLES
* t_outtab = i_viqmel
t_outtab = i_alv_tab
.
IF sy-subrc <> 0.
" Hier koennen Sie auf Fehler beim ALV-Aufruf reagieren"
ENDIF.
ENDFORM. " alv_anzeigen
************************************************************************Code: Alles auswählen.
is_layout = layout
Code: Alles auswählen.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_repid
i_grid_title = 'CS Statusauswertung'
it_fieldcat = i_feldkatalog
is_layout = gs_layout