edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fakturierung VERAG AG (DE); NCTS Adressen zugel.Empf.; ATEZ +Procedure

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-30 16:07:44 +02:00
parent f68ad96df5
commit aaecc4fce6
17 changed files with 294 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -48,6 +48,20 @@ Public Class SQL
End If
End Function
Public Shared Function GetPARKZEITConnectionString() As String
'Properties.Settings.Default.
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Return My.MySettings.Default.PARKZEITConnectionString_DEV
Else
Return My.MySettings.Default.PARKZEITConnectionString_PROD
End If
End Function
Public Shared Function GetWEBConnectionString() As String
'Properties.Settings.Default.
@@ -212,6 +226,18 @@ Public Class SQL
End Try
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionPARKZEIT(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
Try
cn.ConnectionString = GetPARKZEITConnectionString() & IIf(pooling, "", ";pooling=false")
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
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
@@ -432,6 +458,7 @@ Public Class SQL
Case "FD" : conn = GetNewOpenConnectionFD()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
@@ -473,6 +500,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
' Using conn As SqlConnection = GetNewOpenConnection()
@@ -508,6 +536,7 @@ Public Class SQL
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
Using cmd As New SqlCommand(sql, conn)
@@ -576,6 +605,7 @@ Public Class SQL
Case "SCANCANON" : conn = GetNewOpenConnectionSCANCANON()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
End If
@@ -625,6 +655,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
Using cmd As New SqlCommand(sql, conn)
@@ -669,6 +700,7 @@ Public Class SQL
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
@@ -708,6 +740,7 @@ Public Class SQL
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
Try
' MsgBox(sql)
@@ -742,6 +775,7 @@ Public Class SQL
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
Try
Using cmd As New SqlCommand(sql, conn)