<>÷n 73LOCSPULL - PULL LOCATIONS FROM 3PLC TO TSS ZZ3PLC 3created from SHOPGET0 (2$д.Пф<$еDПяZZ3PLCF$дWП╗$С,сдWШяJITEMn@Ж@═s$е8Пяk
"$е,Пя,0дПфЧфС$е,Пе,шяFш╘(сдШшя:c(1*),С*д6$е,Пе,сфР╗се,ШщфШч$еПяFILENAMEl$д9Пф─я CLEARBALCРеDп3get all items from 3PLCу3з[$еПя(/inventory/facilities/1/locations?pgnum=ш╘(сд9ШСяGET3PLCРеРяРяGETРе6Ре78$е0Пя'.ResourceList[ш╘(сфШшя]'СяJQ1Ре6Ре0Ре:! ╗сяnullАе:ШАфЩЙ Ж═С3doneЭ3╦3$д/Пф0╒$е0Пя'.ResourceList[ш╘(сд/Шшя] |.LocationIdentifier.NameKey.Name, .ItemTraits.ItemIdentifier.Sku, .CustomerIdentifier.Name, .OnHand, .CustomerIdentifier.Id':яJQ1Ре6Ре0РеS еАяЩЙ$еПр X е4Ве,С$е4П╚─сеРя"РяШb е@5АяnullЩЙЖ<l ╗се@;╠Ж HШАфЩЙЖ Hv#$еEПеEш╚─се4Рр Ря,Шшя
─3DO THE ADJUSTMENT■9 ╗сяTESTА╘се@AРфШШЛ╗сяSANDBOXА╘се@AРфШШЩЙЖ ╒Д2$е<ПяOTHERС ╗сяRevellАе@AШЩЙ$е<ПяREVELLФ$ ╗сяSaversАе@AШЩЙ$е<ПяSAVERSГ>$е<Пе@Fшя-ше@AРе<П╘Aсе<РфШРеGПя3PLC - ше@Fшя - ше@AИ$Ж*ЬС3WRITE ITEM IF IT DOESN'T EXISTН0$е=П╘ сфВя %Yz%Mz%DzШРе>П╚─ се@5ШРе?П╘сф ШЬ$д@П╗се@;ШЩ$еBП╘AсяJ1ZZ3PLCше<РфШ 5яADJITEMРеBсфРфШРе=РеBсф РфШРе?Ре>Рд@Ре@C H3done with row ╒$д/Пд/эфСЖ0<3get next pageF$д9Пд9эф√Жу═!3------------ done with all pages╙$$е ПяUpdate complete!

шеEЗ@3errorJ=$е%Пяerror ш╘(с╗Шшя at line ш╘(с╗"сфШШшя in ш╘#сзфШєEС2#(3#<($д$П╗$С,сд$ШеС1Зсд$╦хLK?ШеСсд$Ш#Fё$е Пе шя>

RAW RESULTS

#P$е Пе ш╚─сяУ||Ря|Рр Шшя#ZЖ6╟С3show paths#▄&╛С3done'310000 "functions'3string$, token$, delimiter$'$╚─сеРеРеРдШ'.$еПя'8'$дП╗сеАеРфРдШС дАфЩЙЖ'V'B&$еПесдэ╗сеШШС$дП╗сеАеШ'L дЩЙ$еПесфРдщфШ'V8╘сеРфШ'`]'j ╚─сеШ't>$дП╗ся АеШРдП╗ся-АеШС дДфКдЦдЩЙ$дПд'~ дЩЙ$еПесфРдщфШ'┬a$еП╘сеРфШС3IF LEN(Y1$) THEN IF Y1$(LEN(Y1$))="." THEN LET Y1$=Y1$(1,LEN(Y1$)-1); GOTO 10122'▓8╘сеРфШ'°]'ь╚─сеРдРеШ'Б;$дП╗ся"шешя":АеРфРдШС дАфЩЙ $еПяСЖ(═'Л $еПесдШ'Я$еПес╗сеШэфШ'Ж$дП╗ся},АеШ( дЩЙ$еПесфРдщфШ($еП╘с╘сеРфШРфШ(═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е)г]*Ь+3^1000 "CREATE NEW JITEM RECORD FOR THE SKU+3------ check if on whse file+$еHПяA3 РеHПеHсфРфШ+$еIПяJ1ZZ3PLCше<+*$еJП╘AсеGРфШ+4$дKПфС$дKПф+>0$еLПяNРеMПя000РдNПфРдOПфРдPПфРдQПф+C$дPПфРдQПф+H@$еRПя1РеSПяРдTПфРеUПяNРеVПя шеHсфРфШ+ReLсдW╣еI╞Ж+WШеIРеJРеLРеMРдKРдXРдNРдOРдPРдQРеRРеSРдYРдTРеUРдZРд[Рд\Рд]Рд^РеVРд_+\82хU─ 36$е)Пя3@<$е'П╘'сяWFDIRШшяtmp/3plget0_ш╘(с╗с╘сфРфШШШшя.json3J $д(П╗се&шя > ше'шя 2>&1Ш3T(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)3^$дП╗$С,сдШе'3░3^1003 1Зсд╦хB?Ше)3Т3^1003ЧсдШ4N86╟&3"get all paths from the json in out2$6д*$е&Пя/usr/local/bin/jq_getpaths.sh ше6нЖ2х6ь1$е Пе ше-шя
7 8@3------ LINK TO STOCKDETAILS@[Г е@1АяNAB001ЩЙу$е2Пя[ASN@н8°JцЄ ╚─ се*Шц╧! ╗ся-Ае*ШАфЩЙ $е*Пя0ше*цЎ$е*П╚─се*Ря-РяШцх ╗се*ШДфЩЙ$е*Пе*сфРфШцр! ╗се*ШЦфЩЙ$е*Пя ше*СЖцрцэ8е*цФ]дЮ ╚─се*ШдЙ1$е+П╚─се*Ря .РяШРе+П╚─се+Ря.Ря
ШдЛ$е+П╚─се+Ря_Ря
ШдО$е+П╚─се+Ря,Ре#ШдТ8е+дЧ]е╚─сеРеРеШе $дП╗сеАеШС дАфЩЙЖее($еПесфРдщфШшешесдэ╗сеШШеЖее8ее]е ╚─ сеШе$$е!ПяС$е!П╘с╘се"Ре╠ЖеШРфШе8е!е&]хd ╙─сеШхi4$дПзфС ╗с╘сеРфШШБфЩЙЖхЄТ$дП╗се╠ЖхЄШхn>$дПзфС$дП╗с╗сесфРфШШР╗сесфРфШШР╗сесфРфШШШхЄ8дхЎ]к ╚─сеРеРеШк* $дП╗сеАеШС дАфЩЙЖкzк4$дП╗ся($еПесфРдэ╗сеШщфШшешесдШкz8ек]о╚─сеРеРеРеШо$еПяо $дП╗сеАеШС дАфЩЙЖоbо&$дП╗сеАесфРдШРзфШо0$еПесдШРдП╗сеАеШо: дЩЙ$еПесфРдШоb8еоg]рП ╚─се*ШрЗ$е*П╚─се*Ря?Ря%3fШс$е*П╚─се*Ря&Ря%26Шс@8е*сJ]ЪЪY1Y2Y3Y0PY1Y2YYYYYZ1TPLZ2Z1FCOUNTFLISTFLOOPFINFO FLIST.NTLEN FINFO.LLYYY1YYY2YYYYYTAGYYVALYY1YYY0YYY1OUT1OUT2CIURITEXTYYYVCGITDDCJERRMESSAGE MYSCALL1OUTFILEAOUT3ZZZZZTPLMYSCALLPAGEJROWJFILTER JBLHD.CUSTNABLINKJBLHDP P.F1WMS1WMS2 CLOSEGRELOADPGNUMTEST1 P.F4DOITEMADATELOCLOTQTY P.F3 CUSTITEM P.F2WFCUSTDEBUG P.F5DODESCFRECODEA5B5C5C5D5E5F5G5H5F5G5J5H5I5JITEMD5I5K5L5M5N5O5Q5┌GETX┌SUB┌F┌I1┌FILLX│COUNTELEMENTS│D8TOJ┌SETX┌GETG┌CGIVAL─DOSCALL┌COLHEAD┌URI┌TSSLOCazя-АеШС дДфКдЦдЩЙ$дПд'~ дЩЙ$еПесфРдщфШ'┬a$еП╘сеРфШС3IF LEN(Y1$) THEN IF Y1$(LEN(Y1$))="." THEN LET Y1$=Y1$(1,LEN(Y1$)-1); GOTO 10122'▓8╘сеРфШ'°]'ь╚─сеРдРеШ'Б;$дП╗ся"шешя":АеРфРдШС дАфЩЙ $еПяСЖ(═'Л $еПесдШ'Я$еПес╗сеШэфШ'Ж$дП╗ся},АеШ( дЩЙ$еПесфРдщфШ($еП╘с╘сеРфШРфШ(═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е)г]2хU─ 36$е.Пя3@<$е,П╘'сяWFDIRШшяtmp/3plget0_ш╘(с╗с╘сфРфШШШшя.json3J $д-П╗се+шя > ше,шя 2>&1Ш3T(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)3^$дП╗$С,сдШе,3░3^1003 1Зсд╦хB?Ше.3Т3^1003ЧсдШ4N86╟&3"get all paths from the json in out2$6д*$е+Пя/usr/local/bin/jq_getpaths.sh ше6нЖ2х6ь1$е Пе ше3шя
7 8@3------ LINK TO STOCKDETAILS@[Г е@8АяNAB001ЩЙу$е9Пя[ASN@н8°JдЮ ╚─се/ШдЙ1$е0П╚─се/Ря .РяШРе0П╚─се0Ря.Ря
ШдЛ$е0П╚─се0Ря_Ря
ШдО$е0П╚─се0Ря,Ре'ШдТ8е0дЧ]е╚─сеРеРеШе $дП╗сеАеШС дАфЩЙЖее($еПесфРдщфШшешесдэ╗сеШШеЖее8ее]е ╚─ сеШе$$е!ПяС$е!П╘с╘се"Ре╠ЖеШРфШе8е!е&]хd ╙─сеШхi4$дПзфС ╗с╘сеРфШШБфЩЙЖхЄТ$дП╗се╠ЖхЄШхn>$дПзфС$дП╗с╗сесфРфШШР╗сесфРфШШР╗сесфРфШШШхЄ8дхЎ]к ╚─сеРеРеШк* $дП╗сеАеШС дАфЩЙЖкzк4$дП╗ся($еПесфРдэ╗сеШщфШшешесдШкz8ек]о╚─сеРеРеРеШо$еПяо $дП╗сеАеШС дАфЩЙЖоbо&$дП╗сеАесфРдШРзфШо0$еПесдШРдП╗сеАеШо: дЩЙ$еПесфРдШоb8еоg]рП ╚─се/ШрЗ$е/П╚─се/Ря?Ря%3fШс$е/П╚─се/Ря&Ря%26Шс@8е/сJ]ЪЪY1Y2Y3Y0PY1Y2YYYYYZ1TPLZ2Z1FCOUNTFLISTFLOOPFINFO FLIST.NTLEN FINFO.LLYYY1YYY2YYYYYTAGYYVALYY1YYY0YYY1OUT1OUT2CIURITEXTYYYVCGICOLSTDDTROTRTDDCJERRMESSAGETD MYSCALL1OUTFILEAOUT3ZZZZZTPLCOLS2MYSCALLPAGEJROWJFILTEROUT33 JBLHD.CUSTNABLINKJBLHDVROWVROWPROWPV V.F1 P.F1 V.F3WMS1WMS2WROWW W.F1ITEMIDLISTINV1INV2IROWIROWI I.F1 I.F4 SHOPLINK SHOPLINKVIMGWMSLINKSHOWINVITEMIDAPISHOWTEXT1 CGI.ITEMIDTEXT2WROWTEXT3TEXT3AVIDSHOPNUMSHOPRECWMSRECRESULTWMSID CLOSEGRELOADWMS1A W.F3┌GETX┌SUB┌F┌I1┌FILLX│COUNTELEMENTS│D8TOJ┌SETX┌GETG┌CGIVAL─DOSCALL┌COLHEAD┌URI∙ЖW.F3┌GETX┌SUB┌F┌I1┌FILLX│COUNTELEMENTS│D8TOJ┌SETX┌GETG┌CGIVAL─DOSCALL┌COLHEAD┌URIмЄD CLOSEGRELOADWMS1A W.F3┌GETX┌SUB┌F┌I1┌FILLX│COUNTELEMENTS│D8TOJ┌SETX┌GETG┌CGIVAL─DOSCALL┌COLHEAD┌URIх─URI,CRESULTWMSID CLOSEGRELOADWMS1AWMS2A W.F3┌GETX┌SUB┌F┌I1┌FILLX│COUNTELEMENTS│D8TOJ┌SETX┌GETG┌CGIVAL─DOSCALL┌COLHEAD┌URI└