304 lines
7.9 KiB
Plaintext
304 lines
7.9 KiB
Plaintext
SUBROUTINE SCHED_RPT2_PRN( FromDate, ThruDate, SchedTable )
|
|
* LIST SCHEDULE JUSTLEN 9 BREAK-ON CUST_CITY "'V'" JUSTLEN 55 PO JUSTLEN 20 SHIP_DATE TOTAL SHIP_QTY JUSTLEN 6 COLHEAD 'Qty' BY INVOICE_IDS INVOICE_IDS JUSTLEN 10 COLHEAD 'Invoice No' TOTAL SHIP_AMOUNT JUSTLEN 14 LIMIT SHIP_DATE FROM "09/01/95" TO "09/04/95" HEADING " Billings by Company 'T' PAGE # 'PP''L' for Selected Dates From (09/01/95 ) Thru (09/04/95)" ID-SUPP
|
|
*
|
|
DECLARE FUNCTION SET_STATUS, SET_FSERROR, SEND_DYN, SEND_INFO, SET_ROWDEF, SET_PRINTER
|
|
declare function msg
|
|
|
|
TheHeader = " Billings by Company 'D' 'T' PAGE # 'P' for Selected Dates From (":oconv( FromDate, 'D2/' ):") Thru (":oconv( ThruDate, 'D2/' ):")"
|
|
HeadPos = '3.5,2,1,1,1.25,1.5'
|
|
convert ',' to @fm in HeadPos
|
|
ColHeader = "Customer/City" : @vm : "PO" : @vm : "Ship Date" : @vm : "Qty" : @vm : "Invoice No" : @vm : "Ship Amount"
|
|
ColHeader<-1> = str( '-', 40 ):@vm:str( '-', 19 ):@vm:str( '-', 9 ):@vm:str( '-', 11 ):@vm:str( '-', 14 ):@vm:str( '-', 17 )
|
|
Void = set_printer( 'FONTHEADFOOT' )
|
|
Void = set_printer( 'HEADER', TheHeader, HeadPos, ColHeader )
|
|
*
|
|
@RECCOUNT=0
|
|
FIRST.PASS=1
|
|
LAST.RECORD=0
|
|
READERR=0
|
|
*
|
|
* OPEN DICT AND DATA FILES
|
|
*
|
|
OPEN "DICT",SchedTable TO @DICT ELSE RETURN
|
|
OPEN "",SchedTable TO FILE.IN ELSE RETURN
|
|
*
|
|
* MAKE COLUMN HEADING
|
|
*
|
|
*
|
|
* ZERO ACCUMULATORS FOR EACH BREAK
|
|
*
|
|
SHIPULQTY.CUSTULCITY.TOTAL=0
|
|
SHIPULQTY.CUSTULCITY.COUNT=0
|
|
SHIPULQTY.GRAND.TOTAL=0
|
|
SHIPULQTY.GRAND.COUNT=0
|
|
*
|
|
SHIPULAMOUNT.CUSTULCITY.TOTAL=0
|
|
SHIPULAMOUNT.CUSTULCITY.COUNT=0
|
|
SHIPULAMOUNT.GRAND.TOTAL=0
|
|
SHIPULAMOUNT.GRAND.COUNT=0
|
|
*
|
|
* NULL PREVIOUS BREAK BUCKETS
|
|
*
|
|
PREV.CUSTULCITY=''
|
|
LAST.CUSTULCITY.BREAK = 1
|
|
*
|
|
* DEFINE DATE CONSTANTS FOR PRINT LIMITING
|
|
*
|
|
TODAY = DATE()
|
|
SUNDAY = TODAY - MOD(TODAY,7)
|
|
LAST.SUNDAY = TODAY - ( MOD(TODAY-1,7) + 1 )
|
|
*
|
|
*
|
|
READRECORD:
|
|
*
|
|
*
|
|
* ZERO BREAK FLAGS TO FALSE
|
|
*
|
|
CUSTULCITY.BREAK=0
|
|
*
|
|
*
|
|
READNEXT @ID, WHICH.VALUE ELSE
|
|
IF STATUS() GT 0 THEN
|
|
STATX = SET_FSERROR()
|
|
RETURN
|
|
END
|
|
IF @FILE.ERROR<1> EQ 421 THEN
|
|
STATX = SET_FSERROR()
|
|
GOTO READRECORD
|
|
END
|
|
IF @FILE.ERROR<1> NE 111 THEN
|
|
@ANS = @FILE.ERROR<1>
|
|
STATX = set_printer( 'TEXT', {RLIST_TEXT_4} )
|
|
READERR += 1
|
|
GOTO READRECORD
|
|
END
|
|
LAST.RECORD=1
|
|
CUSTULCITY.BREAK=1
|
|
CUSTULCITY=PREV.CUSTULCITY
|
|
END
|
|
@FILE.ERROR.MODE=0
|
|
*
|
|
S.ATID = @ID
|
|
*
|
|
IF FIRST.PASS AND LAST.RECORD THEN
|
|
STATX = set_printer( 'TEXT', {RLIST_TEXT_2} )
|
|
RETURN
|
|
END
|
|
*
|
|
IF LAST.RECORD THEN GOTO BREAKS
|
|
*
|
|
IF @REDUCTION.DONE THEN
|
|
READO @RECORD FROM FILE.IN, @ID ELSE
|
|
@FILE.ERROR.MODE = 0
|
|
IF STATUS() GT 0 THEN
|
|
STATX = SET_FSERROR()
|
|
RETURN
|
|
END
|
|
IF @FILE.ERROR<1> NE 100 THEN
|
|
READERR += 1
|
|
END
|
|
GOTO READRECORD
|
|
END
|
|
END
|
|
*
|
|
@RECCOUNT += 1
|
|
*
|
|
*
|
|
* CALCULATE VALUE(S) FOR COLUMN(S)
|
|
*
|
|
S.ATID={@ID}
|
|
I.ATID=S.ATID
|
|
S.CUSTULCITY={CUST_CITY}
|
|
I.CUSTULCITY=S.CUSTULCITY
|
|
S.PO={PO}
|
|
I.PO=S.PO
|
|
M.SHIPULDATE={SHIP_DATE}<1,WHICH.VALUE> ; P.SHIPULDATE=1 ; C.SHIPULDATE=7
|
|
*
|
|
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
|
|
*
|
|
S.SHIPULDATE = M.SHIPULDATE
|
|
M.SHIPULQTY={SHIP_QTY}<1,WHICH.VALUE> ; P.SHIPULQTY=1 ; C.SHIPULQTY=7
|
|
*
|
|
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
|
|
*
|
|
S.SHIPULQTY = M.SHIPULQTY
|
|
M.INVOICEULIDS={INVOICE_IDS}<1,WHICH.VALUE> ; P.INVOICEULIDS=1 ; C.INVOICEULIDS=7
|
|
*
|
|
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
|
|
*
|
|
S.INVOICEULIDS = M.INVOICEULIDS
|
|
M.SHIPULAMOUNT={SHIP_AMOUNT}<1,WHICH.VALUE> ; P.SHIPULAMOUNT=1 ; C.SHIPULAMOUNT=7
|
|
*
|
|
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
|
|
*
|
|
S.SHIPULAMOUNT = M.SHIPULAMOUNT
|
|
*
|
|
PREVIOUS.MARK.LEVEL=0
|
|
*
|
|
* TEST FOR CONTROL BREAK(S)
|
|
*
|
|
IF (S.CUSTULCITY NE PREV.CUSTULCITY) OR CUSTULCITY.BREAK THEN
|
|
CUSTULCITY=PREV.CUSTULCITY
|
|
PREV.CUSTULCITY=S.CUSTULCITY
|
|
CUSTULCITY.BREAK+=1
|
|
END
|
|
*
|
|
*
|
|
IF FIRST.PASS THEN
|
|
FIRST.PASS=0
|
|
GOTO DETAIL
|
|
END
|
|
*
|
|
*
|
|
BREAKS:
|
|
*
|
|
* PRINT BREAK TOTAL(S) AND ACCUMULATE TOTAL(S)
|
|
*
|
|
*
|
|
IF CUSTULCITY.BREAK THEN
|
|
STATX = set_printer('TEXT', "")
|
|
PRINTLINE = ""
|
|
PRINTLINE := CUSTULCITY:@vm
|
|
PRINTLINE := '':@vm
|
|
PRINTLINE := '':@vm
|
|
PRINTLINE := OCONV(SHIPULQTY.CUSTULCITY.TOTAL ,"MD0,"):@vm
|
|
PRINTLINE := '':@vm
|
|
PRINTLINE := OCONV(SHIPULAMOUNT.CUSTULCITY.TOTAL ,"MD2,$")
|
|
TableColInfo = '<+5040':@vm:'<+2880':@vm:'<+1440':@vm:'>+1440':@vm:'>+1800':@vm:'>+2160'
|
|
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE )
|
|
|
|
STATX = set_printer( 'TEXT', '' )
|
|
*
|
|
SHIPULQTY.GRAND.TOTAL+=SHIPULQTY.CUSTULCITY.TOTAL
|
|
SHIPULQTY.CUSTULCITY.TOTAL=0
|
|
SHIPULQTY.GRAND.COUNT+=SHIPULQTY.CUSTULCITY.COUNT
|
|
SHIPULQTY.CUSTULCITY.COUNT=0
|
|
SHIPULAMOUNT.GRAND.TOTAL+=SHIPULAMOUNT.CUSTULCITY.TOTAL
|
|
SHIPULAMOUNT.CUSTULCITY.TOTAL=0
|
|
SHIPULAMOUNT.GRAND.COUNT+=SHIPULAMOUNT.CUSTULCITY.COUNT
|
|
SHIPULAMOUNT.CUSTULCITY.COUNT=0
|
|
END
|
|
*
|
|
* PERFORM LAST RECORD OUTPUT IF DONE
|
|
*
|
|
IF LAST.RECORD THEN
|
|
STATX = set_printer( 'TEXT', "")
|
|
PRINTLINE = ""
|
|
PRINTLINE := "***":@vm
|
|
PRINTLINE := '':@vm
|
|
PRINTLINE := '':@vm
|
|
PRINTLINE := OCONV(SHIPULQTY.GRAND.TOTAL ,"MD0,"):@vm
|
|
PRINTLINE := '':@vm
|
|
PRINTLINE := OCONV(SHIPULAMOUNT.GRAND.TOTAL ,"MD2,$")
|
|
TableColInfo = '<+5040':@vm:'<+2880':@vm:'<+1440':@vm:'>+1440':@vm:'>+1800':@vm:'>+2160'
|
|
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE )
|
|
|
|
* STATX = SEND_DYN("")
|
|
* @ANS=@RECCOUNT
|
|
* STATX = SEND_DYN( {RLIST_TEXT_1} )
|
|
IF READERR THEN
|
|
@ANS=READERR
|
|
STATX = set_printer( 'TEXT', {RLIST_TEXT_3} )
|
|
END
|
|
RETURN
|
|
END
|
|
*
|
|
DETAIL:
|
|
*
|
|
* REMOVE APPROPRIATE VALUE FROM MULTI-VALUED COLUMN(S)
|
|
*
|
|
NEW.MARK.LEVEL=0
|
|
*
|
|
IF C.SHIPULDATE GE PREVIOUS.MARK.LEVEL THEN
|
|
REMOVE I.SHIPULDATE FROM M.SHIPULDATE AT P.SHIPULDATE SETTING C.SHIPULDATE
|
|
S.SHIPULDATE=I.SHIPULDATE
|
|
END
|
|
IF C.SHIPULDATE GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.SHIPULDATE
|
|
IF C.SHIPULQTY GE PREVIOUS.MARK.LEVEL THEN
|
|
REMOVE I.SHIPULQTY FROM M.SHIPULQTY AT P.SHIPULQTY SETTING C.SHIPULQTY
|
|
S.SHIPULQTY=I.SHIPULQTY
|
|
END
|
|
IF C.SHIPULQTY GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.SHIPULQTY
|
|
IF C.INVOICEULIDS GE PREVIOUS.MARK.LEVEL THEN
|
|
REMOVE I.INVOICEULIDS FROM M.INVOICEULIDS AT P.INVOICEULIDS SETTING C.INVOICEULIDS
|
|
S.INVOICEULIDS=I.INVOICEULIDS
|
|
END
|
|
IF C.INVOICEULIDS GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.INVOICEULIDS
|
|
IF C.SHIPULAMOUNT GE PREVIOUS.MARK.LEVEL THEN
|
|
REMOVE I.SHIPULAMOUNT FROM M.SHIPULAMOUNT AT P.SHIPULAMOUNT SETTING C.SHIPULAMOUNT
|
|
S.SHIPULAMOUNT=I.SHIPULAMOUNT
|
|
END
|
|
IF C.SHIPULAMOUNT GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.SHIPULAMOUNT
|
|
*
|
|
* DO CONVERSIONS IF ANY
|
|
*
|
|
IF S.SHIPULDATE NE "" THEN S.SHIPULDATE=OCONV(S.SHIPULDATE,"D2/")
|
|
IF S.SHIPULQTY NE "" THEN S.SHIPULQTY=OCONV(S.SHIPULQTY,"MD0,")
|
|
IF S.INVOICEULIDS NE "" THEN S.INVOICEULIDS=OCONV(S.INVOICEULIDS,"MD0")
|
|
IF S.SHIPULAMOUNT NE "" THEN S.SHIPULAMOUNT=OCONV(S.SHIPULAMOUNT,"MD2,$")
|
|
*
|
|
* DO PRINT LIMITING
|
|
*
|
|
IF I.SHIPULDATE GE FromDate AND I.SHIPULDATE LE ThruDate THEN
|
|
GOTO ENDLIMIT
|
|
END
|
|
IF NEW.MARK.LEVEL THEN GOTO DETAIL
|
|
IF WHICH.VALUE THEN GOTO READRECORD
|
|
IF PREVIOUS.MARK.LEVEL THEN
|
|
*
|
|
GOTO READRECORD
|
|
*
|
|
END
|
|
S.SHIPULDATE=''
|
|
I.SHIPULDATE=''
|
|
S.SHIPULQTY=''
|
|
I.SHIPULQTY=''
|
|
S.INVOICEULIDS=''
|
|
I.INVOICEULIDS=''
|
|
S.SHIPULAMOUNT=''
|
|
I.SHIPULAMOUNT=''
|
|
*
|
|
ENDLIMIT:
|
|
*
|
|
* ACCUMULATE TOTAL(S)
|
|
*
|
|
IF NUM(I.SHIPULQTY) AND I.SHIPULQTY NE "" THEN
|
|
SHIPULQTY.CUSTULCITY.TOTAL+=I.SHIPULQTY
|
|
SHIPULQTY.CUSTULCITY.COUNT+=1
|
|
I.SHIPULQTY=''
|
|
END
|
|
IF NUM(I.SHIPULAMOUNT) AND I.SHIPULAMOUNT NE "" THEN
|
|
SHIPULAMOUNT.CUSTULCITY.TOTAL+=I.SHIPULAMOUNT
|
|
SHIPULAMOUNT.CUSTULCITY.COUNT+=1
|
|
I.SHIPULAMOUNT=''
|
|
END
|
|
*
|
|
* PRINT DETAIL LINE
|
|
*
|
|
PRINTLINE = ""
|
|
PRINTLINE := S.CUSTULCITY:@vm
|
|
PRINTLINE := S.PO:@vm
|
|
PRINTLINE := S.SHIPULDATE:@vm
|
|
PRINTLINE := S.SHIPULQTY:@vm
|
|
PRINTLINE := S.INVOICEULIDS:@vm
|
|
PRINTLINE := S.SHIPULAMOUNT
|
|
TableColInfo = '<+5040':@vm:'<+2880':@vm:'<+1440':@vm:'>+1440':@vm:'>+1800':@vm:'>+2160'
|
|
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE )
|
|
|
|
*
|
|
IF NEW.MARK.LEVEL THEN
|
|
S.CUSTULCITY=''
|
|
S.PO=''
|
|
S.SHIPULDATE=''
|
|
S.SHIPULQTY=''
|
|
S.INVOICEULIDS=''
|
|
S.SHIPULAMOUNT=''
|
|
PREVIOUS.MARK.LEVEL=NEW.MARK.LEVEL
|
|
GOTO DETAIL
|
|
END
|
|
*
|
|
GOTO READRECORD
|
|
*
|
|
END
|
|
|