<>sh N 03WHEOM3 - WAREHOUSE END OF MONTH SCREEN FOR 3PLC3@@(R$$JSBFI~,.tpl1, *$$, +R$$AXSUM,.tpl1, ,R$$JCUSTn,.tpl1, o-R$$CCSMSr,.tpl1, s.d$$CH3PL&,.tpl1, ($'$,'/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>$    3B G$Q?V$*5/D$+< $
 AXSUMXLSU DUMPPSU PRINTU' EPUSHU3 COMBINED EMAIL DOBINDU DOBINDDOU  SCANAXREVy4$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

Tv$

Process the pending bindsk$_

If invoice is unbind in Extensiv, may need to remove documents from /clg/wf/eom/yyymm/*$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@l$ Cust/Period: K
 1K$@@@)$8J tmp/AXINV_۩K.xls%$R$,RO_CREATE,O_TRUNC8h9$ Customer: @ Period: @
 3get details\LR mRp@$T Excel Version $T$ utsub.wbbm  
G$

m~#( 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$u"v 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'`$ireview'ja3LET TEXT$=TEXT$+$0A$+""+$0A$'lD$3 'tL$@
'$'' $otherhead''Z$'' ) $Y' $otherhead''$P.)h3*$h3for the sorting logic*1n**3loop HERE for next AXSUM+\1nJ8o+p @+\/D s s1r@/Ns/N>$o1/R @$@/X& 1@/Z/$o/$o:U:#$@3GET DOC LINKS:%$oU3GET ALERTEMAILS;$(Ө@;$";v$GETTMETASENTON :$ ۫ ;e$ jijD$<
ActionGCustomerG 3PLC CustGPeriodGInvoiceGNameGEmailsG Email SentG Email ConfGByG Charges TotalG DocumentsG۫LinksLinks(<}3GET ACTIVE CUSTOMERS(#$P 
;5$  ccalamari$ ONLY CHUCK<$"Send Combined Invoices <  $<($"۩(jiN<< $"۩@@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$@;$} $}*@s$   M$&
*3 *** suppress inactives@ |$} @)1۩ @@@ $@@$@@@@@t@$@@@@p@$@@q@A@$@@@@$@@A$@$[@ L@ AA$@pendingA$"Set Bind FlagA3check for the dobind flagA @ $AXA/ A "$ Set Bind FlagA#B$M o3  @ @p3 ۫   | Bh $ME*J83REPORT COMPLETEL,$
L1ML6E$ &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:8U#3--- GET ALERTEMAILS FOR A CUSTOMERU$EOM1 U9 $@EOM1@@ALVV+$1V$@VJ8VT=U3----- GENERATE AND SEND COMBINED EMAIL INVOICES -------Vh$AVUWW2U3"------- SEND THE PSFILE TO THE EMAILS ON FILEW!$ W&" 1W(W01noW:#$@ WD$oWl $


W#1EOM1 WWW\$:.Champion Logistics Group - Warehouse Invoice (۩@) For: ۩@pWL$=DDo not reply to this message it is sent from an unmonitored mailbox.W$O
Download W-9 FormV
Download ACH InformationWC$

Warehouse Services invoice from CHAMPION LOGISTICS GROUP

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

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

Invoices are sent to: ۫ , W-$

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 emailX O$; ,95$;9Ө,999,9X*$X/,WHMAILTO9;:= >X1Z$
Email to: attachment:  
LEN ETEXT1=۩(Ө
X4$
۩'DEBUGX>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#(u0"U3SET THE BIND FLAG FOR CUSTOMERu:3$A۩ 3ONLY SHOULD SET BIND IF NO INVOICEuN1v\uX5$AAA %Y%Mz%Dz @A!A"u] A" $A ub Lu%$Flag set for Bind by A ux$l
Detail for this customer will be retrieved overnight, and if the totals match the invoice will BIND.
u$A uL$!/bin/rm /u/whp/webnew/clg/wf/eom//_۩A$_*u $ >/dev/null 2>&1u$
vvU3v#$mybindDOBINDDOUv$6
Bind Invoice Total

Cust: A Period:A 
v:$$v=$,
 v${Enter Expected Invoice Amount (from 3PLC Manage Invoice) :

v1$%Enter 0.00 to clear the bind flag
v$!
wU y73GET 3PLC INVOICE DETAILS, ORIGINALL IN VIEW 3PLC CUSTSy")3SCAN THROUGH AXREV LOOLING FOR BIND FLAGy|1z:y AAy|yI3 IF POS(AXREV$(3,6)="BLU001/LEP300/MAR001/")=0 THEN GOTO 31100; REM TESTy @⫀DOPERIODy|y]$!
BEGIN INVOICE DETAIL GET FOR @ @ APPROVED BY: A 
 y;$/usr/local/bin/whp/tss.dobind1 ۩A$ @y4$/ Begin time : ۩(Ө#00.0000
 y $ >/dev/null 2>&1y$//
 y6$// end time : ۩(Ө#00.0000
 yczD$//Expected Total:۩(A! API Total: ۩() Variance: ۩(A!)
yT )A!):z3SKIP BIND THEN 3.00 IS THE ALLOWABLE ROUNDING ERRORy3OK TO BIND THE INVOICEy;$/usr/local/bin/whp/tss.dobind2 ۩A$ @y $ >/dev/null 2>&1z$AXL3SET FLAGz$//
 z6$// end time : ۩(Ө#00.0000
 z3---- SEND EMAIL APPEND TO TEXTz!A$:WHEOM3 SCAN AXREV UPDATE @9chuck@tssconnect.comz&,WHMAILTO9;:/=0>z5 $/z8y|z:3DONEz=,$

SCAN OF AXREV COMPLETE!

z?U zD3TOTAL UP CH3PLzH$)zN$%AA$ @zX1'%zbzb1'z(ze A-A$zzh A.@zzl$))ܨA*zvzbz8}(3----- GET 3PLC CUSTOMERS - ACTIVE ONLY} <$4/customers?rql=ReadOnly.deactivated==false&pgsiz=199}d"GET3PLCGET}-$%'.ResourceList[].ReadOnly.CustomerId'}JQ1} $ }323------ GET DOCUMENT LINKS FOR DOCUST$ AND DOYEAR$ $ $   +$Jeom//__[$Ssummary.pdf/details.csv/eomstocksummary.csv/transactions.pdf/transdetailwithPO.xls/0$+(Summary/Details/Stock/TransPDF/TransXLS/B$L!$/ V#$Y5$/+$,+++`)$$$,LjF$ ,~$ | $  ,+  summary.pdf$' details$ )  stocksumm$ L3done$"retrieve latest documents#$not bound, no inv date (A  d$$,E$mm Invoice Customer Period Brand Service Description )    Rate    '   Qty    *   Charge    GL Code1 Source AX GL AX Dim 1 AX Dim 2 1@& 1@$jik$@'1< @@@<&1nJ1@o0 $kkD $ii@l @@@$@$mm @ @  @ @ @ @ @ ۩(@-$###,###,###.00 @ @ ><3doneF$mm Zg$Monthly Summary Invoice: |/>|۩(i ####,###.00\8337000\%3create SENDTO$ from ALERTEMAILS file3variable= ALERTEMAILS.ELIST$$9%$ө@,  `$۫D,smichalowski@champlog.com, ar@champlog.com, ccalamari@champlog.com,, $ $   $Đ*$$" @$99,3$999<  ccalamari#$9chuck+forced@tssconnect.com 8X3----- 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$