Code: Alles auswählen.
*Feldcatalog aufbauen
LOOP AT fieldcat INTO wrk_fieldcat_alv.
CASE wrk_fieldcat_alv-fieldname.
WHEN 'SMENGE'.
wrk_fieldcat_alv-seltext_s = 'So.Lei.Men.'.
wrk_fieldcat_alv-seltext_m = 'Soll Leistungsmenge'.
wrk_fieldcat_alv-seltext_l = 'Soll Leistungsmenge'.
wrk_fieldcat_alv-key = ' '.
ENDCASE.
MODIFY fieldcat FROM wrk_fieldcat_alv.
ENDLOOP.
Code: Alles auswählen.
*ALV-Grid ausgeben
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_repid
* i_callback_user_command = 'USER_COMMAND'
* i_callback_pf_status_set = 'SET_PF_STATUS'
it_fieldcat = fieldcat[]
i_save = 'A'
i_grid_title = sav_lsname
is_variant = anwes_variante
is_layout = gs_layout
TABLES
t_outtab = i_anwesenheit.
Code: Alles auswählen.
*Deklarationen für ALV Grid
DATA:
fieldcat TYPE slis_t_fieldcat_alv, "Feldkatalog
wrk_fieldcat_alv LIKE LINE OF fieldcat, "Workarea
g_repid LIKE sy-repid, "Programmname
gs_layout TYPE slis_layout_alv. "ALV-Layout
Als Grundgerüst für mein Feldkatalog dient die interne Tabelle selbst:Mr_Machine hat geschrieben: stammt dein Feldkatalog aus einer übernommenen struktur?
hast du den Feldkatalog schonmal angesehen mit debuggen kurz vor dem aufruf? sind die felder upgedated?
Code: Alles auswählen.
*Aufbau eines Feldkataloges aus der internen Tabelle
REFRESH fieldcat.
*Feldkatalog-gerüst aufbauen
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = g_repid
i_internal_tabname = 'I_ANWESENHEIT'
i_inclname = g_repid
CHANGING
ct_fieldcat = fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
Code: Alles auswählen.
*Feldcatalog aufbauen
LOOP AT fieldcat INTO wrk_fieldcat_alv.
CASE wrk_fieldcat_alv-fieldname.
WHEN 'SMENGE'.
wrk_fieldcat_alv-seltext_s = 'So.Lei.Men.'.
wrk_fieldcat_alv-seltext_m = 'Soll Leistungsmenge'.
wrk_fieldcat_alv-seltext_l = 'Soll Leistungsmenge'.
wrk_fieldcat_alv-key = ' '.
ENDCASE.
MODIFY fieldcat FROM wrk_fieldcat_alv.
ENDLOOP.