From 69fb7008a14fe124e64ad403482ef99dd51b68b0 Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Fri, 22 Nov 2024 16:41:28 +0100 Subject: [PATCH] TVAPP --- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 74 ++++++++----------- 1 file changed, 32 insertions(+), 42 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 497f09a9..5dd8a52e 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -2439,13 +2439,14 @@ End Class Public Class cAvisoTvNew - Public Property TVID As Integer Public Property TvTextBezeichnungID As Integer Public Property TvTextBezeichnung As String Public Property FixeZeile1RTF As String Public Property FixeZeile1HTML As String - Public Property FixeZeile2 As String - Public Property FixeZeile3 As String + Public Property FixeZeile2RTF As String + Public Property FixeZeile2HTML As String + Public Property FixeZeile3HTML As String + Public Property FixeZeile3RTF As String Public Property StandortID As Integer Public Property Standort As String Public Property Art As String @@ -2464,12 +2465,6 @@ Public Class cAvisoTvNew Public Property IsActive As Boolean Public Property Position As String - Public Property FontFamily As String = "Microsoft Sans Serif" - Public Property FontSize As Single = 12.0F - Public Property FontStyle As String = "Regular" - Public Property TextColor As String = "Black" - Public Property BackColor As String = "White" - Public Property TextAlignment As String = "Left" End Class @@ -2481,10 +2476,9 @@ End Class Public Class cAvisoTvNewDAL - ' Methode zum Abrufen der StandortID basierend auf dem Standortnamen Public Function GetStandortID(standort As String) As Integer Dim standortID As Integer = 0 - Dim sql As String = "SELECT StandortID FROM Standorte WHERE Standort = @Standort" + Dim sql As String = "SELECT StandortID FROM StandorteTV WHERE Standort = @Standort" Try Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() @@ -2590,8 +2584,8 @@ Public Class cAvisoTvNewDAL s.Standort, stv.Position, a.FixeZeile1RTF, - a.FixeZeile2, - a.FixeZeile3, + a.FixeZeile2RTF, + a.FixeZeile3RTF, a.Art, a.StartDate, a.EndDate, @@ -2651,8 +2645,8 @@ Public Class cAvisoTvNewDAL .Standort = Convert.ToString(dr("Standort")), .Position = If(IsDBNull(dr("Position")), Nothing, Convert.ToString(dr("Position"))), .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, Convert.ToString(dr("FixeZeile1RTF"))), - .FixeZeile2 = If(IsDBNull(dr("FixeZeile2")), Nothing, Convert.ToString(dr("FixeZeile2"))), - .FixeZeile3 = If(IsDBNull(dr("FixeZeile3")), Nothing, Convert.ToString(dr("FixeZeile3"))), + .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, Convert.ToString(dr("FixeZeile2RTF"))), + .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, Convert.ToString(dr("FixeZeile3RTF"))), .Art = If(IsDBNull(dr("Art")), Nothing, Convert.ToString(dr("Art"))), .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), @@ -2688,8 +2682,8 @@ Public Class cAvisoTvNewDAL a.TvTextBezeichnungID, a.TvTextBezeichnung, a.FixeZeile1RTF, - a.FixeZeile2, - a.FixeZeile3, + a.FixeZeile2RTF, + a.FixeZeile3RTF, a.Art, a.StartDate, a.EndDate, @@ -2727,8 +2721,8 @@ Public Class cAvisoTvNewDAL .TvTextBezeichnungID = If(IsDBNull(dr("TvTextBezeichnungID")), 0, Convert.ToInt32(dr("TvTextBezeichnungID"))), .TvTextBezeichnung = If(IsDBNull(dr("TvTextBezeichnung")), String.Empty, dr("TvTextBezeichnung").ToString()), .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, dr("FixeZeile1RTF").ToString()), - .FixeZeile2 = If(IsDBNull(dr("FixeZeile2")), Nothing, dr("FixeZeile2").ToString()), - .FixeZeile3 = If(IsDBNull(dr("FixeZeile3")), Nothing, dr("FixeZeile3").ToString()), + .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, dr("FixeZeile2RTF").ToString()), + .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, dr("FixeZeile3RTF").ToString()), .Art = If(IsDBNull(dr("Art")), Nothing, dr("Art").ToString()), .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), @@ -2786,8 +2780,10 @@ Public Class cAvisoTvNewDAL TvTextBezeichnung, FixeZeile1RTF, FixeZeile1HTML, - FixeZeile2, - FixeZeile3, + FixeZeile2RTF, + FixeZeile2HTML, + FixeZeile3RTF, + FixeZeile3HTML, StartDate, EndDate, StartTime, @@ -2805,8 +2801,10 @@ Public Class cAvisoTvNewDAL @TvTextBezeichnung, @FixeZeile1RTF, @FixeZeile1HTML, - @FixeZeile2, - @FixeZeile3, + @FixeZeile2RTF, + @FixeZeile2HTML, + @FixeZeile3RTF, + @FixeZeile3HTML, @StartDate, @EndDate, @StartTime, @@ -2827,8 +2825,10 @@ Public Class cAvisoTvNewDAL sql = "UPDATE AvisoTvNew SET FixeZeile1RTF = @FixeZeile1RTF, FixeZeile1HTML = @FixeZeile1HTML, - FixeZeile2 = @FixeZeile2, - FixeZeile3 = @FixeZeile3, + FixeZeile2RTF = @FixeZeile2RTF, + FixeZeile2HTML = @FixeZeile2HTML, + FixeZeile3RTF = @FixeZeile3RTF, + FixeZeile3HTML = @FixeZeile3HTML, StartDate = @StartDate, EndDate = @EndDate, StartTime = @StartTime, @@ -2849,8 +2849,10 @@ Public Class cAvisoTvNewDAL cmd.Parameters.AddWithValue("@FixeZeile1RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1RTF), CType(Nothing, String), aviso.FixeZeile1RTF)) cmd.Parameters.AddWithValue("@FixeZeile1HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1HTML), CType(Nothing, String), aviso.FixeZeile1HTML)) - cmd.Parameters.AddWithValue("@FixeZeile2", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2), CType(Nothing, String), aviso.FixeZeile2)) - cmd.Parameters.AddWithValue("@FixeZeile3", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3), CType(Nothing, String), aviso.FixeZeile3)) + cmd.Parameters.AddWithValue("@FixeZeile2RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2RTF), DBNull.Value, aviso.FixeZeile2RTF)) + cmd.Parameters.AddWithValue("@FixeZeile2HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2HTML), DBNull.Value, aviso.FixeZeile2HTML)) + cmd.Parameters.AddWithValue("@FixeZeile3RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3RTF), DBNull.Value, aviso.FixeZeile3RTF)) + cmd.Parameters.AddWithValue("@FixeZeile3HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3HTML), DBNull.Value, aviso.FixeZeile3HTML)) cmd.Parameters.AddWithValue("@StartDate", If(aviso.StartDate.HasValue, CType(aviso.StartDate.Value, Object), DBNull.Value)) cmd.Parameters.AddWithValue("@EndDate", If(aviso.EndDate.HasValue, CType(aviso.EndDate.Value, Object), DBNull.Value)) cmd.Parameters.AddWithValue("@StartTime", If(aviso.StartTime.HasValue, CType(aviso.StartTime.Value, Object), DBNull.Value)) @@ -2891,19 +2893,13 @@ Public Class cAvisoTvNewDAL ) BEGIN UPDATE StandortTvBezeichnung - SET Position = @Position, - FontFamily = @FontFamily, - FontSize = @FontSize, - FontStyle = @FontStyle, - TextColor = @TextColor, - BackColor = @BackColor, - TextAlignment = @TextAlignment + SET Position = @Position WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID END ELSE BEGIN - INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position, FontFamily, FontSize, FontStyle, TextColor, BackColor, TextAlignment) - VALUES (@StandortID, @TvTextBezeichnungID, @Position, @FontFamily, @FontSize, @FontStyle, @TextColor, @BackColor, @TextAlignment) + INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position) + VALUES (@StandortID, @TvTextBezeichnungID, @Position) END " @@ -2911,12 +2907,6 @@ Public Class cAvisoTvNewDAL cmdLink.Parameters.AddWithValue("@StandortID", aviso.StandortID) cmdLink.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) cmdLink.Parameters.AddWithValue("@Position", If(String.IsNullOrEmpty(aviso.Position), DBNull.Value, aviso.Position)) - cmdLink.Parameters.AddWithValue("@FontFamily", aviso.FontFamily) - cmdLink.Parameters.AddWithValue("@FontSize", aviso.FontSize) - cmdLink.Parameters.AddWithValue("@FontStyle", aviso.FontStyle) - cmdLink.Parameters.AddWithValue("@TextColor", aviso.TextColor) - cmdLink.Parameters.AddWithValue("@BackColor", aviso.BackColor) - cmdLink.Parameters.AddWithValue("@TextAlignment", aviso.TextAlignment) cmdLink.ExecuteNonQuery()