Wölfl Report->RG-Nr; TextToPDF->PageNum

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