<>I|B *3WHENRY - SPIRITS WAREHOUSE CHARGE SUMMARY3@@"\3C=UNT,KPI=C,F$="KPI"; OPEN (C)F$+".tpl"; READ (C)TPL$; CLOSE (C); OPEN (C)F$; DIM KPI$:TPL$#G$$KPID,.tpl1 $_3C=UNT,KPIM=C,F$="KPIM"; OPEN (C)F$+".tpl"; READ (C)TPL$; CLOSE (C); OPEN (C)F$; DIM KPIM$:TPL$(R$$JSBFIz,.tpl1, {*$$, +R$$AXSUM,.tpl1, ,R$$JCUSTo,.tpl1, p-R$$CCSMSq,.tpl1, r/X$$ ALERTEMAILS},.tpl1, ~0V$$ CONFEMAIL,.tpl1, 2R$$AXINV,.tpl1, 4R$$MISHH,.tpl1, 6R$$MISDH,.tpl1, 7'$$$CCNVZ,9R$TMETA$,.tpl1, :[3CALL "GETTMETA","RPDATE"+A1$,RPDATE$; IF LEN(RPDATE$) THEN LET RPDATE$=FNMDYSAVE$(RPDATE$)<$'' $otherhead>> CONFLINKXA1$Y' pagetitleEOM Invoice Email ScreenFw$C5 P@@R"$%400&8003for popupsZ$SUBFUNC[\5$-]A$19_`3set formstart and formenda!$ &PGMFUNC=CALL۩#i:$" -###,###,##0$ -$#####0.00, -######0.00j-$2-$###,###.0000A-###,###,##0.00k'$N-###,###,###.00O-######0A$td class="td" <>< nowrap>$ 'TRHILITE   3B G$Q?V$*5/D$+< $
 AXSUMXLSU DUMPPSU PRINTU >$2jbp|JIM001|/u/webjbb/wf/KPID|/u/whp/tss/DATA/JSHRTf$Zmhp|MOE001|scp 192.168.200.208:/u/webmhu/wf/KPID|scp 192.168.200.208:/u/whp/tss/DATA/JSHRT]$Qecp|MEC001|scp 10.1.1.28:/u/ecp/webmhu/wf/KPID|cp 10.1.1.28:/u/ecp/tss/DATA/JSHRT^$Rtrp|MTR001|scp 10.1.1.28:/u/trp/webmhu/wf/KPID|scp 10.1.1.28:/u/trp/tss/DATA/JSHRT^$Rprp|PER001|scp 10.1.1.28:/u/prp/webpru/wf/KPID|scp 10.1.1.28:/u/prp/tss/DATA/JSHRT^$Rsdp|NAB001|scp 10.1.1.28:/u/sdp/webpru/wf/KPID|scp 10.1.1.28:/u/sdp/tss/DATA/JSHRT7$8Jtmp/WHENRYscreen_۩(Өө.xls%$R$,RO_CREATE,O_TRUNC8H$|||J$| 3^1000 "------------ main logicL$SHOWYEARQ- !$ Ө%Y%Mz(3display/get the input params table$S3@'LR RO @$T Excel Version $ST

T3 g' utsub.wbbgn h$h0h0qI$h+ $L3LET TEXT$=TEXT$+DEBUG$ $#( U3" create PROGRAM boxes D$dProgALL T$e $ffvar d = new CheckBoxGroup(); d.setControlBox("d Master"); d.setMasterBehavior("all"); L3LET STEXT$=STEXT$+BRANDGROUP$+".addToGroup("""+PROGGROUP$+"Master"");"+$0A$ 8)U3^1000 ------ HANDLE THE CREATE OF XLS,$$

Create XLS of a Cust/Period

3$K@m$ Cust/Period: K
 1K$@|@@)$8J tmp/AXINV_۩K.xls%$R$,RO_CREATE,O_TRUNC8h9$ Customer: @ Period: @
 3get details\LR nRp@$T Excel Version $T$ utsub.wbbn  
G$

n~#( 3prompt got the print to printer!$DUMPPSDUMPPSUO$:
Print to Postscript Printer 
$Printer:P<$&$!
r8|U3" DUMP OUT TO PRINTER)$ Dumping file @ out to @-$cat @ @ >/dev/null 2>&1 $4$Output COMPLETE!



DS$

Start BOL Review Screen

$@3T=$6ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$s"t YE2^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$7'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC7=$6ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L6E$87$9' error_email:6(JBMAILTO9;:<=8>@ }$q
Order is not valid. Click and fix the problem(s).#(U 39000 OUTTA HERE#<')U 3^1000 "------------ MAIN REPORT LOGIC'.$i'`$ireview'jM$  'tL$@
'$'' $otherhead''Z$'' ) $Y' $otherhead''U$P.)h3*$*3----------- loop here+ $+  J8+\Q 3F1:C(1*=124),F2:C(1*=124),F3:C(1*=124),f4:c(1*=124)$||||+ @*+. @/$@JSHRT,$+1$ /u/tmp/KPID.@ /u/tmp/JSHRT.@+!$$,ӱ+,$+F$&sshpass -p "champ123" scp -p champion@۩@ +qH$>+F$&sshpass -p "champ123" scp -p champion@۩@ ,qH$>,$,.$J1@.$ST3001. N $.$ST3002N $/$ST3003N $/*$Y'JSHFILE3USED IN GETPLTXXX/- GETPLTRATE2"$< $(N $"۩(N@$M Z @3@3  ۩( ۩(###.000 ۩( ۩(###.000 ۩( ۩(###.000 ۩( $#,###,###.00 @$[Bh $ME*J83REPORT COMPLETEL,$
ActionGSystemGCustomerGPath to KPI DetailGPeriodGStandard
PalletsGStandard
RateGOversize
PalletsGOversize
RateGOversize 2
PalletsGOversize 2
RateGTotal Storage ChargeG۫LinksLinks(<;3B CREATEPROGBOX; LET HEAD$=PROGRAMBOX$+" select all"+HEAD$(#$P 
L1LL6E$ &L@$' 7 L|L$@

L5$  LC$7

N8N 3---- pull data from KPIDN*13send COCUST$,KID$,d1$,d2$ returns val,val2,val3N4$N>A$۩A۩A۩A۩A9NC ST3080$3" this forces the SKU Count KPIs for the QTR values to match the last month of the QTR, see 10/23/2014 email from TFNz1µǯNNN,$°Q1 QN$$@@@P NQ3DONEQ_ өIB0030/IB0031/IB0032/OB2008/ +$ $&QL өOB2003/.$ $&dQP өST3194/ST3094/ *$ $&ݨQ8R#3^1000 --- javascript date handlingRV$V # R$VV R&$X' $otherheadR0R0$Y' $otherheadXVR:8m`328000qH*3^1000 "perform command and capture outputqR$>q\ $$,<  2>&1qf 1qqp$>> qzqfqq$>> q8)U3GET THE CUST/PERIOD TOTALS FROM AXSUM$nE$nn Invoice Customer Period Brand Service Description )    Rate    '   Qty    *   Charge    GL Code1 Source AX GL AX Dim 1 AX Dim 2 1@|& 1@|$kjl'1< @@@|<&1oJ1@|p0 $ll:& @OA$kk@ND @S $jj@l @@@$@$nn @ @|  @ @ @ @ @ ۩(@-$###,###,###.00 @ @ ><3doneF$nn
 8U3GET SUMMARY BILL TOTAL${ 1#$&1$  $h $@# OP@$@0# SH@$@05 AC@@J $@0# AC@$@0 $@\$3DONE~83------- SETUP REFESH<=$+P1$'$'' $otherheadR$'' Z$Y' $otherhead'89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$H: 8pt;$ reportparamK$4D
 K$EC $E=$W)$f3RESULT1$=""; GOTO 43210 $-8 , utsub.wbb-> SELECTED>#$ E$ &$' 9 :$) $F
G Year+MonthG 
  -$
8 !$  $+$< width="۩(">8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ/$//Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8] $ ($ܨ8] $$$ө8&]D N# $^ŞS$./X( _ M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($_/// @` $@`@`g$a@`@b@cŔl$^ a%Y%Mz%DzŔŀŞŔ $^Ş8^ţ]Ũ< // ? #8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$