Table Control: Status Spalte

Aus einem Forum:

Kurz und prägnant

  1. INCLUDE <ICON> .
  2. Screen-Painter Status-Icon mit Feldnamen wie in der zum TC gehörigen Tabelle . z.B. t01-icon.
  3. in interner Tabelle Feld wie im TC definiert:

DATA BEGIN OF t01 occurs 0.
…..
DATA ICON LIKE ICON-ID.
Data status(2).
…
DATA END OF t01 .

  1. Ablauf-Logik:
    PBO.
    MODULE ICON_STATUS.
    LOOP AT t01 with Control …
    module …
    ENDLOOP.

5 ABAP.

MODULE ICON_STATUS output.
loop at t01.
If T01-status = ‚OK‘
t01-icon = ICON_LED_GREEN.
ELSEIF T01-STATUS = SPACE.
t01-icon = ICON_LED_YELLOW.
else.
t01-icon = ICON_LED_RED.
endif.
modif t01.
endloop.
ENDMODULE.