neu Andreas

2021-09-07 11:49:26 +02:00
parent 619a8c26bf
commit 0a0ac4a065
2 changed files with 80 additions and 79 deletions
--- a/Project/Settings.Designer.vb
+++ b/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

--- 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