<>;4c 43LOCINFOW - LOCATION INFO EXPORT FOR HENRI 5/2/2012 "T$$JCHARGE,.tpl1+ +,$R$$JCUST,.tpl1+ +,,C$?$,? JITEM.tpl1?+?,?JITEM @+-C$C$,C JSLOT.tpl1C+C,CJSLOT D+0!$UZ tmp/LOC.SORTUU 2U 4RUN 6$V$,VU7^ WVAISLE:C(7),LOCS:N(10),EACHES:N(10),fullpallets:n(10),decpallets:n(10),loclist:c(19000)9"$Z tmp/LOC.EMPTY::'R@$$,;# LOC:C(6),KEY:C(36),QTY:N(9)<@@> YRACKLOCS@g$$RACKLOCS,.tpl1+ +,$$,B-FP$yv P$yyv Cust BldgwLoc BldgwCustomerwLocationwAislewOdd/Evenw Rack/BulkwSKUw Rate TablewBrandwPallet Block (Eaches/Pallet)wEacheswBillablexd@$R Location Info / Detailed Export H'REPTITLERnJ$ 100100100100   sA$td class="td" <>< nowrap>z$  &$1
$1

R

$8%
w x
"
$T0$> 'TRHILITE#
\$7
Aisle"Even/Odd/Other"Unique
Location
Codes"Eaches":Pallets
(from Pallet
Block)
Rounded Up
To Full",Pallets
(from Pallet
Block)
Decimal"Rack"Bulk"Billable
Positions
Rack"'Billable
Positions
Bulk
F 1?
7E$9
 7$:%
1۩' REPORTINTRO
۩' REPORTINTRO 1
 =7F$;'
 :<'=o$)gT4 ө(JSLOT^3test if exists^#(3on step1#(a$de2f5 CYCREPORT WJBREPORT356 234K,O_TRUNC 3THIS REMOVES THE CLOSE WINDOW AND TAGS L8  L9 2 L2:h3LET SELECT1$="",SELECT1$=CVS(FIELD(CGI$,"DOBRAND",ERR=0501),3); IF SELECT1$="*ALL" THEN LET SELECT1$=""3LET BRACKET1$=SELECT1$+FILL(3)% @C,C&@0&$$!Invalid JSLOT file entered4$6$G:Q$,-./0> CN$MNMONSTO .@$20@HU%1VU 3"2010.04.21 SRR #2604U L1VlWx/3CALL "LOCTYPE",TMPREC.AISLE$,LOCTYPE1$,LOCSIZE$`@[@[@[$f@[dOther6 f01!$ff۩dOdd7 f02"$ff۩dEven,X$cbRack `B`O%$cBulkbc-`h1$@\ cBulk$@or `R$@o@pT$fTd@\@]@o@pTbT L $  L>! 2L2>$== =<L2;$=P$qq@^rr@_ss@mtt@nܨܨLl3DONEn$T۩(q۩(r۩(s۩(tTT۩(۩( L $v$
Select Report Parameters
{L$}  L~ 2 L223CALL "JBREPSUMMARY" , 1!$g0g$g g| 5$!!

