From 6794d8ff9aa2459591c7ab333f09e6c99e7c64bd Mon Sep 17 00:00:00 2001
From: Trowbridge <ptrowbridge@HC-Companies.com>
Date: Wed, 6 Mar 2019 05:02:35 -0500
Subject: [PATCH] handle no month situation for sales plug

---
 fpvt.frm |  24 +++++++++++++-----------
 fpvt.frx | Bin 24600 -> 24600 bytes
 2 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/fpvt.frm b/fpvt.frm
index a51e574..14810f5 100644
--- a/fpvt.frm
+++ b/fpvt.frm
@@ -92,8 +92,8 @@ Private Sub lbMonth_Change()
     Dim i As Long
     For i = 0 To 13
         If lbMonth.Selected(i) Then
+            mline = i
             If i <> 0 And i <> 13 Then
-                mline = i
                 Me.load_var
                 Me.load_mbox
             Else
@@ -566,24 +566,26 @@ Sub calc_mval()
     Dim pchange As Double
     
     If IsNumeric(tbMFVal.value) Then
+        'get textbox value
         fValm = tbMFVal.value
-        'calculate percent change
-        'If (pValm + bValm) = 0 Then Exit Sub
-        pchange = fValm / (pValm + bValm)
-        
-        'plug the adjustment required
+        'do calculations
         aValm = fValm - bValm - pValm
         
-        
         '---------if volume adjustment method is selected, scale the volume up----------------------------------
-        If opmvol Then
-            fVolm = (pVolm + bVolm) * pchange
+        If nomonth Then
+            fVolm = fValm / bPrcm
+            fPrcm = bPrcm
         Else
-            fVolm = pVolm + bVolm
+            If opmvol Then
+                pchange = fValm / (pValm + bValm)
+                fVolm = (pVolm + bVolm) * pchange
+            Else
+                fVolm = pVolm + bVolm
+            End If
         End If
         fPrcm = fValm / fVolm
         aVolm = fVolm - (bVolm + pVolm)
-        aPrcm = fValm / fVolm - (bValm + pValm) / (bVolm + pVolm)
+        aPrcm = fPrcm - (bPrcm + pPrcm)
     Else
         aVolm = fVolm - bVolm - pVolm
         aPrcm = 0
