<>?7v A33PLPICKSGET - CALLED ACCESS THE 3PLC CALCULATE PICKS - POKEMON @3******* SEE 63000 IF CHARGES MISSING/WRONG IN AX SCREEN VS 3PLC >3MKEYED "/u/whp/webnew/clg/wf/OR3PLC",[0:1:40],0,256 charges !3**** SEE 60000 FOR BULK RETRIEVE3SEE 0040 FOR RATE UPDATES?3********** SEE 3PLPICKSGETU FOR THE EARTH TO KIDS VERSION30 " "$m121705m@@ $($ML%M)-$M.MK3S$$OR3PLC,.tpl1, 4R$$OR3PLq,.tpl1, r5$jORDERID|ISCLOSED|CUSTID|SKU|DESC|PALLETQTY|LOT|EXPIRATION|LOCATION|MU|QTY|PALLETPICKS|FIRSTPICKS|SUBPICKS| d09<$' $otherhead>A)$;' pagetitle3PL PICKS SCREENFw$25 P@@R"$4008003for popupsZ$SUBFUNC[\5$-]A$#9a!$ &PGMFUNC=CALL۩#i:$ -###,###,##0 -$#####0.00" -######0.00j-$$-$###,###.00000-###,###,##0.00k'$6-###,###,###.007-######0A$td class="td" <>< nowrap>$    %1 G$8?V$ &/D$!< $
3^1000 "------------ main logic$9 $j#u03x'0$9:

H3TEXT$=TEXT$+""$k#$lkj%$ Elapsed: ۩(l
/$
۫4



