From 019c83c34f51b67854e8176ac736c2852826568b Mon Sep 17 00:00:00 2001
From: Trowbridge <ptrowbridge@HC-Companies.com>
Date: Thu, 14 Mar 2019 14:42:10 -0400
Subject: [PATCH] export v0.5 content

---
 TheBigOne.cls |  10 +++++
 fpvt.frx      | Bin 19992 -> 19992 bytes
 openf.frx     | Bin 3096 -> 3096 bytes
 pivot.cls     | 107 ++++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 117 insertions(+)
 create mode 100644 pivot.cls

diff --git a/TheBigOne.cls b/TheBigOne.cls
index eb2f194..3b8b86e 100644
--- a/TheBigOne.cls
+++ b/TheBigOne.cls
@@ -1,3 +1,12 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "TheBigOne"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
 Option Explicit
 
 Private ADOo_con() As ADODB.Connection
@@ -2364,3 +2373,4 @@ Public Function ARRAYp_get_range_string(ByRef r As range) As String()
     
 
 End Function
+
diff --git a/fpvt.frx b/fpvt.frx
index 7b4c7f56c9aecde8a71fe840ab697fe5345164b7..222c151140b7d2d212c35aa743d112cecf162d47 100644
GIT binary patch
delta 889
zcmZuuT}YEr7(VBG>u0FbNkh~6+FF=1T;JAyzD?bxF@H9frcQAbZ0bVkvspH<i$sFL
zLD0`TNk#0Ui;B7s4iq9rw|3Qq5Y~-ebWvdhfd~=yZhF(|<~%RYdEe)K&U2>c==2<2
zm}hhg9<wqwnBYrnMZHh2S8JzuDu0v~ENBjDr#`OIEONDGRQQ{Mly)?SQ5WYhJXO4+
z(nQh+2$={au3R5fZlrm%<j6l#WjTYOF3(|js{Ch;DM%g7X#%yF!|;^2K`G&v^~Wf@
zu@}OOp`FU`)v!$^cyZhW`9>#AgGHr-UZWMOyGD^E6nJSoN1gnau}8%Q($H0TQiu}*
zUgu$WRQZ}Y6lgas(E*-c)u=+DPIHIQhJDY>rYx?SKMQ?<PVliZosAGyN-7B<`!R*?
zgpwSN<7)W{X#7DicuWv+i=ej@2(iHgNS1IGCoOO35VTn5DS>FMj{mlfQDOMi7W}A-
zz-)avY})GKyX^$H0|_{zDup%s9hM|K=15bhmhev2Qx_CUVs=WBM4k0NMr8PQx?xw>
z=0UwEX47U5z?!Q|K*u1tEAV+ck^#otXs|C1lkR(HsmNgfS4|#P{+g=-Nf5qRQ<2Ge
zz4j7ieKJgV9J|nhJ?}hDJZJ4*@S)RQ?`?r332b=7!qZ3^T)ta)TkBjz-@ZM!b$h7i
zr43;Qo3bIJ_Flf2<wqpTuBt#Ng$w=;HjuFzR%3$g*M|DzJD_PyVat850Tvs_v67p*
zvr8W|nX*fln|g3m>pTRe<`Sy#`sQT{<DMXr=$7HcC#fS3^}1t9G9JSy)&nAoDG!6y
z!pKlROj^!o9>ZsX1^6#<Gdyptq6!o_b?~M2ERI))PT|=bx`~N?2#JCvx&qrF{U7m}
BA*cWV

