<>C: 133PLASND - DAILY ASN REPORT/EMAIL POKEMON FORMAT @3******* SEE 63000 IF CHARGES MISSING/WRONG IN AX SCREEN VS 3PLC 3open(99)pgm(-2);call "_fids" R3SKUS https://secure-wms.com/customers/106/items?rql=Sku=in=(290-10200,290-10209)13.ResourceList[].OrderItems[].ItemIdentifier.Skup " b /PDATE1:c(1*=00),PDATE2:c(1*=00),DOCUST:c(1*=00)$@ 2025-07-06@@@1063@@*23LET JSBFI2=UNT; OPEN (JSBFI2)F$; DIM JSBFI2$:TPL$4m$$OR3PLI,.tpl1, $$,5$jORDERID|ISCLOSED|CUSTID|SKU|DESC|PALLETQTY|LOT|EXPIRATION|LOCATION|MU|QTY|PALLETPICKS|FIRSTPICKS|SUBPICKS| r097S$$OR3PLO,.tpl1, 9R$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$  '$|B($ (<$"(FE$ ($(P$ $,(Z(F(3( ((* utencode.wbb(;$b!/customers/106/items?rql=Sku=in=( )&pgsiz=99(3$cFILENAMEGET3PLCbGETcd(\$mF.ResourceList[] | .Sku, .Options.PackageUnit.InventoryUnitsPerUnit,"|"U$n($"( SKU:C(1*),Q:C(1*)*3+\1J8+p @*+z -CANCEL@*+ @*.3CALC THE PICKS7x3--- CHECK DATE RANGE7*  @ @Bh:$p:* өnull;:$ө@; # $???;`;%$(Ө@ߨ@;`_$p 75-Champion @ @ @ @ @ @ @ @ @$F p @ $FBh 3TOTALLINGFF*J83REPORT COMPLETEL,$

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   433^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 $t#u03x'0$KL

H3TEXT$=TEXT$+""$u#$vut%$ Elapsed: ۩(v
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 $q&')U 3^1000 "------------ MAIN REPORT LOGIC'$'$$'B 3GOSUB 22000'j1'l't $' 3HEADINGS'$$~ө ,FUTURE'$H
 Location/WHS|Sales Order|Customer Name|Item#|Each Quantity Shipped|Case Quantity Shipped|Date Shipped|Tracking/BOL#|Carrier/Forwarder|Notes
L6 L^L@$LJLJJ$LT'BL-  SENDEMAILYESN 3SEND EMAILLh$L Order Details - Excel Version

LLE$
Raw JSON
LT$
LD$M:$N8N 3---------- SEND THE EMAMILN*!$6confirmations@pokemon.comN/`$8Accalamari@champlog.com,dmcguire@champlog.com,sasarce@champlog.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:8u0.3--------- GET ORDERs DETAIL FOR A TRANSACTIONuD$u[$ F$;readonly.processDate=gt=;readonly.processDate=lt=ux$b/orders?pgsiz=100&pgnum=۩(%&rql=readonly.CustomerIdentifier.id==&detail=OrderItems,Contactsu3$cFILENAMEGET3PLCbGETcdu $cu$bu$eu $eeuI$m/.ResourceList[].OrderItems[].ItemIdentifier.SkuU$nv#$l.ResourceList[۩(e]v $mlU$dnv d xvR$g.ReadOnly.OrderId,.ReadOnly.FullyAllocated,.ReadOnly.IsClosed,.ReadOnly.ProcessDate,.ReadOnly.PickTicketPrintDate,.ReferenceNum,.PoNum,.EarliestShipDate,.Notes,.RoutingInfo.TrackingNumber,.RoutingInfo.Carrier,.ShipTo.Name,.ShipTo.CompanyName,.ReadOnly.CustomerIdentifier.IdvW |gv\>$}l| gm}U$|n" v$wv%$xl .OrderItems[۩(w]v$mxU$ynv y xPwS$gK.ReadOnly.OrderItemId,.ReadOnly.OriginalPrimaryQty,.ItemIdentifier.Sku,.Qtyw$ zgw.>${x| gm{U$zn" wV2$zznull||nullw $@@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@ x1x<x $@@@@x $@@@@@@x$@@x$@TRUE@TRUEx @䫀@ $@FALSEx(! @@ $@FALSEx<$LxF$wwvxP3----- end of cloopx$eevx3----x $uy8{p3--- add next detail segment|.8UV$h`=$i'WFDIR tmp/3plPICKS_۩(Өө.jsonj $jf > i 2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$k$,ki3^1001kB?h3^100kn8 U3--------$nA3LET J=UNT; OPEN (J)"&1"*3READ RECORD(J,SIZ=99999)JQOUT$; CLOSE (J)($fcat c | jq -c 'm' U$nh*89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$C: 8pt;$ reportparamK$1?
 K$@C $@m$ RO3LET DOCUST$="17"; LET CUSTNOTE$="3PLC Account forced to '17' until production"WP$&\P$&?$%
From DateB Thru DateB Customer IdBSend Only TransId 


		B$(E$ &$' 9 :$) $A$
8P ^oZ&$^|:C(1*=o),n8x]Â^"^"ô ^þ$s$s^8(s] !$  $+$< 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^] ^$^$o@8o] ? #pH ^W$^^$^^ WAREHOUSEWHSE^^ TRANSACTIONTRANSv$^^DETAIL^^ ITEMTRAITS^^NAMEKEY^^ ROUTINGINFO>$^^ IDENTIFIERID^^READONLYP$o^.,$oo,|oo|:C(1*),8oo]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$