From 6a34f3fcf43086ab44d1013449ed4605f72490b2 Mon Sep 17 00:00:00 2001
From: Paul Trowbridge <fleetside72@hotmail.com>
Date: Tue, 19 Mar 2019 10:57:56 -0400
Subject: [PATCH] get monthly changes working

---
 fpvt.frx    | Bin 19992 -> 19992 bytes
 handler.bas |   1 +
 months.cls  |   9 +++++----
 pivot.cls   |   4 ++--
 4 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/fpvt.frx b/fpvt.frx
index 391548bbab6fe227bb605f48088a2034b9b73378..36d74dee85f9752e247aa4bf89d23fa2dbb91c06 100644
GIT binary patch
delta 909
zcmZ8gT}V@57(VYglN{Rcf2Owfle%f@+0gB5&Z9*xe<4#RdXu^YtutoMfmdl)F_0BJ
z7g<SE1VKd!-%WPWU68K3r0~WHx+w~TE(%2G+mSBZ&G)`M-}^q_^ZtA*tF*F8Yda#%
z<Fi;H3Ig`T>r%fv%@(B`V@`)Xy&GZ4{5TzbaBpKbva?0HWkyq6It(FM7|%kCMOg?-
z7X2{L0OrkMaZ<s1b34UYe)+7Jm6)u^N`$d83t`F1-&vxNJf0N<qa_PrNy}Fv1y`&!
z;<N%-|A>((EZbC?M%reP!V?;P+TM_cXLbiZHkooyU%H%#&&M=8x7*2!BaR^4hBAyg
zJe0<=BgDx*IBH2_dyaYo#Zl|5rx*sEPD$Y1Z1)|*Z6`?n&xgnMI?jH>)ruDZGqznG
zin9E=kbwjYHeS<{wi;^;nlS6pv&~J9q?yhHmP8BgDucQ&`&Bf`R;2tTu&YjN`Y)i$
zU3hTk4vSg>a_<1P-7$)y+jF0Dj|WTHzGs1?$^H;_+r}`aRO-I$zlsfY0oyGRUQnCY
zE+zy_c*9~$VC&u>A?mNr1fxN=!6bLUq$(&=PN1RXFrJc&(cPn9+dq`qqnDjwV@yk&
zpPPwH2}lK!TttD_27hZF_c~kWD1le4Pxv_=JcR;ZDSH@<Qf4g*RBy&CsR8t;3VW?q
z6Oa1RK0*nmbhMFP=C0Cq$j-`ER(@t!)Mcj5jvw?#E+!G1>P3tODp3_ElqRNQSnC{?
zxGLm^Zt{w6wcD^B%A+)U8*&f_CW0l{KWFAcD)g1W)s^v1ca4z1?sORmPZcMZ)lAJ;
zRDH!UO%TfkCm(f=AS~&{!lqV>UJdX3L;6rMPs;8-ob3I^f0?mwGt&rPDZcmp;=A*y
N-y#*e#_+e_`VR{pPH_ML

delta 941
zcmZ9KT}V@57{}k|J*zyVIVIC3E$1p{mOC@uacY~DEluqMZBbX9wm~1qww!iVW>+zY
z3jWatL|_D6R1h77iimEyv8bRZ7SYE|^a(;26<yTh76rR`-sk<F_xZoS=Y7uE^K|w+
zU4JcU9B-sUp1y=%@`xf5!aA(XP-h6olPSBEE=*C;4m_H&zkWvd4n1Z`os&}jNhb?f
zLb@bXl+E~1PEkwq6f0f&$wntIR34E+;9+@);#OfrQsxz=9eIUNEAtd9UHR=l)aW~g
zLwZ4~D4Q`sPEnnCij{W0BNEtKwL}^MsQQk(O~p9p@=-4yxSWc?Twh#wv9op&o_psM
ztcvX!P7UcMu2xrb-7I$-Kb6l`hHdT!-XC*^IX-pQkZ%2Q*V$+oHJ&<-eIAbzXRnYx
zA7?z^LszQZ(~h&&82h4evvGRQ>e1R(GTCq*GPP`I6)p|is0n@bBg%&U2|TM`ViO|S
zko76|UQ`B+0gOsVnJI*<5FR1KOd&=i33GTLZlbOuN*anarxM^%CN&=oVKS&Aqb=rJ
zerxs0&h>rJd=a@T0j+y8GQI@&)75YRmwQUBpA82I*E$yCrPoe6K6~91z(y^^@p1DS
z+zu8K{qqYjwF8-^DDH$*to1u&Y#fF^BDarQxBP9S#C8us)0}wJyb#L+?SGLxc<b%W
z=9;!LyG}LkmvJ2rf_`KI{l#3CYeyFclIAdX>%{h!I@Q>f*fh918aHsfCC$)wzYBrZ
z*))K)t%DTB&DP75z>c<M+-ZqE*BWaZARO;XS|dS&_{-bSR!UgS?JH^e|3<PSC}V;F
za}b(VWmT-+B6E}-BdBj$k!zOY%RoQH;BAR0f=dd*C;0l4As23iXVbWKKkO#N+Dq_r
zT_x;#8EQMrd9tfIx6*`lu2UtR=VxyXCc7Fj670rUpjn9+CSGZqB`;oIjZBy~x(kRV
bp!Q5oYs`<2Jzv@7MXytN|KSvV^j7@=QRPvP

diff --git a/handler.bas b/handler.bas
index 9b9de87..ffc0a3d 100644
--- a/handler.bas
+++ b/handler.bas
@@ -413,6 +413,7 @@ Sub month_tosheet(ByRef pkg() As Variant, ByRef basket() As Variant)
     Next i
     
     'scenario
+    Sheets("_month").Range("R1:S1000").ClearContents
     For i = 0 To UBound(handler.sc, 1)
         sh.Cells(i + 1, 18) = handler.sc(i, 0)
         sh.Cells(i + 1, 19) = handler.sc(i, 1)
diff --git a/months.cls b/months.cls
index 5636d37..766d2e1 100644
--- a/months.cls
+++ b/months.cls
@@ -240,6 +240,7 @@ Sub set_sheet()
     Range("B18:F18").FormulaR1C1 = tunits
     Range("H18:L18").FormulaR1C1 = tprice
     Range("N18:R18").FormulaR1C1 = tsales
+    Range("T6:U18").ClearContents
     Range("T6:U18").FormulaR1C1 = scenario
     
     Sheets("month").Range("B32:Q5000").ClearContents
@@ -490,10 +491,10 @@ Sub show_basket()
     
     
     For i = 1 To UBound(basket, 1) - 1
-        Sheets("month").Cells(32 + i, 2) = basket(i + 1, 1)
-        Sheets("month").Cells(32 + i, 6) = basket(i + 1, 2)
-        Sheets("month").Cells(32 + i, 12) = basket(i + 1, 3)
-        Sheets("month").Cells(32 + i, 17) = basket(i + 1, 4)
+        Sheets("month").Cells(31 + i, 2) = basket(i, 1)
+        Sheets("month").Cells(31 + i, 6) = basket(i, 2)
+        Sheets("month").Cells(31 + i, 12) = basket(i, 3)
+        Sheets("month").Cells(31 + i, 17) = basket(i, 4)
     Next i
     
     Rows("20:20").Select
diff --git a/pivot.cls b/pivot.cls
index 6bf2fa3..4f42315 100644
--- a/pivot.cls
+++ b/pivot.cls
@@ -9,7 +9,7 @@ Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = True
 Option Explicit
 
-Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
+Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
 
     If Intersect(target, ActiveSheet.Range("b7:v100000")) Is Nothing Then
         Exit Sub
@@ -21,7 +21,7 @@ Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean
         Exit Sub
     End If
 
-    Cancel = True
+    cancel = True
 
     Dim i As Long
     Dim j As Long