Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -169,6 +169,15 @@ Public Class SQL
     End Function
 
 
+    Public Shared Function GetEZOLL_UNISPEDConnectionString() As String
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            Return My.MySettings.Default.EZOLL_UNISPEDConnectionString
+        Else
+            Return My.MySettings.Default.EZOLL_UNISPEDConnectionString
+        End If
+    End Function
+
+
     Public Shared Function GetAVISOConnectionString() As String
         If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
             Return My.MySettings.Default.AVISOConnectionStringTEST
@@ -402,6 +411,26 @@ Public Class SQL
         End Try
         Return Nothing
 
+    End Function
+    Public Shared Function GetNewOpenConnectionEZOLL_UNISPED() As SqlConnection
+        Dim cn As New SqlConnection()
+        Try
+            cn.ConnectionString = GetEZOLL_UNISPEDConnectionString()
+            cn.Open()
+            Return cn
+        Catch
+            System.Threading.Thread.Sleep(500) 'warten...
+            '2.Versuch
+            Try
+                cn.ConnectionString = GetEZOLL_UNISPEDConnectionString()
+                cn.Open()
+                Return cn
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End Try
+        Return Nothing
+
     End Function
 
     Public Shared Function GetNewOpenConnectionAVISO() As SqlConnection
@@ -519,6 +548,7 @@ Public Class SQL
                 Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
                 Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
                 Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
+                Case "EZOLL_UNISPED" : conn = GetNewOpenConnectionEZOLL_UNISPED()
                 Case "AVISO" : conn = GetNewOpenConnectionAVISO()
                 Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
                 Case "FD" : conn = GetNewOpenConnectionFD()

VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb

@@ -28,8 +28,8 @@ Public Class cDHF_Anhaenge
         End If
     End Sub
 
-    Sub New(AnmID, MsgTyp)
-        LOAD(AnmID, MsgTyp)
+    Sub New(AnmID, MsgTyp, LizenzNr)
+        LOAD(AnmID, MsgTyp, LizenzNr)
     End Sub
 
 
@@ -91,12 +91,13 @@ Public Class cDHF_Anhaenge
         End Try
     End Sub
 
-    Public Sub LOAD(AnmID, MsgTyp)
+    Public Sub LOAD(AnmID, MsgTyp, LizenzNr)
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp AND LizenzNr=@LizenzNr ", conn)
                     cmd.Parameters.AddWithValue("@AnmID", AnmID)
                     cmd.Parameters.AddWithValue("@MsgTyp", MsgTyp)
+                    cmd.Parameters.AddWithValue("@LizenzNr", LizenzNr)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
                         For Each li In getParameterList()

VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb

@@ -8,10 +8,11 @@ Public Class cPDFWriteValues
     Private mfont As String
     Private mSize As Integer
     Private maxlength As Integer = -1
+    Private page As Integer = 1
     Private align As Integer = iTextSharp.text.Element.ALIGN_LEFT 'PdfContentByte.ALIGN_LEFT
 
 
-    Public Sub New(ByVal sText As String, ByVal X As Double, ByVal Y As Double, ByVal width As Double, ByVal height As Double, ByVal mfont As String, ByVal mSize As Integer, Optional ByVal maxlength As Integer = -1, Optional ByVal align As Integer = iTextSharp.text.Element.ALIGN_LEFT)
+    Public Sub New(ByVal sText As String, ByVal X As Double, ByVal Y As Double, ByVal width As Double, ByVal height As Double, ByVal mfont As String, ByVal mSize As Integer, Optional ByVal maxlength As Integer = -1, Optional ByVal align As Integer = iTextSharp.text.Element.ALIGN_LEFT, Optional ByVal page As Integer = 1)
         Me.sText = sText
         Me.X = X
         Me.Y = Y
@@ -21,6 +22,7 @@ Public Class cPDFWriteValues
         Me.mSize = mSize
         Me.maxlength = maxlength
         Me.align = align
+        Me.page = page
     End Sub
 
     Public ReadOnly Property Text() As Object
@@ -72,6 +74,11 @@ Public Class cPDFWriteValues
             Return align
         End Get
     End Property
+    Public ReadOnly Property getPage() As Object
+        Get
+            Return page
+        End Get
+    End Property
 
     '  Public Overrides Function ToString() As Object
     '      Return mText

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -953,9 +953,9 @@ Public Class cFormularManager
                 Dim stamper = New PdfStamper(pdf, fw)
                 If True Then
                     If listToWrite IsNot Nothing Then
-                        Dim overStr As PdfContentByte = stamper.GetOverContent(1)
                         For Each i In listToWrite
-                            If i.Text <> "" Then write(overStr, i, pdf.GetPageSize(1).Height)
+                            Dim overStr As PdfContentByte = stamper.GetOverContent(i.getPage)
+                            If i.Text <> "" Then write(overStr, i, pdf.GetPageSize(i.getPage).Height)
                         Next
                     End If
                 End If

VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb

@@ -13,15 +13,15 @@ Option Explicit On
 
 
 Namespace My
-
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"),
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Public NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
-
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings)
-
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
 #Region "Automatische My.Settings-Speicherfunktion"
 #If _MyType = "WindowsForms" Then
     Private Shared addedHandler As Boolean
