by Alessandro3089 » Thu May 13, 2004 1:58 pm
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.