From 699d0fbb2e00047ff5a209b4a125c09598ad8702 Mon Sep 17 00:00:00 2001 From: Trowbridge Date: Tue, 5 Mar 2019 17:10:08 -0500 Subject: [PATCH] update some monthly form controls --- fpvt.frm | 130 ++++++++++++++++++++++++++++++++++++++++++++++++++----- fpvt.frx | Bin 24600 -> 25112 bytes 2 files changed, 119 insertions(+), 11 deletions(-) diff --git a/fpvt.frm b/fpvt.frm index 3fc3b4e..1320359 100644 --- a/fpvt.frm +++ b/fpvt.frm @@ -30,15 +30,6 @@ Private Sub cbCancel_Click() End Sub -Private Sub chbPlug_Change() - - opvolume.Enabled = Not chbPlug.value - opprice.Enabled = Not chbPlug.value - -End Sub - - - Private Sub butAdjust_Click() MsgBox ("adjustment posted") Me.Hide @@ -48,6 +39,8 @@ Private Sub butCancel_Click() Me.Hide End Sub + + Private Sub lbMonth_Change() Dim i As Long @@ -139,6 +132,56 @@ Private Sub opEditVol_Click() tbFcVol.BackColor = &H80000018 End Sub +Private Sub opEditPriceM_Click() + opmvol.Enabled = False + opmprice.Enabled = False + opmvol.Visible = False + opmprice.Visible = False + opmprice.value = True + opmvol.value = False + + tbMFPrice.Enabled = True + tbMFPrice.BackColor = &H80000018 + tbMFVal.Enabled = False + tbMFVal.BackColor = &H80000005 + tbMFVol.Enabled = False + tbMFVol.BackColor = &H80000005 + +End Sub + +Private Sub opEditSalesM_Click() + opmvol.Enabled = True + opmprice.Enabled = True + opmvol.Visible = True + opmprice.Visible = True + + tbMFPrice.Enabled = False + tbMFPrice.BackColor = &H80000005 + tbMFVal.Enabled = True + tbMFVal.BackColor = &H80000018 + tbMFVol.Enabled = False + tbMFVol.BackColor = &H80000005 + +End Sub + +Private Sub opEditVolM_Click() + opmvol.Enabled = False + opmprice.Enabled = False + opmprice.value = False + opmvol.value = True + opmvol.Enabled = False + opmprice.Enabled = False + opmvol.Visible = False + opmprice.Visible = False + + tbMFPrice.Enabled = False + tbMFPrice.BackColor = &H80000005 + tbMFVal.Enabled = False + tbMFVal.BackColor = &H80000005 + tbMFVol.Enabled = True + tbMFVol.BackColor = &H80000018 +End Sub + Private Sub opPlugPrice_Click() calc_val End Sub @@ -219,7 +262,6 @@ Private Sub UserForm_Activate() month(i, 6) = Format(sp("package")("mpvt")(i)("2020 base value_usd"), "#,###") month(i, 7) = Format(sp("package")("mpvt")(i)("2020 adj value_usd"), "#,###") month(i, 8) = Format(sp("package")("mpvt")(i)("2020 tot value_usd"), "#,###") - Next i @@ -302,7 +344,7 @@ Sub calc_val() adjust("user") = Application.UserName 'print json - tbJSON = JsonConverter.ConvertToJson(adjust) + 'tbJSON = JsonConverter.ConvertToJson(adjust) End Sub @@ -345,3 +387,69 @@ Sub calc_price() End Sub +Sub calc_mval() + + 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), "#,###") + + + '---------if volume adjustment method is selected, scale the volume up---------------------------------- + If opPlugVol Then + tbFcVol = Format((CDbl(tbPadjVol.value) + CDbl(tbBaseVol.value)) * pchange, "#,###") + Else + tbFcVol = Format((CDbl(tbPadjVol.value) + CDbl(tbBaseVol.value)), "#,###") + 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") + 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") + End If +End Sub + +Sub calc_mprice() + + If IsNumeric(tbFcPrice.value) And tbFcPrice.value <> 0 Then + tbFcVal = Format(CDbl(tbFcPrice.value) * CDbl(tbFcVol.value), "#,###") + tbAdjVal = Format(CDbl(tbFcVal.value) - CDbl(tbBaseVal.value) - CDbl(tbPadjVal.value), "#,###") + tbAdjPrice = Format(CDbl(tbFcVal.value) / CDbl(tbFcVol.value) - ((CDbl(tbBaseVal.value) + CDbl(tbPadjVal.value)) / (CDbl(tbBaseVol.value) + CDbl(tbPadjVol.value))), "#.000") + Else + tbFcVal = 0 + tbAdjVal = Format(CDbl(tbFcVal.value) - CDbl(tbBaseVal.value) - CDbl(tbPadjVal.value), "#,###") + End If + +End Sub + +Sub calc_mvol() + + Dim pchange As Double + + If IsNumeric(tbFcVol.value) And tbFcVol <> 0 Then + 'price should already have been re-calculated to base + prior at this point + tbFcVal = Format(CDbl(tbFcPrice.value) * CDbl(tbFcVol.value)) + + '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), "#,###") + 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") + Else + tbFcVal = 0 + tbAdjVal = Format(CDbl(tbFcVal.value) - CDbl(tbBaseVal.value) - CDbl(tbPadjVal.value), "#,###") + tbAdjPrice = Format((tbBaseVal + tbPadjVal) / (tbBaseVol + tbPadjVol), "#.000") + tbAdjVol = Format(-CDbl(tbBaseVol.value) - CDbl(tbPadjVol.value), "#,###") + End If + tbFcVal = Format(tbFcVal, "#,###") + +End Sub diff --git a/fpvt.frx b/fpvt.frx index 28fe3e35eb65faf92bed44dbeac4d8588c0035bc..a9853bbc15bddec507df92132d42ec131cc2bc26 100644 GIT binary patch delta 3353 zcmZvee^is_6~~|FO@c&u5imdi!2sd6!vv8eN+78yh$2MfSBGN2IA|lWLRuZRf!eXr z78P$>t*6^+H|Mri*PgVSwcF~P`(;;ar(JFJxPRQ~e)KqZwsq~gjeVc@eFHme?>V3M z-se6y&yV}u=e{|5jvu|i<2KwC&sgtEaVb*ts5Hu_Mn}o4A2z(t7#pNN>(@tb=<9UJ zPKhzShcTJ4(dlWtqW1V!ed@NSDn9t?m8)C_Z{`p$#&+OWwRA1vWqySw<&d0o#jf}$ zzGO`7OHPMZ1~3B-GU>s@R=$iPx~Hc`Pe;v3+qrD{hx#i|17@I!YDJAn(V1fs8+v52D7z)%Z3zzgmI!l4dw4Ok26K?4x>Mon&jYyulWGiU)m zunDvR;oAn;4mv<5=mK|x&w_5T6ydZL4I#Hd`av(~1KU9W>;Rtw{XqEL14-vn&7S)- z!;mJ!koSWJz#gy{h#!nV?gI~khd=}fd(@n^lrOHeFcybQ@eU4#{lUME&x76+8XWEq z?j5IX={vB0kv1`)BE_t%A%P_**>(;qHNu9`|GpEUv_RJ$J>(NYe}so9!F*?KZe$F} zN=_hK6iE|vEm32pjvKNuL^UO6MHYTjjD}}`RpL|~NMRRU%d*ZLc=2q~X^A=45;bP) zI4>eOC&H~XnG>4HWLvJtWaE+{S<$dI)iUwFmX!TGk0vbX5yL9%XBSObMtCL3g%LwJ+AWk^ zFk)C5>oFXFwvLkJ^>m}iW_TE_Ym{6(L3i8c(=)bmYAl%_@7;b+cxX5jr0$YJI$M$= zJ!+y$C9CXn4l4zREe>lEhjkN?y@mD%NOocVCt%~$SZ;}Tuy<>4(2Hnyd7*Tb(Xnz% zj#IIj#c8u*_FK-_d?ZV$q~0#29*v?)-OT4nE{hn3(e76^vpd#f7=UI_H?!1c=uz#t zBZe(8kH|&gfnmj?XUVKLJlwR}KiC%tKEQs1dvVbqdS;hUrY*ss`KqB%eNSSUj9HcC zirjt=ZBYzFT?_UqnXa_1ino*?Djq%VPM{-cGTmA>PKQg15#A)prUv$+%}Ec{rBjAI zt3ZS=_RNM)%x7iqK)^N{Qp#*+MWx{!?42})js6gt8l;zLa(Tocvih3R^NpFFXGvZW zF&sl%$%Q3HMGp`UmdNrE7{(IW+TH%00Xw66?aj!r*X*S_7Gm@}d#OIm9x0}@Dl7bU zRZzs8K^;|RQn5!fBBw5{JroS@3?RG8%PMNf--)66>64pIQ!&QpAUgzqB?sJ=>FS&Ags()r25fN=t`cr)gZE(bs zc~v>xcErVW+>nKJj{i4zrA=LEUx4iT0?MfVf-W%BM8~Vku$(umOL>?+h90I}u2gcl z#d3V^TRMMlfbOi!lyEZ+)zr}Yo9ENEniNU1E@zbFsKV7dxVo24)nxN3XshXF{X%+j zRRON0 z?xO4UjXJE2l00teYUrbV)kdQzIHK@)=u$%m_fX-wGQ2mf8;>8u+~TW7md3@^kD~Dy zcpOY>9S0!~fhlkp5D;IdC&5$T2v7#t(`c=H4vnvYuY(g>$4O0o3-a6GdGG=_1x^FH z+-Oq%)4YPlcft3-8SpAN3tj`?2R{H}rq?z3BgpgM$KV3^3HT}a8TdK)1rYvkK>iZE z2`+)Rz-90@_!WRp-n6J=?|@&chUsgN?`isVA*b#mGH?EJEH7sQ?x2HhIa+JxSYlrE zx6K|p)uv`JM+Wy$Mn@LiXit&)Lv*LT5Ld9aJD1KB%SI%;a`cQgc5LFG(D99nWbv0R zmZ@eM^Ek5?z;Ib)>SN+HTc1Bf(?e;^ML5@*<|2~^y%I}j!@W&jW!RH{7$>jSM3c>j zC8)VAWooSWiqy=N-Rv4)(#YmJ*`Wz zyc4bMoE=`f7=ix^oo=huq43g+ZEhW=AoUhlrQRw!)RrBKxbBOu=PNFve%RXW%5-z0 z-e$x&N>DgrJwZo2>2w>i)|*C?ouUAq=q%9%l!8^F6M_3z=YCknx=N(JK=g&KJp9gQ z!mg~+3jC?`t;EJEseDr+Ev|FJakfV3QIm`duomSr;8$ytXsgq!ZInNz)G>})b(W9Q z#FmSaKPbKgG_W-tIWo3&%-9!T2lBP3ike`ct{%52&qsT*br^xp^yG0nUGH&IOHCZ* YNNMyJeKB=Q+3}{0;>5Nj)0mY0A8bgn5&!@I delta 3201 zcmZ{mYfxLq6~}k4Bn%V*l0gWAu>|5xjIgl~APFH6+t@q}*aX`#0z{w@2;0JqONd15 zGQkaT;IuKxC$~-8q;}kg($q=QhO}wZx`~Tx(n7{F{m`_X&a^YmOq$1}Q~KX40UnrY z=6BDY$31sT!l_ZFX<=P?bgSjM`47^9VF&XYNF(nL!hBTV8~rX}8!7S>B4PI_fP zwFuiVeW*MbzN4&DXm(4CDV>a|84InfFg6k{i)~Y;-ZlRFjk(*4T!HA&9$fJ2$6YnF zl<+ctm!{Qz^}_9sm156+n$OGUYXaJ2s*qfuW z74i^h1MQ##90o@~ClIk+kVnBWa2z}cPKaf6W8eWIs5dITkp18xFaQRD@Y8&%-YEvB zqJ{wEC^!SY1Repx|7FNA@F*Auj{#v1L5B6Z5}x_+4#r|o4Yk9=qaGh)TQF|)4+jQ( zXBl;;^?#wqqCl_=-6~BpwZ}n4u1|&-6F0B^lo)(XDChYQCFt*Ntbp_l6+lxPE#bIr z3a&DUJfz78CUtU=POQ2d@2~=OT1iV8rj3a+HznR^3CC?$a9%>{tROF>>8wpfzGG90 z%@*xBo=?+;Ab)_=#vpH@X06XV`&*bSK}ent+x`nt~~ExwFXH ztd1KD*0!7)?Dcx6sX2$9b!X6>CQTB;4*PwhL*7buX2ds2Kd3ZNrYn}7FK|#%X#vF- zYNe}s$||fTr!tA=v;kFc^^yE6sf&ZE)6fI*WKOPnRA0nsA~Km0v#Jl;fE>}Y8sT^g zBNfgY`KL6o{Ru3gSe!rej7cahQ7qFamiXLPm_+Xv8q7Y~HXn~5oCbeIFv3EgLW)*WvJB=Q85$A$kbqgel0?B)T~HM>Y%0U2}&>3a5G&g$iekeK{Z_{wPIAJ)X{QjMupgw z)t}g`{|IH0V=gB49u_NlQyjWESTbXYZ0{-0khjcC#pTV&GFD!sX!>Z9UMMfx;%Daz z81u`=d8fHt^%~+kX~sCFx{gt#=&sRpSy1&&=u5Ka@|x#4Qtu9`L<7s^7(XjK0E_x# zxk+heBfF@^mQHDVu5&Lf9IB$5mGRVIDUt@f;(Hb)Xc zyi-{vt&8&x%RTX84u?IyQLkq`zD$`*%T-@d40(6r!NqvcbafH;)Aj0NDz)n9vuZIB zjqL*kIt=}jMejGn(=of2{$@9)DB)p~^mg54OwepirSbb4X|GL7m%A&eqxK?Cr(5<^ z>9m(dTv@3o@92A5-(xFXtjb9e9s^TwX9)S2xG9BR+Gk8cZ*8U@8{@--7Zy_%`?s_%3(>ya>Jru7IoHB_JnUIFJ&28Oo2r zE8r(l$E#8KQ^?oB&%n>Y8(<#134Q^72}Gh_LH-)N4SoZD3vPhlfp>t2xe57uun^V% z0C`*Vxp2Nm69+HNg!D9LJ05-c+qjRK?K|$N!HuQz|LQPO#Rgh0o;LmoeWQ7+x)9G4 z$Fj%7n4W5DbSRYMYU6hCX%C6&nG%<^V=eSgs5a8IWcK1DuS zsnOAN%dCXgU~DbMoYBPOX-&h(Zp)zVy-Ly_x*_#g>4h6e+uC2D%`HEd4Yi5r+z yvMrVVaUu;%;oTE)nC(+JjD4)cr>P!$tD@y@yLe%G&vr$^g(u1C$wuf=kNtlG7q;F2