Code: Alles auswählen.
METHOD transfer_selected .
DATA lo_nd_tab_search TYPE REF TO if_wd_context_node.
DATA lo_el_tab_search TYPE REF TO if_wd_context_element.
DATA lt_selected TYPE wdr_context_element_set.
DATA lo_nd_tab_select TYPE REF TO if_wd_context_node.
DATA ls_tab_select TYPE wd_this->element_tab_select.
DATA lt_tab_select TYPE wd_this->elements_tab_select.
"Objekt für Tabelle mit Suchtreffen
lo_nd_tab_search = wd_context->get_child_node( name = wd_this->wdctx_tab_search ).
"Ermitteln der selektierten Einträge
lt_selected = lo_nd_tab_search->get_selected_elements( ).
"Prüfe ob nicht leer
check lt_selected is NOT INITIAL.
"Selektierte Einträge in die neue Tabelle Selektet schreiben
LOOP AT lt_selected INTO DATA(ls_select).
ls_select->get_static_attributes(
IMPORTING
static_attributes = ls_tab_select
).
APPEND ls_tab_select TO lt_tab_select.
ENDLOOP.
"Objekt für Tabelle für seektierte Einträge
lo_nd_tab_select = wd_context->get_child_node( name = wd_this->wdctx_tab_select ).
"Schreiben nur der selektierten Einträge in die Tabelle SELECTED
lo_nd_tab_select->bind_table( new_items = lt_tab_select set_initial_elements = abap_true ).
ENDMETHOD.