Code: Alles auswählen.
DATA:
* dialogbox Container
gr_dialogbox TYPE REF TO cl_gui_dialogbox_container,
gr_alv_customer TYPE REF TO cl_gui_alv_grid.
DATA: lt_kna1 TYPE STANDARD TABLE OF kna1,
ls_kna1 TYPE kna1.
DATA cnt TYPE i.
SELECT * FROM kna1 INTO ls_kna1.
check cnt LE 67.
add 1 to cnt.
append ls_kna1 to lt_kna1
endselect.
SORT lt_kna1 BY kunnr.
DELETE ADJACENT DUPLICATES FROM lt_kna1.
CREATE OBJECT gr_dialogbox
EXPORTING
width = 600
height = 400
top = 50
left = 50
* EXCEPTIONS
* cntl_error = 1
* cntl_system_error = 2
* create_error = 3
* lifetime_error = 4
* lifetime_dynpro_dynpro_link = 5
* event_already_registered = 6
* error_regist_event = 7
* others = 8
.
IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CREATE OBJECT gr_alv_customer
EXPORTING
i_parent = gr_dialogbox " Parent-Container
* EXCEPTIONS
* error_cntl_create = 1
* error_cntl_init = 2
* error_cntl_link = 3
* error_dp_create = 4
* others = 5
.
IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
gr_alv_cusomer->set_table_for_first_display(
EXPORTING
i_structure_name = 'KNA1' " Strukturname der internen Ausgabetabelle
CHANGING
it_outtab = lt_kna1 " Ausgabetabelle
* EXCEPTIONS
* invalid_parameter_combination = 1
* program_error = 2
* too_many_lines = 3
* others = 4
).
IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
SET HANDLER gr_event_receiver->catch_close
FOR gr_dialogbox.