<> <33PLINV1 - GET INVENTORY FOR A CUSTOMER -SAVE FOR PRORATING3+ " $$56o202105 $Xo@@( $b 5O$3CUSTID|INVDATE|MU|LOCATION|SKU|ITEMID|ONHAND|AVAIL| \09P@@$[3^1000 "------------ main logic$a 2021-05-314$%;/reportdefs/ssrs/StockStatus/runner?parameters=CustomerIDs:$~StartDate:1/1/2000~EndDate:a~FacilityIDs:1~utcOffset:-6H $Zstock3$&FILENAMEGET3PLC%GET&'$Zskurec 'd<0$- /usr/local/bin/3plfixreport1.sh &$c$,c&.tsv$Y 3loop through `y j/Aө3<  3done 3next page<3done#(@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#<$3TEXT$=TEXT$+"
"+DEBUG$+"
"#F $ C&u013--------- GET RECEIVERS DETAIL FOR A TRANSACTIONu293https://secure-wms.com/inventory/receivers/6639?detail=1u3,3https://secure-wms.com/orders/6523?detail=1uX8$< DELETE FROM ; WHERE TRANSID = '?';ubBMSSQL1SQLPROD.CHAMPLOG.COM WMSReportsDELETE<&ug7MYSQL1 10.1.1.28 wmsreportsDELETE<&u.$%/inventory/receivers/? ?detail=1u. E2!$%/orders/? ?detail=1u3$&FILENAMEGET3PLC%GET&'u$(v#$/.ReceiveItems[۩((]v. E2!$/ .OrderItems[۩((]v $0/U$'1v ' xvR:$*2.ItemIdentifier.Sku,.ItemIdentifier.Id,.Qty,.NotesvW 3*v\6$0/| *U$31" w$3w)$@SEw.$@Iw $@F@A@G@@@K@L@T@Uw" 4 D$4D@B?@w7 ө@K|J$JJ۩@K|xP3----- end of cloopx$((vx3----y8y#3---------- get ITEMID and store ity6$; EOMSKUINVny|3(0$ddF۩(( :C(1*=09),*(y 3ddy$(z<;$M3PEREND,MU,SKU,ITEMID,CUSTID,INVDATE,LOCATION,ONHANDz? NMzD;1c|e ezD$3e, zI Custome@fzDz$l@kSKU#:z$llSKU#l{ 3{f$@m202105{k1$j@h Loc: j$jj{p $@Ol@Pl@]j@^@g{z$@Q${|$@` %Y%Mz%Dz{$@_@i{ 4 N$4N@|83----- end of cloop|BzD|3----|8U V$+`=$,'WFDIRtmp/Z_۩(Өө.jsonj $-) > , 2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$.$,.,3^1001.B?+3^100.n8 U3--------$1A3LET J=UNT; OPEN (J)"&1"*3READ RECORD(J,SIZ=99999)JQOUT$; CLOSE (J)($)cat & | jq -c '0' U $1+*8@/340000 " TURN TEMPLATED VAR INTO COLUMNS VALUESJ&$ 45,T/ 6N[۩(5]:c(32*)$6 4^$*7h 5r$> 4@8|O$9' >/$9V4@8(Өө4@8A$**@8,779۫ө4@89,*~$: ; EOMSKUINVn\$: DELETE FROM ; WHERE PEREND = 'o' AND CUSTID = '$'; $nX$< INSERT INTO ; (** ) VALUES (77); $W:<1MYSQL1 10.1.1.28 wmsreports=WV#$< H V 8P #2Z&$#|:C(1*=2),n8x]ô #þ$R$R#8(R] !$  $+$< 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#] #$$##AllocbAlloc| $##"b"|*$##b 4$##|b>3 #W$##$## WAREHOUSEWHSE## TRANSACTIONTRANSP$2#.,$22,|22|:C(1*),822]  *)$"Ө4$ "%Ml %YH8R]˄  #ˎ,$##"##'˘$##\ˢ8#ˬ] 5$ӨM$$ %Y%MzӨ  $ %Y%Mz%Dz8 ]`3SCAN THRU CUSTOMER (Z/STARTING CUST ID: ((3PLINV1((<*(FTPLCGI TDELEMENTYYY1YYY2YYYYYCYYSYYZYYYVTEXTYYY1YYY2YYYDOYEAR ERRMESSAGE LASTERRORXLFILESENDTOSUBJECTCCTOMESSAGE SIGNATURERESULTDEBUGYYMDYMDY.YJMDYMDY.MMDY.DFFFGGGYJULZZZDOCUSTURIOUT1OUT2I MYSCALL1COLSOUT3OUTFILEACRFILTER DOFILTERJQOUTZZZ1RROWVIFCOUNTFLISTVALS FLIST.NQTDSQLSTABLESQLFUNCFTYPEDOTID RROW.QTY RROW.ITEMIDENTIFIERSKU VI.TRANSIDXIDLIST CH3PLSKUDOTTYPE CH3PLSKU.SKU CH3PLSKU.QTYSQLOUT1 CH3PLSKU.PERENDSKULIST CH3PLSKU.ITEMID RROW.ITEMIDENTIFIERIDCOLS2S S.ITEMID S.SKU S.CUSTIDZZZ CH3PLSKU.WHSETRANSTYPE CH3PLSKU.NOTES RROW.NOTESSQLOUT2DOSQLILISTRLIST FILTERNAMEDOPAGE CH3PLINV S.LOCATION S.MU S.ONHAND S.INVDATEDATE2EOLTSVFILERROWTRR RROW.F1 RROW.F29 RROW.F24 RROW.F25LOC RROW.F5SKU S.PERENDDOFIRSTPERENDCW1EMPTYBRD1XLCSZCGIVALSUB OUTTAHEREY2MMDYSAVEPERENDSUBJDOSCALLGETJSONTPLLASTDAYOFMONTHCLEANTPLMAKEINTFIXACATIONIDNAMEKEYNAME S.MU RROW.PALLETIDNAMEKEYNAME S.ONHAND RROW.ONHAND S.INVDATE RROW.RECEIVEITEMID S.RECITEMID VI.RECITEMIDDATE2EOLTSVFILERROWTCW1EMPTYBRD1XLCSZCGIVALSUB OUTTAHEREY2MMDYSAVEPERENDSUBJDOSCALLGETJSONTPLLASTDAYOFMONTHCLEANTPLMAKEINTFIXEMPTYBRD1XLCSZCGIVALSUB OUTTAHEREY2MNOWRAPMDYSAVEPERENDSUBJDOSCALLSPANGETJSONTPLLASTDAYOFMONTHCLEANTPLMAKEINTTPLLASTDAYOFMONTHCLEANTPLMAKEINT?SPANGETJSONTPLLASTDAYOFMONTHCLEANTPLMAKEINT}