diff --git a/fpvt.frx b/fpvt.frx
index 2d3090bb25b469ab99c659ac22cb5866eb943cbc..bb94262ad5269c5eff9a34e3837fdc9cb62c37e4 100644
GIT binary patch
delta 1149
zcmZWoUuaup9Q}UZy)C=5*=AV!Cv+@zwQ0@F(%K}~=HFdX`$w1C(z>*%?P!_=6mECt
zx(GfvhEQn0?jZ+dD>$d1d$361qVz##^-Y9U=~Oy|u{Y;~4g_I{;+I<sn!eq8zVDph
zIp=rpwGFzqL2E%S$(L84@{i~|?r}Fa&s%@;vQl@%Tlhe-$_)$TupjT-p<PHhv>^Q-
zLizE98boo{AXeG=wM;t3o7O3hhUSO0gq9it%C(54xPPxP1EqBztroGAWBX~x_t9z*
zOYtmm%AxYaBQo*Ui2*XK?Gr!BJYU3W=M*+O>(S74gBU*U@)EPQyT)ZI!Rz;Nli@}G
z4?M(h^3*$Ipj&Rl&Z!=nw;BQ~vWS1H*C%+}y<XX17kZG0wxB8aTUA*Lg#;lHdK1fi
zPvTeI2TeYJmavIv#DTZNE^d@C8*$;wa8d}#s*g%mKz)s<7w^Tq*nIYqD`zm?%sLrk
zb&OpZz4%JLm^19t+wsG^SH)KR1>EhM!&2CR;Yg#<nT?zjW0xaOk!h_*VuWJ+81&>J
zOvjw~BN~x}2(EB<V}R{x*9+~8X_V%R!uHMBfVkF*uVU@|WwUydx{-<}aCK01<%@fq
zs-H~GC>5Wnn)s9|SWKj)k;w|aPl(YKEn~lYmpzJk%_Xrsvlg`v2{&S$SUJ;*&(0=n
zCxMAoOsAaHQ5RAjT%^-x+VOcxIV?ikfju1_VXgwtOdB4A+R@T)ifQHkcR6DSs4gq^
z+;zfcFe-GTBI$8y?sNfb$sSVonzA?W_uysGyn@9cH!m@~Ka>&MwH^&cCELha<_&2s
zJ%GU2)V~I2p{M(CJAM$Oef1RnuNXHCY)trV*Lp{F&8ar5>yCq>#oaB1v86AOA4ei>
zczxtC@r^8wyei$&D<JKt<rsay`CJI!riZaJsEIG5*}6X7$|aA;w3dle0cJ8GN@~Z|
zn2Nh+U&7Oan#2m?G}(=ENX7kh7u=I>{50X@_rAfyiOd0Ww=jlHeGE4z3!<jF>_uV~
z&4uOcX)0nX>yt#U_$&JfC9Tz|3Q-VWj6IM0K_52a4xS6zF@Kr%Ng|3^$r%)8ny{T3
XsCvZCj7gU;d`|o;*3aksBv$YbUqpO<

delta 1144
zcmZWnZD?Cn7(VCRwDZnouHD)+wI6q_{m3%YEVgOdG#^d6t%WA7NlBZ!6tfVhm@c(h
z2O{b~3Jba^d6=v}CW`2OY>dL$pn}Lm5JYGvosRlv_+u~ywIafbI(>6j%ZR_uz0Y~y
z=Y8JiJQr^83pe;umrxjEaEXt38h1pkU`+lg@@kp?8(G0+epikgm)KGTzjcd0gw)+R
zWgF7opep1maz_1&iXI|rWeFnlm0ub71fr&88nmlsqqM<X(tvy^BGua8d1+hS|Jq6s
zsn%25e>><W)W%#1l79rzSCFc9MsS8g(<TXitN94;lxxkm4dS>HSK23eCw5pq<QZJH
zv~h=AvqTL%i#D58q-_|peJ7F`9PD@(5009!-r>NT7Ne}OpDPw!>a_BCtaY{-7@Kv#
z*Jp;Q>sPFFmE&g5V;FYYx6XO=N8_mNK7l^B5$C(BFy%Jk^X>qV7+hAKm3G%DE;0=7
zds?y5a}q0|eI)Gd-e!26<+$c_h*TPf3@upiP2sPo5ku~3YJT2*kTyH(KERn=c6&JP
zdg>AOG%Cr=JWf*xNc<>4oBeTo>CwcAR1qcSFFZ}kTylo~8t9@CfArN?XERLHuy#sO
z8DpnM=UzyqGvrZG(rdj>h?CP;^<JlO3%-yZwQqd~c&gx!36{mpcok;+Rm#XjK`!_|
z+TLYy_&NL>YaxQ2c*k3&JVO!PBE$~?3w}CgRg!nU#%!<^-b5=t4XR3(w9h7<g?S)L
z)A9osmFyfX@7gClhZnhS$XLXQ+E^WaiTU*MrNAMm(H7o=j%Wnt!4#jttAkA<7s3aF
zF*@YtV4s5d;r+!|9}U#&UG|U{wxb$%U?k$+;?r<0G@yUejc_pBj|{;a4B}Y0Lf?8e
z+*;)D2Q@5*jXRUmS>355!)o{p4`GjcKVBYroCGY4yo3inlQfS0D6kUPOA1|B9B;?P
zgk3I1>ja(-C9!*4!>Qq?$f0s*fspda{RM2qyoC8k@3wQ~)+?l;QXEfXV?3rZrjI3q
zR>O@bn4W~+um_71FA`D~pTj@CYMhPt7w_X%CGfq(-|?%Ik}H!1j?W^lq9En<M_$7m
o93xT|qvWJH8WIUEp(Pq9E58}MSWgt+Vrc3;%Idu-8yC~;Uz_iOH~;_u