<>*┐&Й▄ $3"WHEOMSB - SUMMARY BILL WEB VERSION3BEGIN ; GOTO 0031@Ж@(R$дEП╗$РеПяJSBFIРдFПдEС,сдEШешя.tplС1сдEШеGСсдEШС,сдEШеС еHВеG,R$дEП╗$РеПяJCUSTРдПдEС,сдEШешя.tplС1сдEШеGСсдEШС,сдEШеС еIВеG2R$дEП╗$РеПяAXINVРдJПдEС,сдEШешя.tplС1сдEШеGСсдEШС,сдEШеС еKВеG7$$еПя/u/whp/tss/docs/packlistB.ps8#$еПя/u/whp/tss/docs/CLGPACK2.ps9#$еПя/u/whp/tss/docs/PACKPORT.ps<U$еПяС3write all ps commands into l$ it gets merged with the postscript form laterF)$еПя!%%Insert The Overlay Stuff Here%%Pm$еLПяCHAMPION LOGISTICS GROUPРеMПяWAREHOUSE DIVISIONРеNПя200 CHAMPION WAYРеOПяNORTHLAKE, IL 60164d7$еwПя #,###,##0РеxПя#######.00-РеyПя#####.0000-√$дП╗$С,сдШяCCNVZЄ3 ╗"сф ШАфЩЙ%$еDПяJ1SEM0011703Ре'ПяPDFBСЖхЎеDРе'Ре}х3MANAGE THE OUTPUTэ е'АяЩЙЖПФ%$дП╗$С,сдЇяO_CREATE,O_TRUNCШе'П#3IF OUTFILE=0 THEN ADD TO OUTPUTTO$,$еPПя20шеDсф РфШr>3LET TEXTERR$=TEXTERR$+"bol:"+BL$+" not found"+$0A$; GOTO 9000├°3LET WATERMARK=0; IF POS("JBLHD"=FID(JBLHD)) THEN LET D1=NUM(D1$(3,1)),D1=D1+1,D1$(3,1)=STR(D1); WRITE (JBLHD,KEY=A1$)IOL=0040; IF D1>1 THEN LET WATERMARK=1∙$еПяРеПя|Ре+Пя≈$е}Пя %$д*ПфРд)ПфРе{Пя** CONTINUED **є@ дsМфНРдtМфНРдuМфНРдvМфНРдiМфdНРдjМфdНРдqМфdНРдrМфdНі $еlПяРеfПяРеpПяРеkПяТ(1сд╣еDсфРфШШе;РеРе>Ре?Ре@РеA%1ЗсдJ╣еDсфРфШшеP╪ф╞Ж ШеKСЖ $е@|Пя*PRELIM*Х 3" MAIN LOGICL$дПгtРдПфРдПф2РдПф`)$е ПяРе"ПяРе!ПяС д#Мф2НРд$Мф2Нj $е%ПяРе&ПяС3items and qtyst$е=Пяl1сдF╣еD╞ЖvШп3detail4&1ЗсдF╟Ж<ШеHС еHсфРфШБеDЩЙЖ<\ д@YАфЩЙЖп≤J$еSП╘се@TРфШС еSАяЩЙ.$еSПя&TRANSACTION DESCRIPTION OF CHARGE HERE╒$е[Пе@Rсф РфШРе\Пе@]сфРфШ╛' е[АяOPЩЙ$еSПяRECURRING STORAGEІ; е[АяSHКе\АяSHЩЙ#$еSПяSTORAGE CHARGE - HALF MONTHю; е[АяSHКе\АяSFЩЙ#$еSПяSTORAGE CHARGE - FULL MONTHй9 е[АяSHКе\АяHAЩЙ!$еSПяRECEIVING HANDLING CHARGEл8 е[АяSHКе\АяOHЩЙ $еSПяOUTBOUND HANDLING CHARGEЭ$е^П╚─ ся20ше@_Ш╦3DETAILб дДдЩЙЖьС3start new pageлS$еQПе@RРеUП╘(сд@ZВя###,##0ШРеVП╘(сд@WВя ####.0000ШРеXП╘(сд@YВя###,###.00-Шж33LET X3$="123,456",X4$="1234.0001",X5$="999,999.88"Тx$дПдэфРдПдщсдчдШРдПфРеПеQСU─С$дПфdРеПе^СU─С$дПф╙РеП╘сеSРфШСU─С$дПг░РеПеUСU─Ч+$дПглРеПеVСU─С$дПг РеПеXСU─/$еlПеSРдoПфРеpПяUNKРдnПд@YРдoПд@ZСЖэD$дzПдzэд@YvЖпь3----------- handle end of pageБE$д*Пд*эфРдПгТРдПгНРеПяPage ш╘(сд*Шшя of {totalp}СU─Жт дCЩЙл$е+Пе+шяgsaveшр шя .8 setgrayшр шя/Times-Bold findfontшр шя50 scalefontшр шяsetfontшр шя200 380 movetoшр шя 30 rotateшр шя(REPRINT) true charpath strokeшр шяgrestoreшр $ЖUПС3capture the header and footer !Ж*ЬС3test grid and font handlingЖ6╟С3dump page out$дПф28<?3-------------- done with SUMMARY BILL ------------------------PЖxС3subtotalsU $е{ПяС3REMOVE ** CONTINUED **Zb$дПфdРеПя1P L E A S E P A Y T H I S A M O U N TРдПдэфРдПдщсдчдШСU─_+$дПгТРеП╘(сдzВя$ ####,###.00-ШСU─a*$д-ПфРд.ПдщфРд/ПгNРд0Пдэф СU─dЖьn, дАфЩЙ!$е'П╚─ се'Ря{totalp}Р╘(сд*ШШ┌g$е}ПяMonthly Summary Invoice: ше@|шя|шеPсфРфШшя/шеPсфРфШшя>|ш╘(сдzВя-#######.00Шшя\√Ж#(p13----------- generic PS format a line -----------т)$еП╘(сдШшя ш╘(сдШшя movetoшр Р%$еПешя(ш╚─сеШшя) showшр .83o3--------------------------- this section handles the text into the variable for the different fonts/attributes8U─3Helvetica 8 LЖpС$еПеше▓8°U─3Helvetica 10 ╟ЖpС$еПешеЖ8U─3Helvetica-Bold 12 ЖpС$еПешеZ8dU─3COurier 10xЖpС$е,Пе,шеЎ8хU─3Helvetica 12 VERTICALр)$еП╘(сдШшя ш╘(сдШшя movetoшр эJ$еПешя 90 rotateшр шя(ш╚─сеШшя) showшр шя -90 rotateшр Ф$е:Пе:ше"8,U─3COURIER xx VERTICAL6)$еП╘(сдШшя ш╘(сдШшя movetoшр @J$еПешя 90 rotateшр шя(ш╚─сеШшя) showшр шя -90 rotateшр J$е<Пе<ше├8░U─3create a barcode 39 ▒D3sent x,y scale (1.0 or 1.2 or .8 ) rotate (0 90) height (inches)▓%3show$ should be the value to barcode 7$е5Пяgsaveшр ш╘(сд-Шшя ш╘(сд.Шшя movetoшр ÷7 д6БфЩЙ,$е5Пе5ш╘(сд6Шшя ш╘(сд6Шшя scaleшр є+ д7БфЩЙ $е5Пе5ш╘(сд7Шшя rotateшр ўm$е5Пе5шя(шешя) (ше9шя height=ш╘(сд8Шшя4) /code39 /uk.co.terryburton.bwipp findresource execшр ╦$е5Пе5шяgrestoreшр Ю$е+Пе+ше5Й8ТFU─3create a postscript box (x,y) is bottom left, x1,y1 is top rightЫ е1АяЩЙ$е1Пя1.0ЧS$е2Пе1шя setlinewidthшр шя37 550 newpath movetoшр шя575 550 linetoшр Z$е2Пе2ш╘(сд-Шшя ш╘(сд.Шшя newpath movetoшр ш╘(сд/Шшя ш╘(сд.Шшя linetoшр -$е2Пе2ш╘(сд/Шшя ш╘(сд0Шшя linetoшр -$е2Пе2ш╘(сд-Шшя ш╘(сд0Шшя linetoшр &-$е2Пе2ш╘(сд-Шшя ш╘(сд.Шшя linetoшр :)$е2Пе2шя 0 setgrayшр шяstrokeшр D$е+Пе+ше2N8╟U─ 3Helvetica 10 VERTICAL╨)$еП╘(сдШшя ш╘(сдШшя movetoшр дJ$еПешя 90 rotateшр шя(ш╚─сеШшя) showшр шя -90 rotateшр н$еBПеBше 8x3print the subtotals} еfАяЩЙЖр( дДдщфЩЙЖьС3handle widow/orphan─C$дПдэфС$дПфdРдПдщсдчдШРеПяS U B T O T A L SСU─┌д3ПфЧ╗сеfШъф(▄$еgПеfсд3чф(щф'Рф(Ш▌ дiМд3НАфЩЙЖх▒ дДдЩЙЖь⌡╒$дПдэфРдПдщсдчдШРдПфРеПя Subtotal: СU─С$дПфdРеПеgСU─С$дПг░РеП╘(сдjМд3НВеwШСU─С$дПгРеП╘(сдiМд3НВя####,###.00-ШСU─═$дhПдhэфх*д3м$еfПяр$еkПяв8э3------ DO SUBTOTTALLINGФ$еlПеlш╘сфdШРеlПеlсфРф(ШП0$дmП╗сеlАеfРф(ШС дmАфЩЙ$еfПеfшеlСЖПЗ$дmПсдmэф'Шъф(Ъ дmДфdЩЙ$дmПфd$дiМдmНПдiМдmНэдn$дjМдmНПдjМдmНэдo$еpПеpш╘сфdШРеpПеpсфРфШ"0$дmП╗сеpАеkРфШС дmАфЩЙ$еkПеkшеpСЖ"'$дmПсдmэфШъф,"3IF TOTPOS>100 THEN LET TOTPOS=1001,$дqМдmНПдqМдmНэдnРдrМдmНПдrМдmНэдo68@3J=$е(ПяERROR ш╘(с╗Шшя AT LINE ш╘(с╗"сфШШшя IN ш╘#сзфШTEС2#( 3" EXIT POINT#-сдFШСсдШСсдJШ#. сд╠Ж#/Ш#2'*Ь-311000 "GENERATE TEST GRID and COMPOSE THE L$+ $$еПя/Helvetica 8 selectfontшр +*дПф Чг╪Эфd+4дПф Чг╪Эфd+9W$еПеш╘(сдШшя ш╘(сдШшя moveto шр шя(ш╘(сдШшя,ш╘(сдШшя) showшр +> *дС*д+\$еПя+p8 ╗сеШЩЙ,$еПешя/Helvetica 8 selectfontшр ше+z9 ╗сеШЩЙ-$еПешя/Helvetica 10 selectfontшр ше+~7 ╗се,ШЩЙ+$еПешя/Courier 10 selectfontшр ше,+└> ╗сеШЩЙ2$еПешя/Helvetica-Bold 12 selectfontшр ше+▌9 ╗се:ШЩЙ-$еПешя/Helvetica 12 selectfontшр ше:+⌠9 ╗сеBШЩЙ-$еПешя/Helvetica 10 selectfontшр шеB+≤6 ╗се<ШЩЙ*$еПешя/Courier 8 selectfontшр ше<,~86╟3" WRITE DATA TO OUTPUT 6╣($дП╗$С,сдШеС1Зсд╦х 'юШеСсдШ6╨$д П╗сеАеШ6© д АфЩЙ $е ПеСЖ6ь6д($е ПесфРд щфШше+ше4шешесд Ш6ьF3IF POS(">"=OUTPUTTO$) THEN PRINT (OUTFILE)'BO',PS1$,'EO',; GOTO 140506Б дАфЩЙ$е'Пе'ше СЖ76Л LсдШе 7$е ПяРеПяРеПя78$еПяРе,ПяРеПяРе:ПяРеBПяРе<ПяРе+Пя7 8:≤3^1000 outta here:╒ 3functions:╛ ╚─сеШ:І0$д П╗ся(АеШС д ЩЙ$есд РфШПя[СЖ:І:ю0$д П╗ся)АеШС д ЩЙ$есд РфШПя]СЖ:ю:й8е:т]:Э$дП╗сяj╠Ж:ЩШ:ЩN %3---- charges record with blank linesNHo$дПф(РдПфхРеПя------ Charge ------СU─С$дПгРеПя -- QTY --СU─С$дПгєРеПя-- Notes --СU─N\aд3ПфЄЧф<ЭзфС$дПф(РдПд3РеПя1_______________________________ ____________СU─С*д3Nz8UП43---------------- create header/footer for each pageW┤>$дПг┘РдПгТРеПяPrint Date: ш╘ сфВя %Mz/%Dz/%YШСU─WИ0$дПф2РдПгэРеПяB I L L E D T O СU─WК-$д-Пф2Рд.ПгзРд/Пд-эфхРд0Пд.СU─С3LINEWН$дПф2РдПгкРеПеСU─WЬ$дПгаРеПе>СU─X$дПгЇРеПе?СU─X$дПгґРеПе@шя шеAСU─X+$дПфРдПг≥РеПяInvoice# : ше@|СU─X"$дПг┼РеПя Period : шеPСU─X.$дПгhРдПгэРеПяR E M I T T O СU─X.$д-ПгhРд.ПгзРд/Пд-эфхРд0Пд.СU─С3LINEXH $дПгhРдПдщфРеПеLСU─XR$дПдщф РеПеMСU─X\$дПдщф РеПеNСU─Xf$дПдщф РеПеOСU─Xz╔3LINESPS$=LINESPS$+"[3] 0 setdash"+$0A$+"1.0 setlinewidth"+$0A$+"20 253 newpath moveto"+$0A$+"590 253 lineto"+$0A$+"0 setgray"+$0A$+"stroke"+$0A$+"[] 0 setdash"+$0A$X└#$д-ПфРд.ПфРд/ПгNРд0ПгСU─X▌&3X=20,Y=273,X1=590,Y1=770; GOSUB DOBOXX≤g$е+Пе+шя/Helvetica 22 selectfontшр шя150 750 movetoшр шя(MONTHLY SUMMARY INVOICE) showшр X╛Ё$дПфРдПгvРеПя Trans-ID#СU─С$дПфdРеПяDateСU─С$дПф╙РеПяDescriptionСU─С$дПг▀РеПяQuantityСU─С$дПгЮС$еПяRateСU─С$дПгРеПяAmountСU─XІ$$д-ПфРд.ПгtРд/ПгNРд0Пг─СU─Xюp3LET LINESPS$=LINESPS$+"/Helvetica 18 selectfont"+$0A$+"80 215 moveto"+$0A$+"(CHAMPION BOL:"+A1$+" ) show"+$0A$Xй$дПгбРдПфРеПе{СU─Xо0$дПф(РдПфРеПя Customer: шеDсфРфШСU─Y 3barcodesYm3LET SHOW$=CVS("12345678",3),X=580,Y=70,SCALE=.8,ROTATE=90,HEIGHT=.4,BAROPTS$="includetext "; GOSUB DOBARCODEYн8д| ╚─ сеШд├ ╘сеРфШАяЩЙЖд д░/$еПесфРфШшя/шесфРфШшя/шесфРфШд 8едє]дў ╚─сеШд╦$еПя"шешя",дб8едл]дж╚─се`РеaРеbШдЮ( ╘сеaРфШБяЩЙ$еaПя, ш╘сеaРфШдЙ5$еП╘се`РфШш╘сеaРфШшя ш╘сеbРфШшя дТ8едЧ]е╚─ сеРеcРеdШе $дeП╗сеcАеШС дeАфЩЙЖее($еПесфРдeщфШшеdшесдeэ╗сеcШШеЖее8ее]ЪЪTPSFILELOUTFILE TESTGRIDIIJJPSCHANPSPPPPS1LCOPYYYYYYJJJDOCOLDOROWSHOWJCUSTCCNVZJQFB3LLLH8LH10LH12B STARTROWRRMAXROWROWNNCNNP9NNLNNPNNWIIIQQQ OUTPUTTOERRMSG1TOTALPPAGELINESPSLC10XYX1Y1 LINEWIDTHMYBOXIOFF__TESTGRIDMYBARSCALEROTATEHEIGHTBAROPTSLH12VA3LCVRADC3D3E3F3LH10V WATERMARKJKEYFJSBFITPLJSBFIJCUSTAXINVAXINVRT1RT2RT3RT4DOPERX1 JSBFI.INV_NUMX2 JSBFI.DESCRIPTIONX3X4JSBFI.RATEX5 JSBFI.AMOUNTJSBFI.QUANTITYITYPEICHG JSBFI.SEQ_NUMX1A JSBFI.INV_DATEYYCYYSYYZYYY1YYY2YYYTOTSDESCLTOTSTOTPBTOTSDOTOTTOTPOSDOTOTDOPALBDOTOTBTOTSBTOTP HANDLINGB415TH AFTER15THENDBALMM1M2PAYTOTPAGEFOOTER AXINV.INVSBLIST┌CLEAN─LH8─LH10─LH12B─LC10─DOBOX ─DOBARCODE─LH12V─LCV─LH10V┌D1┌XL┌CSZ┌SUB°