<>G@ *3WHLOCV - VIEW LOCATIONS INVENTORY W/ INFO /31/6/2013 - rcc - version for Traylek Warehouse3? " 1$B/u/webtree/whs/wf/$y ccalamari@@ -# YLOCDEF)S$$LOCDEFz,.tpl1, {*l$$JSHRT,.tpl1, $$,1R$$JITEM;,.tpl1, <2R$$JSLOT,.tpl1, |3R$$JCUSTU,.tpl1, V4R$$JILOT},.tpl1, ~5R$$JIACT,.tpl1, <$$' $otherhead>F)$M' pagetitleLocation InquiryR $l|Z$SUBFUNC[\5$-]A$+9_+3GOSUB 60000; REM set formstart and formenda!$ &PGMFUNC=CALL۩#i:$! -###,###,##0# -$#####0.00' #######0.00j+$, $###,###.00009###,###,##0.00k$ ###,###.0n ccs&$DOCUSTPERENDt? PEN001-$1001011021031043JUST NEEDED FOR SORTx/$(Ө00zG 132$(Ө01}$,JSLOT.01A$td class="td" <>< nowrap>$ 'TRHILITE   -: G$F?V$%//D$&< $
$_Bfram/9$2Btmp/LOCATIONDETAIL_۩(Өө.xls%$G$,GO_CREATE,O_TRUNC23^1000 "------------ main logic$HQ$I

If you update an older period you MUST update periods following.

&$HHe   63, CALL "DUMPTPL1",CGI$,TEXT1$; LET TEXT$=TEXT$+TEXT1$@'LG GO @$I Excel Version $HI

I$C3LET TEXT$=TEXT$+DEBUG$- NOAUT123send the email#(@3T=$0ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E23-------- EMAIL ERROR MESSAGE+$1'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC1=$0ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L0E$21$3' error_email40(JBMAILTO3546728@ }$q
Order is not valid. Click and fix the problem(s).#(U39000 OUTTA HERE#<')U 3^1000 "------------ MAIN REPORT LOGIC'bLASTDAYOFMONTH$Ө'.u03REBUILD CURR PLTS'81z':'B d {'`$ireview'jM$ 
 't $

Period Ending

Click column heading to sort.'$$' $otherhead''Y$$$ ( $M' $otherhead$'qH( $E*$X3for the sorting logic*3loop HERE for next LOCDEF+\1zJ8{$d{4LOCTYPE@63figure rate and charge6$ B$@6*$000۩@Ө6<$1 166$@70$ $77$7( $;$@$v@;$m  @V3EDILINK$="EDI/Labels"@`3BOLLINK$=""+CVS(JBLHD$(3,9),3)+""@t$No @ $Yes@$D '--۩(@-'@ ۩(@ ۩(@ ۩(@-۩( ۩( ۩( @ $DE*FP3----- BRAND IS DONEI+T,TJBLFHW,WJBLFDI*J83REPORT COMPLETEJ=$^L,$
L"3----------- dump the table totalsL'3BELOW ZEROES OUT THE BILLING LOCS ITEML1;۩A BILLING LOCS L<$$Y<y o$<ADJITEMA UNREALWHLOCVL ML$5

Rate Tables Totals Rate Table Billing Item Code Description Quantity
Ending Rate Charge LL&$ NOT FOUND]L6$$Y<y$L$
@ ۩( ۩(####.000 ۩($###,###,###.00 L s$<$ADJITEMA UNREALWHLOCVL$L*LT$
Totals ۩($###,###,###.00 L$
M$
C
N8N 93^1000 "------ handle the subtotals and grandtotals linesR#3^1000 --- javascript date handlingRV$J # R$JJ R&$L' $otherheadR0R0$M' $otherheadLJR:8Z< mnZF$ommmZP#$p۩mZZ$q۩m Zd$r۩mZn$s۩oZx$t۩o Z$u۩oZ=$vv Өpqrst<unZZ8vZ]],3--------- find the right BILLING items code]1;BILL]^$21;^< < BILL^^)7  BILLING LOCS< ^$3OLD DO NOT USE^. @^$^8$@^8qH 3HEADINGSq$wCustomer^LOCATION|Type|Items|Rate Tables^Book Eaches^Committed Eaches|Pallets^Billable Units^Rate^ChargeqO$Ew|9q>$EE^(q>$EE#(qO$xw|9q>$xx^(r8u0 3-------- UPDATE CURRENT PALLETSu5$u:1zu{uD$@@@uN Lz{uXu:u1uu1x|u |J1uu |uu $@@@ uu7 |UNREALBILLING| uu $|u |uu uuu3u { {$@u $u.$@@3,LOCDEF.ITEMS=LEN(ITEMS$)/20u$@u$@0@u Lz{u%$u8u 3ACCUMULATEu6$| $|u1;|u/u/webtree/whs/wf/email_log42$Email generated and sent to :3 58&3-----------set the vars for the emailX$3chuck@tssconnect.com5chuck.calamari@gmail.com leslieh@traylek.com/$6Fram Load File Report - ۩ 463xlfile$ is set in program@8( 2*$  $ <)$03SET TO "9" OR ":"F8] 0$lӨ0 ܨ$(84]3above does :01030 = 20001030 or 991231=199912319U 3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$A: 8pt;$ reportparamK$.= K$>C $>O$ $E$ &$' 9 :$) $?
From Date@ Thru Date@Action 
($
89U 3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$A: 8pt;$ reportparamK$.=
 K$>C $>g$6* Z$[ Z[J* POPUPINPUTfromdateZ\T* POPUPINPUTthrudate[]^9$E$ &$' 9 @$/ r$?V
@ From Date@To Date@ PO# Search@Action 
  \ ]/$ $$
8$۩ $ 8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ/$//Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8] $ ($ܨ8] $$$ө8&]D N# $NŞS$./X( O M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($O/// @P $@P@Pg$Q@P@R@SŔl$N Q%Y%Mz%DzŔŀŞŔ $NŞ8Nţ]Ũ< // ? #p z'$white $yellowƄZ$!۩( -###,###.08]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$