TABLE CONTROL zeigt leere Zeilen an

Code: Alles auswählen.

PROCESS BEFORE OUTPUT.
* MODULE STATUS_2900.
  MODULE data_retrieval.

  LOOP AT it_zahlein INTO wa_zahlein WITH CONTROL ZAHLEIN.
    MODULE populate_screen.
  ENDLOOP.

PROCESS AFTER INPUT.
  LOOP AT it_zahlein.
    MODULE refresh_rows.
  ENDLOOP.
* MODULE USER_COMMAND_2900.

Code: Alles auswählen.

module DATA_RETRIEVAL output.

SELECT * FROM zk31s11_t_zahlea INTO CORRESPONDING FIELDS OF TABLE it_zahlein WHERE ZAHLEA = '+'.

endmodule.                 " DATA_RETRIEVAL  OUTPUT

Code: Alles auswählen.

module POPULATE_SCREEN output.

    MOVE-CORRESPONDING wa_zahlein TO zahlein.

endmodule.                 " POPULATE_SCREEN  OUTPUT

Code: Alles auswählen.

MODULE refresh_rows INPUT.

  MOVE-CORRESPONDING zahlein TO wa_zahlein.

  MODIFY it_zahlein FROM wa_zahlein INDEX zahlein-current_line.

ENDMODULE. 

Code: Alles auswählen.

PROCESS AFTER INPUT.
  LOOP AT it_zahlein.
    MODULE refresh_rows.
  ENDLOOP.
* MODULE USER_COMMAND_2900.

Code: Alles auswählen.

MOVE-CORRESPONDING wa_zahlein TO zahlein.

Code: Alles auswählen.

**************************************
* DATENDEKLARATION FÜR TABLE CONTROL *
**************************************

CONTROLS: ZAHLEIN TYPE TABLEVIEW USING SCREEN 2900.
DATA: it_zahlein TYPE TABLE OF zk31s11_t_zahlea initial size 0, wa_zahlein TYPE zk31s11_t_zahlea.