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

DB Struktur

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-09-06 14:55:33 +02:00
parent be383b1b37
commit 12fd9d1b22
1 changed files with 30 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -1920,6 +1920,9 @@ Public Class cVermerk
Property Beschreibung As String = "" Property Beschreibung As String = ""
Property SMSId As Integer Property SMSId As Integer
Property SMSStatus As Integer Property SMSStatus As Integer
Property Geloescht As Boolean
Property AAS_Warnstufe As Boolean
Property HintergrundVermerk As Boolean
End Class End Class
@@ -1953,6 +1956,9 @@ Public Class cVermerkeDAL
daten.VorauskasseId = VarToInt(dr.Item("VorauskasseId")) daten.VorauskasseId = VarToInt(dr.Item("VorauskasseId"))
daten.SMSId = VarToInt(dr.Item("SMSId")) daten.SMSId = VarToInt(dr.Item("SMSId"))
daten.SMSStatus = VarToInt(dr.Item("SMSstatus")) daten.SMSStatus = VarToInt(dr.Item("SMSstatus"))
daten.Geloescht = VarToBool(dr.Item("Geloescht"))
daten.AAS_Warnstufe = VarToBool(dr.Item("AAS_Warnstufe"))
daten.HintergrundVermerk = VarToBool(dr.Item("HintergrundVermerk"))
End If End If
dr.Close() dr.Close()
End Using End Using
@@ -2125,11 +2131,11 @@ Public Class cVermerkeDAL
If d.VermerkID = 0 Then If d.VermerkID = 0 Then
'Neuanlage 'Neuanlage
hAuswahl = "INSERT INTO Vermerke " & hAuswahl = "INSERT INTO Vermerke " &
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId,SMSId,SMSStatus) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId,@SMSId,@SMSStatus)" "(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId,SMSId,SMSStatus,Geloescht,AAS_Warnstufe,HintergrundVermerk) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId,@SMSId,@SMSStatus,@Geloescht,@AAS_Warnstufe,@HintergrundVermerk)"
Else Else
'Änderung 'Änderung
hAuswahl = String.Format( hAuswahl = String.Format(
"UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID,SMSId=@SMSId,SMSStatus=@SMSStatus") "UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID,SMSId=@SMSId,SMSStatus=@SMSStatus,Geloescht=@Geloescht,AAS_Warnstufe=@AAS_Warnstufe,HintergrundVermerk=@HintergrundVermerk")
End If End If
Dim sql = hAuswahl Dim sql = hAuswahl
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2147,6 +2153,9 @@ Public Class cVermerkeDAL
cmd.Parameters.AddWithValue("@VorauskasseId", If(d.VorauskasseId IsNot Nothing, d.VorauskasseId, DBNull.Value)) cmd.Parameters.AddWithValue("@VorauskasseId", If(d.VorauskasseId IsNot Nothing, d.VorauskasseId, DBNull.Value))
cmd.Parameters.AddWithValue("@SMSId", d.SMSId) cmd.Parameters.AddWithValue("@SMSId", d.SMSId)
cmd.Parameters.AddWithValue("@SMSStatus", d.SMSStatus) cmd.Parameters.AddWithValue("@SMSStatus", d.SMSStatus)
cmd.Parameters.AddWithValue("@Geloescht", d.Geloescht)
cmd.Parameters.AddWithValue("@AAS_Warnstufe", d.AAS_Warnstufe)
cmd.Parameters.AddWithValue("@HintergrundVermerk", d.HintergrundVermerk)
Try Try
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
@@ -2182,6 +2191,25 @@ Public Class cVermerkeDAL
Return False Return False
End Function End Function
Public Shared Function increaseWarnstufe(VermerkID) As Boolean
Dim SQLstr As String = " UPDATE Vermerke SET AAS_Warnstufe = (AAS_Warnstufe+1) WHERE VermerkID = @VermerkID"
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(SQLstr, conn)
cmd.Parameters.AddWithValue("@VermerkID", VermerkID)
Try
cmd.ExecuteNonQuery()
Return True
Catch ex As SqlException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "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 Using
conn.Close()
Return False
End Function
Public Sub togglegeloescht(ByVal hID As Integer, ByVal VermerkText As String, AvisoID As Integer) Public Sub togglegeloescht(ByVal hID As Integer, ByVal VermerkText As String, AvisoID As Integer)
Dim sql = String.Format("UPDATE Vermerke SET Geloescht=Geloescht-1 WHERE VermerkID = {0}", hID) Dim sql = String.Format("UPDATE Vermerke SET Geloescht=Geloescht-1 WHERE VermerkID = {0}", hID)