quote:
OPEN WORK ORDER FOR LAST <= 30 DAYS
CUSTOMER ORDERS AND WORK ORDERS
DATE: November 29, 2012
OPEN CUSTOMER ORDERS
WDC WORKDESC # of
Orders
224 TURN ON 6
209 INSPECT FOR VALVE LEAK 4
223 TURN OFF FOR REPAIRS 2
041 AIR IN LINE 1
108 INSPECT FOR SEWER LEAK 1
405 REPLACE METER COVER 1
OPEN WORK ORDERS
WDC WORKDESC # of
Orders
303 CURB STOP INOPERABLE 4
258 LOCATE/ADJUST VALVE BOX 3
200 SHUT DOWN/CHARGE WTR MAIN 2
406 REPLACE METER F&C 2
017 MISC WATER MAINT 1
058 REINSPECT FOR SERVICE LEAK 1
293 REPAIR FH LEAD VALVE LEAK 1
425 VALVE WORK ON LARGE METER-01 1
-SET &ECHO = ALL; SET HOLDLIST = PRINTONLY, ASNAMES = ON -SET &XAGE = 30; DEFINE FILE MMDB1 TDATE/YYMD = &YYMD; IDATE/I8YYMD = EDIT(RECDTE); DYMD/YMD = IDATE; DYYMD/YYMD = DYMD; AGEDIF/YYMD = DATEADD(TDATE, 'D', -&XAGE.EVAL); DIFF/I8 = DATEDIF(DYMD, TDATE, 'D'); END TABLE FILE MMDB1 PRINT WDC WORKDESC DYMD STATUS COMPUTE ORDST/A1 = 'O'; BY ASSIGNEE WHERE STATUS EQ 'O'; WHERE DYYMD GE AGEDIF; WHERE ASSIGNEE EQ 'SM09'; IF RECORDLIMIT EQ 15 ON TABLE HOLD AS SPL1 END -RUN TABLE FILE SPL1 COUNT WDC AS 'OWDC' BY ASSIGNEE BY WDC BY WORKDESC BY ORDST ON TABLE HOLD AS SPL2 END -RUN DEFINE FILE MMDBCRX TDATE/YYMD = &YYMD; IDATE/I8YYMD = EDIT(RECDTE); DYMD/YMD = IDATE; DYYMD/YYMD = DYMD; AGEDIF/YYMD = DATEADD(TDATE, 'D', -&XAGE.EVAL); DIFF/I8 = DATEDIF(DYMD, TDATE, 'D'); END TABLE FILE MMDBCRX PRINT WDC WORKDESC DYMD STATUS COMPUTE ORDST/A1 = 'C'; BY ASSIGNEE WHERE SRCWORKRQ EQ 'C'; WHERE DYYMD GE AGEDIF; WHERE ASSIGNEE EQ 'SM09'; IF RECORDLIMIT EQ 15 ON TABLE HOLD AS SPLA END -RUN TABLE FILE SPLA COUNT WDC AS 'CWDC' BY ASSIGNEE BY WDC BY WORKDESC BY ORDST ON TABLE HOLD AS SPLB END -RUN DEFINE FILE SPLB OWDC/I5 = CWDC ; END TABLE FILE SPL2 PRINT * ON TABLE HOLD AS OCSPL MORE FILE SPLB END -RUN ?FF OCSPL -RUN DEFINE FILE OCSPL DLT/A2 = '<='; ASGST/A30 = IF ORDST EQ 'C' THEN 'OPEN CUSTOMER ORDERS' ELSE 'OPEN WORK ORDERS'; END -*SET COMPOUND='OPEN NOBREAK' TABLE FILE OCSPL HEADING " OPEN WORK ORDER FOR LAST <DLT &XAGE.EVAL DAYS " " CUSTOMER ORDERS AND WORK ORDERS " " DATE: &DATEMtrDYY " " " " <ASGST " " " SUM OWDC AS '# of,Orders' BY ASGST NOPRINT BY HIGHEST OWDC NOPRINT BY ASSIGNEE NOPRINT BY WDC BY WORKDESC BY ORDST NOPRINT WHERE ORDST EQ 'C'; ON TABLE SET PAGE NOPAGE ON TABLE PCHOLD FORMAT HTML OPEN NOBREAK ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, LEFTMARGIN=0.00000, RIGHTMARGIN=0.00000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.00000, $ TYPE=REPORT, GRID=OFF, FONT=ARIAL, SIZE=10, STYLE=NORMAL, ORIENTATION=PORTRAIT, $ TYPE=DATA, COLOR=BLACK, SIZE=9, STYLE=NORMAL, $ TYPE=DATA, COLUMN=N4, COLOR=GREEN, SIZE=10, STYLE=UNDERLINE, WHEN=ORDST EQ 'C', DRILLMENUITEM='Open Customer Orders - RPT11', FOCEXEC=app/rpt11(ASGX=ASSIGNEE WDCX=WDC AGEX='&AGEX'), $ TYPE=HEADING, FONT=ARIAL, COLOR=BLUE, SIZE=10, STYLE=BOLD, JUSTIFY=CENTER, $ ENDSTYLE END -RUN -*SET COMPOUND='OPEN NOBREAK' TABLE FILE OCSPL HEADING " " " <ASGST " " " SUM OWDC AS '# of,Orders' BY ASGST NOPRINT BY HIGHEST OWDC NOPRINT BY ASSIGNEE NOPRINT BY WDC BY WORKDESC BY ORDST NOPRINT WHERE ORDST EQ 'O'; ON TABLE SET PAGE NOPAGE ON TABLE PCHOLD FORMAT HTML CLOSE ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, LEFTMARGIN=0.00000, RIGHTMARGIN=0.00000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.00000, $ TYPE=REPORT, GRID=OFF, FONT=ARIAL, SIZE=10, STYLE=NORMAL, ORIENTATION=PORTRAIT, $ TYPE=DATA, COLOR=BLACK, SIZE=9, STYLE=NORMAL, $ TYPE=DATA, COLUMN=N4, COLOR=GREEN, SIZE=10, STYLE=UNDERLINE, WHEN=ORDST EQ 'O', DRILLMENUITEM='Open Work Orders - RPT01', FOCEXEC=app/rpt01(ASGX=ASSIGNEE WDCX=WDC AGEX='&AGEX'), $ TYPE=HEADING, FONT=ARIAL, COLOR=BLUE, SIZE=10, STYLE=BOLD, JUSTIFY=CENTER, $ ENDSTYLE END -RUNThis message has been edited. Last edited by: Tomsweb,
quote:'Open Work Orders - RPT01'
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 |