<>;0l 53SHOPDOG1 - RETRIEVE ORDER FROM SHOPIFY PUSH TO 3PLC3CALL "CRONSYS"(a678"*-$5a3KEEP ANY CHANGES LOCAL TO THIS PROG<U$@$A@%SHOPORDS,@%.tpl1@'@,@% B'F&$I/u/whp/tss/docs/3plcorder.jsonZ@@%3SEND THE REQUEST AND PROCESS RESULTS0 SHOPID:5$55@?5`L1AA5B4*$9/admin/orders/۩@?.jsonH"GETSHOP9GET:;\$<=a$>'.X.first_name,.X.address1,.order.phone,.order.email,.X.city,.X.zip,.X.address2,.X.company,.X.name,.X.province_code,.X.country_code'bH$D@fname,add1,phone,email,city,zip,add2,company,name,state,country,c,$>>Xorder.shipping_addressfJQ1:>Ck5$FD,:c(1*), EFFl$EC" 1$>'.order.line_items[]'JQ1:>Gi$>M'.order.fulfillments[] | .tracking_company,.shipment_status,.tracking_number'JQ1:>H@ Yf1:c(1*),f2:c(1*),f3:c(1*)$YH " (3-------- format and push the WMS Order ($@$,@I1@J@ $$N.referenceNum |= "5" &#$NN | .poNum |= "@?" 00$NN | .shipTo.companyName |= "@O" 2)$NN | .shipTo.name |= "@P" 4-$NN | .shipTo.address1 |= "@Q" 6-$NN | .shipTo.address2 |= "@R" 8)$NN | .shipTo.city |= "@S" :*$NN | .shipTo.state |= "@T" <($NN | .shipTo.zip |= "@U" >0$NN | .shipTo.phoneNumber |= "@V" @1$NN | .shipTo.emailAddress |= "@W" B,$NN | .shipTo.country |= "@X" 1$NN | .routingInfo.carrier |= "@Z" 23LET JSET$=JSET$+" | .routingInfo.account |= """"" 8$NN# | .routingInfo.trackingNumber |= "@[" 4&$>'N'JQ1J>K H4$>'del (.orderitems[0,1])'JQ1K>\ R$<$K\\ \C$>'.order.line_items[۩(<] | .title, .quantity, .sku' fJQ1:>^ p9 Ef1:c(1*),f2:c(1*),f3:c(1*)$E^" z @_null 9$]1{'itemIdentifier': {'sku': '[SKU]'},'qty': [QTY]} 4$]][SKU]@_]][QTY]@` $]]'" #$>'.orderitems += []]' $$JKKJQ1J>K$<< \ 3lines done$9/orders#GET3PLC9KPOSTLM$6:8Lf#(p 3---------------- DO THE UPDATESK$:curl -k -s -S -X GET -H 'Content-type: application/json' ''#$ /u/tmp/json۩#.log $ >  2>&1 $##'+$echo -e "\n\n" >>  2>&1 $$$,3------ TRY IT AS READRECORD1 , $ [,",/ LEN X$ = N8@3T=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2 l$ next#( 3OUTTA HERE&'310000 "functions'3string$, token$, delimiter$'$ '.$ '8 $  'V'B&$ ܨ $  'L $  'V 8 '`]'j  't>$ - $'~ $ 'a$  3IF LEN(Y1$) THEN IF Y1$(LEN(Y1$))="." THEN LET Y1$=Y1$(1,LEN(Y1$)-1); GOTO 10122' 8 ']' '0$] $ ''+$[ $-' 8']'  '3$< >  $('i$ $ D$ '3this check if we need the next seq of the element'$Ө '$( $($ө(8(])`3---- this function loads a template with fields names that macth the xml fragment that is sent) )  ) !$3SET TO UPPERCASE)$ө ,)/ N[۩(]:c(32*)$ )" ),$ @@)6"V@@)^*)8)]@43-------------- BATCH FIX MISMATCH STATUS IN PROCESS`S$$$%PRPLAN&$,$%.tpl1$'$,$% ('1&( @)I /@* @+l-EPOSPUT1@* in_process@+ ,G$ .$ܨ $ ($ܨB$ ($8]d i4$ өȴ$ȴn>$$Өȴ8Ⱦ]  * $ z4$!($ܨ !z8] -./ $0--1$1"."-/ 100$0-1$1:0$0011o$2[0 22K$00]000[00],D2>$3,04}0 433$344/ "03$3"0:$003D%$0000"80] RESTSERVICEXALOGFA POSTRESULTSLOGFR ERRMESSAGEY1Y2Y3Y0PY1Y2YYYYYYYYZ1TPLZ2Z1FCOUNTFLISTFLOOPFINFO FLIST.NTLEN FINFO.LLYYY1YYY2YYTAGYYVALYY1RESULT1TIM2FFPRPLANTPLPRPLAN PRPLAN.STATUS PRPLAN.OID PRPLAN.BOLKEYRESZZZZZ1ZZ1ZZZZARRAYZ1Z2SHOPNUMSHOPREC WMSORDERIDWMSRECURIOUT1OUT2JROWREFSJFILTER SHOPORDS.IDC SHOPORDS SHOPORDSOUT3TPL1ARECATPLALINESFLINESWMSJSONJSONJSON1POST1POST2JSET AREC.COMPANY AREC.NAME AREC.ADD1 AREC.ADD2 AREC.CITY AREC.STATE AREC.ZIP AREC.PHONE AREC.EMAIL AREC.COUNTRYFREC FREC.F1 FREC.F3JSON2OLINEASKU AREC.F3 AREC.F2 SHOPNUMREFGETXFI1SKUFILLXCOUNTELEMENTSSUBD8TOJSETXX,