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 |
-SET &RANDOM=RDUNIF('D12.9') * 1000000; -RUN TABLE FILE CAR SUM DEALER_COST BY COUNTRY BY CAR ACROSS BODYTYPE ON TABLE SET STYLE * TYPE=HEADING, LINE=1, STYLE=BOLD, JUSTIFY=LEFT, SIZE=10, BACKCOLOR=WHITE,$ TYPE=HEADING, STYLE=BOLD, SIZE=12, JUSTIFY=CENTER, BACKCOLOR=GREY,$ TYPE=SUBHEAD, STYLE=BOLD, SIZE=11, JUSTIFY=CENTER,$ TYPE=DATA, ACROSSCOLUMN=N1, FOCEXEC=MYFEX2(COUNTRY=N1 RANDOM=&RANDOM),$ TYPE=ACROSSVALUE, JUSTIFY=RIGHT,$ ENDSTYLE END
-DEFAULT &COUNTRY='FOC_NONE'; -DEFAULT &CAR='FOC_NONE'; -RUN -SET &RANDOM=RDUNIF('D12.9') * 1000000; -RUN TABLE FILE CAR PRINT RETAIL_COST BY COUNTRY BY CAR BY MODEL WHERE COUNTRY EQ '&COUNTRY'; WHERE CAR EQ '&CAR'; ON TABLE HOLD AS DATA1 FORMAT HTMTABLE ON TABLE NOTOTAL ON TABLE SET STYLESHEET * TYPE=HEADING, LINE=1, STYLE=BOLD, JUSTIFY=LEFT,$ TYPE=HEADING, LINE=2, STYLE=BOLD, JUSTIFY=CENTER, SIZE=12,$ TYPE=HEADING, LINE=3, STYLE=BOLD, JUSTIFY=CENTER, SIZE=11,$ ENDSTYLE END -RUN -HTMLFORM BEGIN <HTML> <HEAD> <TITLE></TITLE> <META content="WebFocus Report Layout Painter" name ="Generator"> <SCRIPT id=IbiOptionsScript type=text/javascript> var rltVersion = "764"; var cgipath = "cgipath"; var ibirls = "ibirls2"; var rltdyncalendar = "rltdyncalendar"; var gmap = "ibigmap"; var olap="olap"; var olappanebase="olappanebase"; var olapdrill="olapdrill"; var ibixmltree="ibixmltree"; var ibiOptions = new Array(cgipath,ibirls); </SCRIPT> <SCRIPT id=nls src="/ibi_html/javaassist/nls.js" type=text/javascript></SCRIPT> <SCRIPT id=ibigbl src="/ibi_html/javaassist/ibi/html/js/ibigbl.js" type=text/javascript></SCRIPT> <SCRIPT id=ibigblloadCss type=text/javascript> ibigblloadCss(null);</SCRIPT> <SCRIPT id=clientEventHandlersJS type=text/javascript> //Begin function window_onload function window_onload() { UpdateData(); // TODO: Add your event handler code here //add onInitialUpdate() function to make changes before initial run of the reports } //End function window_onload //Begin function button1_OnClick function button1_OnClick(ctrl) { // TODO: Add your event handler code here OnExecute(ctrl) } //End function button1_OnClick </SCRIPT> <SCRIPT for=window eventname="onload">window.onload = function() { window_onload(); }</SCRIPT> </HEAD> <BODY> <!--startibiitems--> <div id="div2" style="z-index:-1000; top: 80;"> <FORM onsubmit=SaveValues() method=post name ="form"> <INPUT type=hidden value=C1P_TEST1 name ="IBIF_ex"> <INPUT id=IBIAPP_app type=hidden value=C1P name ="IBIAPP_app"> <INPUT NAME="RANDOM" TYPE="HIDDEN" VALUE="!IBI.AMP.RANDOM;"> <table> <tr> <td>[b]Country[/b]</td> <td>[b]Car[/b]</td> </tr> <tr> <td> <SELECT id=combobox2 tabIndex=8 size=1 name=COUNTRY dfformat="A4" ibiformat="A4" addalloption="1" accept="0" operation displayfield="COUNTRY" datafield="COUNTRY" selectedvalue datasource="CAR.mas" boundtovariable="1" requiredfield="1468626" datatype="1" sourcetype="typeMaster" cacheruntimedata="1" inchainindex="1" chainnumber="0" dynalldisplayvalue="ALL" newchainnumber="0"></SELECT> </td> <td> <SELECT id=combobox4 tabIndex=12 size=1 name=CAR dfformat="A50" ibiformat="A50" addalloption="1" accept="0" operation displayfield="CAR" datafield="CAR" selectedvalue datasource="CAR.mas" boundtovariable="1" requiredfield="1468626" datatype="1" sourcetype="typeMaster" cacheruntimedata="1" inchainindex="2" chainnumber="0" dynalldisplayvalue="ALL" newchainnumber="0"></SELECT> </td> </tr> <tr><td> <INPUT type=submit value=Submit name ="button4" elementname="button4" elementtype="button" targetname targettype="0" onclickset="0" sourcetype="typeUrl"></td> <td> <INPUT type=reset value=Reset name ="button5" elementname="button5" elementtype="button" targetname targettype="0" onclickset="0" sourcetype="typeUrl"> </td></tr></table></p> </FORM> </div> <SCRIPT type=text/javascript> <!-- window.chain0=new Array(1); window.chain0[0]=new String("combobox2;combobox4"); window.chain0[1]=1 //--> </SCRIPT> <!--endibiitems--> !IBI.FIL.DATA1; </BODY> </HTML> -HTMLFORM ENDThis message has been edited. Last edited by: Tewy,
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 |