<>;r7 43"WSHILW -02/20/95- STRG & HANDL INVOICE WEB VERSIONB3"1.JCUST, 2.JARHE, 3. JARDE, 4.JITEM, 5.JSHIN, 6.LP 7.CCNVZ/JSHRG,3"02/20/95 - MTJ - Modifed For WICKES Print"6 " ($AJ1RMOE001RAMOE191415$#@@(B ($WSHILB *9 VX 7 P$0d74//84//<<$#####0######0.00##0.0000A$####0&FH# H$$,CCNVZJ$$,JSHRGL$$,JIOCTN$$,JSHINP$$,JARHE3(2R$$,JCUST3(1S$$,JARDE3(3T$$,JITEM3(4V$$,JSHRTs$$,JARDEu0SBCALLOx$$ L1FN=$ 3THIS FORCES INVOICE DATE = RECEIPT DATEQ$S$Vc1 !"#$%X,$& "N\31/2 MO INDZ$&[`\/ "15$&M3 ADDED 10/6/2015]+$WSHILB`X1$'31'()*+,-./ '243 summarize like recs in JARDE (key+item+lot)* /$//0ݨ/< ) C (E(MC1(()1234565 19 ,JSHRT.SAVED.2019117+$8/ 8$38 9( $3456(493-----------------summarize like JARDE recs -------------9$9(3IN CASE OF NONE>"$:()*1(f+1;<=>?@p ;<=:z$$,,>--?..@'$9;3SAVE THIS FOR SETTING POINTERf=3---- SET POINTER FORWARD IN THE JARDE FILE ON CHANNEL 3 ---- 193THIS SHOULDN'T FAIL V863^100 " ------calculate minimums by type ibh, obh, sto3$ ]$B  m7CD7$*MIN*$ ]$B  m7CD7$*MIN*$ ]$B  m7 CD7 $*MIN*8'$BA  $A@@ $E9/lLF STORAGE CALC. &0.0 MONTHS< ө(%$Өө(#0o/l ** TOTALS **6>FW!/l>F!/l>NFG FG!4 FG!R FG!\/l*F$bcdk/lX@=PIECES W=CWT P-ALLET C-UBE L-INE F-LAT RATE N-NET CWT *=DENOTES MINIMUM BILLINGLFBXTIMB$A####0!$HOH+/lS ###,###.00LF/l;3if D1$="" or D1$=Z8$(1,30) then let D1$=E1$,E1$=F1$,F1$=""/l$۩7/l,  "1ADDRESS/l<LF<$/ $$*** NO INVOICE SPECIFIED ***( $*** HANDLING ONLY ***' $*** STORAGE ONLY ***Z/l<LF <LFLFAJLFI B H LF"$K 3"POST REG $B  HOLBB 7$CD7$B  POLBB 7 $CD7 $B  SOLBB 7$CD7$B  MGLBB A7$CAD7$B  X,LBB -$LHAM۩(Ө #######SH$K $ $ F JIM001-$MUNK۩(Ө#####SH mSBCALL   RML ! &M $LSH$LSF mSBCALL   RML -$K3pU#X3"HDRY@@]$G^UcA/lLFLFLFLF RECVD AT BLDG: !l/l4/lLF4JSH/l/l$۩`/l,  P 3 WAS 10,12 RCC 5/17/95/lP/lP/lPW/R#: /lP/lLFLFLF8 3"LN TYPE@@ ) C   (E (ML8*$E/& өN $EE4>/lOC% өN/lNH8 3"XTRA CHRG1)P"$+PQP$J$3R456SP'43"3/25/93 RCC if a2=1 then let a=0,e=0; goto 7350 Q $R*) Q$CSdTW Q$B7 CP/ $CP/B*MIN*$E& өN $EE" Q/lR #####0.## C'$C'_/lO=STOBWC өN/lNB$L(M۩(Ө #######ACiSBCALL   AMLPRSC$C kL ) ) CP$CCDP P8 3"BOT CMMNT $E/l END$E/$+) өN $EE$./lO3% өN/lN88L 3"INVENTORYN 3"let L9=3O 3"gosub 7600P - $UTQ* -'$U(-###0+TR& -$USHORT$U OVERT/ . $V$V(.#####0DV3"PPD INW!  $WNO$WYESXA$R,SQXYx[K$CD7 ө(R$#\$Z ) $Z].$E өN $EE^_( JPS001$######0`/lR)ZO2U6R3=STFݨOB өN/lNa%$B  h7cA$R,SQXYxdW$C####0D7 '3"get lot append if needede:$E+[ өN $EEfg/l*O2V=STFݨOB өN/lNh%$B  p7 j 3"STORE CHGk Rl!  $WNO$WYESmB$R,SQX&Yxo#$CD7q $Et8/l=STGBNݨ~%$B  s7`$,R4R3UVBL 56*$ܨR56K$83"PG? $GGE G d$\3"*added HZ$ to preserve the value of Z$ while printing a new invoice header (02/06/96-ddb)FGE /l*F/l A@=PIECES, W=CWT, P=PALLET, C=CUBE, L=LINE, F=FLAT RATE, N=NET CWTLFLF HCONT'DLF LF LF , /lLFLFLFLFLF]$GE\ 8$3"WRITE OR UPDATE DETAIL S&H CHARGES n$]B(]( $]]C<(LBB ]n8x,3"CALC CHG AMT(A2,B,E4,A,D9,X0,M0==>E,Z$,F$)}$B $SC! WNO$SC C, XXCY$CYB*MIN*$ B*MIN*X $CCX@h$(C####0.003; if abs(E)<1000 then let Z$=Z$(2) else let Z$=Z$(1,4)+Z$(6,2)@@8"3"$$ : PCE CWT PLT CUBE LN.ITM#+Q",1$CRST@6$CR3SdTW 6% 56$CSTP6*$CR56KSTP- (E$CS^P6$CR4STC6#$CSRTL'6,$CSTF061'$_/ 2 _32$_23B$CR_SdTN3 RCC 10/28/93 NET WEIGHT RATES68@3"ERRh6$ERR ۩(Ө  IN ۩# AT ۩(Ө"rE2&3"---- break descriptions into 2 lines6 ө+#Z$O+NFZ +F *F3 F($O+#ZN+$Z#$O+FN+F8!4 3imessage 1!98!>7IMESSAGEeKbcdfghijk!H/lb8!R/lc8!\/ld8!8#2 3OUTTA HERE#0SBCALLY#"##&&&%''' <WSHINB''310000,5 "Lot Append File"' [2'8'$`$,` LOT_APPEND'$&$[(()*'.2 [WICKEW't3"Skip the rest"'81`['t['BA [.$[[۩[['t ``'~8>$aSS>>R 321000 "INIT THE LASER WORK FILER)$m'WORKDIRPS_T۩ljRlR&,lPFILE=mPWEBR08Rl3^100R U3^100 "DUMP OUT FORM TO LASERR lRRl,lmR'$nl n[U3^1000U=3MERGE PS FORM WITH output.prn file, optional dump to printerV+$/u/whp/tss/docs/inbound1.psoVT3^100V^ p$pBVh$qrs Vr$t$,tCCSMSV|)1t BLDG!VuvwVV=$uCHAMPION LOGISTICS GROUPv BUILDING !wVtV/$200 CHAMPION WAY Northlake, IL Y3^1000Y)$x!%%Insert The Overlay Stuff Here%%Y%$y/Helvetica 14 selectfont Y8$yy360 760 moveto  (u) show Z8$yy360 747 moveto  (v) show Z 8$yy360 734 moveto  (w) show Z 7$yy30 760 moveto  (u) show Z7$yy30 747 moveto  () show Z7$yy30 734 moveto  () show Z'$yy/Courier 10 selectfont Z$zyZ(!${$,{1{ @|Z2{Z<1l @}Z53^100 combine txtfile contents with txt1$ from enterZ5$~ rs3(0,0) is bottom left of page[3^100[!$ } [|[a3let L$=L$+str(C1)+" "+str(R)+" moveto"+$0A$+"( "+str(C1)+","+str(R)+") show"+$0A$; let C1=C1+20["^$zz۩(~ ۩( moveto ( ۫ө}) show [,$}}[h3^100[r[[|3--------------------- done[a$/Courier 10 selectfont 220 20 moveto  ([ORIGINAL INVOICE]) show ][Z$/Courier 10 selectfont 220 20 moveto  ([FILE COPY]) show ][[[g$/Courier 10 selectfont 220 20 moveto  ([NON-NEGOTIABLE RECEIPT]) show ][q$/Courier 10 selectfont 220 20 moveto  )([DUPLICATE NON-NEGOTIABLE RECEIPT]) show ][d$/Courier 10 selectfont 220 20 moveto  ([INVENTORY FILE COPY]) show ][d$/Courier 10 selectfont 220 20 moveto  ([NUMERICAL FILE COPY]) show ][R3init the dump file[8]3^1000]$x|]$$|z|]c3open (PSCHAN,mode="O_CREATE,O_TRUNC")"/tmp/display"+str(PAGEC)+".ps"; let PAGEC=PAGEC+1; goto 2040] $]${^$$^.3T (PSCHAN)'EO'^88a3^1000 outta herea 3functionsa a0$( $[aa0$) $]aa8a]XZM6M66P2P4M7M7A2B2C2D2E2F2G2H2I2J2K2A2L2QHF9Y5Y2MCB1C1D1E1F1G1H1I1T1U1XY3A3B3C3D3E3F3G3F3Z8D4C4E4F4G4H4GGWGTA23OLDLARA23B23C23E23F23G23Q8FEGLL9ILID0HSBTOTSEQ SB_INVOICED32D31D8D9BADOQCHRGX0M0M8 LOT_APPENDHZE0ANWGTLOT_APPEND_CHANSSSIM1IM2IM3 IMESSAGEIM4IM5IM6IM7IM8IM9TOUTTOUTTFINFONT PAGELINESPAGECTOPROW LINESPACINGCCSMS WHSEADDR1 WHSEADDR2 WHSEADDR3TLHEADERLPSCHANPSTXTCRR1PLCOPYPPPPS1YYYYYBODYLEN WHSEADDRHQ2 WHSEADDRHQ3RT1RT2RT3RT4FPSQ8SFSTOQ8IFIBHQ8OFOBHCCNVZJSHRGJIOCTJSHINJARHEJCUSTJARDEJSHRTJARDE23JITEMJARKGE4PSOUTERRMSG1HA_AMTAB LASERDUMPCLEAN K