statusikonen in einer spalte eines table control ausgeben

[Erica4990]

Ich möchte in meinem tablecontrol eine statusikonenspalte habe.
hat jemand schonmal sowas gemacht bzw eine idee wie es funktionieren könnte????

[Alessandro3089]

Hallo,
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 .

4. 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.