Focus-Berichte mit farbigen Zwischenzeilen erstellen in Abhängigkeit der jeweiligen Feldinhalte

Aufgabenstellung: Wie können die Bedingungen durch farbliche Gestaltung der Zwischensummenzeilen sichtbar gemacht werden ?

Im Beispiel werden in Abängigkeit der Höhe der Verkäufe die Zwischensummen der Kosten farblich unterschiedlich dargestellt ohne das die Verkaufszahlen explizit dargestellt werden.

Im FOCUS-Programm:

-SET &ECHO=ALL;

-RUN

SET STYLEMODE=FIXED

SET PANEL = 200

SET CDN=ON

-RUN

TABLE FILE CAR

PRINT RCOST IN 69

COMPUTE SALESFARBE/A10 = IF SALES GT 20000 THEN 'hoch' ELSE

IF SALES GT 10000 THEN 'mittel' ELSE

IF SALES GT 0 THEN 'niedrig' ELSE

'null'; NOPRINT

BY COUNTRY

BY CAR

BY MODEL

BY BODYTYPE

ON BODYTYPE UNDER-LINE

ON BODYTYPE SUBFOOT

"<5 Zwischensumme wenn Verkäufe hoch sind <71 <ST.RCOST "

WHEN SALESFARBE EQ 'hoch';

ON BODYTYPE SUBFOOT

"<5 Zwischensumme wenn Verkäufe mittel sind <71 <ST.RCOST"

WHEN SALESFARBE EQ 'mittel';

ON BODYTYPE SUBFOOT

"<5 Zwischensumme wenn Verkäufe niedrig sind <71 <ST.RCOST"

WHEN SALESFARBE EQ 'niedrig';

FOOTING

"Grün sind hohe Verkäufe (größer als 20000 Stück)"

"Blau sind mittlere Verkäufe (10001 bis 20000 Stück)"

"Rot sind kleine Verkäufe (1 bis 10000 Stück)"

-*"KEINE Zwischensumme zeigt KEINE Verkäufe an"

ON TABLE SET STYLE *

TYPE=REPORT, GRID=OFF,$

TYPE=SUBFOOT, LINE=1, COLOR=RED, WHEN= SALESFARBE EQ 'niedrig' , $ TYPE=SUBFOOT, LINE=1, COLOR=BLUE, WHEN= SALESFARBE EQ 'mittel' , $

TYPE=SUBFOOT, LINE=1, COLOR=GREEN, WHEN= SALESFARBE EQ 'hoch' , $

ENDSTYLE

END

Berichtsanzeige: