From 0a0ac4a06591ceedb9931a02e5df1ac3016f643b Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Tue, 7 Sep 2021 11:49:26 +0200
Subject: [PATCH] neu Andreas

---
 .../My Project/Settings.Designer.vb           | 158 +++++++++---------
 VERAG_PROG_ALLGEMEIN/frmScan.vb               |   1 +
 2 files changed, 80 insertions(+), 79 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb
index 5434652e..bae92de6 100644
--- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb	
+++ b/VERAG_PROG_ALLGEMEIN/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", "17.0.2.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Public NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -133,17 +133,6 @@ Namespace My
             End Get
         End Property
         
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=f"& _ 
-            "alse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>  _
-        Public ReadOnly Property EZOLLConnectionString() As String
-            Get
-                Return CType(Me("EZOLLConnectionString"),String)
-            End Get
-        End Property
-        
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
@@ -156,39 +145,6 @@ Namespace My
             End Get
         End Property
         
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User I"& _ 
-            "D=sa;Password=BmWr501956;")>  _
-        Public ReadOnly Property ATLAS_SBGConnectionString() As String
-            Get
-                Return CType(Me("ATLAS_SBGConnectionString"),String)
-            End Get
-        End Property
-        
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=fals"& _ 
-            "e;User ID=sa;Password=BmWr501956;")>  _
-        Public ReadOnly Property UID_PRODConnectionString() As String
-            Get
-                Return CType(Me("UID_PRODConnectionString"),String)
-            End Get
-        End Property
-        
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;Us"& _ 
-            "er ID=sa;Password=BmWr501956")>  _
-        Public ReadOnly Property UIDConnectionString() As String
-            Get
-                Return CType(Me("UIDConnectionString"),String)
-            End Get
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User"& _ 
@@ -202,28 +158,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false"& _ 
-            ";User ID=sa;Password=BmWr501956;")>  _
-        Public ReadOnly Property FDConnectionString() As String
-            Get
-                Return CType(Me("FDConnectionString"),String)
-            End Get
-        End Property
-        
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User"& _ 
-            " ID=sa;Password=BmWr501956;")>  _
-        Public ReadOnly Property FD_PRODConnectionString() As String
-            Get
-                Return CType(Me("FD_PRODConnectionString"),String)
-            End Get
-        End Property
-        
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),  _
@@ -248,18 +182,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;U"& _ 
-            "ser ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Siz"& _ 
-            "e=200")>  _
-        Public ReadOnly Property DISPOConnectionStringTEST() As String
-            Get
-                Return CType(Me("DISPOConnectionStringTEST"),String)
-            End Get
-        End Property
-        
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),  _
@@ -292,6 +214,17 @@ Namespace My
             End Set
         End Property
         
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=f"& _ 
+            "alse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>  _
+        Public ReadOnly Property EZOLLConnectionString() As String
+            Get
+                Return CType(Me("EZOLLConnectionString"),String)
+            End Get
+        End Property
+        
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
@@ -303,6 +236,73 @@ Namespace My
                 Return CType(Me("AVISO_ATILLAConnectionString"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User I"& _ 
+            "D=sa;Password=BmWr501956;")>  _
+        Public ReadOnly Property ATLAS_SBGConnectionString() As String
+            Get
+                Return CType(Me("ATLAS_SBGConnectionString"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;Us"& _ 
+            "er ID=sa;Password=BmWr501956")>  _
+        Public ReadOnly Property UIDConnectionString() As String
+            Get
+                Return CType(Me("UIDConnectionString"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=fals"& _ 
+            "e;User ID=sa;Password=BmWr501956;")>  _
+        Public ReadOnly Property UID_PRODConnectionString() As String
+            Get
+                Return CType(Me("UID_PRODConnectionString"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false"& _ 
+            ";User ID=sa;Password=BmWr501956;")>  _
+        Public ReadOnly Property FDConnectionString() As String
+            Get
+                Return CType(Me("FDConnectionString"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User"& _ 
+            " ID=sa;Password=BmWr501956;")>  _
+        Public ReadOnly Property FD_PRODConnectionString() As String
+            Get
+                Return CType(Me("FD_PRODConnectionString"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;U"& _ 
+            "ser ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Siz"& _ 
+            "e=200")>  _
+        Public ReadOnly Property DISPOConnectionStringTEST() As String
+            Get
+                Return CType(Me("DISPOConnectionStringTEST"),String)
+            End Get
+        End Property
     End Class
 End Namespace
 
diff --git a/VERAG_PROG_ALLGEMEIN/frmScan.vb b/VERAG_PROG_ALLGEMEIN/frmScan.vb
index 16455813..c3d6f7b1 100644
--- a/VERAG_PROG_ALLGEMEIN/frmScan.vb
+++ b/VERAG_PROG_ALLGEMEIN/frmScan.vb
@@ -20,6 +20,7 @@ Imports Dynamsoft.Core.Enums
 Imports System.IO
 
 
+'Aktuell3
 Public Class frmScan
     Inherits Form
     Implements IAcquireCallback