From f569e6238dc429f555a3c2d6b7ce41ebc753c091 Mon Sep 17 00:00:00 2001
From: pt <fleetside72@hotmail.com>
Date: Tue, 3 Mar 2020 23:22:13 -0500
Subject: [PATCH] version 1.4

---
 changes.frm |  29 +++++++++++++++++++++++++++++
 changes.frx | Bin 3096 -> 3096 bytes
 fpvt.frm    |   3 ++-
 fpvt.frx    | Bin 21016 -> 21016 bytes
 months.cls  |   3 ++-
 pivot.cls   |   2 +-
 6 files changed, 34 insertions(+), 3 deletions(-)

diff --git a/changes.frm b/changes.frm
index 0c8f477..a54c945 100644
--- a/changes.frm
+++ b/changes.frm
@@ -74,6 +74,35 @@ Private Sub UserForm_Activate()
         Exit Sub
     End If
     Me.lbHist.list = X
+    
+    lbHEAD.ColumnCount = lbHist.ColumnCount
+    lbHEAD.ColumnWidths = lbHist.ColumnWidths
+
+    ' add header elements
+    lbHEAD.clear
+    lbHEAD.AddItem
+    lbHEAD.list(0, 0) = "Modifier"
+    lbHEAD.list(0, 1) = "Owner"
+    lbHEAD.list(0, 2) = "When"
+    lbHEAD.list(0, 3) = "Tag"
+    lbHEAD.list(0, 4) = "Comment"
+    lbHEAD.list(0, 5) = "Sales"
+    
+    
+
+    
+
+    ' make it pretty
+    'body.ZOrder (1)
+    'lbHEAD.ZOrder (0)
+    'lbHEAD.SpecialEffect = fmSpecialEffectFlat
+    'lbHEAD.BackColor = RGB(200, 200, 200)
+    lbHEAD.Height = 10
+
+    ' align header to body (should be done last!)
+    lbHEAD.width = lbHist.width
+    lbHEAD.Left = lbHist.Left
+    lbHEAD.Top = lbHist.Top - (lbHEAD.Height - 1)
 
 End Sub
 