@@ -36,10 +36,10 @@ Namespace My
     End Sub
 #End If
 #End Region
-
+        
         Public Shared ReadOnly Property [Default]() As MySettings
             Get
-
+                
 #If _MyType = "WindowsForms" Then
                If Not addedHandler Then
                     SyncLock addedHandlerLockObject
@@ -53,342 +53,355 @@ Namespace My
                 Return defaultInstance
             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" &
-            " ID=sa;Password=BmWr501956;")>
+        
+        <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"& _ 
+            " ID=sa;Password=BmWr501956;")>  _
         Public Property SCANCANON_PRODConnectionString() As String
             Get
-                Return CType(Me("SCANCANON_PRODConnectionString"), String)
+                Return CType(Me("SCANCANON_PRODConnectionString"),String)
             End Get
             Set
-                Me("SCANCANON_PRODConnectionString") = Value
+                Me("SCANCANON_PRODConnectionString") = value
             End Set
         End Property
-
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
-         Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatService")>
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatService")>  _
         Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String
             Get
-                Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"), String)
+                Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),String)
             End Get
         End Property
-
-        <Global.System.Configuration.UserScopedSettingAttribute(),
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=fa" &
-            "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
-            "l Size=200")>
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=fa"& _ 
+            "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _ 
+            "l Size=200")>  _
         Public Property DISPOConnectionString() As String
             Get
-                Return CType(Me("DISPOConnectionString"), String)
+                Return CType(Me("DISPOConnectionString"),String)
             End Get
             Set
-                Me("DISPOConnectionString") = Value
+                Me("DISPOConnectionString") = value
             End Set
         End Property
-
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
-         Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/")>
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/")>  _
         Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService() As String
             Get
-                Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"), String)
+                Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"),String)
             End Get
         End Property
-
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
-         Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at:443/fonws/ws/session")>
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at:443/fonws/ws/session")>  _
         Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService() As String
             Get
-                Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"), String)
+                Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"),String)
             End Get
         End Property
-
-        <Global.System.Configuration.UserScopedSettingAttribute(),
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
-         Global.System.Configuration.DefaultSettingValueAttribute("")>
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
         Public Property asdadasdasdasdasdasd() As String
             Get
-                Return CType(Me("asdadasdasdasdasdasd"), String)
+                Return CType(Me("asdadasdasdasdasdasd"),String)
             End Get
             Set
-                Me("asdadasdasdasdasdasd") = Value
+                Me("asdadasdasdasdasdasd") = value
             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.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=fals" &
-            "e;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
+        
+        <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.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=fals"& _ 
+            "e;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>  _
         Public ReadOnly Property FMZOLL_PRODConnectionString() As String
             Get
-                Return CType(Me("FMZOLL_PRODConnectionString"), String)
+                Return CType(Me("FMZOLL_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=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=f" &
-            "alse;User ID=Aviso_User;Password=DMQRNdUCcK;")>
+        
+        <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=FIBU2;Integrated Security=f"& _ 
+            "alse;User ID=Aviso_User;Password=DMQRNdUCcK;")>  _
         Public ReadOnly Property SYSKAConnectionString() As String
             Get
-                Return CType(Me("SYSKAConnectionString"), String)
+                Return CType(Me("SYSKAConnectionString"),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.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false" &
-            ";User ID=sa;Password=BmWr501956;")>
+        
+        <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.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false"& _ 
+            ";User ID=sa;Password=BmWr501956;")>  _
         Public ReadOnly Property ATLASConnectionString() As String
             Get
-                Return CType(Me("ATLASConnectionString"), String)
+                Return CType(Me("ATLASConnectionString"),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=ADMIN;Integrated Security=fa" &
-            "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
+        
+        <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=ADMIN;Integrated Security=fa"& _ 
+            "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>  _
         Public ReadOnly Property ADMINConnectionString_DEV() As String
             Get
-                Return CType(Me("ADMINConnectionString_DEV"), String)
+                Return CType(Me("ADMINConnectionString_DEV"),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.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;" &
-            "User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
+        
+        <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.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;"& _ 
+            "User ID=AppUser;Password=yp/THDd?xM+pZ$;")>  _
         Public ReadOnly Property SDL_PRODConnectionString() As String
             Get
-                Return CType(Me("SDL_PRODConnectionString"), String)
+                Return CType(Me("SDL_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=VERAG;Integrated Security=false;U" &
-            "ser ID=AppUser;Password=yp/THDd?xM+pZ$;")>
+        
+        <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=VERAG;Integrated Security=false;U"& _ 
+            "ser ID=AppUser;Password=yp/THDd?xM+pZ$;")>  _
         Public ReadOnly Property FMZOLLConnectionString() As String
             Get
-                Return CType(Me("FMZOLLConnectionString"), String)
+                Return CType(Me("FMZOLLConnectionString"),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=AVISO_new;Integrated Security=fal" &
-            "se;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool" &
-            " Size=200")>
+        
+        <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=AVISO_new;Integrated Security=fal"& _ 
+            "se;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool"& _ 
+            " Size=200")>  _
         Public ReadOnly Property AVISOConnectionStringTEST() As String
             Get
