<>$`! ~ ?33PLPUTLAB - CALLED ACCESS PUT LABEL CHARGE ON FLOTRANS ORDER @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 UPDATES3@@ $ 9#3ORD=91 ATL =95 SANDBOX=105$ aYb($bP@@,3.3- retrieve list of open orders for a customer4o$"c/orders?pgsiz=100&pgnum=1&detail=none&rql=readonly.IsClosed==false;readonly.CustomerIdentifier.id==aH! 3PLGETREC"HIJT$$echo 'H9' | jq '.ResourceList[] | .ReadOnly.OrderId , .NumUnits1'U$[&'$Z [ Z T * ]f1:c(1*),f2:c(1*)$][Z $5@^[[Z $_$_@`  $%$\OrderID=5 Qty:۩(_ . _ ~3skip updatee `' ~$bb۩A\N  T3-------------- DONE WITH LIST @3T=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$" YE2^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# LE$$' error_email(JBMAILTO@ }$ q
Order is not valid. Click and fix the problem(s).#(U39000 OUTTA HERE&')U 3^1000 "------------ MAIN REPORT LOGICJ8#3--- SCAN THRU ORDER LINES COMPLETEL.$"/orders/5?detail=BillingDetailsL! 3PLGETREC"HIJL$VHL$No update neededL$XLY$$echo 'H ' | jq '.Billing.BillingCharges[۩(X].ChargeType' 2>&1UL6 6&"$XXMl3materials existsL error&$&L 1&N PL/$$echo 'H ' | jq -c 'K' 2>&1LUMX! 3PLPUTREC"&IJMl$\\ : M3N8N 3--------- create new chargesNyN)$$echo '{}' | jq -c '9' 2>&1OUOL$K9P 8P!3-------- update existing chargesP($LXP2.$M.Billing.BillingCharges[۩(L].Px$KKMChargeType=1 |Pz+$KKM Subtotal=۩(GT |P|b$NM Details[1].OUPPick Charge - CartonQERCartonW4131RP3 LET BCD$=BC$+"Details[1].",NUMUNITS=PS,CHARGELABEL$="Pick Charge Subsequent",CHARGERATE=PSRATE,UNITDESC$="Carton"; GOSUB 21000PX$NM Details[2].O8P Pallet OutQFRPalletW4131RP63do not have to update order proc bec it never changesP&$KKKKKQ8R3add detail chargeR($KKN NumUnits=۩(O | R&($KKN ChargeLabel="P" |R0-$KKNUnitDescription="R" | R:-$KKNChargePerUnit=۩(Q | RD'$KKN GlAcctNum="W" | Rb8u0.3--------- GET ORDERs DETAIL FOR A TRANSACTIONy#3------- create JSON to set chargesy"$9y,V$99.Billing.BillingCharges += []:.Billing.BillingCharges[۩(X]y@.$99| :.ChargeType |=۫6yB.$99| : .Subtotal |=۩(_YyJ$$99| :.Details += []y|I$;<_=Labeling>Label?(Y@4141zz8z3--- add next charge segmentz"$A: .Details[۩(;]z*$99| A .NumUnits |=۩(z+$99| A.ChargePerUnit |=?z,$99| A .GlAcctNum |=۫@{f8{p3--- add next detail segment|.8UV$&`=$''WFDIR tmp/3plPICKS_۩(Өө.jsonj $($ > ' 2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$)$,)'3^1001)B?&3^100)n8 U3--------$+A3LET J=UNT; OPEN (J)"&1"*3READ RECORD(J,SIZ=99999)JQOUT$; CLOSE (J)($$cat # | jq -c '*' U$+&*8@/340000 " TURN TEMPLATED VAR INTO COLUMNS VALUESJ&$ -.,T/ /N[۩(.]:c(32*)$/ -^$%0h .r$3 -@1|O$2' 3/$2V-@1(Өө-@1A$%%@1,002۫ө-@12,*8P !,Z&$!|:C(1*=,),n8x]Â!"!"ô !þ$4$4!8(4] !$  $+$< 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$@@@Ŕl$ %Y%Mz%DzŔŀŞŔ $Ş8ţ]Ũ< // Ų !ż$!!' 8!] U3----- GET THE SKU FROM ILIST$!6768] ? #pH  !W$!!$!! WAREHOUSEWHSE!! TRANSACTIONTRANSV$!!DETAIL!! ITEMTRAITS!!NAMEKEY!$!! IDENTIFIERIDP$,!.,$,,,|,,|:C(1*),8,,]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$ǜ^$ ǜǰn$
SHOWING  B$ Excel ǰ`$ f$ONCLICK ?$ )" @$ө'thcolor $#FFFFFFc$