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 |
DEFINE FILE CAR TIMG/A150 = '<img id="imgToggle" src="/approot/baseapp/images/1.gif " ' | 'width="9" height="9" onClick="fnToggle()" style="display: inline;">'; TSPAN1/A50 = '<span class=PageHeadingHide'; TSPAN2/A20 = '</span>'; END TABLE FILE CAR SUM SALES BY COUNTRY ON TABLE HOLD AS H001 FORMAT HTMTABLE HEADING "<TIMG" "<TSPAN1 id=h01>Heading Line 1 <TSPAN2" "<TSPAN1 id=h02>Heading Line 2 <TSPAN2" ON TABLE SET PAGE NOLEAD END -RUN -HTMLFORM BEGIN <script language="JavaScript"> function fnToggle() { if (h01.className == 'PageHeadingHide') { h01.className = 'PageHeadingShow'; h02.className = 'PageHeadingShow'; imgToggle.src = "/approot/baseapp/images/0.gif"; } else { h01.className = 'PageHeadingHide'; h02.className = 'PageHeadingHide'; imgToggle.src = "/approot/baseapp/images/1.gif"; } } </script> <style type="text/css"> .PageHeadingHide { display: none; } .PageHeadingShow { display: inline; } </style> !IBI.FIL.H001; -HTMLFORM END
DEFINE FILE CAR TIMG/A150 = '<img id="imgToggle" src="/approot/baseapp/images/1.gif " ' | 'width="9" height="9" onClick="fnToggle()" style="display: inline;">'; TSPAN1/A50 = '<span class=PageHeadingHide'; TSPAN2/A20 = '</span>'; END TABLE FILE CAR SUM SALES BY COUNTRY ON TABLE HOLD AS H001 FORMAT HTMTABLE HEADING "<TIMG" "<TSPAN1 id=h01>Heading Line 1 <TSPAN2" "<TSPAN1 id=h02>Heading Line 2 <TSPAN2" ON TABLE SET PAGE NOLEAD END -RUN -HTMLFORM BEGIN <script language="JavaScript"> function fnToggle() { if (h01.className == 'PageHeadingHide') { imgToggle.src = "/approot/baseapp/images/0.gif"; var spans = getElementsByClassName('PageHeadingHide'); for(i=0; i <spans.length; i++) { spans[i].className = 'PageHeadingShow'; } } else { imgToggle.src = "/approot/baseapp/images/0.gif"; var spans = getElementsByClassName('PageHeadingShow'); for(i=0; i <spans.length; i++) { spans[i].className = 'PageHeadingHide'; } } } function getElementsByClassName(className) { var all = document.all ? document.all : document.getElementsByTagName('*'); var elements = new Array(); for (var e = 0; e < all.length; e++) { if (all[e].className == className) elements[elements.length] = all[e]; } return elements; } </script> <style type="text/css"> .PageHeadingHide { display: none; } .PageHeadingShow { display: inline; } </style> !IBI.FIL.H001; -HTMLFORM END
<TR> <TD> <span class=PageHeadingHide id=h01>Heading Line 1 </span></TD> </TR>
<TR> <TD> <span class='x1'><span class=PageHeadingHide</span> <span class='x1'> id=h01>Heading Line 1 </span> <span class='x1'></span></span> </TD> </TR>
DEFINE FILE CAR TIMG/A150 = '<img id="imgToggle" src="/approot/baseapp/images/1.gif " ' | 'width="9" height="9" onClick="fnToggle()" style="display: inline;">'; TSPAN1/A50 = '<span class=PageHeadingHide'; TSPAN2/A20 = '</span>'; END TABLE FILE CAR SUM SALES BY COUNTRY ON TABLE HOLD AS H001 FORMAT HTMTABLE HEADING "<TIMG" "<TSPAN1 id=h01>Heading Line 1 <TSPAN2" "<TSPAN1 id=h02>Heading Line 2 <TSPAN2" ON TABLE SET PAGE NOLEAD ON TABLE SET STYLE * TYPE=DATA, CLASS=ZeroData, WHEN= SALES LE 0, $ END -RUN -HTMLFORM BEGIN <script language="JavaScript"> function fnToggle() { if (h01.className == 'PageHeadingHide') { imgToggle.src = "/approot/baseapp/images/0.gif"; var spans = getElementsByClassName('PageHeadingHide'); for(i=0; i <spans.length; i++) { spans[i].className = 'PageHeadingShow'; } } else { imgToggle.src = "/approot/baseapp/images/0.gif"; var spans = getElementsByClassName('PageHeadingShow'); for(i=0; i <spans.length; i++) { spans[i].className = 'PageHeadingHide'; } } } function getElementsByClassName(className) { var all = document.all ? document.all : document.getElementsByTagName('*'); var elements = new Array(); for (var e = 0; e < all.length; e++) { if (all[e].className == className) elements[elements.length] = all[e]; } return elements; } </script> <style type="text/css"> body { font-family: font-family: Arial, sans-serif; font-size: 12px; font-weight: normal; } td { font-size: 12px; } .ZeroData { color: red; } .PageHeadingHide { display: none; } .PageHeadingShow { display: inline; font-size: 14px; font-weight: bold; color: navy; } </style> !IBI.FIL.H001; -HTMLFORM END