-                Return CType(Me("AVISOConnectionStringTEST"), String)
+                Return CType(Me("AVISOConnectionStringTEST"),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=AVISO;Integrated Security=fa" &
-            "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
-            "l Size=200")>
+        
+        <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=AVISO;Integrated Security=fa"& _ 
+            "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _ 
+            "l Size=200")>  _
         Public ReadOnly Property AVISOConnectionString() As String
             Get
-                Return CType(Me("AVISOConnectionString"), String)
+                Return CType(Me("AVISOConnectionString"),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=SDL;Integrated Security=False;Per" &
-            "sist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCerti" &
-            "ficate=False")>
+        
+        <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=SDL;Integrated Security=False;Per"& _ 
+            "sist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCerti"& _ 
+            "ficate=False")>  _
         Public ReadOnly Property SDLConnectionString() As String
             Get
-                Return CType(Me("SDLConnectionString"), String)
+                Return CType(Me("SDLConnectionString"),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=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=f" &
-            "alse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
+        
+        <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)
+                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),
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa" &
-            "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
-            "l Size=200")>
+        
+        <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=AVISO;Integrated Security=fa"& _ 
+            "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _ 
+            "l Size=200")>  _
         Public ReadOnly Property AVISO_ATILLAConnectionString() As String
             Get
-                Return CType(Me("AVISO_ATILLAConnectionString"), String)
+                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;")>
+        
+        <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)
+                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")>
+        
+        <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)
+                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;")>
+        
+        <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)
+                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;")>
+        
+        <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)
+                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;")>
+        
+        <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)
+                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")>
+        
+        <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)
+                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),
-         Global.System.Configuration.DefaultSettingValueAttribute("http://localhost:8733/DSFinVKService")>
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("http://localhost:8733/DSFinVKService")>  _
         Public ReadOnly Property VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer() As String
             Get
-                Return CType(Me("VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer"), String)
+                Return CType(Me("VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer"),String)
             End Get
         End Property
-
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
-         Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService")>
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService")>  _
         Public ReadOnly Property VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService() As String
             Get
-                Return CType(Me("VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService"), String)
+                Return CType(Me("VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService"),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=ADMIN;Integrated Security=false;U" &
-            "ser ID=AppUser;Password=yp/THDd?xM+pZ$;")>
+        
+        <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=ADMIN;Integrated Security=false;U"& _ 
+            "ser ID=AppUser;Password=yp/THDd?xM+pZ$;")>  _
         Public ReadOnly Property ADMINConnectionString() As String
             Get
-                Return CType(Me("ADMINConnectionString"), String)
+                Return CType(Me("ADMINConnectionString"),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=ASFINAG;Integrated Security=false" &
-            ";User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
-        Public ReadOnly Property AsfinagConnectionString() As String
-            Get
-                Return CType(Me("AsfinagConnectionString"), 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=Parkzeit;Integrated Security" &
-            "=false;User ID=sa;Password=BmWr501956;")>
+        
+        <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=Parkzeit;Integrated Security"& _ 
+            "=false;User ID=sa;Password=BmWr501956;")>  _
         Public ReadOnly Property PARKZEITConnectionString_PROD() As String
             Get
-                Return CType(Me("PARKZEITConnectionString_PROD"), String)
+                Return CType(Me("PARKZEITConnectionString_PROD"),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=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;U" &
-            "ser ID=sa;Password=BmWr501956;")>
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;U"& _ 
+            "ser ID=sa;Password=BmWr501956;")>  _
         Public ReadOnly Property PARKZEITConnectionString_DEV() As String
             Get
-                Return CType(Me("PARKZEITConnectionString_DEV"), String)
+                Return CType(Me("PARKZEITConnectionString_DEV"),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=ASFINAG;Integrated Security=false"& _ 
+            ";User ID=AppUser;Password=yp/THDd?xM+pZ$;")>  _
+        Public ReadOnly Property AsfinagConnectionString() As String
+            Get
+                Return CType(Me("AsfinagConnectionString"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=srv04.unisu.at;Initial Catalog=ezoll;Integrated Security=false;User I"& _ 
+            "D=AppUser;Password=yp/THDd?xM+pZ$;")>  _
+        Public Property EZOLL_UNISPEDConnectionString() As String
+            Get
+                Return CType(Me("EZOLL_UNISPEDConnectionString"),String)
+            End Get
+            Set
+                Me("EZOLL_UNISPEDConnectionString") = value
+            End Set
+        End Property
     End Class
 End Namespace
 
 Namespace My
-
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
     Friend Module MySettingsProperty
-
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
         Friend ReadOnly Property Settings() As Global.VERAG_PROG_ALLGEMEIN.My.MySettings
             Get
                 Return Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default

VERAG_PROG_ALLGEMEIN/My Project/Settings.settings

@@ -173,5 +173,8 @@
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
       <Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
     </Setting>
+    <Setting Name="EZOLL_UNISPEDConnectionString" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Data Source=srv04.unisu.at;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
+    </Setting>
   </Settings>
 </SettingsFile>