 |
|||||
|
As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only. Join the TIBCO Community
Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community. | |||||
Read-Only TopicGo | Search | Notify | Tools |
| Convert V532 HTML to V766 HTML | Login/Join |
| Gold member |
Hi there, We have some V5.3.2 Focus code/html that we want to convert to V7.6.6. I have an existing html that I have converted using the HTML Layout Painter in v766. When I run it I get the error message: Error occurred. ERROR: ERROR_MR_MISSING_STRING Required value IBIMR_folder is missing. I looked in the html code and it appears in there and the name of the folder as well. What could be missing? I did a similar conversion with another piece of html and it worked after minor tweaking (dynamic values). For this second case it looked like I could not use the fex code to start the conversion. I was only able to do it from the html. Here's the fex code : -*------------------------------------------------------------------------------ -* Client : Ontario - Ministry of Transportation -* Project : Road Side Data Capture -* Application : District Workload and Defect Summary Report -* Module : rdc030.fex -* Description : -* Called By : WebFOCUS Business Intelligence Dashboard -* Date Developed: January 2005 -* Developed by : Tamra Colangelo, Information Builders -*------------------------------------------------------------------------------ -* Maintenance History -*------------------------------------------------------------------------------ -* Modified by : -* Date Modified: -* Reason : -* Mod. ID : -*------------------------------------------------------------------------------ -SET &REP_NAME = 'Workload and Defect Summary Report'; -STEP0 SET LINES=9999 SET PAPER=9999 SET SPACES = 1 SET ASNAMES= ON -SET &RUN_DATE = &DATEMtrDYY; -SET &RUN_TIME = EDIT(HHMMSS('A8'),'99$:99$:99'); -*QUARTERS -DEFAULT &ADATE1 = '20050107'; -DEFAULT &ADATE2 = '20050108'; -SET &ADATETIME1 = &ADATE1 | ' 00:00:00'; -SET &ADATETIME2 = &ADATE2 | ' 23:59:59'; -SET &ADATE1TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE1, 'A17'), 'A17'); -SET &ADATE2TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE2, 'A17'), 'A17'); -SET &QTRBEG_DATE = &ADATE1 | ' 00:00:00'; -SET &QTREND_DATE = &ADATE2 | ' 23:59:59'; -****SET &QTRBEG_DATE = LCWORD(17,CHGDAT('YYMD', 'YYMD', &ADATE1, 'A17'), 'A17'); -****SET &QTREND_DATE = LCWORD(17,CHGDAT('YYMD', 'YYMD', &ADATE2, 'A17'), 'A17'); -* -STEP1 -* -*-------------------------------------------------------------------------------- -* set up AXLE GROUPING + MOTORCOACH + -* set up other counts for report -* pickup all corresponding rec form inspectin and opt_field tables -*-------------------------------------------------------------------------------- -AAA SET ALL=ON JOIN CLEAR * JOIN INSPID IN INSPECTION TO ALL INSPID IN INSP_OPT_FIELD AS J1 DEFINE FILE INSPECTION XVEHTYPE/A4 = IF INSPID EQ LAST INSPID THEN EDIT(OPTFIELDDATA,'9999') ELSE ' '; XAXLE1/I5C = POSIT(OPTFIELDDATA,30,'=',2,'I2') ; XAXLE2/A5 = IF INSPID EQ LAST INSPID THEN XAXLE2 ELSE SUBSTR(30,OPTFIELDDATA,XAXLE1,XAXLE1+2,4,XAXLE2); XAXNUM/A2 = IF INSPID EQ LAST INSPID THEN XAXNUM ELSE GETTOK(OPTFIELDDATA,30,-1,'=',2,XAXNUM); X1AXNUM/I9C = EDIT(XAXNUM); XAXLEGRP/A8 = IF XAXNUM EQ '2' AND XVEHTYPE EQ 'MC' OR 'VN' OR 'SP' OR 'PD' OR 'SB' OR 'BU' OR 'MT' THEN '02-BUS' ELSE DECODE XAXNUM('2' '2' '3' '3-4' '4' '3-4' '5' '5-7' '6' '5-7' '7' '5-7' ELSE '8+'); XMOTORCOACH/I9 = IF XVEHTYPE EQ 'MC' THEN 1 ELSE 0; END TABLE FILE INSPECTION SUM MAX.STATECENSUSNUM MAX.OPTFIELDDATA MAX.OPTFIELDID MAX.XAXLE1 MAX.XAXLE2 MAX.XAXNUM MAX.X1AXNUM MAX.XAXLEGRP MAX.XMOTORCOACH MAX.TOTALVIO MAX.TOTALOOSVIO MAX.TOTALHM MAX.INSPLOCATIONCODE COMPUTE -* to match with certifeid officers table later the 2 fields must be same format XINSPECTORCODE/A8 = INSPECTORCODE; BY INSPLEVEL BY INSPID BY RPTNUM WHERE INSPLEVEL EQ '1' OR '3' OR '4' OR '5' WHERE INSPSTARTDATE GE (DT(&QTRBEG_DATE.EVAL)) AND INSPENDDATE LE (DT(&QTREND_DATE.EVAL)); WHERE OPTFIELDID EQ 52 OR 7 OR 10 ON TABLE HOLD AS RDC030A FORMAT ALPHA END -RUN -*---------------------------------------------------------- -* check for 0 records -* -IF &LINES EQ 0 GOTO NO_DATA; -* -* -STEP2 -*GOTO STEP3 -*-------------------------------------------------------------------------------- -* pick up only THE PLATES REMOVED AND CHARGES LAID (insp_opt_field table) -* - the INSP_violation(oos) table joined with the other tables causes multiplicative effect -* - using match to pick up all data in file1 and the matching rec form file2 (join produced only matching rec) -*-------------------------------------------------------------------------------- TABLE FILE INSPECTION OPTFIELDDATA OPTFIELDID BY INSPID WHERE ((OPTFIELDID GE 36 AND OPTFIELDID LE 50 OR 53) AND (OPTFIELDDATA EQ 'Y' )) OR ((OPTFIELDID EQ 2 OR 11 OR 12 OR 13 OR 5 OR 53) AND (OPTFIELDDATA EQ 'Y' OR 'N')) WHERE INSPLEVEL EQ '1' OR '3' OR '4' OR '5' WHERE INSPSTARTDATE GE (DT(&QTRBEG_DATE.EVAL)) AND INSPENDDATE LE (DT(&QTREND_DATE.EVAL)); ON TABLE HOLD AS RDC030X FORMAT ALPHA END -RUN -* SET ALL=ON MATCH FILE RDC030A SUM XAXLE2 X1AXNUM XAXLEGRP XMOTORCOACH TOTALVIO TOTALOOSVIO TOTALHM XINSPECTORCODE INSPLOCATIONCODE RPTNUM INSPLEVEL STATECENSUSNUM BY INSPID RUN FILE RDC030X OPTFIELDDATA OPTFIELDID BY INSPID AFTER MATCH HOLD AS RDC030B OLD END -RUN -SKIPVIO DEFINE FILE RDC030B XOOSINSP_CHRGLD/I9C = IF ( TOTALOOSVIO GT 0 ) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID GE 36 AND OPTFIELDID LE 50 ) OR (TOTALOOSVIO GT 0) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 5) THEN 1 ELSE 0; XOOSINSP_PLTRMV/I9C = IF (TOTALOOSVIO NE 0) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 2 OR 11 OR 12 OR 13) THEN 1 ELSE 0; XINSP_CHRGLD/I9C = IF (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID GE 36 AND OPTFIELDID LE 50 ) OR (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 5) THEN 1 ELSE 0; XINSP_PLTRMV/I9C = IF (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 2 OR 11 OR 12 OR 13) THEN 1 ELSE 0; XCNT_OOSINSP/I9C = IF (TOTALOOSVIO GT 0) THEN 1 ELSE 0; -* to ensure grandtotals appear at end XDUMMYSORT/A1 = ' '; END TABLE FILE RDC030B SUM CNT.DST.RPTNUM AS XCNTINSP MAX.XCNT_OOSINSP MAX.TOTALOOSVIO MAX.X1AXNUM XAXLEGRP OPTFIELDID OPTFIELDDATA MAX.XOOSINSP_CHRGLD MAX.XOOSINSP_PLTRMV MAX.XINSP_CHRGLD MAX.XINSP_PLTRMV MAX.XMOTORCOACH MAX.TOTALVIO MAX.TOTALHM XINSPECTORCODE INSPLOCATIONCODE COLUMN-TOTAL BY INSPLEVEL BY XAXLEGRP BY RPTNUM BY INSPID ON TABLE HOLD AS RDC030D END -RUN -*------------------------------------------ -* merge above file with officer names JOIN XINSPECTORCODE IN RDC030D TO INSPCODE IN CERTIFIED_OFFICERS AS JD TABLE FILE RDC030D XCNTINSP XCNT_OOSINSP X1AXNUM XAXLEGRP XMOTORCOACH TOTALVIO TOTALOOSVIO TOTALHM INSPLOCATIONCODE XOOSINSP_CHRGLD XOOSINSP_PLTRMV XINSP_CHRGLD XINSP_PLTRMV INSPCODE REGION AREA XREGION XDISTRICT COMPUTE XOFFLSTNAME/A150 = LASTNAME || (', '|FRSTNAME ); XOFFNAME/A150 = INSPCODE | (' '|LASTNAME)|| (', '|FRSTNAME ); LASTNAME BY INSPLEVEL BY XAXLEGRP ON TABLE HOLD AS RDC030F END -RUN -*---------------------------------------------------------- -* check for 0 records -* -IF &LINES EQ 0 GOTO NO_DATA; -* -*------------------------------------------ -*----- Final report -*------------------------------------------ DEFINE FILE RDC030F TODATE/MtrDYY = '&MDYY'; XBDATE/I8YYMD = &ADATE1.EVAL ; XBEGDATE/MtRDYY = XBDATE; XEDATE/I8YYMD = &ADATE2.EVAL ; XENDDATE/MtRDYY = XEDATE; XCNT_OOSINSP/I9 = IF (TOTALOOSVIO EQ 0) THEN 0 ELSE 1; XTOTINSPHAZ/I9 = IF TOTALHM EQ 0 THEN 0 ELSE 1; -* to ensure grandtotals appear at end XDUMMYSORT/A1 = ' '; END -* TABLE FILE RDC030F SUM XCNTINSP AS 'No. of ,Inspections' XCNT_OOSINSP AS 'No. OOS,Inspections' -*--------------------------------------------------------- -* ASSUME xpct_oos to be the pct of OOS per total # of inspections -*--------------------------------------------------------- COMPUTE XCNT_INSP/I5 = XCNTINSP; NOPRINT COMPUTE XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNTINSP ) * 100; AS '%,OOS' TOTALOOSVIO AS 'Total OOS,Violations' TOTALVIO AS 'Total ,Violations' XMOTORCOACH AS 'Motor,Coach' XTOTINSPHAZ AS 'Total,Insp.,With,Hazmat' XINSP_CHRGLD AS 'Insp.,with,Charges,laid' XINSP_PLTRMV AS 'Insp.,with,Plates,Removed' XOOSINSP_CHRGLD AS 'OOS Insp.,with,Charges,laid' XOOSINSP_PLTRMV AS 'OOS Insp., with , Plates,Removed' X1AXNUM NOPRINT AREA NOPRINT BY XDUMMYSORT NOPRINT BY XREGION AS 'Region' BY INSPLEVEL AS 'Level' BY XAXLEGRP AS 'Axle,Groups' -* ON XREGION PAGE-BREAK -*ON XDISTRICT PAGE-BREAK -*------------------------------------------------------------------------------------------------------------------------- -* REGION CALCULATIONS REQUIRED -*------------------------------------------------------------------------------------------------------------------------- ON XREGION RECAP XREG_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100; XREG_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100; XREG_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100; XREG_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100; XREG_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100; XREG_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP) * 100; XREG_AVG_XOOSVIO/P6.2C = ( TOTALOOSVIO / XCNT_OOSINSP ); XREG_AVG_VIO/P6.2C = ( TOTALVIO / XCNT_INSP ); XREG_AVGAXL/P6.2C = ( X1AXNUM/XCNT_INSP ); ON XREGION SUBFOOT "Total/Percentage: -* LEVEL SUBFOOTING CALCULATIONS -* ON INSPLEVEL RECAP XLVL_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100; XLVL_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100; XLVL_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100; ON INSPLEVEL SUBFOOT "Sub Totals: -*------------------------------------------------------------------------------------------------------------------------- -* Grand totals -*------------------------------------------------------------------------------------------------------------------------- ON XDUMMYSORT RECAP XGRND_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100; XGRND_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100; XGRND_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100; XGRND_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100; XGRND_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100; XGRND_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP) * 100; XGRND_AVG_XOOSVIO/P8.2C = ( TOTALOOSVIO / XCNT_OOSINSP ); XGRND_AVG_VIO/P8.2C = ( TOTALVIO / XCNT_INSP ); XGRND_AVGAXL/P8.2C = ( X1AXNUM/XCNT_INSP ); ON XDUMMYSORT SUBFOOT "Provincial Total/Percentage: <+0> "SafetyNet Inspection System Ontario" "District Workload and Defect Summary" "From "Provincial Report" FOOTING BOTTOM "Report ID: rdc020 / User ID: &MTO_USER / Date: &RUN_DATE / Time: &RUN_TIME / <100>Page: <105> -* record selection -* WHERE XREGION NE 'Non-MTO' -* ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE SET ONLINE-FMT PDF ON TABLE SET STYLE * UNITS=IN, PAGESIZE='Letter', LEFTMARGIN=0.180556, RIGHTMARGIN=0.180556, TOPMARGIN=0.180556, BOTTOMMARGIN=0.03122, SQUEEZE=ON, ORIENTATION=LANDSCAPE, $ TYPE=REPORT, FONT='ARIAL', SIZE=7, COLOR='NAVY', BACKCOLOR='NONE', STYLE=NORMAL, RIGHTGAP=0.125000, TOPGAP=0.013889, $ BOTTOMGAP=0.027778, $ TYPE=DATA, COLUMN=XREGION, SIZE=8, FOCEXEC=app/rdc020a(XREGION = N2 ADATE1='&ADATE1' ADATE2='&ADATE2' ), $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TITLE, COLUMN=N1, SIZE=8, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, BORDER=LIGHT, BORDER-COLOR='GRAY', SIZE=12, STYLE=BOLD, $ TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=1, FONT='TIMES NEW ROMAN', SIZE=20, COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC, $ TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=1, FONT='ARIAL', SIZE=11, COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC, $ TYPE=HEADING, LINE=3, FONT='ARIAL', SIZE=11, COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=4, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=4, OBJECT=TEXT, ITEM=1, FONT='ARIAL', SIZE=11, COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC, $ TYPE=HEADING, LINE=6, STYLE=BOLD+ITALIC, $ TYPE=HEADING, LINE=7, STYLE=BOLD+ITALIC, $ TYPE=FOOTING, SIZE=7, STYLE=ITALIC, COLOR=GREY, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=8, $ TYPE=SUBFOOT, SIZE=8,BY=XDUMMYSORT,BACKCOLOR=RGB(245 245 245), $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=1,POSITION='N5', $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=2,POSITION='N6', $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=3,POSITION='XPCT_OOS', $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=4,POSITION='N13', $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=5,POSITION='N14', $ TYPE=SUBFOOT, LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=6,POSITION='N15', $ TYPE=SUBFOOT, LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=7,POSITION='N16', $ TYPE=SUBFOOT, LINE=2,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=1,POSITION='N3', $ TYPE=SUBFOOT, LINE=2,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=1,POSITION='N5', $ $average OOS violations/OOS inspections TYPE=SUBFOOT, LINE=2,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=4,POSITION='N12', $ TYPE=SUBFOOT,LINE=2,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=2,POSITION='N15', $ TYPE=SUBFOOT, LINE=3,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=1,POSITION='N3', $ TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=1,POSITION='N5', JUSTIFY=RIGHT, $ $motor coach TYPE=SUBFOOT, LINE=3,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=4,POSITION='N9', $ TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=2,POSITION='N10', $ TYPE=SUBFOOT,LINE=3,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=6,POSITION='N12', $ TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=3,POSITION='N15', $ TYPE=SUBFOOT,LINE=4,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=1,POSITION='N9', $ TYPE=SUBFOOT, LINE=4,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=1,POSITION='N10', $ TYPE=SUBFOOT, LINE=4,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=4,POSITION='N12', $ TYPE=SUBFOOT,LINE=4,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=2,POSITION='N15', $ TYPE=SUBFOOT, BY=1, BORDER-TOP=OFF, BORDER-BOTTOM=HEAVY, BORDER-LEFT=OFF, BORDER-RIGHT=OFF, BORDER-BOTTOM-STYLE=DOUBLE, BORDER-BOTTOM-COLOR='GREY', BACKCOLOR=RGB(245 245 245), $ TYPE=SUBFOOT, BY=2, BORDER-TOP=OFF, BORDER-BOTTOM=HEAVY, BORDER-LEFT=OFF, BORDER-RIGHT=OFF, BORDER-BOTTOM-STYLE=DOUBLE, BORDER-BOTTOM-COLOR='GREY', BACKCOLOR=RGB(245 245 245), $region sort TYPE=SUBFOOT, BY=2, SIZE=8, $ TYPE=SUBFOOT, BY=2, LINE=1,OBJECT=FIELD, ITEM=2,POSITION='N5', $ TYPE=SUBFOOT, BY=2, LINE=1,OBJECT=FIELD, ITEM=3,POSITION='N6', $ TYPE=SUBFOOT, BY=2, LINE=1,OBJECT=FIELD, ITEM=4,POSITION='N8', $ TYPE=SUBFOOT, BY=2, LINE=1,OBJECT=FIELD, ITEM=5,POSITION='N12', $ TYPE=SUBFOOT, BY=2, LINE=1,OBJECT=FIELD, ITEM=6,POSITION='N13', $ TYPE=SUBFOOT, BY=2, LINE=1,OBJECT=FIELD, ITEM=7,POSITION='N14', $ TYPE=SUBFOOT, BY=2, LINE=1,OBJECT=FIELD, ITEM=8,POSITION='N15', $ TYPE=SUBFOOT, BY=2, LINE=2,OBJECT=TEXT, ITEM=1,POSITION='N3', $ TYPE=SUBFOOT, BY=2, LINE=2,OBJECT=FIELD, ITEM=1,POSITION='N5', $ $average OOS violations/OOS inspections TYPE=SUBFOOT, BY=2, LINE=2,OBJECT=TEXT, ITEM=4,POSITION='N12', $ TYPE=SUBFOOT, BY=2, LINE=2,OBJECT=FIELD, ITEM=2,POSITION='N15', $ TYPE=SUBFOOT, BY=2, LINE=3,OBJECT=TEXT, ITEM=1,POSITION='N3', $ TYPE=SUBFOOT, BY=2, LINE=3,OBJECT=FIELD, ITEM=1,POSITION='N5', $ $motor coach TYPE=SUBFOOT, BY=2, LINE=3,OBJECT=TEXT, ITEM=4,POSITION= 'N9', $ TYPE=SUBFOOT, BY=2, LINE=3,OBJECT=FIELD, ITEM=2,POSITION='N10', $ TYPE=SUBFOOT, BY=2, LINE=3,OBJECT=TEXT, ITEM=6,POSITION='N12', $ TYPE=SUBFOOT, BY=2, LINE=3,OBJECT=FIELD, ITEM=3,POSITION='N15', $ TYPE=SUBFOOT, BY=2, LINE=4,OBJECT=TEXT, ITEM=1,POSITION='N9', $ TYPE=SUBFOOT, BY=2, LINE=4,OBJECT=FIELD, ITEM=1,POSITION='N10', $ TYPE=SUBFOOT, BY=2, LINE=4,OBJECT=TEXT, ITEM=4,POSITION='N12', $ TYPE=SUBFOOT, BY=2, LINE=4,OBJECT=FIELD, ITEM=2,POSITION='N15', $ $INSPECTION LEVEL TYPE=SUBFOOT, BY=3, BORDER-TOP=LIGHT, BORDER-BOTTOM=LIGHT, BORDER-LEFT=OFF, BORDER-RIGHT=OFF, BORDER-COLOR=RGB(153 153 153), SIZE=7, $ $LEVEL TYPE=SUBFOOT, BY=3, LINE=1, OBJECT=FIELD, ITEM=1, POSITION='N3', $count TYPE=SUBFOOT, BY=3, LINE=1, OBJECT=FIELD, ITEM=2, POSITION='N5', $ TYPE=SUBFOOT, BY=3, LINE=1, OBJECT=FIELD, ITEM=3, POSITION='N6', $OOS % TYPE=SUBFOOT, BY=3, LINE=1, OBJECT=FIELD, ITEM=4, POSITION='XPCT_OOS', $ PLT RMVD $CHRG LD TYPE=SUBFOOT, BY=3, LINE=1, OBJECT=FIELD, ITEM=5, POSITION=XINSP_CHRGLD, $ PLT RMVD TYPE=SUBFOOT, BY=3, LINE=1, OBJECT=FIELD, ITEM=6, POSITION=XINSP_PLTRMV, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -RUN -ALLDONE -EXIT -END_NODATA -TYPE ********** NO DATA FOR FOR QUARTER ************* -EXIT YPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -RUN -ALLDONE -EXIT -END_NODATA -TYPE ********** NO DATA FOR FOR QUARTER ************* -EXIT CT, SIZE=8, $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=2,POSITION='N8', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=3,POSITION='N9', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=4,POSITION=XPCT_OOS, $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=5,POSITION='N16', $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=6,POSITION='N17', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=7,POSITION='N18', $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=8,POSITION='N19', $-------------- TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=TEXT, ITEM=1,POSITION='N6', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=FIELD, ITEM=1,POSITION='N8', $ $average OOS violations/OOS inspections TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=TEXT, ITEM=3,POSITION='N12', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=FIELD, ITEM=2,POSITION='N16', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=TEXT, ITEM=1,POSITION='N6', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=FIELD, ITEM=1,POSITION='N8', $ $motor coach TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=TEXT, ITEM=4,POSITION='N9', JUSTIFY=RIGHT, $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=FIELD, ITEM=2,POSITION=XPCT_OOS, $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=TEXT, ITEM=6,POSITION='N12', $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=FIELD, ITEM=3,POSITION='N16', $DANGEROUS GOODS TYPE=SUBFOOT,BY=XDISTRICT, LINE=4,OBJECT=TEXT, ITEM=1,POSITION='N9', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=4,OBJECT=FIELD, ITEM=1,POSITION=XPCT_OOS, $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=4,OBJECT=TEXT, ITEM=4,POSITION='N12', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=4,OBJECT=FIELD, ITEM=2,POSITION='N16', $ $ $badge no sort =3 TYPE=SUBFOOT, BY=XOFFNAME, SIZE = 7, BORDER-BOTTOM=MEDIUM, BORDER-BOTTOM-STYLE=DOUBLE, BORDER-BOTTOM-COLOR=GREY, $no of inspections TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD, ITEM=2,POSITION='N8', $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD, ITEM=3,POSITION='N9', $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD, ITEM=4, POSITION=XPCT_OOS, $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD, ITEM=5,POSITION='N13', $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD, ITEM=6,POSITION='N14', $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=2, OBJECT=FIELD, ITEM=7, POSITION='N16', $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=2, OBJECT=FIELD, ITEM=8,POSITION='N17', $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD, ITEM=9,POSITION='N18', $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD, ITEM=10,POSITION='N19', $ TYPE=SUBFOOT,BY=XOFFNAME, LINE=3,OBJECT=TEXT, ITEM=1,POSITION='N6', JUSTIFY=RIGHT, $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=3,OBJECT=FIELD, ITEM=1,POSITION='N8', $ TYPE=SUBFOOT, BY=XOFFNAME, LINE=4,OBJECT=TEXT, ITEM=1,POSITION='N6', $ TYPE=SUBFOOT, BY=XOFFNAMEE, LINE=4,OBJECT=FIELD, ITEM=1,POSITION='N8', JUSTIFY=RIGHT, $ $INSPECTION LEVEL TYPE=SUBFOOT, BY=INSPLEVEL, BORDER-TOP=LIGHT, BORDER-BOTTOM=LIGHT, BORDER-LEFT=OFF, BORDER-RIGHT=OFF, BORDER-COLOR=GREY, SIZE=7, BACKCOLOR=RGB(245 245 245), $NAME TYPE=SUBFOOT, BY=INSPLEVEL, LINE=1, OBJECT=FIELD, ITEM=1,POSITION='N5', JUSTIFY =RIGHT, $LEVEL TYPE=SUBFOOT,BY=INSPLEVEL, LINE=1, OBJECT=FIELD, ITEM=2, POSITION='N6', $ CNT INSP TYPE=SUBFOOT, BY=INSPLEVEL, LINE=1, OBJECT=FIELD, ITEM=3, POSITION='N8', $ TYPE=SUBFOOT, BY=INSPLEVEL, LINE=1, OBJECT=FIELD, ITEM=4, POSITION=N9, $ TYPE=SUBFOOT, BY=INSPLEVEL, LINE=1, OBJECT=FIELD, ITEM=5, POSITION=XPCT_OOS, $ ooS CHRG LD TYPE=SUBFOOT,BY=INSPLEVEL, LINE=1, OBJECT=FIELD, ITEM=6, POSITION='N16', $OOS PLT RMVD TYPE=SUBFOOT, BY=INSPLEVEL,LINE=1, OBJECT=FIELD, ITEM=7, POSITION='N17', $ $ GRAND TOTAL TYPE=SUBFOOT, BY=XDUMMYSORT, BORDER-TOP=OFF, BORDER-BOTTOM=HEAVY, BORDER-LEFT=OFF, BORDER-RIGHT=OFF, BORDER-BOTTOM-STYLE=DOUBLE, BORDER-BOTTOM-COLOR='GREY', BACKCOLOR=RGB(245 245 245), $region sort TYPE=SUBFOOT, SIZE=8,BY=XDUMMYSORT, $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=1,POSITION='N8', $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=2,POSITION='N9', $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=3,POSITION=XPCT_OOS, $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=4,POSITION='N16', $ TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=5,POSITION='N17', $ TYPE=SUBFOOT, LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=6,POSITION='N18', $ TYPE=SUBFOOT, LINE=1,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=7,POSITION='N19', $ TYPE=SUBFOOT, LINE=2,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=1,POSITION='N6', $ TYPE=SUBFOOT, LINE=2,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=1,POSITION='N8', $ $average OOS violations/OOS inspections TYPE=SUBFOOT, LINE=2,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=4,POSITION='N12', $ TYPE=SUBFOOT,LINE=2,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=2,POSITION='N16', $ TYPE=SUBFOOT, LINE=3,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=1,POSITION='N6', $ TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=1,POSITION='N8', JUSTIFY=RIGHT, $ $motor coach TYPE=SUBFOOT, LINE=3,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=4,POSITION='N9', $ TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=2,POSITION=XPCT_OOS, $ TYPE=SUBFOOT,LINE=3,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=6,POSITION='N12', $ TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=3,POSITION='N16', $ TYPE=SUBFOOT,LINE=4,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=1,POSITION='N9', $ TYPE=SUBFOOT, LINE=4,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=1,POSITION='XPCT_OOS', $ TYPE=SUBFOOT, LINE=4,OBJECT=TEXT,BY=XDUMMYSORT, ITEM=4,POSITION='N12', $ TYPE=SUBFOOT,LINE=4,OBJECT=FIELD,BY=XDUMMYSORT, ITEM=2,POSITION='N16', $ $ ENDSTYLE END -RUN -IF &LINES GT 0 GOTO REPORT_END; -* -NO_DATA -MRNOEDIT -INCLUDE MISI200 -* -REPORT_END -*------------------------------------------------------------------------------ -* Client : Ontario - Ministry of Transportation -* Project : Road Side Data Capture -* Application : District Workload and Defect Summary r Report -* Module : rdc020a.fex -* Description : drill from rdc020.fex based on xregion -* Called By : WebFOCUS Business Intelligence Dashboard -* Date Developed: January 2005 -* Developed by : Tamra Colangelo, Information Builders -*------------------------------------------------------------------------------ -* Maintenance History -*------------------------------------------------------------------------------ -* Modified by : -* Date Modified: -* Reason : -* Mod. ID : -*------------------------------------------------------------------------------ -STEP0 SET LINES=9999 SET PAPER=9999 SET SPACES = 1 SET ASNAMES= ON -SET &RUN_DATE = &DATEMtrDYY; -SET &RUN_TIME = EDIT(HHMMSS('A8'),'99$:99$:99'); -*QUARTERS -DEFAULT &ADATE1 = '20050101'; -DEFAULT &ADATE2 = '20050131'; -SET &ADATETIME1 = &ADATE1 | ' 00:00:00'; -SET &ADATETIME2 = &ADATE2 | ' 23:59:59'; -SET &ADATE1TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE1, 'A17'), 'A17'); -SET &ADATE2TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE2, 'A17'), 'A17'); -SET &QTRBEG_DATE = &ADATE1 | ' 00:00:00'; -SET &QTREND_DATE = &ADATE2 | ' 23:59:59'; -****SET &QTRBEG_DATE = LCWORD(17,CHGDAT('YYMD', 'YYMD', &ADATE1, 'A17'), 'A17'); -****SET &QTREND_DATE = LCWORD(17,CHGDAT('YYMD', 'YYMD', &ADATE2, 'A17'), 'A17'); -* -STEP1 -* -*-------------------------------------------------------------------------------- -* set up AXLE GROUPING + MOTORCOACH + -* set up other counts for report -* pickup all corresponding rec form inspectin and opt_field tables -*-------------------------------------------------------------------------------- -AAA SET ALL=ON JOIN CLEAR * JOIN INSPID IN INSPECTION TO ALL INSPID IN INSP_OPT_FIELD AS J1 DEFINE FILE INSPECTION XVEHTYPE/A4 = IF INSPID EQ LAST INSPID THEN EDIT(OPTFIELDDATA,'9999') ELSE ' '; XAXLE1/I5C = POSIT(OPTFIELDDATA,30,'=',2,'I2') ; XAXLE2/A5 = IF INSPID EQ LAST INSPID THEN XAXLE2 ELSE SUBSTR(30,OPTFIELDDATA,XAXLE1,XAXLE1+2,4,XAXLE2); XAXNUM/A2 = IF INSPID EQ LAST INSPID THEN XAXNUM ELSE GETTOK(OPTFIELDDATA,30,-1,'=',2,XAXNUM); X1AXNUM/I9C = EDIT(XAXNUM); XAXLEGRP/A8 = IF XAXNUM EQ '2' AND XVEHTYPE EQ 'MC' OR 'VN' OR 'SP' OR 'PD' OR 'SB' OR 'BU' OR 'MT' THEN '02-BUS' ELSE DECODE XAXNUM('2' '2' '3' '3-4' '4' '3-4' '5' '5-7' '6' '5-7' '7' '5-7' ELSE '8+'); XMOTORCOACH/I9 = IF XVEHTYPE EQ 'MC' THEN 1 ELSE 0; END TABLE FILE INSPECTION SUM MAX.STATECENSUSNUM MAX.OPTFIELDDATA MAX.OPTFIELDID MAX.XAXLE1 MAX.XAXLE2 MAX.XAXNUM MAX.X1AXNUM MAX.XAXLEGRP MAX.XMOTORCOACH MAX.TOTALVIO MAX.TOTALOOSVIO MAX.TOTALHM MAX.INSPLOCATIONCODE COMPUTE -* to match with certifeid officers table later the 2 fields must be same format XINSPECTORCODE/A8 = INSPECTORCODE; BY INSPLEVEL BY INSPID BY RPTNUM WHERE INSPLEVEL EQ '1' OR '3' OR '4' OR '5' WHERE INSPSTARTDATE GE (DT(&QTRBEG_DATE.EVAL)) AND INSPENDDATE LE (DT(&QTREND_DATE.EVAL)); WHERE OPTFIELDID EQ 52 OR 7 OR 10 ON TABLE HOLD AS RDC030A FORMAT ALPHA END -*EXIT -RUN -*---------------------------------------------------------- -* check for 0 records -* -IF &LINES EQ 0 GOTO NO_DATA; -* -* -STEP2 -*-------------------------------------------------------------------------------- -* pick up only THE PLATES REMOVED AND CHARGES LAID (insp_opt_field table) -* - the INSP_violation(oos) table joined with the other tables causes multiplicative effect -* - using match to pick up all data in file1 and the matching rec form file2 (join produced only matching rec) -*-------------------------------------------------------------------------------- TABLE FILE INSPECTION OPTFIELDDATA OPTFIELDID BY INSPID WHERE ((OPTFIELDID GE 36 AND OPTFIELDID LE 50 OR 53) AND (OPTFIELDDATA EQ 'Y' )) OR ((OPTFIELDID EQ 2 OR 11 OR 12 OR 13 OR 5 OR 53) AND (OPTFIELDDATA EQ 'Y' OR 'N')) WHERE INSPLEVEL EQ '1' OR '3' OR '4' OR '5' WHERE INSPSTARTDATE GE (DT(&QTRBEG_DATE.EVAL)) AND INSPENDDATE LE (DT(&QTREND_DATE.EVAL)); ON TABLE HOLD AS RDC030X FORMAT ALPHA END -RUN -* SET ALL=ON MATCH FILE RDC030A SUM XAXLE2 X1AXNUM XAXLEGRP XMOTORCOACH TOTALVIO TOTALOOSVIO TOTALHM XINSPECTORCODE INSPLOCATIONCODE RPTNUM INSPLEVEL STATECENSUSNUM BY INSPID RUN FILE RDC030X OPTFIELDDATA OPTFIELDID BY INSPID AFTER MATCH HOLD AS RDC030B OLD END -RUN DEFINE FILE RDC030B XOOSINSP_CHRGLD/I9C = IF ( TOTALOOSVIO GT 0 ) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID GE 36 AND OPTFIELDID LE 50 ) OR (TOTALOOSVIO GT 0) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 5) THEN 1 ELSE 0; XOOSINSP_PLTRMV/I9C = IF (TOTALOOSVIO NE 0) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 2 OR 11 OR 12 OR 13) THEN 1 ELSE 0; XINSP_CHRGLD/I9C = IF (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID GE 36 AND OPTFIELDID LE 50 ) OR (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 5) THEN 1 ELSE 0; XINSP_PLTRMV/I9C = IF (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 2 OR 11 OR 12 OR 13) THEN 1 ELSE 0; XCNT_OOSINSP/I9C = IF (TOTALOOSVIO GT 0) THEN 1 ELSE 0; -* to ensure grandtotals appear at end XDUMMYSORT/A1 = ' '; END TABLE FILE RDC030B SUM CNT.DST.RPTNUM AS XCNTINSP MAX.XCNT_OOSINSP MAX.TOTALOOSVIO MAX.X1AXNUM XAXLEGRP OPTFIELDID OPTFIELDDATA MAX.XOOSINSP_CHRGLD MAX.XOOSINSP_PLTRMV MAX.XINSP_CHRGLD MAX.XINSP_PLTRMV MAX.XMOTORCOACH MAX.TOTALVIO MAX.TOTALHM XINSPECTORCODE INSPLOCATIONCODE COLUMN-TOTAL BY INSPLEVEL BY XAXLEGRP BY RPTNUM BY INSPID ON TABLE HOLD AS RDC030D END -RUN -*------------------------------------------ -* merge above file with officer names JOIN XINSPECTORCODE IN RDC030D TO INSPCODE IN CERTIFIED_OFFICERS AS JD TABLE FILE RDC030D XCNTINSP XCNT_OOSINSP X1AXNUM XAXLEGRP XMOTORCOACH TOTALVIO TOTALOOSVIO TOTALHM INSPLOCATIONCODE XOOSINSP_CHRGLD XOOSINSP_PLTRMV XINSP_CHRGLD XINSP_PLTRMV INSPCODE REGION AREA XREGION XDISTRICT COMPUTE XOFFLSTNAME/A150 = LASTNAME || (', '|FRSTNAME ); XOFFNAME/A150 = INSPCODE | (' '|LASTNAME)|| (', '|FRSTNAME ); LASTNAME BY INSPLEVEL BY XAXLEGRP ON TABLE HOLD AS RDC030F END -RUN -*------------------------------------------ -*----- Final report -*------------------------------------------ DEFINE FILE RDC030F XBDATE/I8YYMD = &ADATE1.EVAL ; XBEGDATE/MtRDYY = XBDATE; XEDATE/I8YYMD = &ADATE2.EVAL ; XENDDATE/MtRDYY = XEDATE; XCNT_OOSINSP/I9C = IF (TOTALOOSVIO EQ 0) THEN 0 ELSE 1; XTOTINSPHAZ/I9C = IF TOTALHM EQ 0 THEN 0 ELSE 1; -* to ensure grandtotals appear at end XDUMMYSORT/A1 = ' '; END TABLE FILE RDC030F SUM XCNTINSP AS 'No. of ,Inspections' XCNT_OOSINSP AS 'No. OOS,Inspections' -*--------------------------------------------------------- -* ASSUME xpct_oos to be the pct of OOS per total # of inspections -*--------------------------------------------------------- COMPUTE XCNT_INSP/I6C = XCNTINSP; NOPRINT COMPUTE XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNTINSP ) * 100; AS '%,OOS' TOTALOOSVIO AS 'Total OOS,Violations' TOTALVIO AS 'Total ,Violations' XMOTORCOACH AS 'Motor,Coach' XTOTINSPHAZ AS 'Total,Insp.,With,Hazmat' XINSP_CHRGLD AS 'Insp.,with,Charges,laid' XINSP_PLTRMV AS 'Insp.,with,Plates,Removed' XOOSINSP_CHRGLD AS 'OOS Insp.,with,Charges,laid' XOOSINSP_PLTRMV AS 'OOS Insp., with , Plates,Removed' X1AXNUM NOPRINT BY XDUMMYSORT NOPRINT BY XREGION NOPRINT BY XDISTRICT NOPRINT BY LASTNAME NOPRINT BY XOFFNAME AS 'Badge,No Name ' BY INSPLEVEL AS 'Level' BY XAXLEGRP AS 'Axle,Groups' ON XDISTRICT PAGE-BREAK -*------------------------------------------------------------------------------------------------------------------------- -* REGION CALCULATIONS REQUIRED -*------------------------------------------------------------------------------------------------------------------------- ON XREGION RECAP XREG_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100; XREG_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100; XREG_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100; XREG_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100; XREG_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100; XREG_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP) * 100; XREG_AVG_XOOSVIO/P6.2C = ( TOTALOOSVIO / XCNT_OOSINSP ); XREG_AVG_VIO/P6.2C = ( TOTALVIO / XCNT_INSP ); XREG_AVGAXL/P6.2C = ( X1AXNUM/XCNT_INSP ); ON XREGION SUBFOOT "Total/Percentage: -* DISTRICT SUBFOOTING CALCULATIONS -* ON XDISTRICT RECAP XDIST_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100; XDIST_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100; XDIST_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100; XDIST_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100; XDIST_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100; XDIST_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP ) * 100; XDIST_AVG_XOOSVIO/P6.2 = (TOTALOOSVIO / XCNT_OOSINSP) ; XDIST_AVG_VIO/P6.2C = (TOTALVIO / XCNT_INSP ) ; XDIST_AVGAXL/P6.2C = (X1AXNUM/XCNT_INSP); ON XDISTRICT SUBFOOT "Total/Percentage: -* INSPECTOR SUBFOOTING CALCULATIONS -* ON XOFFNAME RECAP XCHRGLD/I9 = XINSP_CHRGLD; XINSP_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100; XINSP_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP) * 100; XINSP_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100; XINSP_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100; XINSP_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100; XINSP_AVGAXL/P8.2C = (X1AXNUM/XCNT_INSP); ON XOFFNAME SUBFOOT " " "Total/Percentage: -*------------------------------------------------------------- -* LEVEL SUBFOOTING CALCULATIONS -* ON INSPLEVEL RECAP XLVL_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100; XLVL_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100; XLVL_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100; ON INSPLEVEL SUBFOOT "Sub Totals -*------------------------------------------------------------------------------------------------------------------------- -* Grand totals -*------------------------------------------------------------------------------------------------------------------------- ON XDUMMYSORT RECAP XGRND_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100; XGRND_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100; XGRND_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100; XGRND_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100; XGRND_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100; XGRND_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP) * 100; XGRND_AVG_XOOSVIO/P8.2C = ( TOTALOOSVIO / XCNT_OOSINSP ); XGRND_AVG_VIO/P8.2C = ( TOTALVIO / XCNT_INSP ); XGRND_AVGAXL/P8.2C = ( X1AXNUM/XCNT_INSP ); ON XDUMMYSORT SUBFOOT "Provincial Total/Percentage: <+0> "SafetyNet Inspection System Ontario" "District Workload and Defect Summary" "From "Region: <+0> "Report ID: rdc020 / User ID: &MTO_USER / Date: &RUN_DATE / Time: &RUN_TIME <100>Page: <105> -* SELECTION CRITERIA -* WHERE XREGION EQ '&XREGION' -* ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE SET ONLINE-FMT PDF ON TABLE SET STYLE * UNITS=IN, PAGESIZE='Letter', LEFTMARGIN=0.180556, RIGHTMARGIN=0.180556, TOPMARGIN=0.180556, BOTTOMMARGIN=0.00122, SQUEEZE=ON, ORIENTATION=LANDSCAPE, $ TYPE=REPORT, FONT='ARIAL', SIZE=7, COLOR='NAVY', BACKCOLOR='NONE',STYLE=NORMAL, RIGHTGAP=0.125000, TOPGAP=0.013889, $ BOTTOMGAP=0.027778, $ TYPE=DATA, COLUMN=N1,SIZE=8, $ TYPE=TITLE,STYLE=BOLD, $ TYPE=TITLE,COLUMN=N1, SIZE=8, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, BORDER=LIGHT, BORDER-COLOR='GRAY', SIZE=12,STYLE=BOLD, $ TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=1, FONT='TIMES NEW ROMAN', SIZE=20, COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC, $ TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=2,OBJECT=TEXT, ITEM=1, FONT='ARIAL', SIZE=11, COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC, $ TYPE=HEADING, LINE=3,FONT='ARIAL', SIZE=11, COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=4,JUSTIFY=CENTER, $ TYPE=HEADING, LINE=4,OBJECT=TEXT, ITEM=1, FONT='ARIAL', SIZE=11, COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC, $ TYPE=HEADING, LINE=5,STYLE=BOLD+ITALIC, $ TYPE=HEADING, LINE=6,STYLE=BOLD+ITALIC, $ TYPE=FOOTING, LINE=1, SIZE=6, STYLE=ITALIC, COLOR=GREY, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=8, $ TYPE=SUBFOOT, BY=XREGION, BORDER-TOP=MEDIUM, BORDER-BOTTOM=HEAVY, BORDER-LEFT=OFF, BORDER-RIGHT=OFF, BORDER-BOTTOM-STYLE=DOUBLE, BORDER-BOTTOM-COLOR='GREY', BACKCOLOR=RGB(245 245 245), $region sort TYPE=SUBFOOT,BY=XREGION, SIZE=8, $ TYPE=SUBFOOT, BY=XREGION, LINE=1,OBJECT=FIELD, ITEM=2,POSITION='N8', $ TYPE=SUBFOOT,BY=XREGION, LINE=1,OBJECT=FIELD, ITEM=3,POSITION='N9', JUSTIFY=RIGHT, $ TYPE=SUBFOOT, BY=XREGION, LINE=1,OBJECT=FIELD, ITEM=4,POSITION=XPCT_OOS, $ TYPE=SUBFOOT,BY=XREGION, LINE=1,OBJECT=FIELD, ITEM=5,POSITION='N16', $ TYPE=SUBFOOT, BY=XREGION, LINE=1,OBJECT=FIELD, ITEM=6,POSITION='N17', $ TYPE=SUBFOOT, BY=XREGION, LINE=1,OBJECT=FIELD, ITEM=7,POSITION='N18', $ TYPE=SUBFOOT,BY=XREGION, LINE=1,OBJECT=FIELD, ITEM=8,POSITION='N19', $ TYPE=SUBFOOT,BY=XREGION, LINE=2,OBJECT=TEXT, ITEM=1,POSITION='N6', $ TYPE=SUBFOOT,BY=XREGION, LINE=2,OBJECT=FIELD, ITEM=1,POSITION='N8', $ $average OOS violations/OOS inspections TYPE=SUBFOOT, BY=XREGION, LINE=2,OBJECT=TEXT, ITEM=4,POSITION='N12', $ TYPE=SUBFOOT, BY=XREGION, LINE=2,OBJECT=FIELD, ITEM=2,POSITION='N16', $ TYPE=SUBFOOT,BY=XREGION, LINE=3,OBJECT=TEXT, ITEM=1,POSITION='N6', $ TYPE=SUBFOOT,BY=XREGION, LINE=3,OBJECT=FIELD, ITEM=1,POSITION='N8', JUSTIFY=RIGHT, $ $motor coach TYPE=SUBFOOT, BY=XREGION, LINE=3,OBJECT=TEXT, ITEM=4,POSITION='N9', $ TYPE=SUBFOOT, BY=XREGION, LINE=3,OBJECT=FIELD, ITEM=2,POSITION=XPCT_OOS, $ TYPE=SUBFOOT, BY=XREGION, LINE=3,OBJECT=TEXT, ITEM=6,POSITION='N12', $ TYPE=SUBFOOT,BY=XREGION, LINE=3,OBJECT=FIELD, ITEM=3,POSITION='N16', $ TYPE=SUBFOOT, BY=XREGION, LINE=4,OBJECT=TEXT, ITEM=1,POSITION='N9', $ TYPE=SUBFOOT, BY=XREGION, LINE=4,OBJECT=FIELD, ITEM=1,POSITION=XPCT_OOS, $ TYPE=SUBFOOT, BY=XREGION, LINE=4,OBJECT=TEXT, ITEM=4,POSITION='N12', $ TYPE=SUBFOOT,BY=XREGION, LINE=4,OBJECT=FIELD, ITEM=2,POSITION='N16', $ TYPE=SUBFOOT, BY=XDISTRICT, SIZE=7, BORDER-TOP=MEDIUM, BORDER-LEFT=OFF, BORDER-RIGHT=OFF, BORDER-COLOR=GREY, BACKCOLOR=RGB(245 245 245), $ $district sort TYPE=SUBFOOT, BY=XDISTRICT, SIZE=8, $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=2,POSITION='N8', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=3,POSITION='N9', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=4,POSITION=XPCT_OOS, $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=5,POSITION='N16', $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=6,POSITION='N17', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=7,POSITION='N18', $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD, ITEM=8,POSITION='N19', $-------------- TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=TEXT, ITEM=1,POSITION='N6', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=FIELD, ITEM=1,POSITION='N8', $ $average OOS violations/OOS inspections TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=TEXT, ITEM=3,POSITION='N12', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=FIELD, ITEM=2,POSITION='N16', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=TEXT, ITEM=1,POSITION='N6', $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=FIELD, ITEM=1,POSITION='N8', $ $motor coach TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=TEXT, ITEM=4,POSITION='N9', JUSTIFY=RIGHT, $ TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=FIELD, ITEM=2,POSITION=XPCT_OOS, $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=TEXT, ITEM=6,POSITION='N12', $ TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=FIELD, ITEM=3,POSITION='N16', $DANGE WF V7.7.03 Platform: AIX 6.1 64-bit, WinXP, IE 8.0 Output Formats: Html, Pdf, Excel | ||
|
| Expert |
Adrian, there's no point in posting the fexes launched by the HTML form - IBIMR_folder is not in the fexes. Post the HTML (within [code] [/code]tags), maybe we will find something in there... Francis  Give me code, or give me retirement. In FOCUS since 1991 Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server | |||
|
| Gold member |
Hi Francis, Yes, I did include the html on Fri but I guess it got left out because everything got too long and it got truncated. Here it is:
<!-- ---------------------------------------------------------------------------
Client : Ontario - Ministry of Transportation
Project : RoadSide Data Capture
Application : RDC - RoadSide Data Capture
Module Name : rdc020.html
Description : Defect Summary and Workload
Called By : WebFOCUS Business Intelligence Dashboard
Developed by : Tamra Colangelo, Information Builders inc
Date Developed: January 2005
--------------------------------------------------------------------------------
Maintenance History
--------------------------------------------------------------------------------
Modified by :
Date Modified:
Reason :
Mod. ID :
---------------------------------------------------------------------------- -->
<HTML>
<HEAD>
<TITLE>HtmlPage
</TITLE>
<script language="JavaScript" src="/approot/mtomis/js_library.js"></script>
<script language="JavaScript" src="/approot/mtomis/parameter.js"></script>
<script language="JavaScript" src="/approot/mtomis/calendar.js"></script>
<script language="JavaScript" type="text/javascript">
// Initialize global variables for dates and calendar -------------------------
// Initialize global variable for first valid date and year
var gFirstValidDate = new Date();
gFirstValidDate.setFullYear('1998');
gFirstValidDate.setMonth('04'); // April
gFirstValidDate.setDate('19');
var gFirstValidYear = gFirstValidDate.getFullYear();
// Initialize global variable for last valid date and year
var gLastValidDate = new Date();
var gLastValidYear = gLastValidDate.getFullYear();
var gFirstDateTestFlag = true; // First valid date test indicator
var gLastDateTestFlag = true; // Last valid date test indicator
var gDisableWeekend = false; // Enable/Disable Weekend date selection
</script>
<LINK href="/approot/mtomis/parameter.css" type=text/css rel=stylesheet>
<META content="WebFocus Report Layout Painter" name ="Generator">
</HEAD>
<BODY onload=OnLoad() nextelementnum="117" drawgrid="1" snaptogrid="1" gridsizeCX="10" gridsizeCY="10" pagesizeCX="2000" pagesizeCY="2000" WindowPlacement="0,3,0,0,-4,-23,0,83,815,514">
<!--startibiitems-->
<SCRIPT type=text/javascript>
var cgipath = "cgipath";
var ibirls = "ibirls";
var ibiOptions = new Array(cgipath,ibirls);
</SCRIPT>
<SCRIPT src="/ibi_html/javaassist/nls.js" type=text/javascript>
</SCRIPT>
<SCRIPT src="/ibi_html/javaassist/ibi/html/js/ibigbl.js" type=text/javascript>
</SCRIPT>
<FORM onsubmit="return fnValidateDates();" method=post name ="form" target="RepOut">
<INPUT type=hidden value=rdclikv6/rdclikv6.htm name ="IBIMR_domain">
<INPUT type=hidden value=MR_RUN_FEX name ="IBIMR_action">
<INPUT type=hidden value=MR_STD_REPORT name ="IBIMR_sub_action">
<INPUT type=hidden value=app/rdc020.fex name ="IBIMR_fex">
<INPUT type=hidden value=app/rdc020.fex name ="IBIF_ex">
<INPUT type=hidden value=#rdcqs8brb713 name ="IBIMR_folder">
<INPUT type=hidden value=17:09:38 name ="IBIMR_random">
<!--<INPUT type=hidden value=# name ="IBIAPP_app" ismre="1">-->
<INPUT type=hidden value=EDASERVE name ="IBIC_server">
<center>
<div class="ScreenID">rdc020</div>
<table cellspacing="0" cellpadding="0" border="0">
<tr><td style="height: 18px;"></td></tr>
<tr>
<td colspan="2" align="center"><SPAN class="ReportTitle">Defect and Workload Summary </SPAN></td>
</tr>
<tr><td style="height: 20px;"></td></tr>
<tr><td style="height: 20px;"></td></tr>
<tr>
<td><SPAN class="FormLabel">Begin Date: </SPAN></td>
<td>
<select name="DT1_MM" size="1" class="FormObject" style="width: 50px;"
onChange="fnSetNbrDays(DT1_DD,DT1_MM,DT1_YY);"></select>
<select name="DT1_DD" size="1" class="FormObject" style="width: 40px;"></select>
<select name="DT1_YY" size="1" class="FormObject"
onChange="fnSetNbrDays(DT1_DD,DT1_MM,DT1_YY);" style="width: 55px;"></select>
<img src="../../approot/mtomis/calendar.gif" border="0" align="top"
alt="Pick a date from a pop-up calendar" style="cursor: hand;"
onClick="fnShowCalendar('DT1');">
<input type="hidden" name="ADATE1">
<span class="FormLabel"> End Date: </span>
<select name="DT2_MM" size="1" class="FormObject" style="width: 50px;"
onChange="fnSetNbrDays(DT2_DD,DT2_MM,DT2_YY);"></select>
<select name="DT2_DD" size="1" class="FormObject" style="width: 40px;"></select>
<select name="DT2_YY" size="1" class="FormObject" style="width: 55px;"
onChange="fnSetNbrDays(DT2_DD,DT2_MM,DT2_YY);"></select>
<img src="../../approot/mtomis/calendar.gif" border="0" align="top"
alt="Pick a date from a pop-up calendar" style="cursor: hand;"
onClick="fnShowCalendar('DT2');">
<input type="hidden" name="ADATE2"></td>
</tr>
<tr><td style="height: 20px;"></td></tr>
<tr>
<td><SPAN class="FormLabel">Report Format</SPAN></td>
<td valign="middle">
<input type="radio" name="OUTPUT" value="PDF" title="PDF" checked><img
src="../../approot/mtomis/sbpdf.gif" title="PDF" align="middle"
onClick="SetRadioButton(forms[0].OUTPUT,'PDF');"><span class="FormObject"
title="PDF" onClick="SetRadioButton(forms[0].OUTPUT,'PDF');"> PDF</span>
</td>
</tr>
<tr><td style="height: 20px;"></td></tr>
<tr>
<td></td>
<td align="left">
<INPUT class="FormButton" type=submit value="Submit"><span style="width: 20px;"></span>
<INPUT class="FormButton" type=reset value="Reset"></td>
</tr>
</table>
</FORM>
<!--endibiitems-->
<SCRIPT id=OnloadHandler>
function OnLoad()
{
fnSetUpDates();
//fnSetUpYear(document.forms[0].BEGDATE);
//fnSetUpYear(document.forms[0].ENDDATE);
<!--startibilines-->
UpdateData();
<!--endibilines-->
}
</SCRIPT>
</BODY>
</HTML>
Thanks very much. WF V7.7.03 Platform: AIX 6.1 64-bit, WinXP, IE 8.0 Output Formats: Html, Pdf, Excel | |||
|
| Expert |
Adrian, I don't have MRE here so I can't simulate opening a 5.3.2 html page in 7.6.5, but I wonder if the problem is with the syntax of the html, in the following lines the values are not in double-quotes - that could be the problem: <INPUT type=hidden value=rdclikv6/rdclikv6.htm name ="IBIMR_domain"> <INPUT type=hidden value=MR_RUN_FEX name ="IBIMR_action"> <INPUT type=hidden value=MR_STD_REPORT name ="IBIMR_sub_action"> <INPUT type=hidden value=app/rdc020.fex name ="IBIMR_fex"> <INPUT type=hidden value=app/rdc020.fex name ="IBIF_ex"> <INPUT type=hidden value=#rdcqs8brb713 name ="IBIMR_folder"> <INPUT type=hidden value=17:09:38 name ="IBIMR_random"> Francis Give me code, or give me retirement. In FOCUS since 1991 Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server | |||
|
| Expert |
Between your two releases there were quite a few changes to the way that the onload scripts run. Looking at your code it can easily be seen that it's from 5.3 because the ibirls reference is not suffixed with a 2 - ibirls2. This module (appeared in 7.n) does a lot of the processing and is backward compatible (or should be!) - I occasionally slip back to ibirls because of functionality that I do not require. Another thing of note from your code is that is has been stripped of a fair amount as there are a few modules that I would expect to be in there. You also obviously use your own calendar functions as well and therefore I would suggest that your code is not straight layout painter. If you have the option just use the version from 5.3.2 and see how you go - it should function OK without modification, most if not all of mine do. AS for the error, have you converted / moved all of your MRE folders and have you checked that the HTML references are still the same (go to MRE in DS and right click the domain, slect properties then do the same for the sub folders). T
| |||||||||
|
| Gold member |
Hi, Yes, I put in double quotes for the value= parms but it didn't work. Gave the same error message in the TEST environment. Then I checked all the domain and folder references and they look correct. The html and fex work fine in the DEV environment even last Fri. Even the drill downs work on the pdf doc. I will keep checking to see what I am missing. Thank you. WF V7.7.03 Platform: AIX 6.1 64-bit, WinXP, IE 8.0 Output Formats: Html, Pdf, Excel | |||
|
| Expert |
Adrian, Dare I suggest it may be worth rebuilding the HTML page in the new Dev Studio Layout Painter? Francis Give me code, or give me retirement. In FOCUS since 1991 Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server | |||
|
| Gold member |
Hi Francis, Actually, that's what I did. Because when I tried to use the fex code to generate the html I couldn't do it. Even when I used the "Edit in Associated tool" it still came up with the Report Painter Tool. Thus, I right clicked and created a new html. Then in the body I could insert the old html code (a line in the body said so so that's what I did) and that's how I came up with the new html code. That is the code that keeps telling me it couldn't find the IBIMR_folder value but it is there, value is corect and referenced correctly. The someone came along and used a -TYPE IBIMR_folder at the beginning of the html code and I ran the code after exiting and it couldn't find the value of the folder as well. There are no error messages at all about not being able to find any javascripts so I assume the javascripts are fine. I checked the existence of the javascripts and they are there. Will try other ideas. Thank you. WF V7.7.03 Platform: AIX 6.1 64-bit, WinXP, IE 8.0 Output Formats: Html, Pdf, Excel | |||
|
| Expert |
Adrian, I'm suggesting actually rebuilding from scratch - not copy-pasting from the old version. As Tony mentions, he doesn't see certain lines he was expecting to in the old code - perhaps some code was removed but is required in the new version. Francis Give me code, or give me retirement. In FOCUS since 1991 Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server | |||
|
| Gold member |
Hi Francis, I created the html from scratch in the Html Layout Painter. One big difference is that the old html uses a FORM and I don't. I was told in a course that we should avoid using it. However, I need a lot of javascripts to customize it. For e.g. the Calendar date control type that I use only lets me use a date in YYMD format. The old html page uses drop down lists for each of the Month, Day and Year fields. Do you know where I can find some javascripts that I can put into my V766 Html? BTW here is the new V766 html code. Thanks.
<code_start>
< !-- Generated by Report Layout Painter -->
<HTML>
<HEAD>
<TITLE>HtmlPage</TITLE>
<BASE href=HTTP://mtoidutapp02:7680>
<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>
<META content="MSHTML 6.00.2900.3492" name=GENERATOR></HEAD>
<BODY title="" style="OVERFLOW: auto" bgColor=#99ccff edaconnectionrequired="true">
<INPUT language=java_script id=button1 style="Z-INDEX: 1; LEFT: 270px; WIDTH: 100px; POSITION: absolute; TOP: 230px; HEIGHT: 30px" onclick=button1_OnClick[this) tabIndex=1 type=button value=Submit name=button1 requests_list="0">
<INPUT id=reset1 style="Z-INDEX: 2; LEFT: 410px; WIDTH: 90px; POSITION: absolute; TOP: 230px; HEIGHT: 30px" tabIndex=2 type=reset value=Reset name=reset1>
<SPAN id=radio1 title="" contentEditable=false style="Z-INDEX: 3; LEFT: 270px; WIDTH: 90px; POSITION: absolute; TOP: 160px; HEIGHT: 20px" tabIndex=3 columns="1" name="radio1" operation="NONE">
<TABLE contentEditable=false style="WIDTH: 100%; HEIGHT: 100%" cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD>
<INPUT id=radio1_0 type=radio CHECKED value=Value1 name=radio1 displaytext=" PDF">
<LABEL style="CURSOR: default" tabIndex=3 for=radio1_0> PDF</LABEL></TD></TR></TBODY></TABLE></SPAN>
<SPAN id=text1 style="FONT-WEIGHT: bold; Z-INDEX: 4; LEFT: 150px; WIDTH: 120px; POSITION: absolute; TOP: 160px; HEIGHT: 20px" tabIndex=4>Report Format </SPAN>
<IMG id=image1 style="Z-INDEX: 5; LEFT: 290px; POSITION: absolute; TOP: 160px" tabIndex=5 src="C:\DOCUME~1\wongad\LOCALS~1\Temp\ddm_00002.gif" border=0 name=image1 originalWidth="16" originalHeight="16" rtFileName="app/sbpdf.gif">
<SPAN id=text4 style="FONT-WEIGHT: bold; Z-INDEX: 10; LEFT: 310px; WIDTH: 250px; COLOR: #ffffff; POSITION: absolute; TOP: 20px; HEIGHT: 20px" tabIndex=10>Defect and Workload Summary</SPAN>
<SPAN id=text5 style="Z-INDEX: 11; LEFT: 150px; WIDTH: 100px; POSITION: absolute; TOP: 100px; HEIGHT: 20px" tabIndex=11>
<SPAN style="FONT-WEIGHT: bold">Begin Date:</SPAN></SPAN>
<INPUT id=calendar3 style="Z-INDEX: 12; LEFT: 270px; WIDTH: 70px; POSITION: absolute; TOP: 100px; HEIGHT: 22px" tabIndex=12 hspace=0 accept=0 size=3 value=20050107 name=ADATE1 operation="NONE" elementtype="14" calendardata="0/0/-10;0/0/10" calendardatatype="1" ibiformat="YYMD" datasource datatype="0" sourcetype="typeMaster" requiredfield="43937600" boundtovariable="1" selectedvalue="20050107" addalloption="0" labelid="text5">
<SPAN id=text6 style="FONT-WEIGHT: bold; Z-INDEX: 13; LEFT: 430px; WIDTH: 81px; POSITION: absolute; TOP: 100px; HEIGHT: 18px" tabIndex=13>End Date:</SPAN>
<INPUT id=calendar4 style="Z-INDEX: 14; LEFT: 520px; WIDTH: 70px; POSITION: absolute; TOP: 100px; HEIGHT: 22px" tabIndex=14 hspace=0 accept=0 size=5 value=20050108 name=ADATE2 operation="NONE" elementtype="14" calendardata="0/0/-10;0/0/10" calendardatatype="1" ibiformat="YYMD" datasource datatype="0" sourcetype="typeMaster" requiredfield="43937600" boundtovariable="1" selectedvalue="20050108" addalloption="0" labelid="text6">
<xml id=ibi_requests>
<script>
<requests>
<request requestid="0" sourcetype="typeFex" targettype="window" targetname="_blank" ibif_ex="app/rdc020.fex" IBIMR_domain="rdclikv6/rdclikv6.htm" IBIMR_folder="#rdcqs8brb713" IBIMR_sub_action="MR_STD_REPORT" activereport="0" reportcolumns="" ibiapp_app="">
<variables>
<variable parametercreatedinreslay="0" displayfield="ADATE1" format="" field="ADATE1" file="inspection.mas" desc="ADATE1" datatype="0" operation="" default="20050107" name="ADATE1" textvarname="" accept="0" type="default" select="0" min="" max="" controltype="14" create="1"></variable>
<variable parametercreatedinreslay="0" displayfield="ADATE2" format="" field="ADATE2" file="inspection.mas" desc="ADATE2" datatype="0" operation="" default="20050108" name="ADATE2" textvarname="" accept="0" type="default" select="0" min="" max="" controltype="14" create="1"></variable></variables></request></requests></script>
</xml></BODY></HTML>
</code_end>This message has been edited. Last edited by: Kerry, WF V7.7.03 Platform: AIX 6.1 64-bit, WinXP, IE 8.0 Output Formats: Html, Pdf, Excel | |||
|
| Gold member |
Don't kno wwhy it doesn't show all the html code but here goes again...
<!-- Generated by Report Layout Painter -->
<HTML>
<HEAD>
<TITLE>HtmlPage</TITLE>
<BASE href=HTTP://mtoidutapp02:7680>
<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>
<META content="MSHTML 6.00.2900.3492" name=GENERATOR></HEAD>
<BODY title="" style="OVERFLOW: auto" bgColor=#99ccff edaconnectionrequired="true">
<INPUT language=javascript id=button1 style="Z-INDEX: 1; LEFT: 270px; WIDTH: 100px; POSITION: absolute; TOP: 230px; HEIGHT: 30px" onclick=button1_OnClick(this) tabIndex=1 type=button value=Submit name=button1 requests_list="0">
<INPUT id=reset1 style="Z-INDEX: 2; LEFT: 410px; WIDTH: 90px; POSITION: absolute; TOP: 230px; HEIGHT: 30px" tabIndex=2 type=reset value=Reset name=reset1>
<SPAN id=radio1 title="" contentEditable=false style="Z-INDEX: 3; LEFT: 270px; WIDTH: 90px; POSITION: absolute; TOP: 160px; HEIGHT: 20px" tabIndex=3 columns="1" name="radio1" operation="NONE">
<TABLE contentEditable=false style="WIDTH: 100%; HEIGHT: 100%" cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD>
<INPUT id=radio1_0 type=radio CHECKED value=Value1 name=radio1 displaytext=" PDF">
<LABEL style="CURSOR: default" tabIndex=3 for=radio1_0> PDF</LABEL></TD></TR></TBODY></TABLE></SPAN>
<SPAN id=text1 style="FONT-WEIGHT: bold; Z-INDEX: 4; LEFT: 150px; WIDTH: 120px; POSITION: absolute; TOP: 160px; HEIGHT: 20px" tabIndex=4>Report Format </SPAN>
<IMG id=image1 style="Z-INDEX: 5; LEFT: 290px; POSITION: absolute; TOP: 160px" tabIndex=5 src="C:\DOCUME~1\wongad\LOCALS~1\Temp\ddm_00002.gif" border=0 name=image1 originalWidth="16" originalHeight="16" rtFileName="app/sbpdf.gif">
<SPAN id=text4 style="FONT-WEIGHT: bold; Z-INDEX: 10; LEFT: 310px; WIDTH: 250px; COLOR: #ffffff; POSITION: absolute; TOP: 20px; HEIGHT: 20px" tabIndex=10>Defect and Workload Summary</SPAN>
<SPAN id=text5 style="Z-INDEX: 11; LEFT: 150px; WIDTH: 100px; POSITION: absolute; TOP: 100px; HEIGHT: 20px" tabIndex=11>
<SPAN style="FONT-WEIGHT: bold">Begin Date:</SPAN></SPAN>
<INPUT id=calendar3 style="Z-INDEX: 12; LEFT: 270px; WIDTH: 70px; POSITION: absolute; TOP: 100px; HEIGHT: 22px" tabIndex=12 hspace=0 accept=0 size=3 value=20050107 name=ADATE1 operation="NONE" elementtype="14" calendardata="0/0/-10;0/0/10" calendardatatype="1" ibiformat="YYMD" datasource datatype="0" sourcetype="typeMaster" requiredfield="43937600" boundtovariable="1" selectedvalue="20050107" addalloption="0" labelid="text5">
<SPAN id=text6 style="FONT-WEIGHT: bold; Z-INDEX: 13; LEFT: 430px; WIDTH: 81px; POSITION: absolute; TOP: 100px; HEIGHT: 18px" tabIndex=13>End Date:</SPAN>
<INPUT id=calendar4 style="Z-INDEX: 14; LEFT: 520px; WIDTH: 70px; POSITION: absolute; TOP: 100px; HEIGHT: 22px" tabIndex=14 hspace=0 accept=0 size=5 value=20050108 name=ADATE2 operation="NONE" elementtype="14" calendardata="0/0/-10;0/0/10" calendardatatype="1" ibiformat="YYMD" datasource datatype="0" sourcetype="typeMaster" requiredfield="43937600" boundtovariable="1" selectedvalue="20050108" addalloption="0" labelid="text6">
<xml id=ibi_requests>
<script>
<requests>
<request requestid="0" sourcetype="typeFex" targettype="window" targetname="_blank" ibif_ex="app/rdc020.fex" IBIMR_domain="rdclikv6/rdclikv6.htm" IBIMR_folder="#rdcqs8brb713" IBIMR_sub_action="MR_STD_REPORT" activereport="0" reportcolumns="" ibiapp_app="">
<variables>
<variable parametercreatedinreslay="0" displayfield="ADATE1" format="" field="ADATE1" file="inspection.mas" desc="ADATE1" datatype="0" operation="" default="20050107" name="ADATE1" textvarname="" accept="0" type="default" select="0" min="" max="" controltype="14" create="1"></variable>
<variable parametercreatedinreslay="0" displayfield="ADATE2" format="" field="ADATE2" file="inspection.mas" desc="ADATE2" datatype="0" operation="" default="20050108" name="ADATE2" textvarname="" accept="0" type="default" select="0" min="" max="" controltype="14" create="1"></variable></variables></request></requests></script>
</xml></BODY></HTML>
WF V7.7.03 Platform: AIX 6.1 64-bit, WinXP, IE 8.0 Output Formats: Html, Pdf, Excel | |||
|
| Platinum Member |
Could some of your problems be due to going from cgi to wfservlet calls ? | |||
|
| Gold member |
Hi Dave, We have never used cgi calls here as far as I know, only wfservlet calls. Was there somehting in the code that suggested that? Thanks. WF V7.7.03 Platform: AIX 6.1 64-bit, WinXP, IE 8.0 Output Formats: Html, Pdf, Excel | |||
|
| Expert |
Adrian, I have never used Layout Painter to generate the HTML page, not have I created an HTML launch page without a form, so I'm sorry I can't be of much help. Francis Give me code, or give me retirement. In FOCUS since 1991 Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server | |||
|
| Platinum Member |
I only suggested the cgi possibility, since we are going through that, I didn't look through te volumes of code. You said you had been warned off HTML forms, but perhaps that was Frames, not Forms. Frames are deprecated, but forms are necessary for any interactivity as they contain the controls and hidden variables that WF uses. | |||
|
| Expert |
Adrian, I see that you code is enhanced with various local JS modules and a css link, so I guess that you have edited via the code tab as well? In the above quoted code I would expect to see ID as well as NAME attributes. Try adding them to each line using the same value as for the NAME attribute and see if that is your problem. e.g. <INPUT type="hidden" value="#rdcqs8brb713" name="IBIMR_folder" id="IBIMR_folder"> T
| |||||||||
|
| Powered by Social Strata |
 | Please Wait. Your request is being processed... |
Read-Only TopicCopyright © 1996-2020 Information Builders
| View $GS_USERNAME's Public Profile |
| Add $GS_USERNAME to my Ignore List |
| View Recent Posts by $GS_USERNAME |
| Notify me of New Posts by $GS_USERNAME |