Code: Alles auswählen.
CREATE OBJECT go_dock
EXPORTING
side = cl_gui_docking_container=>dock_at_right
extension = 5
ratio = 5
no_autodef_progid_dynnr = abap_true
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2.
cl_salv_table=>factory(
EXPORTING
list_display = IF_SALV_C_BOOL_SAP=>FALSE " ALV wird im Listenmodus angezeigt
IMPORTING
r_salv_table = lo_alv "DATA(go_alv) " Basisklasse einfache ALV Tabellen
CHANGING
t_table = gt_bestand
Code: Alles auswählen.
Data: lr_disp_set type REF TO CL_SALV_DISPLAY_SETTINGS,
lv_linesize type int4,
lo_alv type ref to CL_SALV_TABLE.
*DATA: ob_gui_splitter_container_1 TYPE REF TO cl_gui_splitter_container .
* DATA: ob_gui_container TYPE REF TO cl_gui_container.
*
* CREATE OBJECT ob_gui_splitter_container_1
* EXPORTING
* parent = cl_gui_container=>screen0
* rows = 1
* columns = 2.
*
* CALL METHOD ob_gui_splitter_container_1->get_container
* EXPORTING
* row = 1
* column = 2
* RECEIVING
* container = ob_gui_container.
CREATE OBJECT go_dock
EXPORTING
side = cl_gui_docking_container=>dock_at_right
extension = 5
ratio = 5
no_autodef_progid_dynnr = abap_true
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2.
cl_salv_table=>factory(
EXPORTING
list_display = IF_SALV_C_BOOL_SAP=>FALSE " ALV wird im Listenmodus angezeigt
IMPORTING
r_salv_table = lo_alv "DATA(go_alv) " Basisklasse einfache ALV Tabellen
CHANGING
t_table = gt_bestand
).
Code: Alles auswählen.
CREATE OBJECT my_container EXPORTING container_name = 'CNAME'.
Code: Alles auswählen.
DATA: lr_disp_set TYPE REF TO cl_salv_display_settings,
gc_custom_control_name TYPE scrfname VALUE 'CC_ALV',
lv_linesize TYPE int4,
gr_ccontainer TYPE REF TO cl_gui_custom_container,
lo_alv TYPE REF TO cl_salv_table.
*DATA: ob_gui_splitter_container_1 TYPE REF TO cl_gui_splitter_container .
* DATA: ob_gui_container TYPE REF TO cl_gui_container.
*
* CREATE OBJECT ob_gui_splitter_container_1
* EXPORTING
* parent = cl_gui_container=>screen0
* rows = 1
* columns = 2.
*
* CALL METHOD ob_gui_splitter_container_1->get_container
* EXPORTING
* row = 1
* column = 2
* RECEIVING
* container = ob_gui_container.
CREATE OBJECT gr_ccontainer
EXPORTING
container_name = gc_custom_control_name
"parent = cl_gui_container=>screen0
repid = sy-repid
dynnr = '9002'
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.
IF sy-subrc <> 0.
ENDIF.
CREATE OBJECT go_dock
EXPORTING
side = cl_gui_docking_container=>dock_at_right
extension = 5
ratio = 5
no_autodef_progid_dynnr = abap_true
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2.
cl_salv_table=>factory(
EXPORTING
list_display = if_salv_c_bool_sap=>false " ALV wird im Listenmodus angezeigt
r_container = gr_ccontainer
IMPORTING
r_salv_table = lo_alv "DATA(go_alv) " Basisklasse einfache ALV Tabellen
CHANGING
t_table = gt_bestand
).
Code: Alles auswählen.
CREATE OBJECT gr_ccontainer
EXPORTING
container_name = gc_custom_control_name
"parent = cl_gui_container=>screen0
repid = sy-repid
dynnr = '9002'
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.
IF sy-subrc <> 0.
ENDIF.
CREATE OBJECT go_dock
EXPORTING
side = cl_gui_docking_container=>dock_at_right
extension = 5
ratio = 5
no_autodef_progid_dynnr = abap_true
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2.
cl_salv_table=>factory(
EXPORTING
list_display = if_salv_c_bool_sap=>false " ALV wird im Listenmodus angezeigt
r_container = gr_ccontainer
IMPORTING
r_salv_table = lo_alv "DATA(go_alv) " Basisklasse einfache ALV Tabellen
CHANGING
t_table = gt_bestand
).
lr_layout = lo_alv->get_layout( ).
lr_layout->set_initial_layout( p_layout ).
ls_key-report = sy-repid.
lr_layout->set_key( ls_key ).
lr_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
CREATE OBJECT lcl_event.
SET HANDLER lcl_event->on_double_click FOR lo_alv->get_event( ).
lo_alv->display( ).
CALL SCREEN 9002.