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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-10-31 09:23:20 +01:00
parent 021cce6f04
commit c5595a729a
169 changed files with 16226 additions and 3376 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
SDL/cSqlDb.vb
View File

@@ -194,7 +194,7 @@ Public Class cOptionenDAL
Try
If dr.Read Then Return CStr(dr.Item("prog_aktuelleVersion"))
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:", "Datenbankfehler")
Finally
dr.Close()
End Try
@@ -254,7 +254,7 @@ Public Class cOptionenDAL
End Using
dr.Close()
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung.", "Datenbankfehler")
Return False
End Try
@@ -277,7 +277,7 @@ Public Class cOptionenDAL
End Using
dr.Close()
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung.", "Datenbankfehler")
End Try
Return ""
End Function
@@ -308,7 +308,7 @@ Public Class cOptionenDAL
End Using
dr.Close()
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindun.", "Datenbankfehler")
Return Nothing
End Try
@@ -342,7 +342,7 @@ Public Class cOptionenDAL
dr = cmd.ExecuteReader()
If dr.Read Then Return CInt(dr.Item(0))
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindun.", "Datenbankfehler")
Finally
dr.Close()
End Try
@@ -364,7 +364,7 @@ Public Class cOptionenDAL
dr = cmd.ExecuteReader()
If dr.Read Then Return CInt(dr.Item(0))
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindun.", "Datenbankfehler")
Finally
dr.Close()
End Try
@@ -1558,7 +1558,7 @@ Public Class kundenSQL
Try
Dim d As New cPartnerKdNRFMZoll
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 AdressenNr,IDSKundenNr,MSEKundenNr,[TELEPASS-Kd-Nr],WölflKundenNr,UTAKundenNr FROM Adressen WHERE AdressenNr=@AdressenNr ", conn)
Using cmd As New SqlCommand("SELECT TOP 1 AdressenNr,IDSKundenNr,MSEKundenNr,[TELEPASS-Kd-Nr],WölflKundenNr,UTAKundenNr,PLOSEKundenNr FROM Adressen WHERE AdressenNr=@AdressenNr ", conn)
cmd.Parameters.AddWithValue("@AdressenNr", kdnr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
@@ -1571,6 +1571,8 @@ Public Class kundenSQL
d.IDSKundenNr = getPartnerKdNrFromFMZOLL_IDS(kdnr)
d.ATKundenNr = getPartnerKdNrFromFMZOLL_AT(kdnr)
d.PLOSE_KundenNr = cSqlDb.checkNullStr(dr.Item("PLOSEKundenNr"))
Dim dt As DataTable = getPartnerKdNrFromFMZOLL_DE(kdnr)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
d.MautDE_FlottenPIN = cSqlDb.checkNullStr(dt.Rows(0)("MautDE_FlottenPIN"))