From 54d57761ea83ceb3b2d69293f953fdaa0bf6a9fa Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Wed, 28 Jul 2021 11:47:36 +0200
Subject: [PATCH] MS

---
 app/DD-Record-Organizer/App.config                  |  2 +-
 app/DD-Record-Organizer/ClassDatabase.vb            | 13 +++++++++----
 app/DD-Record-Organizer/DD-Record-Organizer.vbproj  |  2 +-
 .../My Project/Settings.Designer.vb                 |  2 +-
 4 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/app/DD-Record-Organizer/App.config b/app/DD-Record-Organizer/App.config
index 380e722..9c8b42e 100644
--- a/app/DD-Record-Organizer/App.config
+++ b/app/DD-Record-Organizer/App.config
@@ -12,7 +12,7 @@
         <add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=ddd" providerName="System.Data.SqlClient"/>
     </connectionStrings>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
     </startup>
     <userSettings>
         <DD_Record_Organizer.My.MySettings>
diff --git a/app/DD-Record-Organizer/ClassDatabase.vb b/app/DD-Record-Organizer/ClassDatabase.vb
index ffbca68..9fa301f 100644
--- a/app/DD-Record-Organizer/ClassDatabase.vb
+++ b/app/DD-Record-Organizer/ClassDatabase.vb
@@ -77,7 +77,7 @@ Public Class ClassDatabase
             Else
                 SQLconnect.ConnectionString = connectionString
             End If
-
+            LOGGER.Debug("Return_Datatable-Return_Datatable_CS: '" & Select_anweisung & "'")
             If USE_PROXY = False Then
                 Console.WriteLine(Select_anweisung)
             End If
@@ -123,6 +123,7 @@ Public Class ClassDatabase
                 SQLconnect.ConnectionString = connectionString
                 SQLconnect.Open()
                 SQLcommand = SQLconnect.CreateCommand
+                LOGGER.Debug("MSSQL_ReturnDTWithConnection-Return_Datatable_CS: '" & sql & "'")
                 SQLcommand.CommandText = sql
 
                 Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
@@ -151,7 +152,7 @@ Public Class ClassDatabase
             SQLconnect.Open()
             SQLcommand = SQLconnect.CreateCommand
             SQLcommand.CommandText = Select_anweisung
-
+            LOGGER.Debug("Return_Datatable_Connection-Return_Datatable_CS: '" & Select_anweisung & "'")
             Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
             Dim dt As DataTable = New DataTable()
             adapter1.Fill(dt)
@@ -183,7 +184,7 @@ Public Class ClassDatabase
                 SQLconnect.Open()
                 SQLcommand = SQLconnect.CreateCommand
                 SQLcommand.CommandText = Select_anweisung
-
+                LOGGER.Debug("Return_Datatable_Connection-Command: '" & Select_anweisung & "'")
                 Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
                 Dim dt As DataTable = New DataTable()
                 adapter1.Fill(dt)
@@ -217,6 +218,7 @@ Public Class ClassDatabase
             End If
             SQLconnect.Open()
             SQLcommand = SQLconnect.CreateCommand
+            LOGGER.Debug("Execute_non_Query-Command: '" & ExecuteCMD & "'")
             'Update Last Created Record in Foo
             SQLcommand.CommandText = ExecuteCMD
             SQLcommand.CommandTimeout = 120
@@ -252,6 +254,7 @@ Public Class ClassDatabase
                 SQLcommand = SQLconnect.CreateCommand
                 'Update Last Created Record in Foo
                 SQLcommand.CommandText = ExecuteCMD
+                LOGGER.Debug("Execute_non_Query_withConn-Command: '" & ExecuteCMD & "'")
                 SQLcommand.CommandTimeout = 120
                 SQLcommand.ExecuteNonQuery()
                 SQLcommand.Dispose()
@@ -283,6 +286,7 @@ Public Class ClassDatabase
             SQLcommand = SQLconnect.CreateCommand
             'Update Last Created Record in Foo
             SQLcommand.CommandText = ExecuteCMD
+            LOGGER.Debug("Execute_non_Query_withConnString-Command: '" & ExecuteCMD & "'")
             SQLcommand.CommandTimeout = 120
             SQLcommand.ExecuteNonQuery()
             SQLcommand.Dispose()
@@ -312,7 +316,7 @@ Public Class ClassDatabase
             'Update Last Created Record in Foo
             SQLcommand.CommandText = ExecuteCMD
             SQLcommand.CommandTimeout = 120
-
+            LOGGER.Debug("Execute_non_Query_Async-Command: '" & ExecuteCMD & "'")
             SQLcommand.BeginExecuteNonQuery(callback, SQLcommand)
         Catch ex As Exception
             If Userinput = True Then
@@ -353,6 +357,7 @@ Public Class ClassDatabase
             'Update Last Created Record in Foo
             SQLcommand.CommandText = cmdscalar
             SQLcommand.CommandTimeout = 120
+            LOGGER.Debug("Execute_Scalar-Command: '" & cmdscalar & "'")
             result = SQLcommand.ExecuteScalar()
             SQLcommand.Dispose()
             SQLconnect.Close()
diff --git a/app/DD-Record-Organizer/DD-Record-Organizer.vbproj b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
index bc0603e..4cee4df 100644
--- a/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
+++ b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
@@ -11,7 +11,7 @@
     <AssemblyName>DD-Record-Organizer</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
     <IsWebBootstrapper>false</IsWebBootstrapper>
     <PublishUrl>publish\</PublishUrl>
diff --git a/app/DD-Record-Organizer/My Project/Settings.Designer.vb b/app/DD-Record-Organizer/My Project/Settings.Designer.vb
index 8cf2431..342d195 100644
--- a/app/DD-Record-Organizer/My Project/Settings.Designer.vb	
+++ b/app/DD-Record-Organizer/My Project/Settings.Designer.vb	
@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase