<>rgE '3WHEOM1 - WAREHOUSE END OF MONTH SCREEN3@@"!$mhpM/prpP/trpT/ecpN/sdpS/#+$"#MOE001/PER001/MTR001/MEC001/NAB001/(R$$JSBFI,.tpl1, *$$, +R$$AXSUM,.tpl1, ,R$$JCUSTr,.tpl1, s-R$$CCSMSv,.tpl1, w/X$$ ALERTEMAILS,.tpl1, 0V$$ CONFEMAIL,.tpl1, 2R$$AXINV,.tpl1, 3R$$AXREV,.tpl1, 4R$$MISHH,.tpl1, 5S$$AXCUST%,.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' EPUSHU3 COMBINED EMAIL, EPUSH1U3 1 INVOICE PER EMAIL4$8Jtmp/eomscreen_۩(Өө.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 h' utsub.wbbhn i$i0i0qI$i+ $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@p$ Cust/Period: K
 1K$@@@)$8J tmp/AXINV_۩K.xls%$R$,RO_CREATE,O_TRUNC8h9$ Customer: @ Period: @
 3get details\LR qRp@$T Excel Version $T$ utsub.wbbq  
G$

q~#( 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$y"z 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'.$l'0 kYES $l'`$ireview'jM$  'tL$@
'$'' $otherhead''Z$'' ) $Y' $otherhead''|$P.)h3)3SCAN FOR JI INVS*$j3for the sorting logic*1**3loop HERE for next AXSUM+\1J8+f:  1*+p4 1*+z(3IF JSBFI.CUST$="JIM001" THEN GOTO 17900+| @E.9 s s$@t **missing**1rJ1@.s/D w w1v@/Nw/N>$#s1%#/R& A$$#A$/X& 1@/Z:U:$@U3GET ALERTEMAILS;$(Ө@;$";`U;tU;y$$ $ / ۩(;~$(N $"۩(N;v$GETTMETASENTON :$ ۫ ;e$ nmnD$<
ActionGCustomerGGroupGRepG Hlf
MonGPeriodGInvoiceGNameGBldgGEmailsG Email SentG Email ConfGByGRecurring
StorageGInboundGOutbound
AccessorialG Other (JD)G AX DetailGJI InvsG۫LinksLinks(< U$Pe select allP(#$P 
<$"Send Combined Invoices<$"Send Separate Invoices< $(N $"۩(N<$(N $"۩(N<($"۩(nmN@V$" AX Detail@`B3IF CVS(DOYEAR$,3)<>"" THEN IF JSBFI.PER$<>DOYEAR$ THEN GOTO 17900@t$gg$Z9    @yQ3LET STEXT$=STEXT$+PROGGROUP$+".addToGroup(""ECODEC"+STR(ESEQ:"0000")+""");"+$0A$@;$ $*@0 @" $Z@?$ffd.addToGroup("ECODEC۩(g0000"); @ $ @$M Z @3#3@x3@ @ @ @t3@u3 ۫ ۩(N ۩(N  |  |  @ $@@$@@@@@x@$@@A@t@$A@uAA@$AAA@$AA@$[@ LBh $ME1*J83REPORT COMPLETEL,$
L6E$ &L@$' 7 L|L$@

L5$  LC$7

N8N 93^1000 "------ handle the subtotals and grandtotals linesR#3^1000 --- javascript date handlingRV$V # R$VV R&$X' $otherheadR0R0$Y' $otherheadXVR:8Rl-U3----- GENERATE AND SEND INDIVIDUAL EMAILSRvUR$DOSBR $WHEOMSBR LR$WHEOMACR LR$WHEOMOPR LR UR$S4 $WHEOMJISH!$\ U(SR $S\>$%%EOF $SULS$ SUSSHU( 3------ doneUU#3--- GET ALERTEMAILS FOR A CUSTOMERU$EOM1 U9 $@EOM1@@ALVV+$1V$@VJ8VT=U3----- GENERATE AND SEND COMBINED EMAIL INVOICES -------V^UV`3*** this needs to be optionalVh$DOSBV| $WHEOMSBV LV$WHEOMACV LV$WHEOMOPV LV $WHEOMJIV LVVUWW2U3"------- SEND THE PSFILE TO THE EMAILS ON FILEW! $20 W&" 1W(W01rsWb4$ps2pdf   >/dev/null 2>&1Wl$

PDF Version of Document(s)
Wv!$ JI List: 
W#1EOM1 WW<  ccalamari#$@ccalamari@champlog.com WW,$@ $MULTIPLEW!  $ 3FOR EPUSH1 WU$:.Champion Logistics Group - Warehouse Invoice () for: ۩@tWL$=DDo not reply to this message it is sent from an unmonitored mailbox.W$O
Download W-9 FormV
Download ACH InformationWI$

Warehouse Services invoice from CHAMPION LOGISTICS GROUP

The attached invoice(s) for : ۩@t'
Services for the period of: ۫20 
Payment Information:

Please direct inquiries to: whs.billing@champlog.com
(708) 562-4200 x403
W>$X3include the summary table in the email bodyWV$5



Invoices are sent to: ۫ , W2 'W3 *** NEVER SEND 0 ZERO BAL EMAILSW-$

Invoice emailed to : 9W33-------- emails now sent individually w/ conf linkWWWZ $@SENTON@@ %Y%Mz%Dz %Hz:%mz:%sz @LW8W>3------------- send individual emails with links to conf emailW3-------- track the conf emailW $9,W!$, X>X1$X @WX 6$AөP1XX*XK$4http://jit.champlog.com/clg/wf/wfenter.cgi?CONFLINK=۩өXj$B

Please confirm your email address by clicking this link.
X*$$X/,WHMAILTO;:=>X17$ Email to: attachment: 
X4WX>3doneXC8X 3------ FORMAT THE SUMMARY TABLEX$X$
 X YXE$\ Y$XG$Ө>|ӫө,XX$>| XXY 3end of tableYb$% Y $
Invoice Invoice DateAmount
|X8$

۩($ ####,###.00-
Y 8Y0U3--------------- HANDLE THE SINGLE FORM PRINTY!$

Forms Processing

YUZ$DOSBZ2$Z<6 SUBFUNCPRINTSBWHEOMSBZF2 SUBFUNCPRINTACWHEOMACZP2 SUBFUNCPRINTOPWHEOMOPZZ6 SUBFUNCPRINTJIWHEOMJIZd LZi$ZaD^.U3------ subrtn to open the next psfile name^($K[MHBOLR1K^^^ $^$LKK^E$ /clg/wf/tmp/ /clg'WFDIR$/wf/tmp/^Y$'WFDIRtmp/clg۩(.pdf.ps$Ө^%$$,O_CREATE,O_TRUNC^8aD3---------------- handle PSaNaSG3LEN(BLIST$)=0 THEN LET TEXT$=TEXT$+"
NO BOLs Selected!"; GOTO 24940aX4$ps2pdf   >/dev/null 2>&1ab$

PDF Version of Document(s)
ag $alF$

Start BOL Review Screen

aq3as $av $a!$ JI List: 
a+ #$$ Opening PDFa#(73--- SCAN MISHH FOR DOYEAR IF EXISTS WRITE DUMMY RECORDB1ѵDL1Ѱ ҁQ$ A V) A A Lj o'$A J1@A @01q$A JICHARGESA000t LLx-3------------ FORCE ALL SPIRITS TO HAVE A REC|3"mhpM/prpP/trpT/ecpN/sdpS/"$!MOE001܂$!PER001܂$!MTR001܂$!MEC001܂$!NAB001܂83 '$A J1@!@01$A JICHARGESA000 L68,U3---- GET THE JI TOTALS FOR A CUST/PERIOD$*1ѵ@,4$ѰT1҅>"  @TH I4 $1ӵ $Ӱ(1Ԇ   ($$NET` $ه4T38)U3GET THE CUST/PERIOD TOTALS FROM AXSUM$qE$qq Invoice Customer Period Brand Service Description )    Rate    '   Qty    *   Charge    GL Code1 Source AX GL AX Dim 1 AX Dim 2 1@& 1@$nmo'1< @@@<&1rJ1@s0 $oo:& @OA$nn@ND @S $mm@l @@@$@$qq @ @  @ @ @ @ @ ۩(@-$###,###,###.00 @ @ ><3doneF$qq
 8U3GET SUMMARY BILL TOTAL$whpJ/#$ j$+$$,/u//tss/DATA/JSBFI+$$,/u//tss/DATA/AXSUM$ 1E *JIM001/MOE001/PER001/MEC001/MTR001/NAB001/p&1$  $h $@# OP@$@0# SH@$@05 AC@@J $@0# AC@$@0 $@\$3DONE).3next systemj3DONE WITH ALL SYSTEMS~8337000\%3create SENDTO$ from ALERTEMAILS file3variable= ALERTEMAILS.ELIST$)$9chuck.calamari@gmail.com T  ccalamari8$99,,smichalowski@champlog.com, ar@champlog.com %$ө@,  $ʐ $  #$$$99,ɐ8p=3---- GET RECURRING STORAGE FOR SPIRITS CUSTOMERS FROM AXSUMz-$20 3 CCCCCCYYYY1&18  8 @OPԔ $@.ԕ8 3---- DONE8X3----- HANDLE CONF LINKSb$@ӫCONFLINKl#$@ %Y%Mz%Dz %Hz:%mz:%sz L嘼E$=

Thanks! Your email address is now confirmed.

J$>

www.champlog.com _$Y'!CLEAR$stdheadY'!CLEAR$stdfootY'!CLEAR$title3------- SETUP REFESH<=$+P1$'$'' $otherheadR$'' Z$Y' $otherhead'89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$H: 8pt;$ reportparamK$4D
 K$EC $EE$ W)$f3RESULT1$=""; GOTO 43210 $-8 , utsub.wbb-> SELECTED>#$ E$ &$' 9 :$) $F
CustomerG 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$