<>'# 43jbbolchg1 -05/02/95 WHSE Accessorial display by bol 39/16/92 RCC/ " !$ J1 214548$d <@@d 3OPEN FILESn$$,JCUSTxC$$, JITEM.tpl1 ,JITEM$$,JIACT&3OPEN (4,ERR=8000)"JCONS"; LET JCONS=4&3OPEN (5,ERR=8000)"JISRT"; LET JISRT=5&3OPEN (7,ERR=0171)"CCNVZ"; LET CCNVZ=7$?$,?JBLHH$@$,@JBLDHY$Z$,ZJIOCT [:KEY:C(9),DESC:C(27),gl:c(6),CTYPE:C(3),RATE:N(9),AUTO:C(3)3r$w$w,wltl/tdata/JBLAX xBBL_NO:C(11),SEQ:C(4),CHARGE:C(2),CAT:C(12),QTY:N(10),FUTURE1:C(20)N 3SETUP FOR CHARGE HANDLING3DEFINE VARIABLES< ƄƄ-Ƅ=Ƅ*P_U$ ##,##0.00--##0.00% #######0- #####0 ############$,3DEFINE FUNCTIONS6>  3CONVERT FROM MMDDYY TO YYMMDD@:   3REMOVE SLASHESJF   3CONVERT MM/DD/YY TO YYMMDDTD   3CONVERT YYMMDD TO MMDDYY^7  Ө ݨm8 BCDI =JK #e#$%&'()*+,-./0123456783 JITEM(2)# !"##;:<LM#B#C#D#I$ $9YES >N$SUMMARY DELIVERIESRECEIPTSOTHER $Y83------------------ SHIPMENT/DELIVERY HANDLING ---------$A$$B 1?AL JBLHD?0?,?JBLHD@,@JBLDH$$BOL: not found#(>3-----------------PRINT THE DELIVERY/SHIPMENT DETAILS---------6$GH\]^1@B.1@ D B/+DILMSPPP3PRINT AN ITEM LINEJ$F1BBDF$EFިD/ D$EDިD $PD|JBCHECK1 GETJBITEMDQRST UR$UTV@W V$P(۩(V)@X9$[۩(x۩(] N$w3LET BTEXT$=BTEXT$+JBITEM.COMPONENT$+DESC$+JBITEM.RIC$+JBD$[7]+PLTSETUP$+STR(NUM(JBD$[3]):M8$)+" "+STR(NETWGT:M3$)+$0A$ $# $GGܨDHHE%$_DD'"$D @YF-)$D $_DFULPLT өDAB04A2Q0017978*A2T0018120*FLOORD,$* @YF-+<$ @` $@` +,+$ (Ө 000- <.?$ _\ $\\_]]۩.20$] (Ө] #<+$ @`^ $^^@`FP3PRINT AN 'L' OR 'M' LINEU3turned off 6/24/04 rcc3END OF DETAILS/3IF TYP1$[1]="N" THEN PRINT (6)'LF',; LET L=L+1($==G==H$GHN3SET CHARGES#(@ 3error trap=$error ۩(Ө  at ۩(Ө" in ۩#E2#(3EOJ#-Z#.?@w#2'3END N !3---------- accessorial chargesN%Y$aJ1O086b 1142B143A953c' COMPANYAB۩' COMPANYJB۩' COMPANYPWN' $~.wN*1ZaN+N4/$ZNH1Z aNHN90 b$~~N>N4NY $b~NZ q$tN\3# charges in tableNa 1Za[Nf $q@rtt@sNp*Nu< dc ec Nz8N3---------- add charge to N$g^hN ^NN gN($i^j&gN g $jhN $hhjN$f53kkjRN7 BUP$f11kkjRN*N3---- calc pick charges N$N \ON\N0$_\l]OMJBCHECK1 GETJBITEM_ QRST UR$UTO.1J1JIM001@$@@O @YFO.O$f42ki@`RO"$fB1kli@`RO$OBO.Q _ FULPLT8$llO33NO 1ST PICK ON LOCATIONS THAT WERE FPQO/$f43ki@`RO3"$fA9kli@`ROBJ3 LET CHG$=".w",QTY=SKULOCQ/PLTSETUP,BRAND$=JBITEM.RICBRAND$; GOSUB 21000OD+$f.wki@`R$kOG*O3---------- table heading O$ Ohob$۩A[bo $۩ө(qo####.00]*oO$  O9ob$۩Ato*oO$  O1ob$۩- *oO $ P%3---------- DUMP OUT THE CHARGE TABLEPpc P#$m nbP(-ob$mmdpo*oP2 mPP:$cp P<obPxO$۩(dpo #####.00 ۩(qodpo #####.00## P($nonoqodpoP$qodpoP*oP $ P*pP u UQ"P$ P8ob$۩۩ - *oP $ P$TotalsPobP+$۩ ۩(no ######.00# P$vvnoP*oP $ Q=$ Total Report Charges: ۩(v ###,###.00Q" $ Q8R3ADD CHG TO TABLER  kR0R*$pi۩ c pRbR!$oӨf.wR&.$dp odp okR(.$ep oep okR08Rb8U3-------- DISPLAY OTHER CHARGESU$ U1wBUU VVW x x$@y19@}@z$V,V*1wVx x BVV @}VV @yb1952VV"!$@y .w $WWV,1Za@yV[V@i$ @z [@y] @s @{ @ @| ۩(@}@r $###,###.00 VB @yWWWVE$@}@rVJ$$iA@zk@}f@yRVO UVVV6$  TOTAL: ۩( $###,###.00 W< dc ec W8W3PRORATE THE JBLAX CHARGEW&$@}@}@rW00$ Prorating Charge by Brand:  WNc WX$3the .w charge codeWb dWWl$ c ۩@s۩(d####.00۩۩(@rd #####.00##  W>$ic kdf@yRW $W*X>VOY&3-------------- brands subtotals pagesY3Z<%3---------- DUMP OUT THE CHARGE TABLEZFpc ZP$m nbZZoZ_ epo\bZd $/FFLFBrand Subtotals: Brand: cp LF(-LF Charge Desc#Qty-Rate7AmountLFP=Z/oto#epo #####.00 -qo #####.00#7qoepo ######.00## [<$mmqoepoqoepo\b*o\E :/LFLF Total --> 7 ######.00## \$\*p]8u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD NuH$N19NuI0 N'Y2KSLIDE$N20uL8NuM]u3yymmdd$ to julian numericu Nu$N19Nu0 N'Y2KSLIDE$N20u$ $ Nuu5$ ӨNNNu8 u]u3yymmdd (numeric) to ccccmmdd$v  v$N19۩( 000000v0 N'Y2KSLIDE$N20vH8NvR]y Ny"*$ON O $OO y,)$N0O3SET TO "9" OR ":"y68Nyr]y| Ny0$OlӨN0 ܨNy$N(ONy8Ny4]3above does :01030 = 20001030 or 991231=19991231Z8Z6Z7Z5M6H2XM1M2M3M8YYPLF1 TESTMASK1JCUSTJITEMJIACTTYPTYPITYP1CUSTB1C1D1E1CWRKA3B3A3C3D3E3A2B2C2D2C2D2E2F2G2H2F2G2I2J2K2L2M2N2O2I2Q2 PRINTITEMB4A4C4TTTTTJBLHHJBLDHKKEY1JBHJRHJBDNETWGTWGTTQTYTWGTJRDJBD1JRD1D4E4YYYYYYDESCAAAARECTPLBBBBRECJBITEMPACKQTY JBITEM.RICPACK JBITEM.RICDESC JBITEM.COMPONENTJIOCTJIOCTSKULOCSSKULOCQ RICBRANDSSKULOC JBITEM.RICBRAND CHGTABLECHARGESTBRANDSACTACCHGBRANDS TBRANDPCTBRAND BRANDPCTQTYSKULOCQTCHGBLTOTCHBRCHARGES JIOCT.RATE JIOCT.DESC CHARGEDESCSREPTOT REPCHARGEJBLAXJBLAX JBLAX.CHARGE JBLAX.CAT JBLAX.QTY JIOCT.RATE JBLAX.QTY OCHARGESK ALLCHARGESBRHEADREPCHGPLTAPLTB FPCBRANDFPCQTY FPCBRANDSBOLTOTIQTYIFPQILOOSESHOWPLT PLTSETUPBOLBTEXTOTHER1ERRMSGPQTYPTOTTPLJITEMPTOTAL PLTSETUP JBITEM.ITEM_NOJITEM.PALLET_BLKJITEM.PALLET_HIGHCHGCODEPRBRANDPRCHDSENMY2KAY2K1Y2K2Y2KBm2KB3_1Y2K2Y2KB3---------- add charge to N$N $N($$&N $ $N $N$53RN7 cUP$11RN*$N3---- calc pick charges N$N ON$N0$$$OMJBCHECK1 GETJBITEM {|}~ |$~O @FO.O$42@RO"$B1@RO$OBO.Q FULPLT8$O33NO 1ST PICK ON LOCATIONS THAT WERE FPQO/$43@RO3"$A9@ROB*$O3---------- table heading O/ Oe/A[ $۩ө(####.00]*O/LF$O/ O6/A*O/LF$O/ O./- *O/LF$P%3---------- DUMP OUT THE CHARGE TABLEP P#$ P(-$*P2 PP:/ P;3LET CTNADJ=0; LET PP=POS(TBRANDS$(BR*12-11,3)=FPCBRANDS$,3); IF PP THEN LET CTNADJ=NUM(FPCQTY$(PP,3)),AC[BR,4]=AC[BR,4]-CTNADJ,AC[BR,5]=AC[BR,5]+CTNADJP<PxD/ #####.00 #####.00## P($P$P*P/LF$P*P  P UQ"P/ P5/ - *P/LF$P/TotalsPP$/ ######.00# P$P*P/LF$Q4/LFTotal Report Charges: ###,###.00Q"/Ƅ-$Q8R3ADD CHG TO TABLER  R0R*$۩ RbR$ӨR&.$ R(.$ R08Rb8U3-------- DISPLAY OTHER CHARGESU1cUU VVW $@19@@$V,V*1V  cVV @VV @1952VV,1@VV@e/@ [@] @(@ @ @ @@ $###,###.00$VE$@@VJ$$A@@@RVO UVVV4/TOTAL: $###,###.00$W8Y&3-------------- brands subtotals pagesY3Z<%3---------- DUMP OUT THE CHARGE TABLEZF ZP$ ZZZ_ \bZd $/FFLFBrand Subtotals: Brand: LF(-LF Charge Desc#Qty-Rate7AmountLFP=Z/# #####.00 - #####.00#7 ######.00## [<$\b*\E :/LFLF Total --> 7 ######.00## \$\*]8u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD xuH$x19xuI0 x'Y2KSLIDE$x20uL8xuM]u3yymmdd$ to julian numericu xu$x19xu0 x'Y2KSLIDE$x20u$$xuu5$Өxxxu8u]u3yymmdd (numeric) to ccccmmdd$v v$x19۩(000000v0 x'Y2KSLIDE$x20vH8xvR]y xy"*$yx y $yy y,)$x0y3SET TO "9" OR ":"y68xyr]y| xy0$ylӨx0 ܨxy$x(yxy8xy4]3above does :01030 = 20001030 or 991231=19991231CZ8Z6Z7Z5M6XH2XM1M2M3M8YYPX7HVLX8F1PROMPTOKVALUECTLVAL TESTMASK1JCUSTJITEMJIACTCUST1CUST2DATE1DATE2TYPTYPITYP1ITEM1ITEM2BILL1BILL2CUSTB1HH4C1D1E1FCWRKA3B3A3C3D3E3SRTRECSSRT1SRT2KCWRKA2B2C2D2C2D2E2F2G2H2F2G2I2J2K2L2M2N2O2I2Q2B3C3 PRINTITEMH11H22B4A4C4TTTBADTTTJBLHHJBLDHKEY1JARDHKKEY1JBHJRHJCU1JCUSTTJBDNETWGTWGTTQTYTWGTJRDJILOTEKJITDUMMYJBD1XJRDJRDWJRD1ZZ_ZZD4E4YYYYYYDESCAAAARECTPLBBBBRECJBITEMPACKQTY JBITEM.RICPACK JBITEM.RICDESC JBITEM.COMPONENT JBITEM.RICJIOCTJIOCTSKULOCSSKULOCQ RICBRANDSSKULOC JBITEM.RICBRAND CHGTABLECHARGESTBRANDSACTACCHGBRANDS TBRANDPCTBRAND BRANDPCTQTYSKULOCQTCHGBLTOTCHBRCHARGES JIOCT.RATE JIOCT.DESC CHARGEDESCSREPTOT REPCHARGEJBLAXJBLAX JBLAX.CHARGE JBLAX.CAT JBLAX.QTY JIOCT.RATE JBLAX.QTY OCHARGESK ALLCHARGESBRHEADREPCHGPLTAPLTB FPCBRANDFPCQTY FPCBRANDSBOLTOTIQTYIFPQILOOSESHOWPLT PLTSETUPBOLBTEXTOTHER1DSENMY2KAY2K1Y2K2Y2KB[O/ O./- *O/LF$P%3---------- DUMP OUT THE CHARGE TABLEP P#$ P(-$*P2 PP:/ P;3LET CTNADJ=0; LET PP=POS(TBRANDS$(BR*12-11,3)=FPCBRANDS$,3); IF PP THEN LET CTNADJ=NUM(FPCQTY$(PP,3)),AC[BR,4]=AC[BR,4]-CTNADJ,AC[BR,5]=AC[BR,5]+CTNADJP<PxD/ #####.00 #####.00## P($P$P*P/LF$P*P  P UQ"P/ P5/ - *P/LF$P/TotalsPP$/ ######.00# P$P*P/LF$Q4/LFTotal Report Charges: ###,###.00Q"/Ƅ-$Q8R3ADD CHG TO TABLER  R0R*$۩ RbR$ӨR&.$ R(.$ R08Rb8U3-------- DISPLAY OTHER CHARGESU1tUU VVW $@19@@$V,V*1V  tVV @VV @1952VV,1@VV@e/@ [@] @(@ @ @ @@ $###,###.00$VE$@@VJ$$A@@@RVO UVVV4/TOTAL: $###,###.00$W8Y&3-------------- brands subtotals pagesY3Z<%3---------- DUMP OUT THE CHARGE TABLEZF ZP$ ZZZ_ \bZd $/FFLFBrand Subtotals: Brand: LF(-LF Charge Desc#Qty-Rate7AmountLFP=Z/# #####.00 - #####.00#7 ######.00## [<$\b*\E :/LFLF Total --> 7 ######.00## \$\*]8u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD uH$19uI0 'Y2KSLIDE$20uL8uM]u3yymmdd$ to julian numericu u$19u0 'Y2KSLIDE$20u$$uu5$Өu8u]u3yymmdd (numeric) to ccccmmdd$v v$19۩(000000v0 'Y2KSLIDE$20vH8vR]y y"*$ $ y,)$03SET TO "9" OR ":"y68yr]y| y0$lӨ0 ܨy$(y8y4]3above does :01030 = 20001030 or 991231=19991231CC0Z8Z6Z7Z5M6XH2XX0M1M2M3M8YYPG1X7HVLX8F1CBPROMPTOKVALUECTLVAL TESTMASK TESTMASK1JCUSTJITEMJIACTJCONSJISRTJOPINCCNVZCUST1CUST2DATE1DATE2TYPTYPITYP1ITEM1ITEM2BILL1BILL2CUSTHH1B1HH4C1D1E1FCWRKA3B3A3C3D3E3SRTRECSSRT1SRT2KCWRKKCWRK1A2B2C2D2C2D2E2F2G2H2F2G2I2J2K2L2M2N2O2I2Q2B3C3N PRINTITEMH11H22B4A4C4TTTBADTYPESX7JARHHTTTJARHEJBLHHJBLDHKEY1JARDHKKEY1JBHJRHJCU1JCUSTTJBDNETWGTWGTTQTYTWGTJRDJILOTEKJITDUMMYJBD1XJRDJRDWJRD1ZZ_ZZCCUST2IITEM2D4E4YYYYYYDESCAAAARECTPLBBBBRECJBITEMPACKQTY JBITEM.RICPACK JBITEM.RICDESC JBITEM.COMPONENT JBITEM.RICJIOCTJIOCTSKULOCSSKULOCQ RICBRANDSSKULOC JBITEM.RICBRAND CHGTABLECHARGESTBRANDSACTACCHGBRANDS TBRANDPCTBRAND BRANDPCTQTYSKULOCQTCHGBLTOTCHBRCHARGES JIOCT.RATE JIOCT.DESC CHARGEDESCSREPTOT REPCHARGEJBLAXJBLAX JBLAX.CHARGE JBLAX.CAT JBLAX.QTY JIOCT.RATE JBLAX.QTY OCHARGESK ALLCHARGESBRHEADREPCHGPLTAPLTB FPCBRANDFPCQTY FPCBRANDSBOLTOTIQTYIFPQILOOSESHOWPLT PLTSETUPDSENMY2KAY2K1Y2K2Y2KB~[