From 856c885c44fdf5022f42790cb7337e28cb75fd4a Mon Sep 17 00:00:00 2001 From: Trowbridge Date: Wed, 6 Mar 2019 01:19:50 -0500 Subject: [PATCH] change so price and volume edited together --- fpvt.frm | 80 +++++++++++++++++++++++++++++++++---------------------- fpvt.frx | Bin 25112 -> 24600 bytes 2 files changed, 48 insertions(+), 32 deletions(-) diff --git a/fpvt.frm b/fpvt.frm index 1592a34..47791d3 100644 --- a/fpvt.frm +++ b/fpvt.frm @@ -41,12 +41,35 @@ End Sub +Private Sub butMAdjust_Click() + + + + +End Sub + +Private Sub butMCancel_Click() + + Me.Hide + +End Sub + Private Sub lbMonth_Change() Dim i As Long For i = 0 To 12 If lbMonth.Selected(i) Then If i <> 0 Then + If co_num(month(i, 6), 0) = 0 And co_num(month(i, 2), 0) = 0 Then + tbMBaseVal.value = 0 + tbMBaseVol.value = 0 + tbmPAVal.value = 0 + tbMPAVol.value = 0 + tbMFVal.value = 0 + tbMFVol.value = 0 + tbMBasePrice = 0 + tbMFPrice = 0 + End If '------------base------------------------------------- tbMBaseVal.value = co_num(month(i, 6), 0) tbMBaseVol.value = co_num(month(i, 2), 0) @@ -83,6 +106,7 @@ Private Sub lbMonth_Change() End Sub Private Sub opEditPrice_Click() + opPlugVol.Enabled = False opPlugPrice.Enabled = False opPlugVol.Visible = False @@ -94,12 +118,13 @@ Private Sub opEditPrice_Click() tbFcPrice.BackColor = &H80000018 tbFcVal.Enabled = False tbFcVal.BackColor = &H80000005 - tbFcVol.Enabled = False - tbFcVol.BackColor = &H80000005 + tbFcVol.Enabled = True + tbFcVol.BackColor = &H80000018 End Sub Private Sub opEditSales_Click() + opPlugVol.Enabled = True opPlugPrice.Enabled = True opPlugVol.Visible = True @@ -114,42 +139,27 @@ Private Sub opEditSales_Click() End Sub -Private Sub opEditVol_Click() - opPlugVol.Enabled = False - opPlugPrice.Enabled = False - opPlugPrice.value = False - opPlugVol.value = True - opPlugVol.Enabled = False - opPlugPrice.Enabled = False - opPlugVol.Visible = False - opPlugPrice.Visible = False - - tbFcPrice.Enabled = False - tbFcPrice.BackColor = &H80000005 - tbFcVal.Enabled = False - tbFcVal.BackColor = &H80000005 - tbFcVol.Enabled = True - 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 + opmvol.value = True tbMFPrice.Enabled = True tbMFPrice.BackColor = &H80000018 tbMFVal.Enabled = False tbMFVal.BackColor = &H80000005 - tbMFVol.Enabled = False - tbMFVol.BackColor = &H80000005 + tbMFVol.Enabled = True + tbMFVol.BackColor = &H80000018 End Sub Private Sub opEditSalesM_Click() + opmvol.Enabled = True opmprice.Enabled = True opmvol.Visible = True @@ -165,6 +175,7 @@ Private Sub opEditSalesM_Click() End Sub Private Sub opEditVolM_Click() + opmvol.Enabled = False opmprice.Enabled = False opmprice.value = False @@ -199,7 +210,7 @@ Private Sub tbFcVal_Change() End Sub Private Sub tbFcVol_Change() - If opEditVol Then calc_vol + If opEditPrice Then calc_price End Sub '--------------------------------monthly buttons-------------------------------------- @@ -218,11 +229,10 @@ End Sub Private Sub tbmfVal_Change() If opEditSalesM Then calc_mval - tbMFVal.value = Format(CDbl(tbMFVal.value), "#,###") End Sub Private Sub tbmfVol_Change() - If opEditVolM Then calc_mvol + If opEditPriceM Then calc_mprice End Sub Private Sub UserForm_Activate() @@ -233,8 +243,8 @@ Private Sub UserForm_Activate() Dim k As Long Dim ok As Boolean - handler.server = "http://10.56.1.20:3000" - 'handler.server = "http://192.168.1.69:3000" + 'handler.server = "http://10.56.1.20:3000" + handler.server = "http://192.168.1.69:3000" Set sp = handler.scenario_package(handler.scenario, ok) @@ -270,6 +280,7 @@ Private Sub UserForm_Activate() 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") '---------------------------------------populate monthly------------------------------------------------------- @@ -401,9 +412,10 @@ End Sub Sub calc_price() - If IsNumeric(tbFcPrice.value) And tbFcPrice.value <> 0 Then - tbFcVal = Format(CDbl(tbFcPrice.value) * CDbl(tbFcVol.value), "#,###") + 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") Else tbFcVal = 0 @@ -419,6 +431,7 @@ Sub calc_mval() If IsNumeric(tbMFVal.value) Then 'calculate percent change + If (CDbl(tbmPAVal.value) + CDbl(tbMBaseVal.value)) = 0 Then Exit Sub pchange = CDbl(tbMFVal.value) / (CDbl(tbmPAVal.value) + CDbl(tbMBaseVal.value)) 'plug the adjustment required @@ -440,13 +453,16 @@ Sub calc_mval() tbMAPrice = 0 'tbMAPrice = Format(CDbl(tbMFVal.value) / CDbl(tbMFVol.value) - ((tbMBaseVal + tbMPAVal) / (tbMBaseVol + tbMPAVol)), "#.000") End If + tbMFVal = Format(tbMFVal, "#,###") + End Sub Sub calc_mprice() - If IsNumeric(tbMFPrice.value) And tbMFPrice.value <> 0 Then - tbMFVal = Format(CDbl(tbMFPrice.value) * CDbl(tbMFVol.value), "#,###") + If IsNumeric(tbMFPrice.value) And tbMFPrice.value <> 0 And IsNumeric(tbMFVol.value) And tbMFVol.value <> 0 Then + tbMFVal = Format(CDbl(tbMFPrice.value) * CDbl(tbMFVol.value), "#,##0") tbMAVal = Format(CDbl(tbMFVal.value) - CDbl(tbMBaseVal.value) - CDbl(tbmPAVal.value), "#,###") + tbMAVol = Format(tbMFVol - (CDbl(tbMBaseVol) + CDbl(tbMPAVol)), "#,###") tbMAPrice = Format(CDbl(tbMFVal.value) / CDbl(tbMFVol.value) - ((CDbl(tbMBaseVal.value) + CDbl(tbmPAVal.value)) / (CDbl(tbMBaseVol.value) + CDbl(tbMPAVol.value))), "#.000") Else tbMFVal = 0 @@ -476,6 +492,6 @@ Sub calc_mvol() tbMAPrice = Format((tbMBaseVal + tbmPAVal) / (tbMBaseVol + tbMPAVol), "#.000") tbMAVol = Format(-CDbl(tbMBaseVol.value) - CDbl(tbMPAVol.value), "#,###") End If - tbMFVal = Format(tbMFVal, "#,###") + tbMFVol = Format(CDbl(tbMFVol), "#,###") End Sub diff --git a/fpvt.frx b/fpvt.frx index 5b931f6cc1d588d9a999c762ae31554cd3e90d15..63f208d2b2c678b690ee000d183bec13e8d552c3 100644 GIT binary patch delta 2139 zcmZuydrXs86#wqmRw+;g1ZjCl%WFL36)P=RN>}g!BJHH|Qh`sbk)&7@a6{(6S0YYO z_$~7_ht6%fhnuc0(G90=ZaCSLO{TJ#sEH=?KbK`$oXOm|rLbVu9{1dH&OPUL z|7EuSBAZfT^%I1;(^F=M&`4XDfJ2g|cYXX+fqvVW8+WA$@$L|wO3}yEB7<7qqPR(_ zb@*Mr*mFnjkg=_vEWa{&m_?=D{@}(4lkuI|{38f!$SNPV1JAJQ=vKK^7e{7#Z5|he zZ+`&gv_a3vv_jU~Dfg&@RUA*5O5U5!gTT_K+`cEghs+Rps` zdG_pC109NiFtv#@>xtpCnP>~4m9UZUGJ(t6h;AaZ6J8~3CUChYXl4*&47%_^wg!*F zW7!Y_)sH714W;I}V9@ov#G{P(gH7ZxmX$K<`K-D~GC3<{G;JHN)$miQ8I&>2D({L? zACq)FFYzd~86wjmCpM17VP&jdX3TWqjo81~M(mE8CDuFfaa^L9>GF)kot3fO=zgJt zbwZVNm>KX*}2@=Mp5P zr--F}aHQX4E~I7{@L^ICc4Zi`&K8c*jOi>Ek1}HMda?@Y%ofF0+y{Df?TP_fjYabr zy0bbI?-PI9t9f@q^EOm-Iu!efxAQpJn^5T+>6~_b3U5`M&?n0Tw}27--}u7pA2>x2 zI?LUz)rR>%ic1D74V2uN%G{nz<0>X*3K*W7%`!2Rvr8tCf1e*w%EX@BI8tQE6ET{*!{=g| zm!6xqjojp!&eFFgSBqau{GrVY#>2d5l;*|YPm>Nkc|lB%>*hqvH*38btJy+X%FOv; zdO;A?LJ}pbpxo>m8mQ_9eqP9AO}XT1#l4DTJj#xTCf|%(wpg^~r^yG&W&h1Fvu zKb6(@S;|Gh4SRJM8ZBYoBJQwkgUJ+yx&?YvzIfCdz_q0&3N?zq9!(WyPEJ|RV4y%L zlW2XVAW`9>z)Uz)pos~fz~qEldW?caLCECS#RJtQYUwgyt66}m!blc@*1|>pWF)NM z&9oDPh5fSQ)H_+mP;8#>C=Dbh269kI+9^V$;BK0~x}l{^aygrqNb!O&LUMs>@sPH2 zTO--7Aj#ATTko-6Tbm5E%fCd#LUNdwvgYg1Za!n1NpRDB zt`Pm6aFsAb_<`^v;TnPKhl&0~_}RzvTK?i&-@=x~`+7TrV7HoC4s6yKvDwM*9oY-D ze69lio2wjepN^J9bKRIRt>SsJ5KTd6wi5TPMkb*rH=btVLTN_8-J!9W%n~*tD=(U) z`2{){Z7P3ht=oHL&Meq$J6Sq{=IQXn7C^(Iu&)<|);>!Zy6t^ptKiYSbdrgyvN62$ z93Nf295An>=?#R&!EaK9F2_vPiX)D48U0`2i6fN>o`hvV%-aIKK5nwk;#>DtEP~eB zjYg{lCo5dk6a`pO8A2U}$EC}Z;`_Vr3uFmh&^KmZve8%Zws*zol#)uFduLQ&7YDhBO5S3sPk?Av8!SZ1NCo8XuzZ z2quQ8m{JYJftpAbjL&N(4bs%we*W^GsI8<%W_77^`g-Cfj|-pC*_7P>jElf+XcI#CwE z=+VuOF<{fF*>rRD4^5oY>E=FBCv&iAmMmGK{>7qmamKOpULTOvm;Bzj_uSvT_jk{^ z=N`C74_u)^CFT%98cqkzWkAkO4tpucMD5~V2qCTTr>NL>TU5T| z%~8tYDA992LN*}F1Y_Z6=uPO8xFi!Bn|RLp&GtJ-AawRss)0#Xe%h<1K3PN)4IuPN zJrbUZ%L-E>13bRo$d4)g*_RR3MMIi#%YP>)C*gdwEX$3ZO@hNC*bcNWAzntjg6KqW z6S~lDMr=X6hVVtqi=dQ1!u+eW3GU5TP#1*DCIZFC1H?dYpvM;)^MD3Ui+yHVpvM=w z5T{K=i?xA+kDD>$|E07$egc&09G3VZB+ z4;|)3f zg@au0f~-sl?AJ&0YuPfR;F8{qDG(V_X@@V(&_FQ-P*JIaY~5@a%h&?Fb&FucJUf_Q z%D)M9;(3!`e8qNQmDOyEIvvhsZo?5{)>&vVCcvSRFo-uwS+}zTyiDA5zs=SHZljtS zIJv0(veAU?ylfLN**Un=T;U{eN;emBt4cs_%Eo|3WF|nTX(>xE8z)RDD0$SBN?m(% zEWCyrwNcQL<3H8*oNbVm6$_6OIxY4?m%2H3;00X)Z62=XT*3VZvdbAs_QD^2t_3Q~q3O1#7twb4jIo2+q^< zsf+=6VI#(POQC{xz))cgPKU>ZgCVcuGW??zUz8ZW3p;&Nj*6n#lDDw)w%|A@*u!Yw zK@1??MGPXi6^7Bihj<@x1aTC>`Hu+}&f*TAV#hb-xLXw4eI7fX369SNdkO6qh|7p8 zh%XUeA+936MtpxdhO9}yg96zxxlTS9*f?YPkX6=UEj-Vd@> z1JF{C0R5KrOe=SJR1j}2_1_Y+QLu4%h0D!xtlPmc9E>&{291j$#u@{4WsyvS9VTj4 zhhZuBFA;%jWjmq9q=3%yS@?=?FWVdO+sR*S0a99$sQ!t(lg=_1YA+6gPfadkO`^$u->m z<7<{u#^!{Jl`G)QN(1y8gTPy-o_Rqqs$66O3N3279$i9=IDPT;3M49|(}PpR3JbAT z2kKQYUcZ1wz+d(ME5d@cScERPyVi=&XYRVxbv^w`Oe+8R>t`0$+7i6vTwTu88lM}& zarycY>JqEln