Code: Alles auswählen.
* Teilt jedes Feld durch die Fläche und schreibt Ergebnis zurück
DATA: wa_itab TYPE z_origin_db_table,
spalte TYPE string.
FIELD-SYMBOLS: <wa> TYPE ANY,
<feld> TYPE ANY.
LOOP AT <table1> ASSIGNING <wa>.
MOVE-CORRESPONDING <wa> TO wa_itab.
IF wa_itab-flaeche <> 0.
LOOP AT it_selected_ka INTO wa_selected_ka. "it_selected enthält Kostenschlüssel
IF wa_selected_ka-nr = '0'.
spalte = 'wa_itab-ka_summe'.
ASSIGN (spalte) TO <feld>.
<feld> = <feld> / wa_itab-flaeche.
ELSE.
CONCATENATE 'wa_itab-ka' wa_selected_ka-nr INTO spalte.
ASSIGN (spalte) TO <feld>.
<feld> = <feld> / wa_itab-flaeche.
ENDIF.
ENDLOOP.
ENDIF.
MOVE-CORRESPONDING wa_itab TO <wa>.
ENDLOOP.