-*WHENCE img1 PNG -*-RUN -*-EXIT DEFINE FILE WF_RETAIL ICON_PATH/A500V= IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Accessories' THEN 'IBFS:/WFC/Repository/Apps/Images/green_icon.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Camcorder' THEN 'IBFS:/WFC/Repository/Apps/Images/green_icon.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Computers' THEN 'IBFS:/WFC/Repository/Apps/Images/green_icon.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Media Player' THEN 'IBFS:/WFC/Repository/Apps/Images/green_icon.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Stereo Systems' THEN 'IBFS:/WFC/Repository/Apps/Images/green_icon.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Televisions' THEN 'IBFS:/WFC/Repository/Apps/Images/green_icon.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Video Production' THEN 'IBFS:/WFC/Repository/Apps/Images/green_icon.png' ELSE ''; ICON/A500V='<IMG SRC="'||ICON_PATH||'" width=28px height=28px>'; END TABLE FILE WF_RETAIL SUM WF_RETAIL.WF_RETAIL_SALES.REVENUE_US BY WF_RETAIL.WF_RETAIL_PRODUCT.ICON_PATH BY WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY BY LOWEST WF_RETAIL.WF_RETAIL_SALES.SALE_UNITY WHERE RECORDLIMIT EQ 1000 WHERE READLIMIT EQ 1000 ON TABLE SET PAGE-NUM NOLEAD ON TABLE SET ASNAMES ON ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT PDF ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/warm.sty, $ TYPE=DATA, COLUMN=N1, IMAGE=(ICON_PATH), SIZE=(.3 .3), $ ENDSTYLE END
ON TABLE SET STYLE * INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/warm.sty, $ TYPE=DATA, COLUMN=N1,$ Default case TYPE=DATA, COLUMN=N1, IMAGE=('IBFS:/WFC/Repository/Apps/Images/green_icon.png'), SIZE=(.3 .3), WHEN=PRODUCT_CATEGORY EQ 'Accessories',$ TYPE=DATA, COLUMN=N1, IMAGE=('IBFS:/WFC/Repository/Apps/Images/green_icon.png'), SIZE=(.3 .3), WHEN=PRODUCT_CATEGORY EQ 'Camcorder',$ TYPE=DATA, COLUMN=N1, IMAGE=('IBFS:/WFC/Repository/Apps/Images/green_icon.png'), SIZE=(.3 .3), WHEN=PRODUCT_CATEGORY EQ 'Computers',$ etc. ENDSTYLE END
DEFINE FILE WF_RETAIL ICON_PATH/A100V = IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Accessories' THEN 'C:\ibi\AppStudio82\webapps\webfocus\activereports\distribution\images\irbcomment.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Camcorder' THEN 'C:\ibi\AppStudio82\webapps\webfocus\activereports\distribution\images\irbfltg.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Computers' THEN 'C:\ibi\AppStudio82\webapps\webfocus\activereports\distribution\images\irblock.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Media Player' THEN 'C:\ibi\AppStudio82\webapps\webfocus\activereports\distribution\images\irbhrglss.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Stereo Systems' THEN 'C:\ibi\AppStudio82\webapps\webfocus\activereports\distribution\images\irbunlock.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Televisions' THEN 'C:\ibi\AppStudio82\webapps\webfocus\activereports\distribution\images\irbline.png' ELSE IF WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY EQ 'Video Production' THEN 'C:\ibi\AppStudio82\webapps\webfocus\activereports\distribution\images\irbscattr.png' ELSE ''; END TABLE FILE WF_RETAIL SUM WF_RETAIL.WF_RETAIL_SALES.REVENUE_US BY ICON_PATH BY WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY BY WF_RETAIL.WF_RETAIL_SALES.SALE_UNITY WHERE RECORDLIMIT EQ 1000 WHERE READLIMIT EQ 1000 ON TABLE SET PAGE-NUM NOLEAD ON TABLE SET ASNAMES ON ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT PDF ON TABLE SET BYDISPLAY ON ON TABLE SET HTMLEMBEDIMG ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/warm.sty, $ TYPE=DATA, COLUMN=N1, IMAGE=(ICON_PATH), SIZE=(0.291667 0.291667), $ ENDSTYLE END
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 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 |
BASE_PATH/A500V ='WFServlet.ibfs?IBFS1_action=RUNFEX&|IBFS_path=/WFC/Repository/Apps/Images/'; ICON_PATH/A500V = IF Def_ROW EQ 'Percent Change' AND SaleCount GT 0 THEN BASE_PATH || 'green_icon.png' ELSE IF Def_ROW EQ 'Percent Change' AND SaleCount LT 0 THEN BASE_PATH || 'red-icon.png'; ICON/A500 = '<IMG SRC="'||ICON_PATH||'" width=10px height=10px>'; Def_IMAGECONCAT/A600V = IF Def_ROW EQ 'Percent Change' AND SaleCount GT 0 THEN ICON|' '|FPRINT(SaleCount,'D12.2','A100') ELSE IF Def_ROW EQ 'Percent Change' AND SaleCount GT 0 THEN ICON|' '|FPRINT(SaleCount,'D12.2','A100') ELSE FPRINT(SaleCount,'D20','A100');
quote:append image to the value
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 |