From 5a2dfcdf27c83b96d9c06d3698a495ff5ce4b068 Mon Sep 17 00:00:00 2001 From: Trowbridge Date: Thu, 28 Feb 2019 01:47:56 -0500 Subject: [PATCH] save work --- fpvt.frm | 68 +++++++++++++++++++ fpvt.frx | Bin 0 -> 38424 bytes handler.bas | 191 +++++++++++++++++++++++++++++++++++++++++----------- 3 files changed, 221 insertions(+), 38 deletions(-) create mode 100644 fpvt.frm create mode 100644 fpvt.frx diff --git a/fpvt.frm b/fpvt.frm new file mode 100644 index 0000000..c94ba85 --- /dev/null +++ b/fpvt.frm @@ -0,0 +1,68 @@ +VERSION 5.00 +Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fpvt + Caption = "UserForm1" + ClientHeight = 6780 + ClientLeft = 120 + ClientTop = 465 + ClientWidth = 12735 + OleObjectBlob = "fpvt.frx":0000 + StartUpPosition = 1 'CenterOwner +End +Attribute VB_Name = "fpvt" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Public mod_adjust As Boolean +Option Explicit + + + +Private Sub tbAdjVal_Change() + + If IsNumeric(tbAdjVal.value) Then + tbFcVal = Format(CDbl(tbAdjVal.value) + CDbl(tbBaseVal.value), "#,###") + Else + tbFcVal = Format(CDbl(tbBaseVal.value), "#,###") + End If + +End Sub + +Private Sub UserForm_Activate() + + Dim s_tot As Object + Dim i As Long + + Set s_tot = handler.scenario_totals(handler.scenario) + + '---show existing adjustment if there is one---- + fpvt.mod_adjust = False + fpvt.lOrigAdj.Visible = False + fpvt.tbOrigAdj.Visible = False + + For i = 1 To s_tot("x").Count + Select Case s_tot("x")(i)("order_season") + Case 2020 + Select Case s_tot("x")(i)("iter") + Case "copy" + fpvt.tbBaseVol.Text = Format(s_tot("x")(i)("units"), "#,###") + fpvt.tbBaseVal.Text = Format(s_tot("x")(i)("value_usd"), "#,###") + + Case "adjustment" + fpvt.tbAdjVol.Text = Format(s_tot("x")(i)("units"), "#,###") + fpvt.tbAdjVal.Text = Format(s_tot("x")(i)("value_usd"), "#,###") + + '---show existing adjustment if there is one---- + fpvt.mod_adjust = True + fpvt.lOrigAdj.Visible = True + fpvt.tbOrigAdj.Visible = True + fpvt.tbOrigAdj.value = Format(s_tot("x")(i)("value_usd"), "#,###") + End Select + End Select + Next i + + fpvt.tbFcVol.Text = Format(fpvt.tbBaseVol.value + fpvt.tbAdjVol.value, "#,###") + fpvt.tbFcVal.Text = Format(fpvt.tbBaseVal.value + fpvt.tbAdjVal.value, "#,###") + + sbEdit.SimpleText = "idle" +End Sub diff --git a/fpvt.frx b/fpvt.frx new file mode 100644 index 0000000000000000000000000000000000000000..aa1dda13a644b62188f8370782d95f3a7ce111bf GIT binary patch literal 38424 zcmeI53!EKgdB(rJBoGKBO9BLvkPW#53Fn(VXZI}k+?GHR5|VHan%&J3Htdb;CIk^Z zwOq6)pdz(ctwB)>Rtw&!Et0m1tt~+*+G?%kBDS`uX~CLWF@2tycjml#vq{dGgk8il zzu&iWcFupk+xvW%nfcy1%N88&+`TT@J{vgqwMou>^QpRLw>^B~bIBL-;T%`ve!Y8? z8>zmi!spuf|FO;?M#p2n-o1M_505~=$IA8_R0Au!oclnvbMJiHb3byh_7d2THr>6u z%2oaB$%kmwXTQF74s{S0>*&?@Zaf12uXdfT+x59F*WuP6Y;^DX zru^Wg$Epz5&L`H+an*U(QnkInbjCPWI0k{*!T$xMQ$ThK&mZmFP59ui8Tq+Od%HGw zcR07DuWPfbp5Ss|$vwcB!K`V$wzs>LpZ6Uv;@>0Q49;1(sk6NUiEioZY~O#p6WnY` zb75;wdk5-_Dh7k$12l^)w5-uGSG`$-hx%%gz0diNqeqlp%#V4ug4T36@V+g2>CImfvVo|b2Hdl@=dwyqWRvr>0zGGRTO3*t;-QtwVUXA z`?iEeWxi$|&lDo=FmN-4s|mS28mWWamJ^E{FTcIYLGk5pRp|X{#4bBKPkG||$L*;5$Oqkn?y?J4FyiH% z?VEc0d#@R&Z|U9C-CrNf%Y>gC`cJpGyRBpW`i}MWE7~@8v=2BMF~sKa?>z5bX@2DT z{pX3wh_%4|VD#O8aMwov)H7A_UNcp0q3aD>@e0@GHtMfR`g{z`d7$)dL|5ZLk3D!0 z|CgKoK_oTkslUR4v@7huK z;TNFqrH@|B_HuXCq6JlMWYh(-gInZos*k1#=-Lx$)J;C>)|dNUTzX&K4G&&->LXRF zA76T3%S98%-ticsI_JzeZr@k~{56z;$B@;iR= zNXz>_Gj85f+rIa!`#0q8yzSO+)jhn?ZQnV&arQRzKTfS|2daTpX#Kqyx9i^SAgBgldyHVjKg#w^@jdGEI;QbY_@&lUTAsCxjX8<@*Om+*0BXf9M^li z=dpNWHaLH0;D&jXdlh>O#16w+_#Gw%j?tp0Cc-QPmT3;cDF~Q`Lf{0b8G+}ViTzm!XCq)P;m$=k4`DvS0)&MKix9}RV1GWs z5`+s7xZ&^{avP5JM_q-JFYFIR`>RDf)GG~y-2peUj|#>1N6n<&*#1}^rp<6hS+LfPm|Ih!~|8vj4 zF@SsOpZmD~=V$i++_V4Z-uC}IcCviO{-6KPlzlnuc@c2sXFGg5}uo__v!X*foBJlgmvA+W0N`$Kr)*|ru zn`DoV!@jvU?);zK{95Y!cK)e%-^LD7FHq{!TrE1zW?cAIvo&Jd=YDk9zw#uK>^s;# z>KP|Cef@9eUetbB*Z*ut(e?lG&0PbXD_b{o9PlPU^}C%f{E}G-=TGc|Cm=AN{LFlF ze-tJ{Uq$0X-V5`4dN#Lq&De?xDjbUOmwf~0g%mS(2i!P+j7OZ|=>IvN?U7twbHLp0 zA4qfkaV(;|N1{Cx_0RIKPcOCp*#}ATxcW_Ac=Utsp-@(qmnJ%}Ph__t(GksnwrroH2wr5`NPD3a^{f0wQe)jqGDbgPf{WGtJ zQ2%Amf6qYrC(vlv4u$?X&U1cC4KmIHZF2#1u@bNiNBvW$ePQaDpWva+wOu!E#eAW_ z`G&`5`6}FD&Qn;^+SVZZtnByQWcT?@t1ZX5NF0(hYNzA=vl~4d{ZZ|9=N{%H>*nHo zCFXcI95ZjJ>gEjRhvaeW(GXzoA8*k_kNM;rD4OUU=K3({VWv;R43IM=P6jy_LU2T-%Gvb%(Ox^3J%8jRtjy;}d(_q`+Y3$Tss?uY^;{k__?aBBYxP2 z>&pVq1Bz{e>uL+@wg0F1j}PdQhjXaZebwu**PoRCBq{%O6!;+Jr|fur=-yEkmOs`X z?`=|}cp~gtHnnzlWW75X|AysPI{k!jRWX-q3b|1;@kRU)b3gS2YS0a)KBz6t{g0E8 zV(a)Q*+bF)az4X*%BA+d?D~hZ|DB5TYw+tZ)E$zHtg-EdOT+EuE4xZTv9lV z>ngbJW8ZyGZqRe%6XGL2hRJ z;eDRL+AqhFXZYQ%thnO%!9IGA_UpUC{M+`+t}q&lq@4#*IVXf&ZZSTN&E%@%cHR(i z@8U%cO3eixIHfQP`z(&sVCFf{##%rHU^a6qI+P8(;0OD2FzjPFwj#Ok`9>{ft6hSV zJrwP43gVuMP-^>I2zDj%#BDg{Kl739aJIiQk^aq6{zFm!>`$j7lv@9s2Q3=L`iG>4 zwf;H(K9u!81M$s5D7F5{4yXQ^-&p_bZx3evpvMn;?aS-@LGOQZo-^nIDBj7E2`rfd z-u&Ei{Q7N7pW|eW8b2|0EF5?YrOl%?jjrtRm*?OM)~8nLt)iVuTd1^!c)fb1 zKdAHvmHwd8A5{8-q7P4{PptHbl|Hf3Csz8zN}uSIFJ)z1sEiAhaiKCURK|sa9T&K+ zp7)7^jL-94@u&DK2={|GV>c4VAHd#KYd`k!;qz8Gr@8!df=p@W6#eXDpMS1dj-Tb0 zmcLTd+M`UbVLe1;!t>)o_`ZSGXdU(&rA(K$c5Ut`wM^7iWqW}WW1gI0@gC++nxI|A2Q3fptZl_fWF{dMYxkIgLg5O=*<*}yl^W1m=Ph<7&2cRvu8YXL}h+PhD=jfE+4K-ES8;%FvuJhGWjr`Pmjj| zDLX5k568(I9x^^)*`qgi6yxFd45LD(IgBTIi$?JcAbiMA=7=bs4CA?==_`|OkKp}`MtIm<2hTHV{nzL z3Ohlu9xT(1>{w(M344NK17Rb37TLwZo~YOcVI#X1*%o0ZDmE)@WZxotzOa)Nn-i9G zp%+0d5q7d-8-|SIq6n2VY^TJyDbHNxjQm@!%VI%t&<6S1~ z)FPXu-I#|+2Ss+duqP`vwwu+%MZ!)~Y-~5HhZVw3S1j$u4&LfvrLZ#;OS_S^dY~gD z>tUv1X*aS~537WorC8dHtkuJ6VP`9rb|Y)`utwN9ilyDiT0LAM>?w++-N;%!(4muM zJGIE>Xg9J}50?phnqp};vQ`h53p-b_v>REghbx4gr`XtTRu5MSd%9v{yIDP4C2U5q zwA&{z2wOd@71k@3b|Y)`aJ8_3Vre(BRu6QDW&JiNmUbg+_3&n4vx=qN$XY$D6E;_5 z8)-MPRu8ShHY%2OBWv~0CTx>pX*aS~5ADL{6-&F3wR%`DY_no%H?md_9m1ZW*w}7X z4_su-`aM&zvE8g5HVAu`VrjScVX|QLaILUsE0%U6YxU46>^X|1-N;%!Y!vp~BHKi} zk+pibPT2DlOS_S^dgu~%zG7)NvQ`h>!Y)uO?MBw>p-0$-ilyDiT0L;VCvCAvv9udm zs|PO9BfD6!v>REghwFuHQEY5CtA|a(p0C*0ZdMQd!Y)xP?KWe<-g+1i_JSgtr`^a} zJ@8_lWxG(Zv>REghb_V`RV?jB*6QH~VV5bEb|Y)`z-tudVYy;yH?md_Hwt@^Vre(B zRu69xc7f!Ceu2C%QR<~?#Jrsn!M6t9RS*wTN5%yBW(r#p}9^N7BWs0TU$XY%8uCSLYmUbg+ z^>B-@S16WtBWv|=tFTupmUbg+^>CZ8S1FcuBWv|=yRd5&OS_TPdcb9D;hn->U1WVG z6R}zkWZxz1n>6bqR_lT6?+N>6%?1&x^+5IxVb^K4VY7P`6D&PmkbSqXt(wh7tkwhB z_Xyjj*<8eGJ&?Uq*mlh}My%EY*}H^Yui2)E)p{U%x3C?W%}1=(1KIZqdyQtBBUbBy z?E8e>pjZ#PvCgy}$i83LYc&hIk+pibN7zoy!fs@(9zG!KM$L-dtRC(a_Bzdq-6B0q z51mbLTcGg!VB`B7U2rz(yD`WV9oizNl*7Q?r?_r#%Uatyy1WnDWO#E_99YPHNU=Q$ z8-!)D>>motdlJ0~+aOxRK^5EZZL`c2mMO zhVwWZ??;7Ye)|))DZB>2A#BBXx8c9IZU+)JAKKT(d%t2gCv3CZg|Wi2A5-j>m<=*v zpJUmN3(Nf8kgz@+gK!8p7W1H(kp<2NzIf zpMx8>WuKF#JZa7us=TGCw>0G$s&vxSTbjJ3IVX*-)08L8Icdt1=A1NnOH*${mA5o) zAMcz=Y3l9uoKBj0OH&7F&Pk)|H04QiPMY$hIVVlt($rg;ybV=4Y35aF&Ph`T zY0gR0AEePinsn0CTbjHLm3D?IZ)wVtCT~Nfw>0Tg&gpI)Dx0R!TblkLjZI(A=?qog z()6Qg&PijRq0(rYyy5v>+4mgMw1qV1q^Y-|Iwy^;)6_v4ji$+4ntDs4x1lOen!Kf{ zw>0Ub(LtKL4b?emv=f~(8(FNyW0lg@|3}(U=ajJi-=0&-ntbLh&HDc|X+`=`WqOU) z|1%xC{y!7Ghdq3(vQM82Yo}7`FVgpGU#6m+up+w(ryQ*G^*X{C|_9t>85K2}>V?goWK$x6Fsu&gX@t zuR+4XZe*<@9Z-Cv%T0Q)Qu=G(#;)UJFT0J}_ zEPWLcR_tc=@D*W|&w_6dyIDOvF0Ard@C~pV)3i zYxVF~!YZEypM~AXT0Q)=u*zq_XJI$8tT(NPuL`St7JL?VBWv~WHDQ&{g3rQkWUU^a z5LWpt_$=&3*6QKw!YZEypM~AXT0Q)Yu*zq_XJI$847zN8E3EQa@L92&)x$T0RXz(o zCw8-X_&Z^h&w|gvZd@mC_3-z?DxU?PgWbqlJv=F_@>%dX*o~~!!wzAU&w|gvZe*<< zo)T91EchJkM%L=#o5Cue1)qc6$XY#oOIYQz;B&AWS*wSqg;hQaJ_oyzwR-pmVU^E< z&%thFtsb5cR{1RWM%az4)x)=iRXz*8QS4^*@Eu{5&w_6hyIDQ_qp-?n!8gKgTqke! z@K3@jp9S9tyOFhe_^z8xEciy)jjYwf_k~qH z3%(I{BWv~WFTyIH1>Xp}k+pjGfw0PF!8gHfWUU_lRaoV-;G1AKvQ`hz3afk;d=u%drVmGUY7lc(l3%&_<<2re(haU>7d=`8Y>_*n=;YDGU z&w_7)-N;%!{76{kv*4RxH?md_|0b;RS@2D;8(FJ|e-~EyEciU^M%L=#$HFR~1)qoA z$XY%8hp@_L!RKK&vQ`iODXj8Y@OjvctkuIy!YZEypNHMZT0Q(kSmm?e^I|uvho1_o zd=`9O>}K`wGhvm_g3rTlTqke!uv1v&v*7cv8(FJ|{}NXDEciU^M%L=#zlBvk3%(h4 zBWv~Wvarf$!8gNhWUU@>A!U6Qd^7Au*6QKs!YZEy-weBvwR-p;VU^Ewd@>vKnup3#c z2Uiub%4Z?Sz;0x%9`Hj8VZ6#`A;`dPWUU^mg;hQaK?ZgsYxRH^P>1mxf(d=>%^yOFhe7%QyuSqON)gsjy=ov_MhAqd27 zRu9Jrt9%xMK4!tWjktH!DK@TLE~ zfrI&-f)U6|^!}u_T&ek-jlA=`=ov*R=e4oeuXSGO^_s>T$rkk;! z>D=|`XX34-_vfJU9s6>38~+sF3vnd=qlS6!e4vd{p?K&qc1(~TPLh6t#)CZ*>m} zqkgR|Hw`)Db-a$3`D47icP{bbmzH|N{^zFZB8&73EErkdJCE4VG;Yk%d*=c7`;$EI z$A`i^G&uJ>*f4P z)Vc#GGkiy1N#{WVWo`2Ocn(gA+aH_9{>DH2!c#|kYyUv1w#WJUbR=AcwMuPu@7hLF_uLAnhSsbFubj?&-Eqvy}pInV_+xu|I^_M+W-In literal 0 HcmV?d00001 diff --git a/handler.bas b/handler.bas index 89df86b..ea6ff62 100644 --- a/handler.bas +++ b/handler.bas @@ -6,14 +6,74 @@ Public scenario As String Public sc() As Variant Public x As New TheBigOne Public wapi As New Windows_API +Public data() As String +Public agg() As String +Public showprice As Boolean Sub load_fpvt() - Call wapi.ClipBoard_SetData(sql) - + fpvt.sbEdit.SimpleText = "retrieving data.........." + + 'data = x.SHTp_Get("data", 1, 1, True) + 'Call x.TBLp_Aggregate(data, True, True, True, Array(1, 3), Array("S", "S"), Array(30)) + Dim i As Long + Dim s_tot As Object + + fpvt.ListBox1.list = handler.sc + + showprice = False + + For i = 0 To UBound(handler.sc, 1) + If handler.sc(i, 0) = "part_descr" Then + showprice = True + Exit For + End If + Next i + + If showprice Then + fpvt.opvolume.Visible = False + fpvt.opprice.Visible = False + 'fpvt.tbBasePrice.BackColor = &H80000005 + 'fpvt.tbBaseVol.BackColor = &H80000005 + fpvt.tbAdjPrice.BackColor = &H80000005 + fpvt.tbAdjVol.BackColor = &H80000005 + fpvt.tbAdjVal.BackColor = &H80000004 + fpvt.tbAdjVal.Enabled = False + 'fpvt.tbFcPrice.BackColor = &H80000005 + 'fpvt.tbFcVol.BackColor = &H80000005 + 'enabled + 'fpvt.tbBasePrice.Enabled = True + 'fpvt.tbBaseVol.Enabled = True + fpvt.tbAdjPrice.Enabled = True + fpvt.tbAdjVol.Enabled = True + 'fpvt.tbFcPrice.Enabled = True + 'fpvt.tbFcVol.Enabled = True + Else + fpvt.opvolume.Visible = True + fpvt.opprice.Visible = True + 'fpvt.tbBasePrice.BackColor = &H80000003 + 'fpvt.tbBaseVol.BackColor = &H80000003 + fpvt.tbAdjPrice.BackColor = &H80000003 + fpvt.tbAdjVol.BackColor = &H80000003 + fpvt.tbAdjVal.BackColor = &H80000005 + fpvt.tbAdjVal.Enabled = True + 'fpvt.tbFcPrice.BackColor = &H80000003 + 'fpvt.tbFcVol.BackColor = &H80000003 + 'enabled + 'fpvt.tbBasePrice.Enabled = False + 'fpvt.tbBaseVol.Enabled = False + fpvt.tbAdjPrice.Enabled = False + fpvt.tbAdjVol.Enabled = False + 'fpvt.tbFcPrice.Enabled = False + 'fpvt.tbFcVol.Enabled = False + End If + + fpvt.Show + + End Sub @@ -73,6 +133,26 @@ errh: End Sub +Function scenario_totals(doc As String) As Object + + Dim req As New WinHttp.WinHttpRequest + Dim json As Object + Dim wr As String + + With req + '.Open "GET", "http://10.56.1.15:3000/get_pool", True + .Open "GET", "http://localhost:3000/scenario_totals", True + .SetRequestHeader "Content-Type", "application/json" + .Send doc + .WaitForResponse + wr = .ResponseText + End With + + Set json = JsonConverter.ParseJson(wr) + Set scenario_totals = json + +End Function + Sub pg_main_workset() Dim req As New WinHttp.WinHttpRequest @@ -85,7 +165,7 @@ Sub pg_main_workset() Dim res() As Variant Dim str() As String - doc = "{""quota_rep"":""13025 - JAMES REGER""}" + doc = "{""quota_rep"":""90005 - MARK WILKINSON""}" With req '.Open "GET", "http://10.56.1.15:3000/get_pool", True @@ -99,42 +179,77 @@ Sub pg_main_workset() Set json = JsonConverter.ParseJson(wr) ReDim res(json("x").Count, 32) - For i = 0 To UBound(res, 1) - 1 - res(i, 0) = json("x")(i + 1)("bill_cust_descr") - res(i, 1) = json("x")(i + 1)("billto_group") - res(i, 2) = json("x")(i + 1)("ship_cust_descr") - res(i, 3) = json("x")(i + 1)("shipto_group") - res(i, 4) = json("x")(i + 1)("quota_rep_descr") - res(i, 5) = json("x")(i + 1)("director_descr") - res(i, 6) = json("x")(i + 1)("segm") - res(i, 7) = json("x")(i + 1)("mod_chan") - res(i, 8) = json("x")(i + 1)("mod_chansub") - res(i, 9) = json("x")(i + 1)("majg_descr") - res(i, 10) = json("x")(i + 1)("ming_descr") - res(i, 11) = json("x")(i + 1)("majs_descr") - res(i, 12) = json("x")(i + 1)("mins_descr") - res(i, 13) = json("x")(i + 1)("brand") - res(i, 14) = json("x")(i + 1)("part_family") - res(i, 15) = json("x")(i + 1)("part_group") - res(i, 16) = json("x")(i + 1)("branding") - res(i, 17) = json("x")(i + 1)("color") - res(i, 18) = json("x")(i + 1)("part_descr") - res(i, 19) = json("x")(i + 1)("order_season") - res(i, 20) = json("x")(i + 1)("order_month") - res(i, 21) = json("x")(i + 1)("ship_season") - res(i, 22) = json("x")(i + 1)("ship_month") - res(i, 23) = json("x")(i + 1)("request_season") - res(i, 24) = json("x")(i + 1)("request_month") - res(i, 25) = json("x")(i + 1)("promo") - res(i, 26) = json("x")(i + 1)("version") - res(i, 27) = json("x")(i + 1)("iter") - res(i, 28) = json("x")(i + 1)("value_loc") - res(i, 29) = json("x")(i + 1)("value_usd") - res(i, 30) = json("x")(i + 1)("cost_loc") - res(i, 31) = json("x")(i + 1)("cust_usd") - res(i, 32) = json("x")(i + 1)("units") + For i = 1 To UBound(res, 1) - 1 + res(i, 0) = json("x")(i)("bill_cust_descr") + res(i, 1) = json("x")(i)("billto_group") + res(i, 2) = json("x")(i)("ship_cust_descr") + res(i, 3) = json("x")(i)("shipto_group") + res(i, 4) = json("x")(i)("quota_rep_descr") + res(i, 5) = json("x")(i)("director_descr") + res(i, 6) = json("x")(i)("segm") + res(i, 7) = json("x")(i)("mod_chan") + res(i, 8) = json("x")(i)("mod_chansub") + res(i, 9) = json("x")(i)("majg_descr") + res(i, 10) = json("x")(i)("ming_descr") + res(i, 11) = json("x")(i)("majs_descr") + res(i, 12) = json("x")(i)("mins_descr") + res(i, 13) = json("x")(i)("brand") + res(i, 14) = json("x")(i)("part_family") + res(i, 15) = json("x")(i)("part_group") + res(i, 16) = json("x")(i)("branding") + res(i, 17) = json("x")(i)("color") + res(i, 18) = json("x")(i)("part_descr") + res(i, 19) = json("x")(i)("order_season") + res(i, 20) = json("x")(i)("order_month") + res(i, 21) = json("x")(i)("ship_season") + res(i, 22) = json("x")(i)("ship_month") + res(i, 23) = json("x")(i)("request_season") + res(i, 24) = json("x")(i)("request_month") + res(i, 25) = json("x")(i)("promo") + res(i, 26) = json("x")(i)("version") + res(i, 27) = json("x")(i)("iter") + res(i, 28) = json("x")(i)("value_loc") + res(i, 29) = json("x")(i)("value_usd") + res(i, 30) = json("x")(i)("cost_loc") + res(i, 31) = json("x")(i)("cost_usd") + res(i, 32) = json("x")(i)("units") Next i + res(0, 0) = "bill_cust_descr" + res(0, 1) = "billto_group" + res(0, 2) = "ship_cust_descr" + res(0, 3) = "shipto_group" + res(0, 4) = "quota_rep_descr" + res(0, 5) = "director_descr" + res(0, 6) = "segm" + res(0, 7) = "mod_chan" + res(0, 8) = "mod_chansub" + res(0, 9) = "majg_descr" + res(0, 10) = "ming_descr" + res(0, 11) = "majs_descr" + res(0, 12) = "mins_descr" + res(0, 13) = "brand" + res(0, 14) = "part_family" + res(0, 15) = "part_group" + res(0, 16) = "branding" + res(0, 17) = "color" + res(0, 18) = "part_descr" + res(0, 19) = "order_season" + res(0, 20) = "order_month" + res(0, 21) = "ship_season" + res(0, 22) = "ship_month" + res(0, 23) = "request_season" + res(0, 24) = "request_month" + res(0, 25) = "promo" + res(0, 26) = "version" + res(0, 27) = "iter" + res(0, 28) = "value_loc" + res(0, 29) = "value_usd" + res(0, 30) = "cost_loc" + res(0, 31) = "cost_usd" + res(0, 32) = "units" + + Set json = Nothing ReDim str(UBound(res, 1), UBound(res, 2)) @@ -149,6 +264,6 @@ Sub pg_main_workset() Next j Next i - Call x.SHTp_Dump(str, "Sheet1", 1, 1, True, False) + Call x.SHTp_Dump(str, "data", 1, 1, True, False, 28, 29, 30, 31, 32) End Sub