Wert aus ITAB Spalten einer dynamischen Tabelle zuweisen

Code: Alles auswählen.

 2 Tabellen:  t_kum mit den kumulierten Werten, t_dyn mit den dynamischen spalten
loop at t_kum assigning <ls_kum>.
  tabelleneintrag in t_dyn zum Beleg finden und in Feldsymbol <ls_dyn> ablegen.  
  Wenn dieser noch nicht existiert einfügen und neuen Eintrag in <ls_dyn> ablegen.
  ASSIGN COMPONENT zmonth of structure <ls_dyn> to <lv_monatsspalte>.  
* Wenn das nicht klappt im Debugger schauen ob zmonth richtig gefüllt ist und es auch wirklich eine Spalte gibt, die genau so heißt.
  add  <ls_kum>-wmeng to <lv_monatsspalte>.
    
endloop.

Code: Alles auswählen.

REPORT.



TYPES: BEGIN OF ts_kum,
         spmon TYPE spmon,
         vbeln TYPE vbeln,
         wmeng TYPE wmeng,
       END OF ts_kum,
       tt_kum TYPE STANDARD TABLE OF ts_kum WITH NON-UNIQUE DEFAULT KEY.

TYPES: BEGIN OF ts_dyn,
         vbeln        TYPE vbeln,
         wmeng_201611 TYPE wmeng,
         wmeng_201612 TYPE wmeng,
         wmeng_201701 TYPE wmeng,
       END OF ts_dyn,
       tt_dyn TYPE STANDARD TABLE OF ts_dyn WITH NON-UNIQUE DEFAULT KEY.

DATA: gt_kum TYPE tt_kum,
      gs_kum TYPE ts_kum,
      gt_dyn TYPE tt_dyn,
      gs_dyn like line of gt_dyn.

FIELD-SYMBOLS: <ls_dyn>   LIKE LINE OF gt_dyn,
               <lv_field> TYPE wmeng.


DEFINE build_testdata.
  gs_kum-spmon = &1.
  gs_kum-vbeln = &2.
  gs_kum-wmeng = &3.
  append gs_kum to gt_kum.
END-OF-DEFINITION.




END-OF-SELECTION.
* Testdaten -
  build_testdata: '201611' '0000011111' 10,
                  '201612' '0000011111' 20,
                  '201701' '0000011111' 40,
                  '201611' '0000022222' 50,
                  '201611' '0000022222' 60,  " 2. Eintrag mit selbem Schlüssel
                  '201612' '0000022222' 70,
                  '201611' '0000033333' 80,
                  '201611' '0000033333' 90,  " 2. Eintrag mit selbem Schlüssel
                  '201611' '0000033333' 100,
                  '201612' '0000033333' 110,
                  '201611' '0000044444' 120,
                  '201701' '0000044444' 130.

  LOOP AT gt_kum INTO gs_kum.
    LOOP AT gt_dyn ASSIGNING <ls_dyn> WHERE ('VBELN = gs_kum-vbeln').
      EXIT.
    ENDLOOP.
    if sy-subrc <> 0.
      clear gs_dyn.
      gs_dyn-vbeln = gs_kum-vbeln.
      append gs_dyn to gt_dyn ASSIGNING <ls_dyn>.
    endif.

    data: spaltenname type string.
    spaltenname = |WMENG_{ gs_kum-spmon }|.
    assign COMPONENT spaltenname of STRUCTURE <ls_dyn> to <lv_field>.
    if sy-subrc = 0.
      add gs_kum-wmeng to <lv_field>.
    endif.
  ENDLOOP.

  break-point.

Code: Alles auswählen.

FIELD-SYMBOLS: <vbeln> type vbeln_va.
Assign component 'VBELN' of structure <wa_dyn_table> to <vbeln>.
if sy-subrc = 0.
  <vbeln> = wa_res-vbeln.
endif.

Code: Alles auswählen.

DATA: BEGIN OF ls_known_fields,
        vbeln type vbeln,
      END OF ls_known_fields.

ls_known_fields-vbeln = wa_res-vbeln.
MOVE-CORRESPONDING ls_known_fields TO <wa_dyn_table>. 

Code: Alles auswählen.

FIELD-SYMBOLS: <vbeln> TYPE vbeln,
                 <labnk> TYPE labnk.
*                 <wa_res> like LINE OF gt_res.
  CREATE DATA wa_dyn_table LIKE LINE OF <t_dyn_table>.
  ASSIGN wa_dyn_table->* TO <wa_dyn_table>.


  SORT gt_res BY zmonth labnk.

  LOOP AT gt_res INTO wa_res.

      IF <wa_dyn_table> IS NOT ASSIGNED.

        APPEND INITIAL LINE TO <t_dyn_table> ASSIGNING <wa_dyn_table>.
      ENDIF.

    CLEAR <wa_dyn_table>.
    IF <vbeln> IS NOT ASSIGNED.
      ASSIGN COMPONENT 'VBELN' OF STRUCTURE <wa_dyn_table> TO <vbeln>.
    ELSE.
        <vbeln> = wa_res-vbeln.
    ENDIF.
    IF sy-subrc = 0.
      <vbeln> = wa_res-vbeln.
    ENDIF.

    ASSIGN COMPONENT 'LABNK' OF STRUCTURE <wa_dyn_table> TO <labnk>.
    IF sy-subrc = 0.
      <labnk> = wa_res-labnk.
    ENDIF.

    spaltenname = ( wa_res-zmonth ).
    ASSIGN COMPONENT spaltenname OF STRUCTURE <wa_dyn_table> TO <w_field>.
    IF sy-subrc = 0.
      ADD wa_res-wmeng TO <w_field>.
    ENDIF.
    APPEND <wa_dyn_table> TO <t_dyn_table>.

  ENDLOOP.