Code: Alles auswählen.
MODULE status_0100 OUTPUT.
IF g_custom_container IS INITIAL.
CREATE OBJECT g_custom_container
EXPORTING
container_name = 'CCCONTAINER'.
CREATE OBJECT grid
EXPORTING
i_parent = g_custom_container.
CALL METHOD grid->set_table_for_first_display
EXPORTING
* i_structure_name = 'ZPPV_ALV'
is_layout = is_layout
CHANGING
it_outtab = lt_alv
it_fieldcatalog = it_fieldcat
* it_sort = it_sort
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
ENDIF.
endmodule. " STATUS_0100 OUTPUT
Code: Alles auswählen.
DATA: lt_alv TYPE TABLE OF zppv_alv,
ls_alv LIKE LINE OF lt_alv.
DATA: grid TYPE REF TO cl_gui_alv_grid,
g_custom_container TYPE REF TO cl_gui_custom_container,
is_layout TYPE lvc_s_layo,
it_fieldcat TYPE lvc_t_fcat.
Code: Alles auswählen.
MODULE status_0100 OUTPUT.
IF g_custom_container IS INITIAL.
CREATE OBJECT g_custom_container
EXPORTING
container_name = 'CCCONTAINER'.
CREATE OBJECT grid
EXPORTING
i_parent = g_custom_container.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'ZPPV_ALV'
CHANGING
ct_fieldcat = it_fieldcat.
CALL METHOD grid->set_table_for_first_display
EXPORTING
* i_structure_name = 'ZPPV_ALV'
is_layout = is_layout
CHANGING
it_outtab = lt_alv
it_fieldcatalog = it_fieldcat
* it_sort = it_sort
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
ENDIF.
endmodule. " STATUS_0100 OUTPUT