<>72i 133PLONTIME1 - MANUAL ONTIME REPORT FOR ALBANESE @3******* SEE 63000 IF CHARGES MISSING/WRONG IN AX SCREEN VS 3PLC3@@3$ReferenceNumber:c(1*),ShipTocompany:c(1*),Purchaseordernumber:c(1*),PickTicketPrintDate:c(1*),shipDate:c(1*),ProcessDate:c(1*),SHIPCarrier:c(1*),SHIPACCOUNT:c(1*),Notes:c(1*),OnTime:c(1*),InFull:c(1*) 4m$$OR3PLO,.tpl1, p$r$,r9R$TMETA$_,.tpl1, `:[3CALL "GETTMETA","RPDATE"+A1$,RPDATE$; IF LEN(RPDATE$) THEN LET RPDATE$=FNMDYSAVE$(RPDATE$)<$'' $otherhead>> CONFLINKXA)$P' pagetitle3PL PICKS SCREENFw$>5 P@@R"$%400&8003for popupsZ$SUBFUNC[\5$-]A$.9_`3set formstart and formenda!$ &PGMFUNC=CALL۩#i:$" -###,###,##0$ -$#####0.00* -######0.00j-$/-$###,###.0000<-###,###,##0.00k'$G-###,###,###.00H-######0A$td class="td" <>< nowrap>v$n$  

0= G$I?V$(
2/
D$)<
$
=$5D tmp/SHIPREP_۩ %Yz%Mz%Dz%Hz%mz%sz.xls%$J$,JO_CREATE,O_TRUNC5H$\|||J$\\| 3^1000 "------------ main logic&$ Ө %Y-%Mz-%Dz*$ T00:00:00 T23:59:59 PDATE1B $PDATE1 T00:00:00$ $PDATE2 T23:59:59B*$DOCUST $73(3display/get the input params table$K $f# 3GOSUB 300003x'0$KL

H3TEXT$=TEXT$+""$g#$hgf%$ Elapsed: ۩(h
H  ccalamaria/$
۫E



 $\#( U3" create PROGRAM boxes D$WProgALL T$X $YYvar W = new CheckBoxGroup(); W.setControlBox("W Master"); W.setMasterBehavior("all"); L3LET STEXT$=STEXT$+BRANDGROUP$+".addToGroup("""+PROGGROUP$+"Master"");"+$0A$ 8@3T=$3ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$Z"[ YE2^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$4'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC4=$3ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L3E$54$6' error_email73(JBMAILTO6879:5;@ }$q
Order is not valid. Click and fix the problem(s).#(U 39000 OUTTA HERE#<$3TEXT$=TEXT$+"
"+DEBUG$+"
"#F $d&')U 3^1000 "------------ MAIN REPORT LOGIC'$w'$$x'B 3GOSUB 22000'j1'l't $' 3HEADINGS'$$iө ,FUTURE'/ w$$iө ,FUTURE'U$lH
 '!$j,i j('#$kijiij'P FTERMk:k$$llk:kB''($l *3+\1J8+f3IF TPASS=1 THEN IF CVS(OR3PLO.SKU$,3)="" THEN REMOVE (OR3PLO,KEY=OR3PLO.REFERENCENUMBER$+OR3PLO.SKU$); GOTO 11000; REM RESET THE ORDER LINES+p23IF CVS(OR3PLO.CUSTID$,3)<>DOCUST$ THEN GOTO 11000+z -CANCEL@*+| @*+~ @*+" w @*+$@@\n .3CALC THE PICKS. w6/'$q@۩ 1rq/p//C$p@s@t@u@u@@vLrp0 6 @FALSE%$@sFALSE$ppLrp06 @FALSE%$@tFALSE$ppLrp6 w7x63--- create the daily summary6${@ 6. { Ө %Y-%Mz-%Dz7x6 $yA0 zA0 6I$|{x |-$xx*{|y|z&66.$}x| ~x| 63$}} FALSE@@ $~~7#$x| (} #7#$x| (~ #7x3--- CHECK DATE RANGE7* w @ @Bh:$cc :# w @ $@TRUE:# w @ $@TRUE:+ w  uttplcp.wbb$c:!3LET LL$(8,1)=$0A$,LL$(16,1)=$0A$@$F ۫c 0 @ $FBh 3TOTALLINGFF*J83REPORT COMPLETEL,$
L6 wL^L@$wLJLJJ$LT'BL^$0x"xPShip DateB Order CountBOnTime and InFull Count&L<$۫x*(|0L$& Lf$M

Daily Summary Last 7 Days

L-  SENDEMAILYESN 3SEND EMAILLh$L Order Details - Excel Version

LLL3LET TEXT$=TEXT$+URIX$+"
"LR3LET TEXT$=TEXT$+""N8N 3---------- SEND THE EMAMILN% 738N**$6"Champion@AlbaneseConfectionery.comN/`$8Admcguire@champlog.com, dbutler@champlog.com, chuck@tssconnect.com88, N4J$7$Daily Shipment Summary - Champion -   to  N>$9NH$5N,WHMAILTO6879:;N8R#3^1000 --- javascript date handlingRV$M # R$MM R&$O' $otherheadR0R0$P' $otherheadOMR:89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$C: 8pt;$?Albanese Order Detail Import and the Original On Time / In Full update screen must be run first

$ reportparamK$1?
 K$@C $@T$ RO3LET DOCUST$="17"; LET CUSTNOTE$="3PLC Account forced to '17' until production"WP$&\P$&?$%
From DateB Thru DateB Customer Id 




E$ &$' 9 :$) $A$
8P ^bZ&$^|:C(1*=b),n8x]Â^"^"ô ^þ$e$e^8(e] !$  $+$< width="۩(">8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ/$//Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8] $ ($ܨ8] $$$ө8&]D N# $QŞS$./X( R M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($R/// @S $@S@Sg$T@S@U@VŔl$Q T%Y%Mz%DzŔŀŞŔ $QŞ8Qţ]Ũ< // Ų ^ż$^^' 8^] ^$^mnm$b@o8b] ? #pH ^W$^^$^^ WAREHOUSEWHSE^^ TRANSACTIONTRANSv$^^DETAIL^^ ITEMTRAITS^^NAMEKEY^^ ROUTINGINFO>$^^ IDENTIFIERID^^READONLYP$b^.,$bb,|bb|:C(1*),8bb]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$