<>4[/{╪ (3"WHEOMOP - STORAGE DOCUMENT WEB VERSION+3changes to use the JITEM snapshot 6/6/201753***** MAKE EXCEPTION TO THE OLD JITEM USE AT 200-2203BEGIN ; GOTO 0031@Ж@#R$дDП╗$РеПяJIACTРд─ПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС е│ВеF$R$дDП╗$РеПяJSHRTРд≤ПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС е≥ВеF&R$дDП╗$РеПяJITEMРд┌ПдDС,сдDШешя.tplС1сдDШеFСсдDШС,сдDШеС е┐ВеF''3LOSE (JITEM); OPEN (JITEM)"JITEM.rest"(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 60164d8$еhПя ##,###,##0РеiПя#######.00-РеjПя#####.0000-√$дП╗$С,сдШяCCNVZЄ3 ╗"сф ШАфЩЙ%$еCПяJ1EVG0021808Ре'ПяPDFBСЖхЎеCРе'х3MANAGE THE OUTPUTр─$еіПяJITEM.шеCсф РфШш╘(с╗сеCсфРфШШэфВя00Шшя01С еісф РфШАя13ЩЙ/$еісфРфШП╘(с╗сеісфРфШШэфВя00Шшя0101т-$дїП╗$С,сдї╠ЖжШеіСсдїШСсд┌ШС,сд┌ШеіьC еCАяJ1EVG0021808ЩЙ+сд┌ШС,сд┌ШяJITEMСсдїШС,сдїШяJITEMыC еCАяJ1PEN0032004ЩЙ+сд┌ШС,сд┌ШяJITEMСсдїШС,сдїШяJITEMэ е'АяЩЙЖПФ%$дП╗$С,сдЇя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∙$еПяРеПя|Ре+Пя %$д*ПфРд)ПфРеlПя** CONTINUED **є д^МфdНРд_МфdНРдfМфdНРдgМфdНі $еaПяРе[ПяРеeПяРе`ПяТ(1сд╣еCсфРфШШе;РеРе>Ре?Ре@РеA%1ЗсдI╣еCсфРфШшеO╪ф╞Ж ШеJСЖ $е@mПя*PRELIM*X$3FIND OP INVOICE TO PRINT FROM JSBFIb1сдE╣еC╞ЖlШl&1ЗсдE╟Ж╡ШеGС еGсфРфШБеCЩЙЖ╡v ╗сяOPАе@QШАфЩЙЖl─$е└Пе@Q╡A е└АяЩЙ5$дПф═РдПгXРеПяNO OP INVOICE FOUND.СU─СЖdХ 3" MAIN LOGICL$дПгtРдПфРдПф2РдПф`)$е ПяРе"ПяРе!ПяС д#Мф2НРд$Мф2Нj $е%ПяРе&ПяС3items and qtyst$е=Пя╟D$дnПфРдoПфPРдpПф▄РдqПф╔РдrПг^РдsПг├РдtПг╦РдuПгЮРд┬Пг╨'$д{ПфdРд|ПгРд}ПгJРд~Пг|РдПгбl1сд┌╣еCсфРфШ╞ЖvШп3detail4-1Зсд┌╟Ж<Ше┐С е┐сфРфШБеCсфРфШЩЙЖ<\ $еPПе@┘РеRПе┴РеSПе@├РеwПе@┤≤Ж>─С$еvП╘(сд▀ВеhШ² д▀АфЩЙЖп╒ $д▒Пд@▓чд@⌠С д▒АфЩЙ$д▒Пг'╛($д■П╗ссд▀ъд▒ШэкKГШС$еTП╘(сд■ВеhШ╠2$е╚Пя####,###С д▀чд@√Дх≤√ЩЙ$е╚Пя########І$д∙Пд▀чд@√С$еxП╘(сд∙Ве╚Шю$дєПд▀чд@╔ХЖBhС3CALCULATE THE CHARGE д$еyП╘(сд°Вя ####.0000Шше╒ ь$е┼П╘(сдёВя####,###.00Ш╦3DETAILб дДдЩЙЖьС3start new pageТw$дПдэфРдПдщсдчдШРдПдnщфРеПеPСU─С$дПдoРеПеRСU─С$дПдpРеПеSСU─С$дПдqРеПеwСU─Ч+$дПдrРеПеTСU─С$дПдsРеПеvСU─+$дПдtРеПеxСU─С$дПдuРеПеyСU─$дПд┬РеПе┼СU─$дkПдkэдёvЖп 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 $еlПяС3REMOVE ** CONTINUED **ZJ$дПфdРеПяT O T A L C H A R G E SРдПдэфРдПдщсдчдШСU─_.$дПдuэфРеП╘(сдkВя$ ####,###.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С$еzПеzшеС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НВеhШС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#*сд┌ШСсд≤ШСсдШСсд─Ш#-сд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шр ше,+─; ╗сеzШЩЙ/$еПешя/Courier-Bold 8 selectfontшр шеz+└> ╗сеШЩЙ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ПяРе<ПяРе+ПяРеzПя7 8:≤3^1000 outta here:╒ 3functions:╛ ╚─сеШ:І0$д П╗ся(АеШС д ЩЙ$есд РфШПя[СЖ:І:ю0$д П╗ся)АеШС д ЩЙ$есд РфШПя]СЖ:ю:й8е:т]:Э$дП╗сяj╠Ж:ЩШ:Щ>─ 3"ENDING">┼$д▀ПфРд▄Пф>■1сд─╣е┐сфРфШ╠Ж>·Ш>·$еП╘сд─╟Ж?Ш>╗ есфРфШБе┐сфРфШЩЙЖ?>╡1сд─╣еШе█Ре▌Рд▐>╪N ╚─сесфРфШШДеOшя31ЩЙ01сд─╣есфРфШшрЪ╞Ж>·ШС3SKIP REST OF THE LOT>аC3IF C2$="Y" AND T$(31,6)=B$ THEN IF NUM(T$(37,6))фE е▌сфРфШАяBКд▄АфЩЙ*$д▀Пд▐Ре░ПесфРфШРд▄П╗сесф%РфШШ>п е▌сфРфШАяRЩЙ$д▀Пд▀эд▐>з е▌сфРфШАяAЩЙ$д▀Пд▀эд▐>Д е▌сфРфШАяSЩЙ$д▀Пд▀щд▐>НЖ>·?8Bh&3-------- CALCULATE THE STORAGE CHARGEBr!3---- NEED JITEM AND BALANCE IN OB├1Зсд≤╣е┐сфРфШше@├Ше≥B░ $е Пе@⌡Рд°Пд@²Рд·Пд@÷Рд═Пд@║Bл# е Ая1ЩЙ$е╒ПяPCРдёПд▀чд°Bж( е Ая2ЩЙ$е╒ПяCWРдёПсд∙ъфdШчд°BЮ# е Ая3ЩЙ$е╒ПяPLРдёПд■чд°BЙ# е Ая4ЩЙ$е╒ПяCBРдёПдєчд°BЧ е Ая5ЩЙ$е╒ПяFLРдёПд°C&8N %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: ше@mшя - ше└шя" **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≤`$е+Пе+шя/Helvetica 22 selectfontшр шя175 750 movetoшр шя(STORAGE DOCUMENT) showшр X╛$дПдnэф РдПгvРеПяItemСU─С$дПдoРеПяSKUСU─С$дПдpРеПяTblСU─С$дПдqРеПяDescriptionСU─С$дПдrэфС$еПяPltsСU─С$дПдsэф РеПяPiecesСU─С$дПдtэф РеПяWeightСU─С$дПдuэфРеПяRateСU─С$дПд┬эф РеПяChargeСU─XІ$$д-ПфРд.ПгtРд/ПгNРд0Пг─СU─Xюp3LET LINESPS$=LINESPS$+"/Helvetica 18 selectfont"+$0A$+"80 215 moveto"+$0A$+"(CHAMPION BOL:"+A1$+" ) show"+$0A$Xй$дПгбРдПфРеПеlС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$дZПгlэсс╗сесфРфШШщф0Шчф Шэ╗сесфРфШШy░$еП╘(сдZШшесфШy 8еyє4]С3above does :01030 = 20001030 or 991231=19991231д| ╚─ сеШд├ ╘сеРфШАяЩЙЖд д░/$еПесфРфШшя/шесфРфШшя/шесфРфШд 8едє]дў ╚─сеШд╦$еПя"шешя",дб8едл]дж╚─сеUРеVРеWШдЮ( ╘сеVРфШБяЩЙ$еVПя, ш╘сеVРфШдЙ5$еП╘сеUРфШш╘сеVРфШшя ш╘сеWРфШшя дТ8едЧ]е╚─ сеРеXРеYШе $дZП╗сеXАеШС дZАфЩЙЖее($еПесфРдZщфШшеYшесдZэ╗сеXШШеЖее8ее]Й`33MAKE CORRECTTIONS TO SAVED JITEM FOR A CUST/PERIODЙeС3MAKE A COPY OF THE OLDЙj",сфШяJITEMС,сфШяJITEM.170701Йt$е╗ПяJ1ENT001С1сф╣е╗╞ЖЙ~ШЙд$е╘П╘сфШС1Зсф╣е╘Ше╙Йн е╘сфРфШБе╗ЩЙЙь/е╘ЙЖ LЗсф╣е╘Ше╙КЖЙдЪЪTPSFILELOUTFILE TESTGRIDIIJJPSCHANPSPPPPS1LCOPYYYYYYJJJDOCOLDOROWSHOWJCUSTCCNVZJQFB3LLLH8LH10LH12B STARTROWRRMAXROWROWNNCNNP9NNLNNPNNWIIIQQQ OUTPUTTOERRMSG1TOTALPPAGELINESPSLC10XYX1Y1 LINEWIDTHMYBOXIOFF__TESTGRIDMYBARSCALEROTATEHEIGHTBAROPTSLH12VA3LCVRADC3D3E3F3LH10VJKEYFJSBFITPLJSBFIJCUSTAXINVAXINVRT1RT2RT3RT4DOPERX1 JSBFI.INV_NUMX2X3X5YYCYYSYYZYYY1YYY2YYYTOTSDESCLTOTSTOTPBTOTSDOTOTTOTPOSDOTOTDOPALBDOTOTBTOTSBTOTPMM1M2PAYTOTPAGEFOOTER AXINV.INVCOL1COL2COL3COL4COL5COL6COL7COL8X6X4X7X8LC8BACOL1ACOL2ACOL3ACOL4ACOL5JIACTJIACTJITEMJITEMOPINV JITEM.ITEM_NO JITEM.SH_TABLE JITEM.DESCRIPTIONCOL9SKUX9OBA4B4A4BPDEFJITEM.PALLET_BLKJITEM.PALLET_HIGHPBALCWGTJITEM.CURR_WEIGHTTOKENJSHRTJSHRTMTYPE JSHRT.MSTYPEMSRATE JSHRT.MSRATEMSMINJSHRT.MSMINMSINVJSHRT.MSINVMTYPE1MCHGCCUBEJITEM.CURR_CUBE JITEMFILEJITEM2COCUSTKD CWGTMASK┌CLEAN─LH8─LH10─LH12B─LC10─DOBOX ─DOBARCODE─LH12V─LCV─LH10V┌D1┌XL┌CSZ┌SUB─LC8B┌Y2KBп2┌Y2KBЙs