Warnings: 
u
$yy4$!{
! $!!p3handle racklocs*843DUMP LOCS TO FILE INSERT LINK>$ @._H<$zZ tmp/locsinfo__۩(Өө.xlsR,cO_CREATE,O_TRUNCz\Lcyca$yV${
Click For Detailed Locations Report (.xls)
3DUMP OUT THE EMPTY LOCSB$zZ tmp/locsinfo__empty_۩(Өө.xls,cO_CREATE,O_TRUNCz11 ` Lc@,۩(@,@ V `3 jc `3LET XLSHOWEMPTY$="
Click For Empty Locations Report (.xls)
" 83------- GET THE JBITEM RECXJBCHECK1 GETJBITEM@ @ $F8p73-------- RIP THRU RACKLOCS, SET QTY ON THE BRAND LINESz1K18 @)$ө@$@$*$ $@@ L8*3-------- now prorate by item into JCHARGEB1L&1 @@$@@ 6$ $8$ @OP000,1?۩A @$OP@#(3------------ UPDATE JCHARGEQ $@@@@OP@@$@+ 1.$ $@@ L8+3------------ clear the cust/period records$14$N1 N @4N3doneS8@3T=$ ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTAHERE&:!U3----------- count locs in use:$A:$BM1CB::1C=D; DM=;7 @E@X@16@90:; DZZZ999:; 7 өD SPACE/PALLETS/PALLET/:; _1D:3****; IF JCUST.BUILDING_CODE$<>FNCGIVAL$("BUILDING") THEN GOTO 15100;{  SHOWEMPTYonD@E@X: @E@XDUNREAL$D/; DUNREAL:;"LOCBLDGD`a;K ӫBUILDING+ ӫBUILDING:;8 D@1?D:@;53IF JITEM.SH_TABLE$="001" THEN GOTO 15100; REM unreal;$h@i@j h$h;/$k@E@XhKl@E@Xh; `R$kl>;$$YD`Y..;3$dY d-$dd;$ed;;;$dXXOther;";?$d01Odd e$d02$Even; $YD....`;!. DE$YD...`;$1VY;.W;8;. W W$@[Y;B/$@_@_@E@X@m@mk@n@nܨ&l;EP /D`/@($@@/D`/;G$@^ө@ ;L LVW;Q2 Dg$ggD|;T k2x$uu Location: D; has over 50 pallets. Possible Pallet Block Problem. Item: D 
 ;*3--------- create the detailed spreadsheet;A$(Ө@E@XhK `R$ Count Unique;3$fY YE$fY<($v@wwDw'Dw'fww`wD wTBL @w۩@w۩(hw۩(@E@Xwx<23  SHOWEMPTYon@E@X $yy<4) `R
Charge Summary
Table Rack Locs Bulk LocsRateCharge = =3SKIP==9$ ==?$3remove from normal=*=G$yyvxvTablewRack Loc CountwBulk Sumx=$L+ TBL ۩(000۩(Ө۩(۩(۩(Ө =$L TBL ۩(000۩(Ө۩(۩(۩(Ө =$
>v8>33------ UPDATE RACK LOCATON WHEN QTY IN LOC >PLTBLK>23------ THIS SHOULD END UP BEING A HIGH WATER MARK>>> @E@Xh8>$@i@E@X@j> @i'>>- @i$@i@i@j@j>>. @i $@i@iM@j@j >>- @i$@i@i@j@j>>- @i$@i@i@j@j>>9$@j'3force ti highest value to NOT break data bridge>"$@@L?@@>b$uuRack item pallet block SKU: @ is now :۩(@ix۩(@j
 > $h@i@j>8N N*E ө/$//N48N>]N N!$  $N+$< width="۩(">N8N]N N! $ O8O]O O,$ $
O8O#]O$ O& O,O(1$//20O,8O-]O8 O:$"",O<8O>]OB$%&OC( %$%, ۩%OD5$$۩% ۩& OE8OF]OL OV$$*$*ө(O`O`8*Oe]3PARMS $!R $!!)h3get the select listw$!!$Building Code: ; *leave empty for all C$!!+Location File to Use: | *e$!!)Include Empty Locs: $ E$!! &$!!' - u$!!) 2  $!!>x$!! ~8U $IE$II &$II' - R KF$II+ T LH$II- $II "8h3 MAKE SELECT FOR JSLOTr$| F8 OP $QO Q($QPQܨO8]STARTATENDATUSEKNUMTTTQCCCQIQCOUNTTRTDDTRO ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRIDENT1OCOUNTLCSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDHBRYYCYYSYYZWFPGMCGI DFORM1LOOKUPYYYVTPLTATCTBTSTVH2BFPDFCHANPDFLINKPDFFILESDESCENDMENU COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTTRPLAINJITEMJITEMLOCSKJSLOTJSLOTJSLOT.ON_HANDNOINTROCCOUNTDUMMYFORMENDDOFUNCSUBFUNC SUBMITVALUE WFCOCODEWFCUSTYYY1YYY2YYY REPTITLEWFTDDCTMPFILETMPFILETMPRECJSLOT.DAMAGEDAAWFDIR TMPREC.AISLE TMPREC.LOCS TMPREC.EACHES TMPREC.LOCSTMPREC.EACHES LOCTYPE1LOCSIZEISRACKISBULKBAYBAYAISLELOCLIST PALLETBLKJITEM.PALLET_BLKJITEM.PALLET_HIGH FULLPALLETS DECPALLETSTMPREC.FULLPALLETSTMPREC.DECPALLETS TMPREC.FULLPALLETS TMPREC.DECPALLETSTTLOCS TTEACHESTTFULLTTDECWARNINGSRSDDSROSSXLXLSHOWJSELECTCR CGI.JSLOT FORMSTART USEJSLOTODDEVEN BILLABLERACK BILLABLEBULK TTBILLRACK TTBILLBULK TMPREC.LOCLIST JITEM.SH_TABLEISBULK1BCOUNTBILLUBILLUUPISUMURATETHHJBITEM JBITEM.RICBRANDAAAARECTPLBBBBRECFJCHARGEFJCHARGE JCHARGE.CC JCHARGE.CUST JCHARGE.INV_DATE JCHARGE.REFNUM JCHARGE.ITEM_NODOITEM JCHARGE.BRANDDOBRAND JCHARGE.SERVICE DOSERVICE JCHARGE1 JCHARGE1.QTYDOQTYKKCOCUSTPERKKK RACKLOCS RACKLOCS RACKLOCS.LOCLLIST RACKLOCS.LLIST RACKLOCS.BRAND RACKLOCS2BLISTBCOUNTPRORATE RACKLOCS.QTYBTOTILISTLOCQTYITEMSIQTYJCUSTJCUST JCUST.BUILDING_CODEMTFILEMTFILEMT MT.LOC MT.KEYMT.QTY XLSHOWEMPTYBLDGMTLOCS JSLOT.ACTIVITY_DATECW1BREMPTYD1XLCSZCGIVALDD1 COUNTLOCSSUB NOSORTFILE LOOP_HEREFORMENDs