<>MD  /33PLPICKR - ACCESS THE 3PLC ORDER DETAILS API @3******* SEE 63000 IF CHARGES MISSING/WRONG IN AX SCREEN VS 3PLC3@@*$z$,z {,R$$JCUSTa,.tpl1, b-R$$CCSMSc,.tpl1, d/S$$TSS3PL,.tpl1, 4R$$OR3PL,.tpl1, 5$jORDERID|ISCLOSED|CUSTID|SKU|DESC|PALLETQTY|LOT|EXPIRATION|LOCATION|MU|QTY|PALLETPICKS|FIRSTPICKS|SUBPICKS| 099R$TMETA$,.tpl1, :[3CALL "GETTMETA","RPDATE"+A1$,RPDATE$; IF LEN(RPDATE$) THEN LET RPDATE$=FNMDYSAVE$(RPDATE$)<$'' $otherhead>> CONFLINKXA)$R' 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'$I-###,###,###.00J-######0A$td class="td" <>< nowrap>$ 'TRHILITE   1> G$K?V$(3/D$)< $
3$6E tmp/3PLPICKS_۩(Өө.xls%$L$,LO_CREATE,O_TRUNC6H$|||J$| 3^1000 "------------ main logic$ORDERID(3display/get the input params table$M $#u03x'0$MN

H3TEXT$=TEXT$+""$#$%$ Elapsed: ۩(
H  ccalamari/$
۫G



 $#( U3" create PROGRAM boxes D$YProgALL T$Z $[[var Y = new CheckBoxGroup(); Y.setControlBox("Y Master"); Y.setMasterBehavior("all"); L3LET STEXT$=STEXT$+BRANDGROUP$+".addToGroup("""+PROGGROUP$+"Master"");"+$0A$ 8)U3^1000 ------ HANDLE THE CREATE OF XLS,$$

Create XLS of a Cust/Period

3$F@_$ Cust/Period: F
 1F$@h@@)$6E tmp/AXINV_۩F.xls%$L$,LO_CREATE,O_TRUNC6h9$ Customer: @ Period: @
 3get details\LL `Lp@$N Excel Version $N$ utsub.wbb`  
G$

`~#(@3T=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$e"f 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'$1a'&'&&1a'6b @'&'.$b'8'68$
3PLC ID:  NOT MAPPED IN JCUST YET!'B 3GOSUB 22000'`$A'j1µ'l'tL$@
' 3HEADINGS'$$ө ,FUTURE'<$/ '!$, ('#$')$:C'($ *3+\1°J8+f J8.3CALC THE PICKS.$@1@(Ө@/D- @@$@1@@:$: $  @$H ۫ 1 @ $HBh 3TOTALLINGB0$ܨ@ܨ@ܨ@FF*J83REPORT COMPLETEJ$H5
TOTALS1۩(1۩(1۩( $HL,$
L.$/orders/?detail=BillingDetailsL! 3PLGETREC<L,$echo '' | jq '.Billing' 2>&1L$LULL3SKIP GOSUB 31000L)$echo '{}' | jq -c '' 2>&1LUL23ALL "3PLPUTREC",URI$,RESULT$,OUT3$,HEADERS$,ETAG$L:$LD$N8N 93^1000 "------ handle the subtotals and grandtotals linesR#3^1000 --- javascript date handlingRV$O # R$OO R&$Q' $otherheadR0R0$R' $otherheadQOR:8u0.3--------- GET ORDERs DETAIL FOR A TRANSACTIONuD$/orders?rql=readonly.processDate=gt=2021-05-24T01:01:00;readonly.processDate=lt=2021-05-26T23:59:59;readonly.CustomerIdentifier.Id==73&detail=All&ItemDetail=AllocationsWithDetailuN3$FILENAMEGET3PLCGETu*$.ResourceList[0]3,; GOSUB GETJSONu$.ReadOnly.FullyAllocated,.ReadOnly.IsClosed,.ReadOnly.PickTicketPrintDate,.ReferenceNum,.PoNum,.EarliestShipDate,.TotalWeight,.ReadOnly.CustomerIdentifier.Id,.Notesu$|UuB ӫ .ReadOnly$" u$@u 3PLSKUGETu# SKU:C(1*=124),FPQ:C(1*=124)u$v*$ .OrderItems[۩( ].ReadOnlyv $|U$v  xvR$$.OrderItemId,.FullyAllocatedvW v\G$|| U$" v$v&$ .Allocations[۩(]v$U$v  ww$.ReceiveItemId,.Qty,.Detail.ItemTraits.ItemIdentifier.Sku,.Detail.ItemTraits.LotNumber,.Detail.ItemTraits.ExpirationDate, .Detail.ItemTraits.PalletIdentifier.NameKey.Name, .Detail.ItemTraits.LocationIdentifier.NameKey.Namew$ w.>$| U$" w $@w$@@@@w$@@@@w$@@w$@@@@@w$@@@w$@@w $@@w Lw$vw3--- end of allocationsxP3----- end of cloopx$vx3----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 |=۫ {f8{p3--- add next detail segment|.8UV$`=$'WFDIR tmp/3plPICKS_۩(Өө.jsonj $ >  2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$$,3^1001B?3^100n8 U3--------$A3LET J=UNT; OPEN (J)"&1"*3READ RECORD(J,SIZ=99999)JQOUT$; CLOSE (J)($cat | jq -c '' U$*8)U3GET THE CUST/PERIOD TOTALS FROM AXSUM$`E$`` Invoice Customer Period Brand Service Description )    Rate    '   Qty    *   Charge    GL Code1 Source AX GL AX Dim 1 AX Dim 2 1j@h& 1@h$]\^'1j<k @l@m@h<&1aJ1@hb0 $^^:& @uOA$]]@oND @nS $\\@ol @q@r@o$@s$`` @ @h  @t @u @v @s @w ۩(@o-$###,###,###.00 @p @n ><3doneF$``
 8U3GET SUMMARY BILL TOTAL$yg 1zy#$x}~&1z${ { y$h $xx@|# OP@$}}@|0# SH@$~~@|05 AC@@J $~~@|0# AC@$@|0 $@|\$3DONE~8337000\%3create SENDTO$ from ALERTEMAILS file3variable= ALERTEMAILS.ELIST$)$7chuck.calamari@gmail.com T  ccalamari8$77,,smichalowski@champlog.com, ar@champlog.com %$ө@i,  $ $  #$$$77,8@/340000 " TURN TEMPLATED VAR INTO COLUMNS VALUESJ&$ ,T/ N[۩(]:c(32*)$ ^$h r$ @|O$' /$V@(Өө@A$@,۫ө@,* CH3PLq$ DELETE FROM  WHERE TRANSID = '۩@' AND WHSETRANSPRICECALCID = '۩@'; V SKUINFOC$ DELETE FROM  WHERE ITEMID = '۩@'; X$ INSERT INTO  ( ) VALUES ();>$MYSQL1 10.1.1.28 wmsreports#$GG   $89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$D: 8pt;$ reportparamK$2@
 K$AC $AJ$ RO3LET DOCUST$="17"; LET CUSTNOTE$="3PLC Account forced to '17' until production"WM$&#$ $p$dE$ &$' 9 :$) $B
OrderIDCEmptyCUpdate? 

		 + $
8P Z&$|:C(1*=),n8x]Â ""ô þ$$8(] !$  $+$< width="۩(">8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ/$//Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8] $ ($ܨ8] $$$ө8&]D N# $SŞS$./X( T M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($T/// @U $@U@Ug$V@U@W@XŔl$S V%Y%Mz%DzŔŀŞŔ $SŞ8Sţ]Ũ< // Ų ż$' 8] $$@8] ? #pH W$$ WAREHOUSEWHSE TRANSACTIONTRANSV$DETAIL ITEMTRAITSNAMEKEY!$ IDENTIFIERIDP$.,$,||:C(1*),8]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$