From c5bee07d65fb8466c4dccda8bfa97ed233e00c32 Mon Sep 17 00:00:00 2001
From: SchreiberM <m.schreiber@digitaldata.works>
Date: Wed, 21 Feb 2024 10:24:12 +0100
Subject: [PATCH] MS Version 1.6.0.0 MySettings SQL

---
 Services.EmailService/App.config                     | 10 ++++++++++
 Services.EmailService/EmailService.vb                |  8 +++++++-
 Services.EmailService/My Project/AssemblyInfo.vb     |  2 +-
 .../My Project/Settings.Designer.vb                  | 12 +++++++++++-
 Services.EmailService/My Project/Settings.settings   |  8 ++++++--
 5 files changed, 35 insertions(+), 5 deletions(-)

diff --git a/Services.EmailService/App.config b/Services.EmailService/App.config
index c5280b07..de887fe0 100644
--- a/Services.EmailService/App.config
+++ b/Services.EmailService/App.config
@@ -1,6 +1,9 @@
 <?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <configSections>
+        <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="DDEmailService.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+        </sectionGroup>
     </configSections>
     <startup> 
         <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/>
@@ -13,4 +16,11 @@
       </dependentAssembly>
     </assemblyBinding>
   </runtime>
+  <applicationSettings>
+    <DDEmailService.My.MySettings>
+      <setting name="MSSQL_SELECT" serializeAs="String">
+        <value>SELECT * FROM TBEMLP_EMAIL_OUT WHERE EMAIL_ADRESS &lt;&gt; '' and REMINDER_TYPE_ID = 202377 AND EMAIL_SENT IS NULL</value>
+      </setting>
+    </DDEmailService.My.MySettings>
+  </applicationSettings>
 </configuration>
diff --git a/Services.EmailService/EmailService.vb b/Services.EmailService/EmailService.vb
index 123e0b73..0a2675a8 100644
--- a/Services.EmailService/EmailService.vb
+++ b/Services.EmailService/EmailService.vb
@@ -292,7 +292,13 @@ Public Class EmailService
                     oSQL = "SELECT * FROM TBEDM_EMAIL_QUEUE WHERE EMAIL_SENT IS NULL and EMAIL_TO <> ''"
                     oEmailQueue = _Firebird.GetDatatable(oSQL)
                 Case DatabaseType.MSSQL
-                    oSQL = "SELECT * FROM TBEMLP_EMAIL_OUT WHERE EMAIL_SENT IS NULL and EMAIL_ADRESS <> ''"
+                    If My.Settings.MSSQL_SELECT <> String.Empty Then
+                        _Logger.Info("My.Settings.MSSQL_SELECT will be used..")
+                        oSQL = My.Settings.MSSQL_SELECT
+                    Else
+                        oSQL = "SELECT * FROM TBEMLP_EMAIL_OUT WHERE EMAIL_SENT IS NULL and EMAIL_ADRESS <> ''"
+                    End If
+
                     oEmailQueue = MSSQLInstance.GetDatatable(oSQL)
             End Select
 
diff --git a/Services.EmailService/My Project/AssemblyInfo.vb b/Services.EmailService/My Project/AssemblyInfo.vb
index 5f4fafd8..00425d4c 100644
--- a/Services.EmailService/My Project/AssemblyInfo.vb	
+++ b/Services.EmailService/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.5.2.0")>
+<Assembly: AssemblyVersion("1.6.0.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
diff --git a/Services.EmailService/My Project/Settings.Designer.vb b/Services.EmailService/My Project/Settings.Designer.vb
index a7bdc920..c10eab6c 100644
--- a/Services.EmailService/My Project/Settings.Designer.vb	
+++ b/Services.EmailService/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", "17.4.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -53,6 +53,16 @@ Namespace My
                 Return defaultInstance
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("SELECT * FROM TBEMLP_EMAIL_OUT WHERE EMAIL_ADRESS <> '' and REMINDER_TYPE_ID = 20"& _ 
+            "2377 AND EMAIL_SENT IS NULL")>  _
+        Public ReadOnly Property MSSQL_SELECT() As String
+            Get
+                Return CType(Me("MSSQL_SELECT"),String)
+            End Get
+        End Property
     End Class
 End Namespace
 
diff --git a/Services.EmailService/My Project/Settings.settings b/Services.EmailService/My Project/Settings.settings
index f7f176ac..4e8a91bc 100644
--- a/Services.EmailService/My Project/Settings.settings	
+++ b/Services.EmailService/My Project/Settings.settings	
@@ -1,5 +1,9 @@
 <?xml version='1.0' encoding='utf-8'?>
-<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
   <Profiles />
-  <Settings />
+  <Settings>
+    <Setting Name="MSSQL_SELECT" Type="System.String" Scope="Application">
+      <Value Profile="(Default)">SELECT * FROM TBEMLP_EMAIL_OUT WHERE EMAIL_ADRESS &lt;&gt; '' and REMINDER_TYPE_ID = 202377 AND EMAIL_SENT IS NULL</Value>
+    </Setting>
+  </Settings>
 </SettingsFile>
\ No newline at end of file