<>D; (33PLONTIME - ONTIME REPORT FOR ALBANESE @3******* SEE 63000 IF CHARGES MISSING/WRONG IN AX SCREEN VS 3PLC 3open(99)pgm(-2);call "_fids"3@@*$\$,\ ]3$OrderId:c(8),ReferenceNum:c(1*),ShipToName:c(1*),PoNum:c(1*),PickTicketPrintDate:c(1*),EarliestShipDate:c(1*),ProcessDate:c(1*),Carrier:c(1*),TrackingNumber:c(1*),Notes:c(1*),OnTime:c(1*),InFull:c(1*) 4m$$OR3PLI,.tpl1, $$,5$jORDERID|ISCLOSED|CUSTID|SKU|DESC|PALLETQTY|LOT|EXPIRATION|LOCATION|MU|QTY|PALLETPICKS|FIRSTPICKS|SUBPICKS| t097S$$OR3PLO,.tpl1, 9R$TMETA$a,.tpl1, b:[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-------- FULL RESET ---------5$OR3PLIY,,$ʰ1   4ʵ33^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 $v#u03x'0$KL

H3TEXT$=TEXT$+""$w#$xwv%$ Elapsed: ۩(x
H  ccalamaric/$
۫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 $s&')U 3^1000 "------------ MAIN REPORT LOGIC'$'$$'B 3GOSUB 22000'j1'l't $' 3HEADINGS'$$ө ,FUTURE'/ $$ө ,FUTURE'U$H
 '!$, ('#$'P FTERM:$$:B''($ *3+\1J8+p @*+z -CANCEL@*+"  @*.3CALC THE PICKS. 6.A @. @@$@FALSE$@TRUE/D4 @ @ $@FALSE$@TRUE/.$۩1///C$@@@@@@L0 6 @FALSE%$@FALSE$L06 @FALSE%$@FALSE$L6 7x63--- create the daily summary6$@ 6. Ө %Y-%Mz-%Dz7x6 $A0 A0 6I$ -$*||&66.$  63$ FALSE@@ $7#$ ( #7#$ ( #7x3--- CHECK DATE RANGE7*  @ @Bh:$r:@ 5 uttplcp.wbb$rr :: $r r @$F ۫r 0 @ $FBh 3TOTALLINGFF*J83REPORT COMPLETEL,$
L6 L^L@$LJLJJ$LT'BL^$0"PShip DateB Order CountBOnTime and InFull Count&L<$۫*(|0L$& L$M

Daily Summary Last 7 Days
]
* - in full determination not yet availableL-  SENDEMAILYESN 3SEND EMAILLh$L Order Details - Excel Version

LLL3LET TEXT$=TEXT$+URIX$+"
"LR3LET TEXT$=TEXT$+""N8N 3---------- SEND THE EMAMILN% 738N*B$6chuck@tssconnect.com3"Champion@AlbaneseConfectionery.com"N/i$83dmcguire@champlog.com, dbutler@champlog.com, chuck@tssconnect.com",CCTO$=FNSUB$(CCTO$,",",$0A$)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:8u0.3--------- GET ORDERs DETAIL FOR A TRANSACTIONuD$u[$ F$;readonly.processDate=gt=;readonly.processDate=lt=ux$d/orders?pgsiz=100&pgnum=۩(%&rql=readonly.CustomerIdentifier.id==&detail=OrderItems,Contactsu3$eFILENAMEGET3PLCdGETefu$du$gu $ggv#$n.ResourceList[۩(g]v $onU$fpv f xvR$i.ReadOnly.OrderId,.ReadOnly.FullyAllocated,.ReadOnly.IsClosed,.ReadOnly.ProcessDate,.ReadOnly.PickTicketPrintDate,.ReferenceNum,.PoNum,.EarliestShipDate,.Notes,.RoutingInfo.TrackingNumber,.RoutingInfo.Carrier,.ShipTo.Name,.ReadOnly.CustomerIdentifier.IdvW ~iv\>$n| ioU$~p" v$yv%$zn .OrderItems[۩(y]v$ozU${pv { xPwS$iK.ReadOnly.OrderItemId,.ReadOnly.OriginalPrimaryQty,.ItemIdentifier.Sku,.Qtyw$ |iw.>$}z| io}U$|p" w $@@w$@@w$@@@@@A@ w$@@@A@ w$@@@@w*$@3 **** JROW.ORIGINALPRIMARYQTY$w$@@@@w$@@w$@@@@w$@@w$@@w CANCEL@ww&3WRITE RECORD(OR3PLI,DOM=30682)OR3PLI$w Lw3UPDATE OR3PLOw$A@۩A@ x1ʵ̯x<x $@@@@x $@@@@@@x$@@x$@TRUE@TRUEx @䫀@ $@FALSEx(! @@ $@FALSEx<$LxF$yyvxP3----- end of cloopx$ggvx3----x $uy8{p3--- add next detail segment|.8UV$j`=$k'WFDIR tmp/3plPICKS_۩(Өө.jsonj $lh > k 2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$m$,mk3^1001mB?j3^100mn8 U3--------$pA3LET J=UNT; OPEN (J)"&1"*3READ RECORD(J,SIZ=99999)JQOUT$; CLOSE (J)($hcat e | jq -c 'o' U$pj*89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$C: 8pt;$ 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 `qZ&$`|:C(1*=q),n8x]Â`"`"ô `þ$u$u`8(u] !$  $+$< 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`] `$`$q@8q] ? #pH `W$``$`` WAREHOUSEWHSE`` TRANSACTIONTRANSv$``DETAIL`` ITEMTRAITS``NAMEKEY`` ROUTINGINFO>$`` IDENTIFIERID``READONLYP$q`.,$qq,|qq|:C(1*),8qq]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$