DocView Anpassungen - Vorbereitung Update .NEt8

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -1,6 +1,8 @@
-Imports System.IO
+Imports System.Data
+Imports System.IO
 Imports System.Reflection
 Imports System.Security.Cryptography
+Imports System.Windows.Forms
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Interfaces
@@ -21,11 +23,16 @@ Public Class Form1
 
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
-        _logConfig = New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath & "\Log", Nothing, My.Application.Info.CompanyName, My.Application.Info.ProductName) With {
+        Dim oLogPath = Path.Combine(Application.StartupPath, "Log")
+        _logConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, Nothing, My.Application.Info.CompanyName, My.Application.Info.ProductName) With {
             .Debug = True
         }
         _logger = _logConfig.GetLogger()
-        _mssql = New MSSQLServer(_logConfig, My.Settings.MSSQL_CONNECTIONSTRING)
+        Dim oCS = My.Settings.MSSQL_CONNECTIONSTRING
+        If Not oCS.Contains("TrustServerCertificate") Then
+            oCS += ";TrustServerCertificate=true"
+        End If
+        _mssql = New MSSQLServer(_logConfig, oCS)
 
         _GDPictureVersion = "11.2024"
         _GDPictureLizenz = ConfigDbFunct.GetProductLicense("GDPICTURE", _GDPictureVersion, _logConfig, My.Settings.MSSQL_CONNECTIONSTRING)
@@ -373,4 +380,12 @@ Public Class Form1
         End Select
 
     End Function
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Process.Start("explorer.exe", _logConfig.LogDirectory)
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Process.Start("explorer.exe", System.Windows.Forms.Application.UserAppDataPath())
+    End Sub
 End Class