<>/i+╗ #3"WHEOMJI - JI INVOICES WEB VERSION3BEGIN ; GOTO 0031@Ж@#Z$дDП╗$РеПяMISHHРд┌ПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС е┐ВеFРе⌠ВеF$R$дDП╗$РеПяCLASSРд└ПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС е┘ВеF&R$дDП╗$РеПяMISDHРд├ПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС е┤ВеF(R$дDП╗$РеПяJSBFIРдEПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС еGВеF,R$дDП╗$РеПяJCUSTРдПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС еHВеF2R$дDП╗$РеПяAXINVРдIПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС еJВеF7$$еПя/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$еKПяCHAMPION LOGISTICS GROUPРеLПяWAREHOUSE DIVISIONРеMПя200 CHAMPION WAYРеNПяNORTHLAKE, IL 60164d7$еgПя #,###,##0РеhПя#######.00-РеiПя#####.0000-√$дП╗$С,сдШяCCNVZЄ3 ╗"сф ШАфЩЙ%$еCПяJ1EMG0011702Ре&ПяPDFBСЖхЎеCРе&Ре≈б$е≈Пях3MANAGE THE OUTPUTэ е&АяЩЙЖПФ%$дП╗$С,сдЇяO_CREATE,O_TRUNCШе&П#3IF OUTFILE=0 THEN ADD TO OUTPUTTO$,$еOПя20шеCсф РфШ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∙$еПяРеПя|Ре*Пя %$д)ПфРд(ПфРеkПя** CONTINUED **є д]МфdНРд^МфdНРдeМфdНРдfМфdНі $е`ПяРеZПяРеdПяРе_ПяТ(1сд╣еCсфРфШШе:РеРе=Ре>Ре?Ре@%1ЗсдI╣еCсфРфШшеO╪ф╞Ж ШеJСЖ $е@lПяХ 3" MAIN LOGICL$дПгtРдПфРдПф2РдПф`)$еПяРе!ПяРе ПяС д"Мф2НРд#Мф2Нj $е$ПяРе%ПяС3items and qtyst$е<Пя╟D$дmПфРдnПфPРдoПф▄РдpПф╔РдqПг^РдrПг├РдsПгўРдtПгЮРдПг╨'$дzПфdРд{ПгРд|ПгJРд}Пг|Рд~Пгб░$е┬ПеCсфРфШшеCсф РфШ 1сд┌╣е┬╪ф╞Ж°Шє3$е┴П╘сд┌╟Ж<ШС1Зсд┌Ше┐С е┴сфРф ШБе┬ЩЙЖ<╦ е┐сфРфШБяJIЩЙЖєҐ д@∙эд@√АфЩЙЖєС3VOIDED ??б.$е⌠Пе┐С3save for use in header print (22000)l1сд├╣е┐сфРфШ╞ЖvШп3detail4-1Зсд├╟ЖtШе┤С е┤сфРфШБе┐сфРфШЩЙЖt\$$еPПе@┼сфШРеQПе@░РеRПяРеvПе@▀≤$еSП╘(сд@▄ВеgШ╛$еwП╘(сд@█Вя##,###.0000Ш ь$е─П╘(сд@▌Вя####,###.00Ш БW д@▌АфЩЙL$еPПяРеQПяРеRПяРеvПе@▒ше@▓РеSПяРеuПяРеwПяРеxПяРе─Пя╦3DETAILб дДдЩЙЖьС3start new pageТw$дПдэфРдПдщсдчдШРдПдmщфРеПеPСU─С$дПдnРеПеQСU─С$дПдoРеПеRСU─С$дПдpРеПеvСU─Ч+$дПдqРеПеSСU─С$дПдrРеПеuСU─+$дПдsРеПеwСU─С$дПдtРеПеxСU─$дПдРеПе─СU─$дjПдjэд@▌vЖп H3----- DISPLAY BOL TOTAL? R$дПг' ╒8tI3----------- HANDLE END OF JI INVOICE, GO GET THE NEXT ONE AFTER SETTING ┬ дЦдщфЩЙ$дПдщф°$еkПяіJ$дПфdРеПяT O T A L C H A R G E SРдПдэфРдПдщсдчдШСU─╟.$дПдtэфРеП╘(сдjВя$ ####,###.00-ШСU─╨2$д)ПфС$д,ПфРд-ПдщфРд.ПгNРд/Пдэф СU─дЖьиP$е≈Пе≈шяMisc Invoice: ше┐сфРфШшя|ше@■шя>|ш╘(сдjВя-#######.00Шшя\л$дjПфнЖєь3----------- handle end of pageБ:$д)Пд)эфРдПгТРдПгНРеПяPage ш╘(сд)Шшя СU─Жт дBЩЙл$е*Пе*шя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 DOCUMENT ------------------------A дАфЩЙЖnF дЦдщфЩЙ$дПдщфPЖxС3subtotalsU $еkПяС3REMOVE ** CONTINUED **ZJ$дПфdРеПяT O T A L C H A R G E SРдПдэфРдПдщсдчдШСU─_.$дПдtэфРеП╘(сдjВя$ ####,###.00-ШСU─a*$д,ПфРд-ПдщфРд.ПгNРд/Пдэф СU─dЖьnG3IF OUTFILE=0 THEN LET OUTPUTTO$=FNSUB$(OUTPUTTO$,"{totalp}",STR(PAGE))√Ж#(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─ЖpС$еyПеyшеС8хU─3Helvetica 12 VERTICALр)$еП╘(сдШшя ш╘(сдШшя movetoшр эJ$еПешя 90 rotateшр шя(ш╚─сеШшя) showшр шя -90 rotateшр Ф$е9Пе9ше"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$е4Пяgsaveшр ш╘(сд,Шшя ш╘(сд-Шшя movetoшр ÷7 д5БфЩЙ,$е4Пе4ш╘(сд5Шшя ш╘(сд5Шшя scaleшр є+ д6БфЩЙ $е4Пе4ш╘(сд6Шшя rotateшр ўm$е4Пе4шя(шешя) (ше8шя height=ш╘(сд7Шшя4) /code39 /uk.co.terryburton.bwipp findresource execшр ╦$е4Пе4шяgrestoreшр Ю$е*Пе*ше4Й8ТFU─3create a postscript box (x,y) is bottom left, x1,y1 is top rightЫ е0АяЩЙ$е0Пя1.0ЧS$е1Пе0шя setlinewidthшр шя37 550 newpath movetoшр шя575 550 linetoшр Z$е1Пе1ш╘(сд,Шшя ш╘(сд-Шшя newpath movetoшр ш╘(сд.Шшя ш╘(сд-Шшя linetoшр -$е1Пе1ш╘(сд.Шшя ш╘(сд/Шшя linetoшр -$е1Пе1ш╘(сд,Шшя ш╘(сд/Шшя linetoшр &-$е1Пе1ш╘(сд,Шшя ш╘(сд-Шшя linetoшр :)$е1Пе1шя 0 setgrayшр шяstrokeшр D$е*Пе*ше1N8╟U─ 3Helvetica 10 VERTICAL╨)$еП╘(сдШшя ш╘(сдШшя movetoшр дJ$еПешя 90 rotateшр шя(ш╚─сеШшя) showшр шя -90 rotateшр н$еAПеAше 8x3print the subtotals} еZАяЩЙЖр( дДдщфЩЙЖьС3handle widow/orphan─C$дПдэфС$дПфdРдПдщсдчдШРеПяS U B T O T A L SСU─┌д2ПфЧ╗сеZШъф(▄$е[ПеZсд2чф(щф'Рф(Ш▌ д]Мд2НАфЩЙЖх▒ дДдЩЙЖь⌡ё$дПдэфРдПдщсдчдШРдПфРеПя Subtotal: СU─С$дПдzРеПе[СU─С$дПд{РеП╘(сд^Мд2НВеgШСU─С$дПд}РеП╘(сд]Мд2НВя####,###.00-ШСU─═$д\Пд\эфх*д2м$еZПяр$е_Пяв8э3------ DO SUBTOTTALLINGФ$е`Пе`ш╘сфdШРе`Пе`сфРф(ШП0$дaП╗се`АеZРф(ШС дaАфЩЙ$еZПеZше`СЖПЗ$дaПсдaэф'Шъф(Ъ дaДфdЩЙ$дaПфd$д]МдaНПд]МдaНэдb$д^МдaНПд^МдaНэдc$еdПеdш╘сфdШРеdПеdсфРфШ"0$дaП╗сеdАе_РфШС дaАфЩЙ$е_Пе_шеdСЖ"'$дaПсдaэфШъф,"3IF TOTPOS>100 THEN LET TOTPOS=1001,$дeМдaНПдeМдaНэдbРдfМдaНПдfМдaНэдc68@3J=$е'ПяERROR ш╘(с╗Шшя AT LINE ш╘(с╗"сфШШшя IN ш╘#сзфШTEС2#( 3" EXIT POINT#*сд├ШСсд└ШСсдШСсд┌Ш#-сдEШСсдШСсдIШ#. сд╠Ж#/Ш#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шр ше+~6 ╗се+ШЩЙ*$еПешя/Courier 8 selectfontшр ше++─; ╗сеyШЩЙ/$еПешя/Courier-Bold 8 selectfontшр шеy+└> ╗сеШЩЙ2$еПешя/Helvetica-Bold 12 selectfontшр ше+▌9 ╗се9ШЩЙ-$еПешя/Helvetica 12 selectfontшр ше9+⌠9 ╗сеAШЩЙ-$еПешя/Helvetica 10 selectfontшр шеA+≤6 ╗се;ШЩЙ*$еПешя/Courier 8 selectfontшр ше;,~86╟3" WRITE DATA TO OUTPUT 6╣($дП╗$С,сдШеС1Зсд╦х 'юШеСсдШ6╨$дП╗се│АеШ6© дАфЩЙ $е ПеСЖ6ь6д($е ПесфРдщфШше*ше3шешесдШ6ьF3IF POS(">"=OUTPUTTO$) THEN PRINT (OUTFILE)'BO',PS1$,'EO',; GOTO 140506Б дАфЩЙ$е&Пе&ше СЖ76Л LсдШе 7$е ПяРе ПяРеПя7@$еПяРе+ПяРеПяРе9ПяРеAПяРе;ПяРе*ПяРеyПя7 8:≤3^1000 outta here:╒ 3functions:╛ ╚─сеШ:І0$дП╗ся(АеШС дЩЙ$есдРфШПя[СЖ:І:ю0$дП╗ся)АеШС дЩЙ$есдРфШПя]СЖ:ю:б0$дП╗ся\АеШС дЩЙ$есдРфШПя СЖ:б:й8е:т]:Э$д П╗сяj╠Ж:ЩШ:ЩN %3---- charges record with blank linesNHo$дПф(РдПфхРеПя------ Charge ------СU─С$дПгРеПя -- QTY --СU─С$дПгєРеПя-- Notes --СU─N\aд2ПфЄЧф<ЭзфС$дПф(РдПд2РеПя1_______________________________ ____________СU─С*д2Nz8UП43---------------- create header/footer for each pageW┤>$дПг┘РдПгТРеПяPrint Date: ш╘ сфВя %Mz/%Dz/%YШСU─WИ)$дПф2РдПгэРеПя A C C O U N TСU─WК-$д,Пф2Рд-ПгзРд.Пд,эфхРд/Пд-СU─С3LINEWН$дПф2РдПгкРеПеСU─WЬ$дПгаРеПе=СU─X$дПгЇРеПе>СU─X$дПгґРеПе?шя ше@СU─X+$дПфРдПг≥РеПяInvoice# : ше@▐СU─X/$дПфФРдПг≥РеПяInvoice Date : ше@■СU─X)$дПфРдПг┼РеПя Period : шеOСU─X.$дПгhРдПгэРеПяW A R E H O U S EСU─X.$д,ПгhРд-ПгзРд.Пд,эфхРд/Пд-СU─С3LINEXH $дПгhРдПдщфРеПеKСU─XR$дПдщф РеПеLСU─X\$дПдщф РеПеMСU─Xf$дПдщф РеПеNС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Рд/ПгСU─X▌&3X=20,Y=273,X1=590,Y1=770; GOSUB DOBOXX≤j$е*Пе*шя/Helvetica 22 selectfontшр шя115 750 movetoшр шя!(JI - MISCELLANEOUS INVOICE) showшр X╛$дПдmэфРдПгvРеПяLineСU─С$дПдnРеПяCodeСU─С$дПдoРеПяСU─С$дПдpРеПяDescriptionСU─С$дПдqэфС$еПяQtyСU─С$дПдrэф РеПяСU─С$дПдsэфРеПяRateСU─С$дПдtэфРеПяСU─С$дПдэф РеПяChargeСU─XІ$$д,ПфРд-ПгtРд.ПгNРд/Пг─СU─Xюp3LET LINESPS$=LINESPS$+"/Helvetica 18 selectfont"+$0A$+"80 215 moveto"+$0A$+"(CHAMPION BOL:"+A1$+" ) show"+$0A$Xй$дПгбРдПфРеПеkСU─Xо0$дПф(РдПфРеПя Customer: шеCсфРфШСU─Y 3barcodesYm3LET SHOW$=CVS("12345678",3),X=580,Y=70,SCALE=.8,ROTATE=90,HEIGHT=.4,BAROPTS$="includetext "; GOSUB DOBARCODEYн8y| ╚─сеШy├0$дYПгlэсс╗сесфРфШШщф0Шчф Шэ╗сесфРфШШy░$еП╘(сдYШшесфШy 8еyє4]С3above does :01030 = 20001030 or 991231=19991231д| ╚─ сеШд├ ╘сеРфШАяЩЙЖд д░/$еПесфРфШшя/шесфРфШшя/шесфРфШд 8едє]дў ╚─сеШд╦$еПя"шешя",дб8едл]дж╚─сеTРеUРеVШдЮ( ╘сеUРфШБяЩЙ$еUПя, ш╘сеUРфШдЙ5$еП╘сеTРфШш╘сеUРфШшя ш╘сеVРфШшя дТ8едЧ]е╚─ сеРеWРеXШе $дYП╗сеWАеШС дYАфЩЙЖее($еПесфРдYщфШшеXшесдYэ╗сеWШШеЖее8ее]ЪЪPSFILELOUTFILE TESTGRIDIIJJPSCHANPSPPPPS1LCOPYYYYYYJJJDOCOLDOROWSHOWJCUSTCCNVZJQFB3LLLH8LH10LH12B STARTROWRRMAXROWROWNNCNNP9NNLNNPNNWIIIQQQ OUTPUTTOERRMSG1TOTALPPAGELINESPSLC10XYX1Y1 LINEWIDTHMYBOXIOFF__TESTGRIDMYBARSCALEROTATEHEIGHTBAROPTSLH12VA3LCVRADC3D3E3F3LH10V WATERMARKJKEYFJSBFITPLJSBFIJCUSTAXINVAXINVRT1RT2RT3RT4DOPERX1X2X3X5YYCYYSYYZYYY1YYY2YYYTOTSDESCLTOTSTOTPBTOTSDOTOTTOTPOSDOTOTDOPALBDOTOTBTOTSBTOTPMM1M2PAYTOTPAGEFOOTER AXINV.INVCOL1COL2COL3COL4COL5COL6COL7COL8X6X4X7X8LC8BACOL1ACOL2ACOL3ACOL4ACOL5COL9X9TOKENMISHHMISHHCLASSCLASSMISDHMISDH CUSTYYMMHHKEY MISDH.DKEY MISDH.DESC MISDH.QTYMISDH.RATE MISDH.NET MISHH.MKEY MISDH.CCODE MISDH.BCODE MISDH.FTERM1MISHH1 MISHH.IDATEMISHH.AMT2MISHH.AMT3JILIST┌CLEAN─LH8─LH10─LH12B─LC10─DOBOX ─DOBARCODE─LH12V─LCV─LH10V┌D1┌XL┌CSZ┌SUB─LC8B┌Y2KBW©