123 <+0> (232) <+0> 985 <+0> (384)
Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |
-SET &PRINTIT = IF &DEF EQ 1 THEN 'BY LOWEST CAR.COMP.CAR NOPRINT' ELSE 'BY LOWEST CAR.COMP.CAR '; TABLE FILE CAR PRINT CAR.CARREC.MODEL CAR.BODY.SEATS &PRINTIT ON TABLE SET PAGE-NUM NOLEAD ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT HTML ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * INCLUDE = endeflt, $ TYPE=DATA, COLUMN=N2, STYLE=BOLD+UNDERLINE, COLOR='RED', WRAP=4.00, WHEN=&DEF NE 1, $ TYPE=TITLE, COLUMN=N4, STYLE=BOLD, $ ENDSTYLE END
-SET &HEADLINE='123 <+0> (232) <+0> 985 <+0> (384)'; -SET &HFMT1=IF(GETTOK(&HEADLINE,&HEADLINE.LENGTH,1,'+',20,'A20V'))CONTAINS '(' THEN 1 ELSE 0; -SET &HFMT2=IF(GETTOK(&HEADLINE,&HEADLINE.LENGTH,2,'+',20,'A20V'))CONTAINS '(' THEN 1 ELSE 0; -SET &HFMT3=IF(GETTOK(&HEADLINE,&HEADLINE.LENGTH,3,'+',20,'A20V'))CONTAINS '(' THEN 1 ELSE 0; -SET &HFMT4=IF(GETTOK(&HEADLINE,&HEADLINE.LENGTH,4,'+',20,'A20V'))CONTAINS '(' THEN 1 ELSE 0; -SET &HFMT5=IF(GETTOK(&HEADLINE,&HEADLINE.LENGTH,5,'+',20,'A20V'))CONTAINS '(' THEN 1 ELSE 0; TABLE FILE CAR PRINT CAR.CARREC.MODEL CAR.BODY.SEATS HEADING "&HEADLINE" ON TABLE SET PAGE-NUM NOLEAD ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT HTML ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * $ TYPE=HEADING,ITEM=1,COLOR=ORANGE,STYLE=BOLD,WHEN=&HFMT1 EQ 1,$ TYPE=HEADING,ITEM=2,COLOR=ORANGE,STYLE=BOLD,WHEN=&HFMT2 EQ 1,$ TYPE=HEADING,ITEM=3,COLOR=ORANGE,STYLE=BOLD,WHEN=&HFMT3 EQ 1,$ TYPE=HEADING,ITEM=4,COLOR=ORANGE,STYLE=BOLD,WHEN=&HFMT4 EQ 1,$ TYPE=HEADING,ITEM=5,COLOR=ORANGE,STYLE=BOLD,WHEN=&HFMT4 EQ 1,$ ENDSTYLE END