Add files via upload

team-moeller · web-flow · commit d8004a1868a5 · 2023-03-27T15:53:13.000+02:00
Code cleaned up
Html-file is saved well-formed again
diff --git a/Modules/BAPT_Background.cls b/Modules/BAPT_Background.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller, supported by K.D.Gundermann                         #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_Columns.cls b/Modules/BAPT_Columns.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_DataSource.cls b/Modules/BAPT_DataSource.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_Font.cls b/Modules/BAPT_Font.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller, supported by K.D.Gundermann                         #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_Helper.cls b/Modules/BAPT_Helper.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = False
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_JQueryJS.cls b/Modules/BAPT_JQueryJS.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_JQueryUI.cls b/Modules/BAPT_JQueryUI.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_Localization.cls b/Modules/BAPT_Localization.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_PivotCSS.cls b/Modules/BAPT_PivotCSS.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_PivotJS.cls b/Modules/BAPT_PivotJS.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_PivotTable.cls b/Modules/BAPT_PivotTable.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
@@ -188,38 +188,26 @@ Public Sub ShowPivot()
 
     'Declarations
     Dim strHtml As String
+    Dim js As String
     
     Select Case Me.DisplayIn
         Case chDisplayIn.chWebBrowserControl
-''            CreateEmptyHtmlFile
-''            Me.WebBrowserControl.Object.Navigate getHTMLFileName(, True)
-''            Do While Me.WebBrowserControl.Object.Busy Or Me.WebBrowserControl.Object.ReadyState <> 4
-''                DoEvents
-''            Loop
             If Me.WebBrowserControl.LocationURL = vbNullString Then
                 CreateEmptyHtmlFile
                 Me.WebBrowserControl.Navigate "https://msaccess/" & getHTMLFileName(, True)
                 Do While Me.WebBrowserControl.ReadyState <> 4
                     DoEvents
                 Loop
             End If
-''            With Me.WebBrowserControl.Object.Document
-''                .Open
-                strHtml = BAPT.Generator(Me).GenerateHTML
-                strHtml = Replace(strHtml, vbCrLf, "")
-'''                .Write strHtml
-'''                .Close
-'''            End With
-            Dim js As String
+            strHtml = BAPT.Generator(Me).GenerateHTML
+            If Me.SaveHtmlFileForDebugging = True Then
+                Call saveHtmlFile(CurrentProject.Path & "\", strHtml)
+            End If
+            strHtml = Replace(strHtml, vbCrLf, "")
             js = js & "document.open();"
             js = js & "document.write(""" & strHtml & """);"
             js = js & "document.close();"
-            
             Me.WebBrowserControl.ExecuteJavascript js
-            
-            If Me.SaveHtmlFileForDebugging = True Then
-                Call saveHtmlFile(CurrentProject.Path & "\", strHtml)
-            End If
         Case chDisplayIn.chWebBrowserActiveX
             CreateEmptyHtmlFile
             Me.WebBrowserActiveX.Navigate getHTMLFileName(, True)
diff --git a/Modules/BAPT_PivotTableGenerator.cls b/Modules/BAPT_PivotTableGenerator.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = False
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_Rows.cls b/Modules/BAPT_Rows.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_Scripts.cls b/Modules/BAPT_Scripts.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_StringBuilder.cls b/Modules/BAPT_StringBuilder.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = False
 '###############################################################################################
 '# Copyright (C) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_Style.cls b/Modules/BAPT_Style.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller, supported by K.D.Gundermann                         #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT_Styles.cls b/Modules/BAPT_Styles.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = True
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller, supported by K.D.Gundermann                         #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT__Factory.cls b/Modules/BAPT__Factory.cls
@@ -10,7 +10,7 @@ Attribute VB_Exposed = False
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/BAPT__Namespace.bas b/Modules/BAPT__Namespace.bas
@@ -2,7 +2,7 @@ Attribute VB_Name = "BAPT__Namespace"
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
diff --git a/Modules/mdl_Helpers.bas b/Modules/mdl_Helpers.bas
@@ -2,7 +2,7 @@ Attribute VB_Name = "mdl_Helpers"
 '###############################################################################################
 '# Copyright (c) 2021, 2023 Thomas M�ller                                                      #
 '# MIT License  => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE  #
-'# Version 2.01.02  published: 26.03.2023                                                      #
+'# Version 2.02.04  published: 27.03.2023                                                      #
 '###############################################################################################
 
 Option Compare Database
