<>MUD /33PLPICKS - ACCESS THE 3PLC ORDER DETAILS API >3MKEYED "/u/whp/webnew/clg/wf/OR3PLC",[0:1:40],0,256 charges303----- USE 3PLPICKSGET FOR ALBA MONTHLY RECALC@@*$^$,^ _,R$$JCUSTX,.tpl1, Y-R$$CCSMSZ,.tpl1, [/S$$TSS3PLx,.tpl1, y3S$$OR3PLC,.tpl1, 4R$$OR3PL,.tpl1, 5$jORDERID|ISCLOSED|CUSTID|SKU|DESC|PALLETQTY|LOT|EXPIRATION|LOCATION|MU|QTY|PALLETPICKS|FIRSTPICKS|SUBPICKS| }099R$TMETA$c,.tpl1, d:[3CALL "GETTMETA","RPDATE"+A1$,RPDATE$; IF LEN(RPDATE$) THEN LET RPDATE$=FNMDYSAVE$(RPDATE$)<$'' $otherhead>> CONFLINKXA)$N' 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-$0-$###,###.0000=-###,###,##0.00k'$H-###,###,###.00I-######0A$td class="td" <>< nowrap>$ 'TRHILITE   1> G$J?V$(3/D$)< $
3$6E tmp/3PLPICKS_۩(Өө.xls%$K$,KO_CREATE,O_TRUNC6H$`|||J$``| 3^1000 "------------ main logic$ORDERID(3display/get the input params table$L $#u03x'0$LM

H3TEXT$=TEXT$+""$#$%$ Elapsed: ۩(
H  ccalamarie/$
۫F



 $`#( U3" create PROGRAM boxes D$UProgALL T$V $WWvar U = new CheckBoxGroup(); U.setControlBox("U Master"); U.setMasterBehavior("all"); L3LET STEXT$=STEXT$+BRANDGROUP$+".addToGroup("""+PROGGROUP$+"Master"");"+$0A$ 8@3T=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$\"] YE2^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$5'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC5=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L4E$65$7' error_email84(JBMAILTO798:;6<@ }$q
Order is not valid. Click and fix the problem(s).#(U 39000 OUTTA HERE#<$3TEXT$=TEXT$+"
"+DEBUG$+"
"#F $|&')U 3^1000 "------------ MAIN REPORT LOGIC' 3CAPTURE PICK TOTALS'$1X'&'&&1X'6Y @{f'&'.$wY'8'68$
3PLC ID: f NOT MAPPED IN JCUST YET!'B 3GOSUB 22000'`$A'j1'l'tL$@' 3HEADINGS'$ORERITEMID|SKU|Description|MU|LOCATION|QTY|Full Plt Qty|Pallet Picks|Eaches 1st|Eaches Sub|Pkg UOM|Pkg Qty|Carton 1st|Carton Subs'$$ө ,FUTURE'<$/ (*$
۫|C *0#3---- CAPTURE # OF MUS FOR EACH SKU*:&1* **D$@/@|*N $**0*3*1**$*3+\1J8+f J8+ @$$+$@.3CALC THE PICKS.$.$@1@(Ө@. @ /D3WAS <=.$@0@0.$@@/ /0/$/&//0# $@1@(/5 $/D; @@'$@1@@/3IF MUFIRST THEN IF POS(OR3PL.SKU$+"/"=MULIST$,1,0)>1 THEN LET OR3PL.PICKSPALLET$="1"; REM *** count the picks per DM ,OR3PL.PICKSFIRST$="",OR3PL.PICKSSUB$="",CFIRST=0,CSUB=0:$v: $v v ; $b@U@$G @ @ @1@1@1@1@1@1@1@1@1@1۩(1۩( @ $GBh 3TOTALLINGB$ML M#B% 106$M.B0$ܨ@ܨ@ܨ@C0$C:$ܨ@CD($CN$ܨ@CX$ܨ@FF*J83REPORT COMPLETEJ" 83ADDED 9/20/2021 RCCJ$G:
Totals 1۩(1۩(1۩( 1۩(1۩( $GL,$
LU3show pick summary for MSIL.$g/orders/?detail=BillingDetailsL! 3PLGETRECg<LM$kecho '2' | jq '.Billing.BillingCharges[].ChargeType' 2>&1UL 1mN PL&$L/$kecho ' ' | jq -c '' 2>&1LUMX! 3PLPUTRECg<mM:$MD$N8N 3--------- create new chargesNyN)$kecho '{}' | jq -c '' 2>&1OUOL:$m UPDATE TEMP DISABLED. SEE 19655. m P 8P!3-------- update existing chargesP($ܨ1mP2.$.Billing.BillingCharges[۩(].Px$ChargeType=1 |Pz'$ Subtotal=۩( |P|X$ Details[0].Pick Charge First PickMCartonRPX$ Details[1].Pick Charge SubsequentL CartonRPL$ Details[2]. Pallet OutM#PalletRQ8R3add detail chargeR($ NumUnits=۩( | R&($ ChargeLabel="" |R0-$UnitDescription="" | R:-$ChargePerUnit=۩( | RD#$GlAcctNum="4131" | Rb8U23---------- CALCULATE MSI PALLET/CARTON/EACH PICKSU-U $ PALLET PICKCARTON 1ST PICKCARTON SUBS PICK EACH 1ST PICKEACH SUBS PICKUJ $LK#KK#K2VG 1068$M.V K 15=$LLXL1LTL$V]$ Pick Type Qty Rate Charge V Vc$ ۩( ۩( ۩( ###,###.00 V$W*WO$ ۩( $ ###,###.00 W$
Yt$

Yy$mAPI Call to retrieve pick rates:
https://secure-wms.com/customers/15/manualrates?transactiontype=2

YYY8Y3---------- get rates from 3PLCY9$g /customers//manualrates?transactiontype=2Y+$hGET3PLCgGEThiY$q.XactionTypeRates[0] |.ChargeTypeRates[] | select(.ChargeType == 1) | .Rates[] | .ChargeLabel, .UnitDescription, .ChargePerUnit,"#"Z/$kecho 'h ' | jq -c 'q' 2>&1ZUZ<)$ ZAC$m CHARGE LABEL UNIT RATE "#" mZF$T 
۫ӫm"#" 
 
ZP $Z8u0.3--------- GET ORDERs DETAIL FOR A TRANSACTIONuD$g/orders/,?detail=All&ItemDetail=AllocationsWithDetailu3$hFILENAMEGET3PLCgGEThiu$l.ReadOnly.FullyAllocated,.ReadOnly.IsClosed,.ReadOnly.PickTicketPrintDate,.ReferenceNum,.PoNum,.EarliestShipDate,.TotalWeight,.ReadOnly.CustomerIdentifier.Id,.Notesu$qlrqUuB uӫl .ReadOnly$us" u$@u 3PLSKUGETuT LSKU:C(1*=124),FPQ:C(1*=124),PKGUOM:C(1*=124),PKGQTY:C(1*=124),DESC:C(1*=124)u$jv*$q .OrderItems[۩(j ].ReadOnlyv $rqU$isv i xvR$$l.OrderItemId,.FullyAllocatedvW lv\>$q| lrU$s" v$v&$q .Allocations[۩(]v$rU$sv  ww$l.ReceiveItemId,.Qty,.Detail.ItemTraits.ItemIdentifier.Sku,.Detail.ItemTraits.LotNumber,.Detail.ItemTraits.ExpirationDate, .Detail.ItemTraits.PalletIdentifier.NameKey.Name, .Detail.ItemTraits.LocationIdentifier.NameKey.Namew$ lw.>$| lrU$s" w $@w$@@@@w$@@@@w$@@w$@@@@@w$@@@w$@@w&$b@U$@@@@@@w Lw$vw3--- end of allocationsxP3----- end of cloopx$jjvx3----y8y#3------- create JSON to set chargesy":$.ReferenceNum |=۫@ | .Notes |=۫@y,L$|.Billing.BillingCharges += [].Billing.BillingCharges[0]y@.$| .ChargeType |=۫1yJ$$| .Details += []y|Q$Pick Charge FirstCarton.64131zyW$Pick Charge SubsequentCarton.324131zyK$ Pallet OutPallet3.54131zz8z3--- add next charge segmentz"$ .Details[۩(]z*$| .NumUnits |=۩(z.$| .ChargeLabel |=۫z2$| .UnitDescription |=۫z+$| .ChargePerUnit |=z,$| .GlAcctNum |=۫{  $@{$@@@{ $@@ި{*$@{> L{f8{p3--- add next detail segment|.8UV$m`=$n'WFDIR tmp/3plPICKS_۩(Өө.jsonj $ok > n 2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$p$,pn3^1001pB?m3^100pn8 U3--------$sA3LET J=UNT; OPEN (J)"&1"*3READ RECORD(J,SIZ=99999)JQOUT$; CLOSE (J)($kcat h | jq -c 'r' U$sm*89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$D: 8pt;`$2XNEW VERSION
$ reportparamK$2@
 K$AC $AJ$ RO3LET DOCUST$="17"; LET CUSTNOTE$="3PLC Account forced to '17' until production"WM$&#$ $p$dE$ &$' 9 :$) $B
OrderIDCEmptyCUpdate? 

z		 + $
8P btZ&$b|:C(1*=t),n8x]Âb"b"ô bþ$~$~b8(~] !$  $+$< width="۩(">8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ/$//Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8] $ ($ܨ8] $$$ө8&]D N# $OŞS$./X( P M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($P/// @Q $@Q@Qg$R@Q@S@TŔl$O R%Y%Mz%DzŔŀŞŔ $OŞ8Oţ]Ũ< // Ų bż$bb' 8b] U3----- GET THE SKU FROM ILIST$b8] ? #pH bW$bb$bb WAREHOUSEWHSEbb TRANSACTIONTRANSV$bbDETAILbb ITEMTRAITSbbNAMEKEY!$bb IDENTIFIERIDP$tb.,$tt,|tt|:C(1*),8tt]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$