Code: Alles auswählen.
FIELD-SYMBOLS: <fs_grid> TYPE REF TO cl_gui_alv_grid.
FIELD-SYMBOLS: <fs_data_s> TYPE /gebf/tf_data_eplan.
FIELD-SYMBOLS: <fs_data_tab> TYPE /gebf/tf_data_eplan_tab.
DATA: lo_eplan_aend TYPE REF TO /gebf/cl_tf_eplan_aend.
DATA: lt_eplan_aend TYPE /gebf/tt_tf_eplan_aend.
DATA: lv_row TYPE i.
DATA: ls_row_id TYPE lvc_s_row.
FREE: lo_eplan_aend.
ASSIGN go_tf_eplan->go_grid TO <fs_grid>.
CALL METHOD <fs_grid>->get_current_cell
IMPORTING
e_row = lv_row
es_row_id = ls_row_id.
ASSIGN go_tf_eplan->gt_data_eplan TO <fs_data_tab>.
READ TABLE <fs_data_tab> INDEX lv_row ASSIGNING <fs_data_s>.
CREATE OBJECT lo_eplan_aend
EXPORTING
iv_stlnr = <fs_data_s>-stlnr
iv_stlty = <fs_data_s>-stlty
iv_stlkn = <fs_data_s>-stlkn
iv_stpoz = <fs_data_s>-stpoz
iv_idnrk = <fs_data_s>-idnrk.
Code: Alles auswählen.
METHOD start.
me->read_changedocument( ).
me->create_output_tab( ).
CREATE OBJECT mo_container
EXPORTING
container_name = mc_container_name
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.
CREATE OBJECT mo_grid
EXPORTING
i_parent = mo_container.
me->set_alv_grid( ).
ENDMETHOD.
Code: Alles auswählen.
CALL METHOD mo_grid->set_table_for_first_display
EXPORTING
i_structure_name = mc_structure_name
is_variant = ms_variant
is_layout = ms_layout
CHANGING
it_outtab = mt_output
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.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
mareikemei92
Gemeint ist die Methode FREE( ) und nicht der Befehl FREE. (mareikemei92 verwendet in seinem ersten Post ganz oben das obsolete FREE)black_adept hat geschrieben:... dass sowohl dein Grid als auch den Container mittels "FREE" sauber abgebaut werden ...
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
mareikemei92