diff --git a/changes.frx b/changes.frx
index 2297af74342e6f396d2c35b58280abd0930103c3..46f046fdeb8b05efd16c4fc9414c4ba9e7327594 100644
GIT binary patch
delta 319
zcmbOsF+*ZQ3yY}2rJ}eyAFnbpGXMdYU|>j_e2~k2@(mUXM&rqXto2L^jFTs^R#|cZ
zRpfz`0RbZrvjZ_m2MZ9h0x=s9|NH;{KL?QJgtECo^kze*%Z#E7EE)_RJOVr*r7R8%
z4FCT#FmO%Q<*)*aoB@h5v@(92T+DGgMuH(hQLzCe!psCTm5G62SqKBeVO^jAlMI6?
zkOG?9uoR>KDCeACT9lbuq~MoY4&*B^Br`I$fTScj8gzheYhVVd0f8Q%84-+=qc{`U
zt^m1n3@0DtRAQS9Gz!Rk$*HFF6s%B%;VIB}Kx-R7E_DE676u81oFordN0-T*T<V)6
HxEdG%4Vyht

delta 226
zcmbOsF+*ZQ3ybK2iEA!@etngZnSp`f027b^g0#tu-1d`iuvjp1PZngYXL`Uec@k@t
zAtz8O53GQJfe}cv0WnA$3lOsc@xTB7|FZ*W4k(*zvm@Je#)%Cqq6{n=3?4iJJRp@U
z4h#(c{{vM`*5$AQi!1?(GPE$}PcG&-EiJ>4sHoTg5|QR<&|zi*S^{*{vJeJ_qRAUM
u6ejQFbYlAkH0OlDWJWF}Hep3DQ<F<=ayggc<P9tun`dw}FisZWb^riU)H9X<

diff --git a/fpvt.frm b/fpvt.frm
index bc87436..10abfd9 100644
--- a/fpvt.frm
+++ b/fpvt.frm
@@ -126,6 +126,7 @@ Private Sub cbGoSheet_Click()
     Worksheets("month").sbMPP.value = 0
     
     Me.Hide
+    months.cbMTAG.value = ""
     Worksheets("month").Visible = xlSheetVisible
     Sheets("month").Select
 
@@ -579,7 +580,7 @@ Private Sub UserForm_Activate()
     End If
     
     '----------reset spinner buttons----------------------
-    sbpd.value = 0
+    sbpv.value = 0
     sbpp.value = 0
     sbpd.value = 0
     
diff --git a/fpvt.frx b/fpvt.frx
index 9e0b28d4f6b2a54728a144ef5782eded905cdb2a..56d721c13797c27d8dce9ca104b4718bdbc958fc 100644
GIT binary patch
delta 1096
zcmZ8gPfQ$T6#u?&cD7|gwz4jQ&^Ehl*)AZJ9bk5VU09&mwuIfKAtfX>jl((ylG*OM
zg-R2XVoW^jL9IUz#e><HrUxyJWa7<Y>cN9)tc~r#gxDUu7^6ZDJ!qo7ndML7<>h_9
z@4esr-tT>L{RY2&gMZO2B*qweL>p(A7SmkAV{shci|5=dEDQ@CNfkv4y7V1kl4peC
zxaUWzZ<0IQ?s2)3P8a1aiXY3zDSjir#4Y?Ow@Zuj%x>})yxy&E|9*9I+pg4?xo;}<
z7v+z5RdO-KSC;m$(tFMwDh*{{Eq%mSzH}kQU-s3~UC6HZ56Zst+Xon1$rLXx&RbWu
z?P}Ae*lXQoYuRVpft1#LsK#nnTA%J~+wDBEU$)zM^#71uIeM3K6O+LUj$yZg?UI%^
z@i6$zIo=Bmi^65pw;hoU#vU^KtG|fqL<45qKE%%=N^UEt3a?Z9L_{zVew!C?FPtX8
z4jhYk1aT#zGrR~ypGwAj5nE~mw>w^zURzkila5Yos6M;7GvujV4n??%uhkIrM7<KD
z{Z5q^@}_}oB5dC|vBHIU$sXw$<Zg9I3gZ0WHK}ARp+}AJ7%HhaR@HL~V>5=eWRhll
z&~Xxp-nv6`rOPf?FcO?8THAz&kUV`DDdiwmdyBOBy1q|%9>L*8`%d37N4FYk9AHc|
zvnc8C(w?YqsbK2(JQn5ycwf6p@lZUD+o|V8Z+r)iDJ@uyzblFiA>A2#S)V2H2l_AQ
zA8f})y48JnTd@n&eSakGGQH#CrG-4Uv>AtwrWnWOkY6~C4V|ka=k}cVhv+g%dcS#w
zE6JO#=Br$@tHY`!&6`1-%?0r5=%|}_k9F}N9^?XcVa(vjsuOneNg*(&MlqId<_2C#
zZ{YV>YDZNPtEW;}(?;<}EKCMnqK~bg&QauN)+9z#t)IEcO?!4i<GkM)!1=*aDUJ7G
zBo%+5Z_hEA9II)b({XFO2Op^?@Y!SoQGGSp#^1!_$y0bX;D?^^(dmAy5r;F1i!5i}
za2H%nw}^g*MD}%mKk)|KO>p9EH|9*NWF3}kiiV%EpOTiha?@n@54kR3IerJwFxA9$
Ytd9lk<kT9cfB(0$Va2eRIOY=l2Vh@?4FCWD

delta 1030
zcmZ8gT}V@582*0TnnzhG4l7OO=FH8sZ4P&`IhVr9*rp+cWCWWo3^tF<q>LgfjM!E5
z++-Ia5fzoC9K7p?x(o@U9|(jBya|b-BIu@iU4O8f@4Vmhy+6<UyzjYqm0!HdXB&n5
zGOxicY}|`p(aTeKBkVBS%~-ZIK?x}+k#&MGsPYMdVIxcht(>8=;5oTg7@TroD2`5p
zi)$D*G|+j;u!*a9Y}ia*9}Nz9XdtOq7}G}M`LAbQeOb}7#Tjn?ls--NOa2E_%o+I)
z`~8M&X(k_1%JLySTV^tt8C%2HL{u9-Jd_$|`gFyT$PdkK$Pa~5nGfmN%Fq9~{pGPS
z-wjH2KBQ->A90>W#Ckxa7;ak~GESPkuznLN!$M6^3~4B~Z8R{(UNHPr*JFBDDf(;|
zxciUb<)qhd>5YikPtt9{9wy=S^4hwB)d2+R_wq5I{xd#!3&oKX&O4(ro=D=Y)5Tl#
zB3Dy^r1bc-t&TV2p|=KVpjh!FMh1H_G=wB#0lR*`X@U!;>Fw@T`VK;qmBO9EVtXro
zg!?hm;=r-cTD<G@V<O^$*`;8?YZHSE=bWo)?>Zd_G#AQDJWX{Q(YCV+A;pBLW{ppx
z(07?AT7wq-zV9fPiSPhs+xOu?ct7s6)KX@jMP*E^WA#Low3yf%PmLx0Zrt+NX`MXE
z22A<S3g0AZ)YWE>s(l1MQ<r68WCXLVCosR&flD3`(NGR^dp%s>rl*$t?uPtyKHRoN
zj3!BiJ%vnTxz-uA{)3*PZBCgSjbgm*8ZD|dNFwXgL9diP=OlJ_m*f5R?UI7f*wKK+
zZi}Aoh;s}_%=%JiP>6(zs&J47(;t2yzpsqv2u<w>Ni8)-cAUf*B@yO!cGC~QyJqBd
zYGkg9YUzEuS~#Az-w^Q>O8i}@@o&Lwq=-1(i`Z~Bx*1QS3YI)3R7Dj*GaZWBNVc;7
z*HgJF)8T3aV@0sU9IG2(iXFsopn)b(jMuR%MD2KYFCQT84P-B>7L@i>P?5Qga=oo*
RhSRdG?6xZ;zNpR3;1``{fkyxU

diff --git a/months.cls b/months.cls
index 7e06a58..3236de0 100644
--- a/months.cls
+++ b/months.cls
@@ -34,7 +34,7 @@ Private did_load_config As Boolean
 
 Private Sub cbMTAG_Change()
 
-
+    
 
 End Sub
 
@@ -558,6 +558,7 @@ Sub build_json()
         Set np("scenario")("iter") = JsonConverter.ParseJson("[""copy""]")
         np("source") = "adj"
         np("type") = "new_basket"
+        np("tag") = cbMTAG.text
         Set m = JsonConverter.ParseJson("{}")
     End If
     
diff --git a/pivot.cls b/pivot.cls
index 0eb66da..04baf29 100644
--- a/pivot.cls
+++ b/pivot.cls
@@ -15,7 +15,7 @@ End Sub
 
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
 
-    If Intersect(Target, ActiveSheet.Range("b7:v100000")) Is Nothing Then
+    If Intersect(Target, ActiveSheet.Range("b8:v100000")) Is Nothing Then
         Exit Sub
     End If