<>/Ю+?╣ 83"WHEOMACP- ACCESSORIAL INVOICE WEB VERSION- PRELIM ONLY3BEGIN ; GOTO 0031@Ж@#R$дDП╗$РеПяJCONSРдuПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС еvВеF$R$дDП╗$РеПяJBLHHРдsПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС еtВеF&R$дDП╗$РеПяJBLACРд■Пд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$еkПя #,###,##0РеlПя#######.00-РеmПя#####.0000-√$дП╗$С,сдШяCCNVZЄ5 ╗"сф ШАфЩЙ'$еCПяJ1MDF001201803Ре'ПяPDFBСЖхЎеCРе'х3MANAGE THE OUTPUTэ е'АяЩЙЖПФ%$дП╗$С,сдЇяO_CREATE,O_TRUNCШе'П#3IF OUTFILE=0 THEN ADD TO OUTPUTTO$,$еOПеCсф РфШРеCПе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∙$еПяРеПя|Ре+Пя %$д*ПфРд)ПфРеoПя** CONTINUED **є@ дgМфНРдhМфНРдiМфНРдjМфНРд]МфdНРд^МфdНРдeМфdНРдfМфdНі $е`ПяРеZПяРеdПяРе_ПяТ(1сд╣еCсфРфШШе;РеРе>Ре?Ре@РеA%1ЗсдI╣еCсфРфШшеO╪ф╠Ж ШеJСЖ $е@pПя*PRELIM*─$еqПеC┼1сд■╣еq╞Ж▐Ш▐8$е⌠П╘сд■╟Ж<ШС е⌠сфРфШБеCсфРфШЩЙ $еqПяСЖ<╡A еqАяЩЙ5$дПф═РдПгXРеПяNO AC INVOICE FOUND.СU─СЖdХ 3" MAIN LOGICL$дПгjРдПфРдПф2РдПф`)$е ПяРе"ПяРе!ПяС д#Мф2НРд$Мф2Нj $е%ПяРе&ПяС3items and qtyst$е=Пя╟<$дzПфРд{ПфFРд|Пф}Рд}ПфЄРд~ПгєРдПгжРд─ПгЧРд│Пг╨'$д▀ПфdРд█ПгРд▐ПгJРд▒Пг|Рд▓Пгбl1сд■╣еq╞ЖvШп3detail4&1Зсд■╟Ж<Ше∙С е∙сфРфШБеCЩЙЖ<>$еrПяJ1ше@√сф ШH1Зсдs╣еr╞ЖпШеtM( я20ше@yсфРфШше@yсфРфШБеOЩЙЖпR1Зсдu╣еtсфРфШше@wШеv\%$еQП╚─ ся20ше@yсфРфШше@yсфРфШШz7яGETBOL1РеrРе°Ре²Ре·Ре÷Ре═Рд║Рд╒РдёРдєРе╔└ $д@≈Пд║Рд@≤Пд╒Рд@≥ПдёРд@ Пдє≤$еSП╘(сд@≈ВеkШ╒$е┌П╘(сд@≤ВеkШІ $е└П╘(сд@≥ВеkШРе┘П╘(сд@ ВеkШ╦3DETAILб дДдЩЙЖьС3start new pageл#$еPПе@√сф ШРеRПе@⌡Ре┐П╘се@xРфШТ~$дПдэфРдПдщсдчдШРдПдzщфРеПеPСU─С$дПд{РеПеQСU─С$дПд|РеП╘сеRРфШСU─С$дПд}РеПе┐СU─Ч+$дПд~РеПеSСU─С$дПдРеПе┌СU─+$дПд─РеПе└СU─С$дПд│РеПе┘СU─Ж─С3GET THE CHARGESvЖп─#3--------- HANDLE THE CHARGE DETAIL╗>$е├ПяPRE80СяWASSCXРе∙сфРфШРеCсфРфШРеrсфШРд┤Ре├Д ╗се├ШАфЩЙЖ HИo е┬ВяgACODE:C(2),ADESC:C(27),AGL:C(6),ATYPE:C(3),ARATE:C(9),afill1:c(4), AQTY:C(9),ARATE1:C(10),ACHARGE:C(10)Н$е┬Пе├сфРфPШРе├Пе├сфQШ дДдЩЙЖьС3start new page *2$дПдэфРдПдщсдчдШРдПд▀РеПе@▄СU─ /+$дПд█РеПе@▌СU─С$дПд▐РеПе@░СU─ 4$дПд▒С$еПе@┼СU─ 9%$е`Пе@▄РдbП╗се@┼ШРдcП╗се@▌ШСЖэ ;$дnПдnэ╗се@┼Ш >ЖД H3----- DISPLAY BOL TOTAL? ╒8ь3----------- handle end of pageБE$д*Пд*эфРдПгТРдПгНРеПяPage ш╘(сд*Шшя of {totalp}СU─Жо$е+Пе+шяgsaveшр шя .8 setgrayшр шя/Times-Bold findfontшр шя50 scalefontшр шяsetfontшр шя200 380 movetoшр шя 30 rotateшр шя!(DO NOT PAY) 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 $еoПяС3REMOVE ** CONTINUED **ZJ$дПфdРеПяT O T A L C H A R G E SРдПдэфРдПдщсдчдШСU─_+$дПд▒РеП╘(сдnВя$ ####,###.00-ШСU─a*$д-ПфРд.ПдщфРд/ПгNРд0Пдэф СU─dЖьn, дАфЩЙ!$е'П╚─ се'Ря{totalp}Р╘(сд*ШШ√Ж#(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С$е┴Пе┴шеС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} еZАяЩЙЖр( дДдщфЩЙЖьС3handle widow/orphan─C$дПдэфС$дПфdРдПдщсдчдШРеПяS U B T O T A L SСU─┌д3ПфЧ╗сеZШъф(▄$е[ПеZсд3чф(щф'Рф(Ш▌ д]Мд3НАфЩЙЖх▒ дДдЩЙЖь⌡ё$дПдэфРдПдщсдчдШРдПфРеПя Subtotal: СU─С$дПд▀РеПе[СU─С$дПд█РеП╘(сд^Мд3НВеkШСU─С$дПд▒РеП╘(сд]Мд3НВя####,###.00-ШСU─═$д\Пд\эфх*д3м$е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#*сд■ШСсдsШСсдШСсдuШ#-сд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шр ше,+─; ╗се┴ШЩЙ/$еПешя/Courier-Bold 8 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$е ПяРеПяРеПя7@$еПяРе,ПяРеПяРе:ПяРе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И)$дПф2РдПгэРеПя A C C O U N TСU─WК-$д-Пф2Рд.ПгзРд/Пд-эфхРд0Пд.СU─С3LINEWН$дПф2РдПгкРеПеСU─WЬ$дПгаРеПе>СU─X$дПгЇРеПе?СU─X$дПгґРеПе@шя шеAСU─X^$дПфРдПг≥РеПяReference : ше@pшя - шеqшя# ***Do not pay - reference only **СU─X"$дПг┼РеПя Period : шеOСU─X.$дПгhРдПгэРеПяW A R E H O U S EСU─X.$д-ПгhРд.ПгзРд/Пд-эфхРд0Пд.С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Рд0ПгСU─X▌&3X=20,Y=273,X1=590,Y1=770; GOSUB DOBOXX≤d$е+Пе+шя/Helvetica 22 selectfontшр шя175 750 movetoшр шя(ACCESSORIAL DOCUMENT) showшр X╛Ш$дПдzэф РдПгvРеПяBOL#СU─С$дПд{РеПяDateСU─С$дПд|РеПяStorer Ref#СU─С$дПд}РеПя ConsigneeСU─С$дПд~эф С$еПяPiecesСU─С$дПдэф РеПяWeightСU─С$дПд─эф РеПяPalletsСU─С$дПд│эфРеПяLinesСU─X╠─$дПд▀РдПгlРеПяDescriptionСU─С$дПд█эфРеПяQtyСU─С$дПд▐эфРеПяRateСU─С$дПд▒эфРеПяChargeСU─XІ$$д-ПфРд.ПгjРд/ПгNРд0Пг─СU─Xюp3LET LINESPS$=LINESPS$+"/Helvetica 18 selectfont"+$0A$+"80 215 moveto"+$0A$+"(CHAMPION BOL:"+A1$+" ) show"+$0A$Xй$дПгбРдПфРеПеoС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н8д| ╚─ сеШд├ ╘сеРфШАяЩЙЖд д░/$еПесфРфШшя/шесфРфШшя/шесфРфШд 8едє]дў ╚─сеШд╦$еПя"шешя",дб8едл]дж╚─сеTРеUРеVШдЮ( ╘сеUРфШБяЩЙ$еUПя, ш╘сеUРфШдЙ5$еП╘сеTРфШш╘сеUРфШшя ш╘сеVРфШшя дТ8едЧ]е╚─ сеРеWРеXШе $дYП╗сеWАеШС дYАфЩЙЖее($еПесфРдYщфШшеXшесдYэ╗сеWШШеЖее8ее]ЪЪTPSFILELOUTFILE TESTGRIDIIJJPSCHANPSPPPPS1LCOPYYYYYYJJJDOCOLDOROWSHOWJCUSTCCNVZJQFB3LLLH8LH10LH12B STARTROWRRMAXROWROWNNCNNP9NNLNNPNNWIIIQQQ OUTPUTTOERRMSG1TOTALPPAGELINESPSLC10XYX1Y1 LINEWIDTHMYBOXIOFF__TESTGRIDMYBARSCALEROTATEHEIGHTBAROPTSLH12VA3LCVRADC3D3E3F3LH10VJKEYFJSBFITPLJSBFIJCUSTAXINVAXINVRT1RT2RT3RT4DOPERX1X2X3X5YYCYYSYYZYYY1YYY2YYYTOTSDESCLTOTSTOTPBTOTSDOTOTTOTPOSDOTOTDOPALBDOTOTBTOTSBTOTP HANDLINGB415TH AFTER15THENDBALMM1M2PAYTOTPAGEFOOTER AXINV.INVACINVBLKEYJBLHHJBLHHJCONSJCONS JBLHH.CONS JCONS.CONSIGEE_NAME JBLHH.DELDCOL1COL2COL3COL4COL5COL6COL7COL8X6X4X7X8CTEXTWAMTCCLC8B CC.ACHARGEACOL1 CC.ADESCACOL2 CC.AQTYACOL3 CC.ARATEACOL4ACOL5KACJBLACJBLAC JBLAC.KAC JBLAC.PCS JBLAC.WGTJBLAC.PLTSJBLAC.LINES JBLAC.STREFHDDTOTHER1OTHER2OTHER3TPCSTWGTTPLTSTLINESDDATE┌CLEAN─LH8─LH10─LH12B─LC10─DOBOX ─DOBARCODE─LH12V─LCV─LH10V┌D1┌XL┌CSZ┌SUB─LC8Bb┐