-* Code: -SET &UP_ARROW ='<span style="color: green; font-size:100%; weight=1200;">&|#x2197;</span>'; -SET &DOWN_ARROW='<span style="color: red; font-size:100%; weight=1200;">&|#x2198;</span>'; DEFINE FILE CAR Arrow/A128 = IF SEATS EQ 2 THEN '&DOWN_ARROW' ELSE IF SEATS EQ 4 THEN '=' ELSE '&UP_ARROW' ; END TABLE FILE CAR SUM SEATS Arrow AS '*' BY MODEL ON TABLE SET PAGE-NUM NOLEAD ON TABLE SET ASNAMES ON ON TABLE PCHOLD FORMAT HTML ON TABLE SET CACHELINES ON ON TABLE SET BYDISPLAY ON ON TABLE SET HTMLEMBEDIMG ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * GRID=OFF, BORDER=LIGHT, $ ENDSTYLE END -* The first few lines of the result: The '↗' world be green and the '↘' would be red. MODEL SEATS * 100 LS 2 DOOR AUTO 5 ↗ 2000 4 DOOR BERLINA 4 = 2000 GT VELOCE 2 ↘ . . .
In FOCUS Since 1983 ~ from FOCUS to WebFOCUS. Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206 |
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
-*COMPONENT=Define_CAR DEFINE FILE CAR ARROW/A12=IF CAR.BODY.SEATS EQ 2 THEN '&|#x2197' ELSE IF CAR.BODY.SEATS EQ 4 THEN '=' ELSE '&|#x2198' ; END ENGINE INT CACHE SET ON SET PAGE-NUM=NOLEAD SET SQUEEZE=ON -DEFAULTH &WF_HTMLENCODE=OFF; SET HTMLENCODE=&WF_HTMLENCODE SET HTMLCSS=ON -DEFAULTH &WF_EMPTYREPORT=ON; SET EMPTYREPORT=&WF_EMPTYREPORT -DEFAULTH &WF_SUMMARY='Summary'; -DEFAULTH &WF_TITLE='WebFOCUS Report'; TABLE FILE CAR SUM CAR.BODY.SEATS ARROW AS '*' BY CAR.CARREC.MODEL ON TABLE PCHOLD FORMAT HTML ON TABLE NOTOTAL ON TABLE SET CACHELINES 100 ON TABLE SET GRWIDTH 1 ON TABLE SET STYLE * INCLUDE=IBFS:/FILE/IBI_HTML_DIR/ibi_themes/Warm.sty,$ DEFMACRO=Condition_1, MACTYPE=RULE, WHEN=N2 EQ 2, $ DEFMACRO=Condition_2, MACTYPE=RULE, WHEN=N2 GT 4, $ TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, SUMMARY=&WF_SUMMARY.QUOTEDSTRING, ORIENTATION=LANDSCAPE, PAGESIZE=A4, $ TYPE=DATA, COLUMN=N3, MACRO=Condition_1, FONT='ARIAL', BACKCOLOR=(RGB(255 0 0) RGB(255 0 0)), $ TYPE=DATA, COLUMN=N3, MACRO=Condition_2, FONT='ARIAL', BACKCOLOR=(RGB(0 255 64) RGB(0 255 64)), $ ENDSTYLE END -RUN
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
In FOCUS Since 1983 ~ from FOCUS to WebFOCUS. Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206 |
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
Short answer: No... I started with 'codes', based on the 'Image in the report column does not appear in 8201m' post. However, images would be better. However, I had issues (running thru a learning curve in 8204 IA) accessing images, it didn't work the same way as in that post. I uploaded the 'Arrow Images' to a Common App Folder and can get them to a Common Domain Folder, where ever Best Practices would recommend.quote:Does it have to be those characters or could they use HEXBYT(221,'A1') and 223 using the SYMBOL font?
quote:Originally posted by Doug:
1) How, within IA, can we change an environmental variable, such as: &WF_HTMLENCODE from ON to OFF ;?
quote:Originally posted by Doug:Short answer: No... I started with 'codes', based on the 'Image in the report column does not appear in 8201m' post. However, images would be better. However, I had issues (running thru a learning curve in 8204 IA) accessing images, it didn't work the same way as in that post. I uploaded the 'Arrow Images' to a Common App Folder and can get them to a Common Domain Folder, where ever Best Practices would recommend.quote:Does it have to be those characters or could they use HEXBYT(221,'A1') and 223 using the SYMBOL font?
Thanks, Doug
-*COMPONENT=Define_car DEFINE FILE ibisamp/car CODE/A12=IF CAR.BODY.SEATS EQ 2 THEN '&|darr;' ELSE IF CAR.BODY.SEATS EQ 4 THEN '&|rarr;' ELSE '&|uarr;' ; IMAGE/A250V=IF CAR.BODY.SEATS EQ 2 THEN '<img src="/ibi_apps/run/ibfs?IBFS_path=/EDA/EDASERVE/images/D_xlRedArrow.png" alt="Red Arrow Down">' ELSE IF CAR.BODY.SEATS EQ 4 THEN '<img src="/ibi_apps/run/ibfs?IBFS_path=/EDA/EDASERVE/images/C_xlYellowArrow.png" alt="Yellow Arrow Right">' ELSE '<img src="/ibi_apps/run/ibfs?IBFS_path=/EDA/EDASERVE/images/A_xlGreenArrow.png" alt="Green Arrow Up">' ; END ENGINE INT CACHE SET ON SET PAGE-NUM=NOLEAD SET SQUEEZE=ON -DEFAULTH &WF_HTMLENCODE=OFF; SET HTMLENCODE=&WF_HTMLENCODE SET HTMLCSS=ON -DEFAULTH &WF_EMPTYREPORT=ON; SET EMPTYREPORT=&WF_EMPTYREPORT -DEFAULTH &WF_SUMMARY='Summary'; -DEFAULTH &WF_TITLE='WebFOCUS Report'; TABLE FILE ibisamp/car SUM CAR.BODY.SEATS CODE IMAGE BY CAR.CARREC.MODEL ON TABLE PCHOLD FORMAT HTML ON TABLE NOTOTAL ON TABLE SET CACHELINES 100 ON TABLE SET GRWIDTH 1 ON TABLE SET AUTOFIT OFF ON TABLE SET STYLE * INCLUDE=IBFS:/FILE/IBI_HTML_DIR/ibi_themes/endeflt.sty,$ DEFMACRO=Condition_1, MACTYPE=RULE, WHEN=N2 EQ 2, $ DEFMACRO=Condition_2, MACTYPE=RULE, WHEN=N2 GT 4, $ TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, SUMMARY=&WF_SUMMARY.QUOTEDSTRING, HFREEZE=OFF, $ TYPE=DATA, COLUMN=N2, JUSTIFY=CENTER, $ TYPE=DATA, COLUMN=N3, JUSTIFY=CENTER, FONT='CALIBRI', SIZE=11, COLOR=RGB(232 155 35), STYLE=BOLD, HYPERLINK-COLOR=RGB(232 155 35), $ TYPE=DATA, COLUMN=N3, MACRO=Condition_1, JUSTIFY=CENTER, FONT='CALIBRI', SIZE=11, COLOR=RGB(255 0 0), STYLE=BOLD, HYPERLINK-COLOR=RGB(255 0 0), $ TYPE=DATA, COLUMN=N3, MACRO=Condition_2, JUSTIFY=CENTER, FONT='CALIBRI', SIZE=11, COLOR=RGB(0 128 0), STYLE=BOLD, HYPERLINK-COLOR=RGB(0 128 0), $ ENDSTYLE END -RUN
SVG/A200V=IF CAR.BODY.SEATS EQ 2 THEN '<svg height="16" width="16" viewBox="0 0 26 26" xmlns="http://www.w3.org/2000/svg"><polygon points="7,1 19,1 19,13 25,13 13,25 1,13 7,13" style="fill: red; stroke: black; stroke-width: 1;" /></svg>' ELSE IF CAR.BODY.SEATS EQ 4 THEN '<svg height="16" width="16" viewBox="0 0 26 26" xmlns="http://www.w3.org/2000/svg"><polygon points="13,1 25,13 13,25 13,19 1,19 1,7 13,7" style="fill: yellow; stroke: black; stroke-width: 1;" /></svg>' ELSE '<svg height="16" width="16" viewBox="0 0 26 26" xmlns="http://www.w3.org/2000/svg" ><polygon points="13,1 25,13 19,13 19,25 7,25 7,13 1,13" style="fill: green; stroke: black; stroke-width: 1;" /></svg>';