delta 847
zcmZWn-%FEG7(VBGs~GAmNiD6pwNj_KzAg9T)9I}6$DC8MsTdSaohYfFX+d2S5)_R>
zt7npxSY1^RA{?Pi`~x)TN(k*nFS@8MyAh)3?3)#=oAVx?_dU=1yw7{4rs>o)ott5F
z9#2^gBZM!qW&Mtg=7Py_9!(vkX;mvnCdb!TX#&z4My0=ymO^yTXcD5&NJ4ltV_9by
zBD)9~3#vnx`Ub8N-kE*iKdPLhhtTIHAv~J<{hz391qYLgpf@HVJZjvew2xmf<x%Ru
z9rJk_!B_JZimZq6;m}T`THLVfve031P=dP_Ba;bUTN<g0|FE>{n9Yt*VSz*lfzQ1k
z4-4NgCqc7yk%oC{QH_q4;*70DA}Ya4n^lXew$D=UlX+AzBOaHAFr=7ZkWEZL!?J@q
z@xIc<>@q&dEn1yyZ%xF&X{^~*8iU_4L%Y%G&E!8FS13xH#duaa9w(v-Cggh7Nbv1g
zKF$U9Va<7qMQl9miitwmOl34FJ~3*O>=%!M0t-_+(&aqb164jQ?xH=`l#teQuDVs5
z?RMFO=)2oxhEkqF2T@&qQF?JU#uv)-g>QVr+e`7w@5PGWgLjqbcrJSw`y)a|hwo;*
z9Gkubol<p!b$L+Xew&y~?m~{o%d<|lGYl$bVMpF}qC$(qazABQS3+@<geJZ4yLqI)
zI}(PWCMuNO^O><wbDgU2)V4`YJu%#`O}M>O+m7AtOjzr(Dd8vTmS}uIW0ih{ot>ce
zqbXt+ZQ+5-5piIn-pE|!L7*f(+^1?CO!=lZbs!ecV79CnRl2?WQ6P;<>PQ5y8j7e(
eqyN%yirP>TEEZxqg4e`f`4}`xvn?E3LDO&E5-be>

diff --git a/openf.frx b/openf.frx
index 09df77ee4ef1da4f690c547cec1e82022632fb37..740c9ffc2a336bfea2c054e02aad152a2ee04d9c 100644
GIT binary patch
delta 55
zcmbOsF+*ZQ3kz$*vS^X1n>$%vGRuEsU{GOr%E-XL%D~XT#K6E{0mKXpk_^d7F2TNx
Kn<sL#GXns!Tn%dg

delta 55
zcmbOsF+*ZQ3k$0Pr{na#&7CYSndOri7*rUZGBPl*GB7kSF)%P#05JoDBtvqNORz7~
J=7}8b%m9F;3_bt=

diff --git a/pivot.cls b/pivot.cls
new file mode 100644
index 0000000..8fe359f
--- /dev/null
+++ b/pivot.cls
@@ -0,0 +1,107 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "pivot"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+
+Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
+
+    If Intersect(Target, ActiveSheet.Range("b7:v100000")) Is Nothing Then
+        Exit Sub
+    End If
+    
+    On Error GoTo nopiv
+    
+    If Target.Cells.PivotTable Is Nothing Then
+        Exit Sub
+    End If
+
+    Cancel = True
+
+    Dim i As Long
+    Dim j As Long
+    Dim k As Long
+    
+    Dim ri As PivotItemList
+    Dim ci As PivotItemList
+    Dim df As Object
+    Dim rd As Object
+    Dim cd As Object
+    Dim dd As Object
+    
+    Dim pt As PivotTable
+    Dim pf As PivotField
+    Dim pi As PivotItem
+    Dim wapi As New Windows_API
+    
+    Set ri = Target.Cells.PivotCell.RowItems
+    Set ci = Target.Cells.PivotCell.ColumnItems
+    Set df = Target.Cells.PivotCell.DataField
+
+    Set rd = Target.Cells.PivotTable.RowFields
+    Set cd = Target.Cells.PivotTable.ColumnFields
+    
+
+    ReDim handler.sc(ri.Count, 1)
+    Set pt = Target.Cells.PivotCell.PivotTable
+    
+    handler.sql = ""
+    handler.jsql = ""
+
+    For i = 1 To ri.Count
+        If i <> 1 Then handler.sql = handler.sql & vbCrLf & "AND "
+        If i <> 1 Then handler.jsql = handler.jsql & vbCrLf & ","
+        handler.sql = handler.sql & rd(piv_pos(rd, i)).Name & " = '" & ri(i).Name & "'"
+        jsql = jsql & """" & rd(piv_pos(rd, i)).Name & """:""" & ri(i).Name & """"
+        handler.sc(i - 1, 0) = rd(piv_pos(rd, i)).Name
+        handler.sc(i - 1, 1) = ri(i).Name
+    Next i
+    
+    
+    scenario = "{" & handler.jsql & "}"
+    
+    Call handler.load_config
+    Call handler.load_fpvt
+    
+    
+nopiv:
+
+End Sub
+
+Function piv_pos(list As Object, target_pos As Long) As Long
+
+    Dim i As Long
+    
+    For i = 1 To list.Count
+        If list(i).Position = target_pos Then
+            piv_pos = i
+            Exit Function
+        End If
+    Next i
+    'should not get to this point
+
+End Function
+
+Function piv_fld_index(field_name As String, ByRef pt As PivotTable) As Integer
+
+    Dim i As Integer
+    
+    For i = 1 To pt.PivotFields.Count
+        If pt.PivotFields(i).Name = field_name Then
+            piv_fld_index = i
+            Exit Function
+        End If
+    Next i
+
+End Function
+
+
+
+
+
+