#(@3T=$'ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$B"C YE2^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$('WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC(=$'ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L'E$)($*' error_email+'(JBMAILTO*,+-.)/@ }$q
Order is not valid. Click and fix the problem(s).#(U39000 OUTTA HERE#<$3TEXT$=TEXT$+"
"+DEBUG$+"
"#F $c# q&')U 3^1000 "------------ MAIN REPORT LOGIC'`$Am'j1q'l'tL$@' 3HEADINGS'$$ө r,FUTURE'<$/ '!$, ('#$')$:3'($ *0#3---- CAPTURE # OF MUS FOR EACH SKU*5$*:&1q*r r**D$@/@|*N $**:*3*1q**$*3+\1qJ8r+f rJ8+ @$$+$@.3CALC THE PICKS.$.$@1@(Ө@. @/D.$@0@0.$@@/ /0/$/&//0# $@1@(/5 $/DB @@.$@1@@/3IF MUFIRST THEN IF POS(OR3PL.SKU$+"/"=MULIST$,1,0)>1 THEN LET OR3PL.PICKSPALLET$="1"; REM *** count the picks per DM ,OR3PL.CFIRST$="",OR3PL.CSUB$="",CFIRST=0,CSUB=0:$Ur: $U U @$5 ۫U % @ $5Bh 3TOTALLINGB0$ܨ@ܨ@ܨ@B $C0$FF*J8#3--- SCAN THRU ORDER LINES COMPLETEJ$55
TOTALS%۩(%۩(%۩( $5L,$
L.$F/orders/m?detail=BillingDetailsL! 3PLGETRECF/L$L$L%$' 3try 8/2/2024LY$Jecho ' ' | jq '.Billing.BillingCharges[۩(].ChargeType' 2>&1UL$ 6L$LL errorL$LL 1LN PL/$Jecho ' ' | jq -c '' 2>&1LUMX! 3PLPUTRECF/LM:$MD$N8N 3--------- create new chargesNyN)$Jecho '{}' | jq -c '' 2>&1OUOL$P 8P!3-------- update existing chargesP($P2.$.Billing.BillingCharges[۩(].Px$ChargeType=1 |Pz+$ Subtotal=۩( |P|b$ Details[1].Pick Charge - CartonCarton4131RP3 LET BCD$=BC$+"Details[1].",NUMUNITS=PS,CHARGELABEL$="Pick Charge Subsequent",CHARGERATE=PSRATE,UNITDESC$="Carton"; GOSUB 21000PX$ Details[2]. Pallet OutPallet4131RP63do not have to update order proc bec it never changesP&$Q8R3add detail chargeR($ NumUnits=۩( | R&($ ChargeLabel="" |R0-$UnitDescription="" | R:-$ChargePerUnit=۩( | RD'$ GlAcctNum="" | Rb8u0.3--------- GET ORDERs DETAIL FOR A TRANSACTIONuD$F/orders/m,?detail=All&ItemDetail=AllocationsWithDetailu3$GFILENAMEGET3PLCFGETGHu3 LET COLS$=".ReadOnly.FullyAllocated,.ReadOnly.IsClosed,.ReadOnly.PickTicketPrintDate,.ReferenceNum,.PoNum,.EarliestShipDate,.TotalWeight,.ReadOnly.CustomerIdentifier.Id,.Notes"u$K.ReadOnly.FullyAllocated,.ReadOnly.IsClosed,.ReadOnly.PickTicketPrintDate,.ReferenceNum,.PoNum,.EarliestShipDate,.TotalWeight,.ReadOnly.CustomerIdentifier.Idu$PKQPUu$RR' uB TӫK .ReadOnly$TR" u$@uKu 3PLSKUGETuT LSKU:C(1*=124),FPQ:C(1*=124),PKGUOM:C(1*=124),PKGQTY:C(1*=124),DESC:C(1*=124)u$Iv*$P .OrderItems[۩(I ].ReadOnlyv $QPU$HRv H xvR$$K.OrderItemId,.FullyAllocatedvW |Kv\>$}P| KQ}U$|R" v$nv&$oP .Allocations[۩(n]v$QoU$pRv p ww$K.ReceiveItemId,.Qty,.Detail.ItemTraits.ItemIdentifier.Sku,.Detail.ItemTraits.LotNumber,.Detail.ItemTraits.ExpirationDate, .Detail.ItemTraits.PalletIdentifier.NameKey.Name, .Detail.ItemTraits.LocationIdentifier.NameKey.Namew$ zKw.>${o| KQ{U$zR" w r r$@smw$@t@~@u@yw$@v@@w@w$@x@w$@@@@@w$@@@w$@@w&$E@U$@@@@@@w Lqrw$nnvw3--- end of allocationsxP3----- end of cloopx$IIvx3----y8y#3------- create JSON to set chargesy"X3 LET JSET$=".ReferenceNum |="+FNQ$(RROW.REFERENCENUM$)+" | .Notes |="+FNQ$(RROW.NOTES$)y$!$.ReferenceNum |=۫@y,W$|.Billing.BillingCharges += [].Billing.BillingCharges[۩(]y@.$| .ChargeType |=۫1yB.$| .Subtotal |=۩(yJ$$| .Details += []y|V$Pick Charge - CartonCarton(4131zyl3LET D=1,UNITS=PS,LABEL$="Pick Charge Subsequent",UNIT$="Carton",CHARGE$=STR(PSRATE),GL$="4131"; GOSUB 31400yL$ Pallet OutPallet(4131zzW$Order Processing ManualOrder(4132zz8z3--- add next charge segmentz"$ .Details[۩(]z*$| .NumUnits |=۩(z.$| .ChargeLabel |=۫z2$| .UnitDescription |=۫z+$| .ChargePerUnit |=z,$| .GlAcctNum |=۫{  $@m{$@@@{ $@@ި{*$@{> L{@$۩ {f8{p3--- add next detail segment|.8UV$L`=$M'WFDIR tmp/3plPICKS_۩(Өө.jsonj $NJ > M 2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$O$,OM3^1001OB?L3^100On8 U3--------$RA3LET J=UNT; OPEN (J)"&1"*3READ RECORD(J,SIZ=99999)JQOUT$; CLOSE (J)($Jcat G | jq -c 'Q' U$RL*8@/340000 " TURN TEMPLATED VAR INTO COLUMNS VALUESJ&$ VW,T/ XN[۩(W]:c(32*)$X V^$KYh Wr$` V@Z|O$[' `/$[VV@Z(ӨөV@ZA$KK@Z,YY[۫өV@Z[,* ]CH3PLq$\ DELETE FROM ] WHERE TRANSID = '۩@a' AND WHSETRANSPRICECALCID = '۩@b'; V ]SKUINFOC$\ DELETE FROM ] WHERE ITEMID = '۩@f'; X$^ INSERT INTO ] (KK ) VALUES (YY);>$i\^MYSQL1 10.1.1.28 wmsreports_ih#$44i e h $\^8P ESZ&$E|:C(1*=S),n8x]ÂE"E"ô Eþ$g$gE8(g] !$  $+$< 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Ŕl$< ?%Y%Mz%DzŔŀŞŔ $<Ş8<ţ]Ũ< // Ų Eż$EE' 8E] U3----- GET THE SKU FROM ILIST$E8] ? #pH EW$EE$EE WAREHOUSEWHSEEE TRANSACTIONTRANSV$EEDETAILEE ITEMTRAITSEENAMEKEY!$EE IDENTIFIERIDP$SE.,$SS,|SS|:C(1*),8SS]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$