<>0i+Ш╛ +3"WHEOMAC - ACCESSORIAL INVOICE WEB VERSION3BEGIN ; GOTO 0031@Ж@#R$дDП╗$РеПяJCONSРдzПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС е{ВеF$R$дDП╗$РеПяJBLHHРдxПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС еyВеF&R$дDП╗$РеПяJBLAHРдrПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС еsВе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$еlПя #,###,##0РеmПя#######.00-РеnПя#####.0000-√$дП╗$С,сдШяCCNVZЄ3 ╗"сф ШАфЩЙ%$еCПяJ1AMC0011702Ре'Пя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∙$еПяРеПя|Ре+Пя %$д*ПфРд)ПфРеpПя** CONTINUED **є@ дhМфНРдiМфНРдjМфНРдkМфНРд^МфdНРд_МфdНРдfМфdНРдgМфdНі $еaПяРе[ПяРеeПяРе`ПяТ(1сд╣еCсфРфШШе;РеРе>Ре?Ре@РеA%1ЗсдI╣еCсфРфШшеO╪ф╠Ж ШеJСЖ $е@qПя*PRELIM*X$3FIND AC INVOICE TO PRINT FROM JSBFIb1сдE╣еC╞ЖlШl&1ЗсдE╟Ж╡ШеGС еGсфРфШБеCЩЙЖ╡v ╗сяACАе@QШАфЩЙЖl─$еtПе@QРеtсфРфШПяJ1┼1сдr╣еt╞Ж▐Ш▐<$е°П╘сдr╟ЖlШС е°сфРфШБеtшеCсфРфШЩЙ $еtПяСЖl╡A еtАяЩЙ5$дПф═РдПгXРеПяNO AC INVOICE FOUND.СU─СЖdХ 3" MAIN LOGICL$дПгjРдПфРдПф2РдПф`)$е ПяРе"ПяРе!ПяС д#Мф2НРд$Мф2Нj $е%ПяРе&ПяС3items and qtyst$е=Пя╟<$дПфРд─ПфFРд│Пф}Рд┌ПфЄРд┐ПгєРд└ПгжРд┘ПгЧРд├Пг╨'$д■ПфdРд√ПгРд≤ПгJРд Пг|Рд⌡Пгбl1сдr╣еt╞ЖvШп3detail4&1Зсдr╟Ж<ШеsС еsсфРф ШБеtЩЙЖ<>$еwПяJ1ше@uсфШH1Зсдx╣еwШеyR* е{В╘ се{ШС1Зсдz╣еyсфРфШше@|╞ЖTШе{\%$еRП╚─ ся20ше@~сфРфШше@~сфРфШШ≤$еTП╘(сд@┴ВеlШ╒$е┤П╘(сд@┼ВеlШІ $е▀П╘(сд@▄ВеlШРе█П╘(сд@▌ВеlШ╦3DETAILб дДдЩЙЖьС3start new pageл#$еPПе@uсфШРеSПе@vРе┬П╘се@}РфШТ~$дПдэфРдПдщсдчдШРдПдщфРеПеPСU─С$дПд─РеПеRСU─С$дПд│РеП╘сеSРфШСU─С$дПд┌РеПе┬СU─Ч+$дПд┐РеПеTСU─С$дПд└РеПе┤СU─+$дПд┘РеПе▀СU─С$дПд├РеПе█СU─Ж─С3GET THE CHARGESvЖп─#3--------- HANDLE THE CHARGE DETAIL╗>$е▐ПяPRE80СяWASSCXРеsсфРфШРе@uсф РфШРеwсфШРд░Ре▐Д ╗се▐ШАфЩЙЖ 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─ 0 ╗ся14302ACАе@uШАфЩЙЖ 4 1z ╗сяWOOD PALLETАе@∙ШЩЙ $е@≥Пя9.54Т ╗ся PALLET TAGАе@∙ШЩЙ $е@≥Пя1.06Т ╗сяEX LARGE CARTONАе@∙ШЩЙ$е@≥Пя4.64 2$е@⌠П╘(с╗се@≥Шч╗се@≈ШШ 4$дПд С$еПе@⌠СU─ 9%$еaПе@∙РдcП╗се@⌠ШРдdП╗се@≈ШСЖэ ;$дoПдoэ╗се@⌠Ш >ЖД 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 $еpПяС3REMOVE ** CONTINUED **ZJ$дПфdРеПяT O T A L C H A R G E SРдПдэфРдПдщсдчдШСU─_+$дПд РеП╘(сдoВя$ ####,###.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} е[АяЩЙЖр( дДдщфЩЙЖьС3handle widow/orphan─C$дПдэфС$дПфdРдПдщсдчдШРеПяS U B T O T A L SСU─┌д3ПфЧ╗се[Шъф(▄$е\Пе[сд3чф(щф'Рф(Ш▌ д^Мд3НАфЩЙЖх▒ дДдЩЙЖь⌡ё$дПдэфРдПдщсдчдШРдПфРеПя Subtotal: СU─С$дПд■РеПе\СU─С$дПд√РеП╘(сд_Мд3НВеlШСU─С$дПд РеП╘(сд^Мд3НВя####,###.00-ШСU─═$д]Пд]эфх*д3м$е[Пяр$е`Пяв8э3------ DO SUBTOTTALLINGФ$еaПеaш╘сфdШРеaПеaсфРф(ШП0$дbП╗сеaАе[Рф(ШС дbАфЩЙ$е[Пе[шеaСЖПЗ$дbПсдbэф'Шъф(Ъ дbДфdЩЙ$дbПфd$д^МдbНПд^МдbНэдc$д_МдbНПд_МдbНэдd$еeПеeш╘сфdШРеeПеeсфРфШ"0$дbП╗сеeАе`РфШС дbАфЩЙ$е`Пе`шеeСЖ"'$дbПсдbэфШъф,"3IF TOTPOS>100 THEN LET TOTPOS=1001,$дfМдbНПдfМдbНэдcРдgМдbНПдgМдbНэдd68@3J=$е(ПяERROR ш╘(с╗Шшя AT LINE ш╘(с╗"сфШШшя IN ш╘#сзфШTEС2#( 3" EXIT POINT#*сдrШСсдxШСсдШСсдzШ#-сд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 : ше@qшя - шеtшя# ***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╛Ш$дПдэф РдПг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й$дПгбРдПфРеПеpС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едл]дж╚─сеUРеVРеWШдЮ( ╘сеVРфШБяЩЙ$еVПя, ш╘сеVРфШдЙ5$еП╘сеUРфШш╘сеVРфШшя ш╘сеWРфШшя дТ8едЧ]е╚─ сеРеXРеYШе $дZП╗сеXАеШС дZАфЩЙЖее($еПесфРдZщфШшеYшесдZэ╗сеXШШеЖее8ее]ЪЪTPSFILELOUTFILE TESTGRIDIIJJPSCHANPSPPPPS1LCOPYYYYYYJJJDOCOLDOROWSHOWJCUSTCCNVZJQFB3LLLH8LH10LH12B STARTROWRRMAXROWROWNNCNNP9NNLNNPNNWIIIQQQ OUTPUTTOERRMSG1TOTALPPAGELINESPSLC10XYX1Y1 LINEWIDTHMYBOXIOFF__TESTGRIDMYBARSCALEROTATEHEIGHTBAROPTSLH12VA3LCVRADC3D3E3F3LH10VJKEYFJSBFITPLJSBFIJCUSTAXINVAXINVRT1RT2RT3RT4DOPERX1 JSBFI.INV_NUMX2X3X5YYCYYSYYZYYY1YYY2YYYTOTSDESCLTOTSTOTPBTOTSDOTOTTOTPOSDOTOTDOPALBDOTOTBTOTSBTOTP HANDLINGB415TH AFTER15THENDBALMM1M2PAYTOTPAGEFOOTER AXINV.INVJBLAHJBLAHACINV JBLAH.KAC JBLAH.STREFBLKEYJBLHHJBLHHJCONSJCONS JBLHH.CONS JCONS.CONSIGEE_NAME JBLHH.DELDCOL1COL2COL3COL4COL5COL6COL7COL8X6X4 JBLAH.PCS JBLAH.WGTX7JBLAH.PLTSX8JBLAH.LINESCTEXTWAMTCCLC8B CC.ACHARGEACOL1 CC.ADESCACOL2 CC.AQTYACOL3 CC.ARATEACOL4ACOL5KAC┌CLEAN─LH8─LH10─LH12B─LC10─DOBOX ─DOBARCODE─LH12V─LCV─LH10V┌D1┌XL┌CSZ┌SUB─LC8B⌠W