Alternative zur Abfrage von sy-tabix

Alternative zur Abfrage von sy-tabix

Hallo zusammen,

ich ändere bzw. füge Einträge über das ALV Grid (benutze die Klasse: cl_gui_alv_grid) in meine Datenbanktabelle hinzu. Dies habe ich mit Hilfe zweier Buttons und einem nachfolgendem Popup realisiert und funktioniert auch. Allerdings fülle ich die interne Tabelle zunächst mit Hilfe eines Loops, indem ich andauernd sy-tabix abfrage und je nachdem in welchem Durchlauf es sich befindet, werden somit die Einträge in meine interne Struktur gespeichert. Ich zeig hier einmal meinen Codeabschnitt, welcher neue Einträge in die Tabelle schreibt (bei der Bearbeitungsfunktion ist dieser annähernd gleich):

CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
popup_title = 'Append Data'
TABLES
fields = it_fields
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.

IF sy-subrc = 0.
LOOP AT it_fields INTO is_fields.
IF sy-tabix EQ 1.
gs_out-nummer = is_fields-value.
ELSEIF sy-tabix EQ 2.
gs_out-titel = is_fields-value.
ELSEIF sy-tabix EQ 3.
gs_out-task = is_fields-value.
ELSEIF sy-tabix EQ 4.
gs_out-b_date = is_fields-value.
ELSEIF sy-tabix EQ 5.
gs_out-b_time = is_fields-value.
ELSEIF sy-tabix EQ 6.
gs_out-e_time = is_fields-value.
ELSEIF sy-tabix EQ 7.
gs_out-pause = is_fields-value.
ELSEIF sy-tabix EQ 8.
gs_out-r_time = is_fields-value.
ELSEIF sy-tabix EQ 9.
gs_out-km = is_fields-value.
ELSEIF sy-tabix EQ 10.
IF is_fields-value IS INITIAL.
gs_out-spesen = 'N'.
ELSE.
gs_out-spesen = is_fields-value.
ENDIF.
ELSEIF sy-tabix EQ 11.
gs_out-bearbeiter = is_fields-value.
ELSEIF sy-tabix EQ 12.
gs_out-cr_date = is_fields-value.
ELSEIF sy-tabix EQ 13.
gs_out-cr_time = is_fields-value.
ELSEIF sy-tabix EQ 14.
gs_out-ch_date = is_fields-value.
ELSEIF sy-tabix EQ 15.
gs_out-ch_time = is_fields-value.
ENDIF.
ENDLOOP.

APPEND gs_out TO gt_out.

CALL METHOD lr_alv->refresh_table_display.

* Insert in dtbt
MOVE-CORRESPONDING gs_out TO ls_activities.
INSERT zactvt FROM ls_activities.

Meine Frage is nun, welche kürzeren Alternativen es denn gibt, um dies zu realisieren. Bzw. sollte es mit assign component funktionieren. Damit gibt es allerdings nur meinen Tabellennamen, das letzte belegte Feld und den dazugehörigen Wert aus. Allerdings weiß ich momentan nicht wie ich dies realisieren kann, sodass die Werte ausgegeben werden. Die Werte stehen ja eigentlich in der Tabelle und nicht in der Struktur.

Mein Ansatz war:

assign component <fields> of structure is_fields to <out>.

Aber hier fehlt bestimmt noch etwas...

Ich hoffe mir kann jemand helfen. :)

LG

Re: Alternative zur Abfrage von sy-tabix

DeathAndPain hat geschrieben: ↑

13.03.2020 09:26

Die 😎-Variante wäre ein Ansatz mit REDUCE von der Form gs_out = REDUCE #( .... Allerdings ist das syntaktisch eher knifflig und was für Profis und Angeber.

🤪 😝