From 7f3f858744d3fd1be01f53b8c90d7292e594d952 Mon Sep 17 00:00:00 2001 From: Trowbridge Date: Thu, 14 Mar 2019 13:52:41 -0400 Subject: [PATCH] save changes through forecast v0.5 --- fpvt.frm | 206 ++++++++++++++++++++++++++++++++++++++-------------- fpvt.frx | Bin 25624 -> 19992 bytes handler.bas | 85 +++++++++++++++------- openf.frm | 51 +++++++++++++ openf.frx | Bin 0 -> 3096 bytes 5 files changed, 263 insertions(+), 79 deletions(-) create mode 100644 openf.frm create mode 100644 openf.frx diff --git a/fpvt.frm b/fpvt.frm index 02e4b72..6f9c066 100644 --- a/fpvt.frm +++ b/fpvt.frm @@ -62,8 +62,11 @@ End Sub Private Sub butAdjust_Click() - MsgBox ("adjustment posted") + + Call handler.request_adjust(JsonConverter.ConvertToJson(adjust)) + Me.Hide + End Sub Private Sub butCancel_Click() @@ -225,10 +228,14 @@ Private Sub opPlugVol_Click() End Sub Private Sub tbFcPrice_Change() + If load_tb Then Exit Sub + set_Price = True If opEditPrice Then calc_price + set_Price = False End Sub Private Sub tbFcVal_Change() + If load_tb Then Exit Sub If opEditSales Then calc_val End Sub @@ -275,11 +282,8 @@ Private Sub UserForm_Activate() Dim j As Long Dim k As Long Dim ok As Boolean - - 'handler.server = "http://10.56.1.20:3000" - handler.server = "http://192.168.1.69:3000" - Set sp = handler.scenario_package(handler.scenario, ok) + Set sp = handler.scenario_package("{""scenario"":" & scenario & "}", ok) If Not ok Then fpvt.Hide @@ -290,30 +294,35 @@ Private Sub UserForm_Activate() '---show existing adjustment if there is one---- fpvt.mod_adjust = False - fpvt.tbPadjVol.Text = 0 - fpvt.tbPadjVal.Text = 0 + pVol = 0 + pVal = 0 + bVol = 0 + bVal = 0 For i = 1 To sp("package")("totals").Count Select Case sp("package")("totals")(i)("order_season") Case 2020 - Select Case sp("package")("totals")(i)("iter") - Case "copy" - fpvt.tbBaseVol.Text = Format(sp("package")("totals")(i)("units"), "#,###") - fpvt.tbBaseVal.Text = Format(sp("package")("totals")(i)("value_usd"), "#,###") - If sp("package")("totals")(i)("units") <> 0 Then fpvt.tbBasePrice.Text = Format(sp("package")("totals")(i)("value_usd") / sp("package")("totals")(i)("units"), "#.000") + Select Case Me.iter_def(sp("package")("totals")(i)("iter")) + Case "baseline" + bVol = bVol + sp("package")("totals")(i)("units") + bVal = bVal + sp("package")("totals")(i)("value_usd") + If bVol <> 0 Then bPrc = bVal / bVol - Case "adjustment" - fpvt.tbPadjVol.Text = Format(sp("package")("totals")(i)("units"), "#,###") - fpvt.tbPadjVal.Text = Format(sp("package")("totals")(i)("value_usd"), "#,###") + Case "adjust" + pVol = pVol + sp("package")("totals")(i)("units") + pVal = pVal + sp("package")("totals")(i)("value_usd") + + Case "exclude" End Select End Select Next i - fpvt.tbFcVol.value = Format(CDbl(fpvt.tbBaseVol.value) + CDbl(fpvt.tbPadjVol.value), "#,###") - fpvt.tbFcVal.value = Format(CDbl(fpvt.tbBaseVal.value) + CDbl(fpvt.tbPadjVal.value), "#") - fpvt.tbFcPrice.value = Format(CDbl(fpvt.tbFcVal.value) / CDbl(fpvt.tbFcVol.value), "#.000") - fpvt.tbPadjPrice.value = Format((CDbl(fpvt.tbPadjVal.value) + CDbl(tbBaseVal.value)) / (CDbl(fpvt.tbBaseVol.value) + CDbl(tbPadjVol.value)) - CDbl(tbBaseVal) / CDbl(tbBaseVol), "#.000") + fVol = bVol + pVol + fVal = bVal + pVal + fPrc = fVal / fVol + pPrc = (pVal + bVal) / (bVol + pVol) - bVal / bVol + Me.load_mbox_ann '---------------------------------------populate monthly------------------------------------------------------- @@ -454,6 +463,30 @@ Sub load_mbox() End Sub +Sub load_mbox_ann() + + load_tb = True + + tbBaseVol = Format(bVol, "#,###") + tbBaseVal = Format(bVal, "#,###") + tbBasePrice = Format(bPrc, "0.000") + + tbPadjVol = Format(pVol, "#,###") + tbPadjVal = Format(pVal, "#,###") + tbPadjPrice = Format(pPrc, "0.000") + + tbFcVol = Format(fVol, "#,###") + tbFcVal = Format(fVal, "#,###") + If Not set_Price Then tbFcPrice = Format(fPrc, "0.###") + + tbAdjVol = Format(aVol, "#,###") + tbAdjVal = Format(aVal, "#,###") + tbAdjPrice = Format(aPrc, "0.000") + + load_tb = False + +End Sub + Sub load_array() 'base @@ -486,48 +519,55 @@ End Function Sub calc_val() Dim pchange As Double - + If IsNumeric(tbFcVal.value) Then - 'calculate percent change - pchange = CDbl(tbFcVal.value) / (CDbl(tbPadjVal.value) + CDbl(tbBaseVal.value)) - - 'plug the adjustment required - tbAdjVal = Format(CDbl(tbFcVal.value) - CDbl(tbBaseVal.value) - CDbl(tbPadjVal.value), "#,###") - + 'get textbox value + fVal = tbFcVal.value + 'do calculations + aVal = fVal - bVal - pVal '---------if volume adjustment method is selected, scale the volume up---------------------------------- If opPlugVol Then - tbFcVol = Format((CDbl(tbPadjVol.value) + CDbl(tbBaseVol.value)) * pchange, "#,###") + pchange = fVal / (pVal + bVal) + fVol = (pVol + bVol) * pchange Else - tbFcVol = Format((CDbl(tbPadjVol.value) + CDbl(tbBaseVol.value)), "#,###") + fVol = pVol + bVol End If - tbFcPrice = Format(CDbl(tbFcVal.value) / CDbl(tbFcVol.value), "#.000") - tbAdjVol = Format(tbFcVol - (CDbl(tbBaseVol) + CDbl(tbPadjVol)), "#,###") - tbAdjPrice = Format(CDbl(tbFcVal.value) / CDbl(tbFcVol.value) - ((CDbl(tbBaseVal.value) + CDbl(tbPadjVal.value)) / (CDbl(tbBaseVol.value) + CDbl(tbPadjVol.value))), "#.000") + If fVol = 0 Then + fPrc = 0 + Else + fPrc = fVal / fVol + End If + aVol = fVol - (bVol + pVol) + aPrc = fPrc - (bPrc + pPrc) Else - 'tbFcVal = Format(CDbl(tbPadjVal.value) + CDbl(tbBaseVal.value), "#,###") - tbAdjVol = Format((CDbl(tbFcVol.value) - CDbl(tbBaseVol.value) - CDbl(tbPadjVol.value)), "#,###") - tbAdjPrice = 0 - 'tbAdjPrice = Format(CDbl(tbFcVal.value) / CDbl(tbFcVol.value) - ((tbBaseVal + tbPadjVal) / (tbBaseVol + tbPadjVol)), "#.000") + aVol = fVol - bVol - pVol + aPrc = 0 + End If - tbFcVal = Format(CDbl(tbFcVal), "#,##0") + tbFcVal = Format(tbFcVal, "#,###") + + Me.load_mbox_ann 'build json Set adjust = JsonConverter.ParseJson("{""scenario"":" & scenario & "}") + adjust("scenario")("version") = "b20" + adjust("scenario")("iter") = handler.basis adjust("stamp") = Format(Date + time, "yyyy-mm-dd hh:mm:ss") adjust("user") = Application.UserName + adjust("source") = "adj" If opEditSales Then If opPlugVol Then adjust("type") = "scale_v" - adjust("amount") = tbAdjVal + adjust("amount") = aVal Else adjust("type") = "scale_p" - adjust("amount") = tbAdjVal + adjust("amount") = aVal End If Else adjust("type") = "scale_vp" - adjust("qty") = tbAdjVol - adjust("amount") = tbAdjVal + adjust("qty") = aVol + adjust("amount") = aVal End If 'print json @@ -538,31 +578,46 @@ End Sub Sub calc_price() If IsNumeric(tbFcPrice.value) And tbFcPrice.value <> 0 And IsNumeric(tbFcVol.value) And tbFcVol.value <> 0 Then - tbFcVal = Format(CDbl(tbFcPrice.value) * CDbl(tbFcVol.value), "#,##0") - tbAdjVal = Format(CDbl(tbFcVal.value) - CDbl(tbBaseVal.value) - CDbl(tbPadjVal.value), "#,###") - tbAdjVol = Format(tbFcVol - (CDbl(tbBaseVol) + CDbl(tbPadjVol)), "#,###") - tbAdjPrice = Format(CDbl(tbFcVal.value) / CDbl(tbFcVol.value) - ((CDbl(tbBaseVal.value) + CDbl(tbPadjVal.value)) / (CDbl(tbBaseVol.value) + CDbl(tbPadjVol.value))), "#.000") + 'capture currently changed item + fVol = tbFcVol.value + fPrc = tbFcPrice.value + 'calc + fVal = fPrc * fVol + aVal = fVal - bVal - pVal + aVol = fVol - (bVol + pVol) + If nomonth Then + aPrc = fVal / fVol - bPrc + Else + aPrc = fVal / fVol - ((bVal + pVal) / (bVol + pVol)) + End If Else - tbFcVal = 0 - tbAdjVal = Format(CDbl(tbFcVal.value) - CDbl(tbBaseVal.value) - CDbl(tbPadjVal.value), "#,###") + fVal = 0 + aVal = fVal - bVal - pVal End If + Me.load_mbox_ann + 'build json Set adjust = JsonConverter.ParseJson("{""scenario"":" & scenario & "}") adjust("stamp") = Format(Date + time, "yyyy-mm-dd hh:mm:ss") adjust("user") = Application.UserName + adjust("source") = "adj" If opEditSales Then If opPlugVol Then adjust("type") = "scale_v" - adjust("amount") = tbAdjVal + adjust("amount") = aVal Else adjust("type") = "scale_p" - adjust("amount") = tbAdjVal + adjust("amount") = aVal End If Else - adjust("type") = "scale_vp" - adjust("qty") = tbAdjVol - adjust("amount") = tbAdjVal + If aVol = 0 Then + adjust("type") = "scale_p" + Else + adjust("type") = "scale_vp" + End If + adjust("qty") = aVol + adjust("amount") = aVal End If 'print json @@ -594,7 +649,11 @@ Sub calc_mval() fVolm = pVolm + bVolm End If End If - fPrcm = fValm / fVolm + If fVolm = 0 Then + fPrcm = 0 + Else + fPrcm = fValm / fVolm + End If aVolm = fVolm - (bVolm + pVolm) aPrcm = fPrcm - (bPrcm + pPrcm) Else @@ -604,9 +663,13 @@ Sub calc_mval() tbMFVal = Format(tbMFVal, "#,###") 'build json + Set j = JsonConverter.ParseJson("{""scenario"":" & scenario & "}") + j("scenario")("version") = "b20" + j("scenario")("iter") = handler.basis j("stamp") = Format(Date + time, "yyyy-mm-dd hh:mm:ss") j("user") = Application.UserName + j("source") = "adj" If opEditSalesM Then If opmvol Then If nomonth Then @@ -614,6 +677,7 @@ Sub calc_mval() j("month") = month(mline, 0) Else j("type") = "scale_v" + j("scenario")("order_month") = month(mline, 0) End If j("amount") = aValm Else @@ -622,6 +686,7 @@ Sub calc_mval() j("month") = month(mline, 0) Else j("type") = "scale_p" + j("scenario")("order_month") = month(mline, 0) End If j("amount") = aValm End If @@ -631,6 +696,7 @@ Sub calc_mval() j("month") = month(mline, 0) Else j("type") = "scale_vp" + j("scenario")("order_month") = month(mline, 0) End If j("qty") = aVolm j("amount") = aValm @@ -668,8 +734,11 @@ Sub calc_mprice() 'build json Set j = JsonConverter.ParseJson("{""scenario"":" & scenario & "}") + j("scenario")("version") = "b20" + j("scenario")("iter") = handler.basis j("stamp") = Format(Date + time, "yyyy-mm-dd hh:mm:ss") j("user") = Application.UserName + j("source") = "adj" If opEditSalesM Then If opmvol Then If nomonth Then @@ -677,6 +746,7 @@ Sub calc_mprice() j("month") = month(mline, 0) Else j("type") = "scale_v" + j("scenario")("order_month") = month(mline, 0) End If j("amount") = aValm Else @@ -686,6 +756,7 @@ Sub calc_mprice() j("month") = month(mline, 0) Else j("type") = "scale_p" + j("scenario")("order_month") = month(mline, 0) End If j("amount") = aValm End If @@ -694,7 +765,12 @@ Sub calc_mprice() j("type") = "addmonth_vp" j("month") = month(mline, 0) Else - j("type") = "scale_vp" + If aVolm = 0 Then + j("type") = "scale_p" + Else + j("type") = "scale_vp" + End If + j("scenario")("order_month") = month(mline, 0) End If j("qty") = aVolm j("amount") = aValm @@ -709,3 +785,27 @@ Sub calc_mprice() Me.load_array End Sub + +Function iter_def(ByVal iter As String) As String + + Dim i As Integer + + For i = 0 To UBound(handler.baseline) + If handler.baseline(i) = iter Then + iter_def = "baseline" + Exit Function + End If + Next i + + For i = 0 To UBound(handler.adjust) + If handler.adjust(i) = iter Then + iter_def = "adjust" + Exit Function + End If + Next i + + iter_def = "exclude" + +End Function + + diff --git a/fpvt.frx b/fpvt.frx index c080ed18aac897a149dcbeb7999a34f4fd4c5bc7..7b4c7f56c9aecde8a71fe840ab697fe5345164b7 100644 GIT binary patch delta 2636 zcma)-dr;I>6vyxV?Jg;>D=SZV?!p4fW96X)s60g8@^HaL95Gf{0mWTZsEia8E2Kd2 zU}2h;l}*iL*VE$^m+CA zpxVS^Bi~(@It)%O!4JNzFv_PX{|oXI4IArZ3f(bAm^Xc3)_iG|g+@>qxqMGvuoI)VO#@G*r}}OU$}FBWcL&OhRl_m*--> z&|&A*=VJ=*Ifp5}fd`~74F?X$l{6aLYv6--lG!J*?+i3Ppr0mZ!^M3ZE)E-qi`yJB zmJElBC5MY;1Z1S9M?=N{3z!Wc2aoOIArmxxu@HTN?=}e}Yn`c@Tnd>6(m@8u1k1p3 zkOg?LY{(pt3s!)YU=_#%JYJy5)sRJC4JZaBfXB;t=W;YEKqXkK4ODBg7IGbM0BR0i z)7PpEY}I5tWCz#=wu4TC< zWssUs6c^GE<}ZBE%Y~r_2Egqcg}x3MY#bBm{ePe-L<->a;H2j4Vx1?kyuU+;e2Y4< zztH39admpcBiOCV>*;Rq+{2mJU+ea?c6iz>MeQz6n|n8X8fv58Lc^(0iJ&x_f1%LZ zM47+v&qX2YCxv*4^AWz!u8o%Zv6Ex09h8VjnD_zJ#(iF{=J|S|NX|VYxs1sME|_Ix z4(yeIG`y%!Mv*b9#-NrjkIQfxj%rBYoU&NLJk7sfHJ`YGvT7c|n*S>+-)M)OQ<&42 zQ*sVdhN7KG{6KIv&%vC_Dok}WQFW9HBvf_OM#Gkd1kUTZEMs-pxgzAMY8@TNkC394zAqrZInk9wM z+R416*O33v?ontrR67f_SoIR@G#uAw;5ty(ig=N2)J)+FG>a`g-Bm>{Pm8+R{cS}7#sI-NQ254MWq@Xk4%1`Puyp z`=K?e@lJrYSheecHl^C_erShc)XvC{VX|u12CbIQ=#Sv3&j^H|smxscGSRD0NOrCC zQd@R1eknT<1=W>7)A@_&+w1{)xj06*^~42AE40&3#RED4y{jZ$aV@8syg2&B8K|VE zsp^B0r8AbL>rI$ZyQ`zcZAq{=y`6NcIhLASHo8&jm19(17DJZ&VA@-@O}5az6~PmK zmFE{Y75@10|KGNjNiXv^HBJ>xiW9jIPQCh`}@9DF?Q&nC(Jy@qX?pW{3p<>5ff(|5=AG&+qq49Lcol5YBp}!Aci5?W0RYAym~= zsHLF>!peTgv4${a7Vc!k;!-#dF$yF|O-d%2bdrJ~O1K09{=e256~6aLGF~Jvc#{p-l4ZPtED71Nu(8a(8e9Tq8HPcC0#1Z&z@`uvq_Bj2 zu}_-3L`fk0B6maPG1+LYlw9S;xt_O_kEHxd&tCm=I=QvS89zs# z5x?`Dl-^#c6GEKz;0M>E)TQ^)W#jAePqf$ch^(bsrXk6V$G5A@qrn}Jl$h+AI2`0O zzzCRtWFQ4d1=4}RKqim@WC3O%8^{5M0J(sqCzI31S}?K#1%M4G1d4#W_wL;*hAaU} zfij>R7y*m~>_7$JpfkD!UE$BkoZ4<+lfI&^)J_8%^(m#LO}8gu1YP%rLf&aEd-rROcBaRK<^Ov$@aC}&Dj93nX%+tmeO-3Wd^PC49EiF10l5-r1|9<*2ZF#Vpao!V8{}$W4X_qy2ReXt0MD=2N%!`2I@?pD4(v(RA5jr028Nh29X(@R!Ig zA=p8jTNZ#5hsV5_*Mu`S?e0})7=Ix^C0SP zx&i7%GWkvA1}=Lybq(&6nPkcd8MqGLRyla37|fh>_6=^-i;KvKvPKcn{9I!VHvo&p z+_K~!7t((40qS;I$6#a|F9Y6(;Cap`aw zJV;keh34{y%R<_lGt0nT(aaw$tz^obSHuPJAT^QCqg}bP?a>Cxt?wb0Bo1jR<37t> z^C9TmO7c}h?W&>N0`gQt%gHosUJ+O2Kx(4>Gn^OcpTlO`xohMDT+{!3!r9;*f zXEQf<)MT_iR33h~;NIq&Z4y;&7Jo&OaV>pHIhK6H%4@NCY%)gh~Cw{@|u z(iNoJ)>lIMLNUcCjApzT#J+4#LE?oZgu+QoY~_ZqQ92BOBGdxY=eWo$HW(395q zR|OD}PUw1>6Ie5vc?LXVo{aLUTZ7CiI|c=@M59JjqC{_{s_=FK9T}BH2TST@x zU>cTgq^_LlhC+;rI7EgC7%if%;hlzY7`0JXdZ(cVqn#>`w~9|e~`Yi4NcLb8!YW; zZy4`ySr!NiDlRFH>kv1VW4&45ZrBDz5wk)VMa&89}hHZcB~2n z>0Di@Nhd{^wG5e}vC@|X1onupKd+#(b@mKI8FSp>4Xno>><9=tTBlmNS zdb;IIPv)xS%=Z^!2OdO3nTmWDT#6@5r4xNwD3JhK1%S3b53A=`?%Ki&QYRO zkiRM;g!)y_A54%qqR#Ly4Fug@VbcrIt1jwSB*A5#5~IkC{eBk8jUyEMQbptHVz`y< z9U>*UpZiZZw5`^Vt&6ciAGM*1_#@NvB z$x%T{^JHWv#Z30Q(oMCV7c)3LktX5WNEi;K!@shX>Xke?JT~#aP39Khc&H2&Qr3sr zC*RbuG@$CZT9GOp^!Ex|A=<5CLGJf2;E>(-VnKC^rQm;%P#CQFA!+nx-DITN=M{wt zT!HYG=xf#RMz;~pQ07kZIU%vSeaU74ROI8fTdz5|MVAyNefSGPIysW z7jX9b7rri*o1$@Le^Iy`;Bwf%&P~<0T8j9&Y+X)}Iqp$1Do8!Vri09XMR0ZM`l_UQ zz$(rFw;nuwj1jz+x+Z6g&(tOjF_YXY21?8Tk44MCzJjw$6X!966kG zQ;@=qYnqn@EJYS{AnSle@K<#+c>lON7=L55rfER(|z)Ju>e_4~SLcRw46gUa| z4Cnz~2YwFx0{A8H2EgmygnSFY2{0s1WAH2B3~(0sHSimNiSKCgUC7@9?*V@R-UrSB z=YbCZ=3a#S5cmlABX9}eJ?3M8=l=|O8Mva|UxU2Pg~^kj@WZav+o>@=hn!V*WqvoJ z*QBfo^qi`yl{)OXbjQ6|2?iMdTt_gshQ*V(EiaoA`O7NHAxsvtXZvVz^hNyynufuEvXGj(Q~u*Gl{Hx zzs`eSZMUWczGcX=(>|*XJ0#um%~h9q>-iKBsBgk=t>=`Qt9RUW5pz{>XUsx0-66=l z`qpv6C{4~H^Aqv-rxuFU5%tIYl~j&XNk-41 o=_aXL6|mFs8D%Ia6gYi0V>~Pw*-$R+w4mV`<@<-|iw5g|0D7LxLjV8( diff --git a/handler.bas b/handler.bas index a9ecd1c..79aec14 100644 --- a/handler.bas +++ b/handler.bas @@ -11,6 +11,9 @@ Public data() As String Public agg() As String Public showprice As Boolean Public server As String +Public basis() As Variant +Public baseline() As Variant +Public adjust() As Variant Sub load_fpvt() @@ -85,7 +88,7 @@ Sub pg_main_workset(rep As String) doc = "{""quota_rep"":""" & rep & """}" With req - .Open "GET", server & "/get_pool", True + .Open "GET", handler.server & "/get_pool", True .SetRequestHeader "Content-Type", "application/json" .Send doc .WaitForResponse @@ -191,29 +194,7 @@ Sub pull_rep() End Sub -Sub test() - Dim req As New WinHttp.WinHttpRequest - Dim json As Object - Dim wr As String - - - - With req - '.Open "GET", "http://10.56.1.15:3000/scenario_totals", True - '.Open "GET", "http://10.56.1.15:3000/scenario_package", True - .Open "GET", "http://localhost:3000/scenario_package", True - .SetRequestHeader "Content-Type", "application/json" - .Send handler.scenario - .WaitForResponse - wr = .ResponseText - End With - - Set json = JsonConverter.ParseJson(wr) - 'Set scenario_totals = json - - -End Sub Function request_adjust(doc As String) As Object @@ -227,17 +208,30 @@ Function request_adjust(doc As String) As Object Set json = JsonConverter.ParseJson(doc) With req - '.Open "GET", "http://10.56.1.15:3000/scenario_totals", True - '.Open "GET", "http://10.56.1.15:3000/scenario_totals", True - .Open "GET", "http://192.168.1.69:3000/" & json("type"), True + .Open "POST", server & "/" & json("type"), True .SetRequestHeader "Content-Type", "application/json" .Send doc .WaitForResponse wr = .ResponseText End With + + If Mid(wr, 2, 5) = "error" Then + MsgBox (wr) + Exit Function + End If + + If Mid(wr, 1, 6) = "" Then + MsgBox (wr) + Exit Function + End If Set json = JsonConverter.ParseJson(wr) + If IsNull(json("x")) Then + MsgBox ("no adjustment was made") + Exit Function + End If + ReDim res(json("x").Count - 1, 32) For i = 1 To UBound(res, 1) + 1 @@ -300,3 +294,42 @@ Function request_adjust(doc As String) As Object Sheets("Orders").PivotTables("PivotTable1").PivotCache.Refresh End Function + +Sub load_config() + + Dim i As Integer + Dim j As Integer + '----server to use--------------------------------------------------------- + handler.server = Sheets("config").Cells(1, 2) + '---basis----------------------------------------------------------------- + ReDim handler.basis(100) + i = 2 + j = 0 + Do While Sheets("config").Cells(2, i) <> "" + handler.basis(j) = Sheets("config").Cells(2, i) + j = j + 1 + i = i + 1 + Loop + ReDim Preserve handler.basis(j - 1) + '---baseline----------------------------------------------------------------- + ReDim handler.baseline(100) + i = 2 + j = 0 + Do While Sheets("config").Cells(3, i) <> "" + handler.baseline(j) = Sheets("config").Cells(3, i) + j = j + 1 + i = i + 1 + Loop + ReDim Preserve handler.baseline(j - 1) + '---adjustments----------------------------------------------------------------- + ReDim handler.adjust(100) + i = 2 + j = 0 + Do While Sheets("config").Cells(4, i) <> "" + handler.adjust(j) = Sheets("config").Cells(4, i) + j = j + 1 + i = i + 1 + Loop + ReDim Preserve handler.adjust(j - 1) + +End Sub diff --git a/openf.frm b/openf.frm new file mode 100644 index 0000000..3d82d41 --- /dev/null +++ b/openf.frm @@ -0,0 +1,51 @@ +VERSION 5.00 +Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} openf + Caption = "Open a Forecast" + ClientHeight = 2025 + ClientLeft = 120 + ClientTop = 465 + ClientWidth = 3825 + OleObjectBlob = "openf.frx":0000 + StartUpPosition = 1 'CenterOwner +End +Attribute VB_Name = "openf" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Private Sub cbCancel_Click() + + openf.Hide + +End Sub + +Private Sub cbOK_Click() + + Application.StatusBar = "Retrieving data for " & cbDSM.value & "....." + + openf.Caption = "retrieving data......" + Call handler.pg_main_workset(cbDSM.value) + Sheets("Orders").PivotTables("PivotTable1").PivotCache.Refresh + Application.StatusBar = False + openf.Hide + +End Sub + +Private Sub UserForm_Activate() + + 'handler.server = "http://192.168.1.69:3000" + handler.server = Sheets("config").Cells(1, 2) + + Dim x As New TheBigOne + Dim d() As String + + openf.Caption = "Select a DSM" + d = x.SHTp_Get("reps", 1, 1, True) + + For i = 1 To UBound(d, 2) + Call cbDSM.AddItem(d(0, i)) + Next i + + +End Sub + diff --git a/openf.frx b/openf.frx new file mode 100644 index 0000000000000000000000000000000000000000..09df77ee4ef1da4f690c547cec1e82022632fb37 GIT binary patch literal 3096 zcmeHJ&r1|>6#sl@R?XVVjWD`CtEl2TBY@MnlW7_y*4r`_2R6?ezh4T^{cx@(>4 zVh|*PH$C|mc(e|kA}EvYLDD61`n;Lhbrco{JFVnzZH68QKb_3hni$5zD<3b&wR*K0;&#Gok4@TmpRD9HP+=Xrq=pjf9GLf|iRmGhI4 z2+y*H(yyobp9qY@;jaV(gD8*}@uYl}WARorRPMa=gP&8EH@>uPrry563hob^(MgQv z-q-V=KPjEc9&sj31nkJq1iMfag18fX4IQ1h0ag6CzLFj&dy+h=xb0KR*58L3g?{3n z$1F@_F}=?(&da$Y?7xW<7b@$6Cm7^kzW>tmr62Gg!{+YH-DLamc-*D-C}x&>#`CT_TS68Qaw!F<-v