From 64c7be2587b70f1dd8ed9102ed624ba9375c68a9 Mon Sep 17 00:00:00 2001 From: pt Date: Fri, 13 Mar 2020 17:31:48 -0400 Subject: [PATCH] finalize to get 1.5 done --- build.frm | 9 +++-- build.frx | Bin 3096 -> 3096 bytes changes.frm | 2 - changes.frx | Bin 3096 -> 3096 bytes fpvt.frm | 112 +++++++++++++++++++++++++++++++++++++++++++++++++++- fpvt.frx | Bin 22552 -> 24088 bytes openf.frx | Bin 3096 -> 3096 bytes part.frx | Bin 2584 -> 2584 bytes 8 files changed, 116 insertions(+), 7 deletions(-) diff --git a/build.frm b/build.frm index b9a4869..30ee2db 100644 --- a/build.frm +++ b/build.frm @@ -67,9 +67,12 @@ Private Sub UserForm_Activate() cbBill.value = bill cbShip.value = ship - cbPart.list = Application.transpose(Worksheets("mdata").Range("A2:A26267")) - cbBill.list = Application.transpose(Worksheets("mdata").Range("D2:D14295")) - cbShip.list = Application.transpose(Worksheets("mdata").Range("D2:D14295")) + cbPart.list = Application.transpose(Worksheets("mdata").Range("A2:A2").CurrentRegion) + 'cbPart.list(1).Remove + cbBill.list = Application.transpose(Worksheets("mdata").Range("D2:D2").CurrentRegion) + 'cbPart.list(1).Remove + cbShip.list = Application.transpose(Worksheets("mdata").Range("D2:D2").CurrentRegion) + 'cbPart.list(1).Remove End Sub diff --git a/build.frx b/build.frx index 2a443311cb38c6d7458b26dfa6d244a7915bcfd0..f37c04f26553038ebe81ccf78caa8ae29418f235 100644 GIT binary patch delta 38 scmbOsF+*ZQ3kw^=>uB5BpPRc_nAsQ^Ciih^Gv-g;1tK>;<1%6d0RJBhaR2}S delta 38 scmbOsF+*ZQ3kzF=kpy4sEagaifEagaifv8`(j$^0SHr=mP=mlXD2mlYR+1lRXJQlQaY*lidkglV1uQ MlPn4-vwRAi0XVx8eE 13 Then Exit Sub + + Dim i As Long + Dim x() As Variant + + x = lbCUST.list + For i = 0 To UBound(x, 1) + If lbCUST.Selected(i) Then x(i, 1) = Me.rev_cust(cbBT.text) + Next i + lbCUST.list = x + Call Me.build_cust_swap + +End Sub + +Private Sub cbST_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) + + If KeyCode <> 13 Then Exit Sub + + Dim i As Long + Dim x() As Variant + + x = lbCUST.list + For i = 0 To UBound(x, 1) + If lbCUST.Selected(i) Then x(i, 3) = Me.rev_cust(cbST.text) + Next i + lbCUST.list = x + Call Me.build_cust_swap + + +End Sub + +Sub build_cust_swap() + + Dim vtable() As Variant + Dim ptable As String + vtable = lbCUST.list + vtable = x.ARRAYp_TransposeVar(vtable) + vtable = x.ARRAYp_zerobased_addheader(vtable, "bill", "bill_r", "ship", "ship_r") + vtable = x.ARRAYp_TransposeVar(vtable) + ptable = x.json_from_table_zb(vtable, "rows", True, False) + Set cswap = JsonConverter.ParseJson("{""scenario"":" & handler.scenario & "}") + cswap("scenario")("version") = handler.plan + cswap("scenario")("iter") = handler.basis + cswap("stamp") = Format(Date + time, "yyyy-mm-dd hh:mm:ss") + cswap("user") = Application.UserName + cswap("source") = "adj" + cswap("message") = tbCOM.text + cswap("tag") = cbTAG.text + cswap("type") = "cust_swap" + Set cswap("swap") = JsonConverter.ParseJson(ptable) + + tbAPI.text = JsonConverter.ConvertToJson(cswap) + + +End Sub + +Public Function rev_cust(cust As String) As String + + If cust = "" Then + rev_cust = "" + Exit Function + End If + + If InStr(1, cust, " - ") <= 9 Then + rev_cust = trim(Mid(cust, 11, 100)) & " - " & trim(Left(cust, 8)) + Else + rev_cust = trim(Right(cust, 8)) & " - " & Mid(cust, 1, InStr(1, cust, " - ")) + End If + +End Function + Sub load_var() 'base diff --git a/fpvt.frx b/fpvt.frx index 459f1149a9a97f84e50bffa8717950a1a96123f0..29d09ac436e46a051ce68b2e226d3205a8461db9 100644 GIT binary patch delta 3952 zcma)nL&A#Vnhcb#( ze$vP1+{euzYxcDbVRWzeLiw&%B7#SYCN)%-qtu_KcyK( z&8W6p3$F@&peGBkBB`NxLMF{HBd!!?BSRat%VOP4)E)b0g zri6#kq;(0A2q#lhLNr9m;?^nhlgOCizcTImywi>yU!0a2A%v?MKX^9MxM3-sNq9w` zq_IR#fdh3jz+mbp4UaCJOnKuYaaeebVN{9M=T52pqkhPcl;Qmzs=uC^n&K{BL1KnP zJV*dJ0CU8_h$N5 z>$tm(#?32rm@=WK%f^z#ED06QfG8Ce7+FnuoRE@(L2OfVAg>P;ymevLWXiJ>7+3d- zRcw97xb~*Bl}H`xc_19@-TF+=<@8+4Y@>Bq@p(L+dobTSb8QVz&3Bugj*SS$cm_lz zMplK9RhJtuG9DE#0Z;FD`-&J+^-^}wc=~po1w9<lQ*$Y#}oe;rJ$9UAwVgn zLV1pAP1!bHE?(x_my2hH>v-8%QaH(^Rh0=-Rwy5}c2EFrEnm#C1hN#AfpV}AaL0<6 zWW6e;FN(>+eUo1@J<*f;P|&xUC~5yCA#4 zYOn^Z1?#{A;QN4We*oD7yr38KfepY1xP4Ph4nRH#9zwPX?0K;{))0go1Y5um*b2Dg zNKDf8G;_iZ6dng5K&Dwo@;SBfC<#Ij!AZ$AEV3(3 z@_O-1bB?gi9a&z&?q6zAorLQGfe|kv#TE|V9}Eol`yb)V4|_(vgO*nB&@h5Qjzr7L zMz#(IH~WTamt0FmU8^s!VIZ){vaH`5*yP)KEq0ouI%F}8nOEtIc-KtwW|WXI{V__& zTt(+o%XCiE`f1#_Qr*L8ba`%xL@rv6)A@ul-4e9A)XY>51{EBg9eZ(aR(tXEIg)p8T?})&3i!Cmy+`xZowAw|Gef#&beK?s+R*Hq6*2|zH>$sjz9y_(=WG5o)1m7d7q%BQ$ zmkl?Nh~7X)k!c1rBAur*4JGyAw7tUGZi$^?7FV!>oYGm6&gIONx%5R&87{)Y+&XEc z&AH}mVH11?qF4+H~t;k60zB3ZR_ z%vegrEbi*uMqfJ&N$k?oKQIWF;%Yp7=Cqm3qQ`1ggV87$A0mGhX}{MTXPou!w&_;2q&jcnhDK5?5(o zue;+z=r8eh$JqZ38{Xmlu;J9?vrfU)+wAT2`9sbM!Nyv?Q*U!P5Ob(e9ePxUzvT1& zHir+!9P$CJop$J~RQ-K9n{91sfV_a-m_J^4fA6wRPlsQ%vtK}T(}o-+f5*5`qq}9; zs2U2|lAleh=kKHpTNTp8W8<%;6E-JLsdk>5cH52AHE#nK%M5eq?7YKh-<3BXUr{gR z@rToa`SWL}uKuH?=V}Vz>rB?2^UJ~T<`S~kN6q;c`4i0U)cSAxfZJp5SGHBtO?#f{ zW0>b+=n}VZ!;p8g&w-aOC|*Ej!?11`UIx_*HvnyidQ!}THebDP`=Rx#7w*PecI%;? zRqZ%o3)B;(lM;(UI?uF?;TW_V7!1Gdo>wbRA z?kCU=sWI{uzEHK>2W^7K68|LI0YSegNu?~eQI=AX+et4wa^ib^twRHSKChss+}Sj_ zSbw0RlHRDzB$pwM)>O>?)>_2D&uU(fJ#rI0Sut0ZM}Aw8q-c5@`lvN01EW6K=EMvn zS7p=M7K?P!$;C@E9qNwd3FJd8`bwv$hck6Y&%(yTj-GDs^7==7_@N6`ZHAzKL@k$< z)5(%-%wP#0b7XN8QDS}q;xyCQ>L600Y0)7?1gWP!E%Mc(hb66PvC?E)m8_@ax)8P0 znh@2A#&!7R1NLm~ZaG3dOS)xW<@FHL%dcDDxz{)Gr z6;~VbLq}2g6Zmti@-L8Yg15li;2rQ+a2%Wfe*^D=Nx;tDgM1%+08W7q!D;Xj_&YcQ z&H}bQ4|xH63@(Cy@SlQ9P%eXi0yetBa(qjWj8#iAqsKBYq8^Lfg@xPfEB|JZIVtMa z(>0e%gI!6bwPlL094o@va=xxTTItS{V%ED+?M$^$4IqTjnv2A+lLyA*G zF4q@J zI_T=kinylwZvxC*`0Xt8^*W}r)JpqodfL-GM3XKT_kYi|UI_}i?y6ODEve3;j2=^q z*Ic$(aw3eDZYd%+THcrOxK;QB-mXyc@+M@imdtIRAwNTnHMF9!ie77UC_z76Z>(hT zY5NW})B8Phv8$4+(&zzC{H>Zw%Jvk}O^;K93xh5-XVBw~dJ1>MQ)fqof~un(IruYs zU&lhcVBAni>7Cs&Oj|lv;GCjAcDBorh_Ne9G2OoL+I`*)k9hgGRC4%xL9wZO@_)+5 B5extT delta 3249 zcma);dr;KZ702)W?fzC+7i49@RaaP^D(?jrP=w`SC?YN^OL!*H6*ht{y9A*%GM3d; zCqvbWCvDNh^f75`?bK-2{#CU$X;W(xHEndvG<9_9bf#15Xxix?nO6EeKNgc(XX0<> zv*+G>?&I8Z&$)M}&d8~g($HKNBShzQ*CN&;`+2uJ6z{dW4`u`dkI# z7y4Z3p}*-*KzBsVRz?K9t+pzm03{o|Qbe{Gf^wnI=ZQv>#k2t<^ff}n!KCSFAsi7$ zOpl^|h`k2szHx2jW8*QIBtAL&{q6s_Ds^ZMJMn|>d8l1<-E>->r~Pr>oFcTrJz^;F z&kZ|Vm(1s`iQ~eT5Jr=@S^RTtyx7H(jPZ+}F{1gw^z`%`$p1jX-(oIE2MNFgV3ddl z^MD1w#bQ241j!%?EC36E73jetK;dKyy%L{Cb#tywhIf-SVMOI||0c6-t;)UT(5-~R zxZ5c4Hz10H6WggQjuBF_6)MC|Lo5oIL zr*WMf$C9_nPFoCYUNE=m1MD=SZvY)g#(b`Y~jFJp}=r5XD&W8*G|@jyEmN{j_{{~ldTkRd}IR7 z7%uZrmN(&0mtC78TpJ9I`T`+=YznUn1xNY=FLKs|J^o zhRBv_lQS9IX(?4xFKL zC`)NFag6pYZlOP#9BLujYqVK7*^+n`nMZLc9obo^+wIoi#(!QizxqB>Y2yKjChEH>57*pGGIFfk>PtbiLaktE&xFzFi6$VUc#_~oNlh0O232ANF9MO-P z=+UfCYc1fc;f&#gc-)Xjc4tg)cW`p?JMzWdaaZt1leUZ0V{yoBv_GRoP2sWZ*tE?k zT}R;X*XG+)$|nn1fuLgPC?a2GeJsb2204s&I-EPN_%2^lJ3osa9?u^K;~6gOk%)1t zxQ+EW(ryb{l$9dWXhoI-=e;$nR%Xyov#fE7NxOINeFL|pq}Ju<>40J&YtFFtL>6Gx{y(6R5qgTXBZyt-@@w8b?$=1`KiRsvA(+ zsU3J4N*P*=ccFy1M~rto?ALq^nr!Ky-j#(h{UOirK(AkryD5Xtu3UlBb{NxXVdaAV zI}3iSJNZCf#txe+Q)F3WYh}DbyE0Sh%DOUHMwc61vWS0^aD{&E&y%)MG$`z|Q>83NEs@iN+V~nB0u8_P>u{B3^g9Q#sYqmtr)@+x$ zP+*i!)}=0T&8~pkG~ABXL4Ube4I_`yE!`6AV_vmpO`R7uVda>T&(wA-Vx`0NdvO-_ z)g3Yv*}l4JcIs-S4>x&L%FI?|IbB{?Ne{d(s`4(O6LlNWUfx-*6bTyYETeO43bj4K zrF5=3ohq7=6kidwG^NS`oO4d(aMNCiFt9g|E51PFd(8zh?V;(r;EmnjCGa({2k`qr zMGcnbebLH+s5}Tc2@U}QuYhlYZ-H-vDR3C@1g}EA29AQ)0Ud0xSXuD{R9OB9@)-Cr zE6+4!nj%rf&$!`E!?G^!^-EOV2Je7hfnS4n!Ee9?@LO;ZaNqYJ-v^h#WpD+20Dcet z0JzUpmXk01guYu*y|E@5FI7=lE&J%r zMi4h1m>L(`{66C4{@v t&73I~?Rh|Ig|pCkygP$}O}SX!L?3l`$YFByG_kQeds-2xS9)TU{{r`FhM@oe diff --git a/openf.frx b/openf.frx index 0e5b8194d6c4c12deae760a55956666da2a791a3..89e1b43def25ea1b1d397d471ffb7b9555f5a221 100644 GIT binary patch delta 99 zcmbOsF+*ZQ3kzF;VuD5O&&^#dFPP;S7#LI-o-#5pure?-FadcMK+M1($&j4n670(` zc_N1`WBTOt9L8b>3=B*X3>rX5HlR}H#JuFx97Tr74>*(W