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

TVAPP

Browse Source
This commit is contained in:
m.ilhan
2024-11-22 16:41:28 +01:00
parent e7639f9ccb
commit 69fb7008a1
1 changed files with 32 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -2439,13 +2439,14 @@ End Class
Public Class cAvisoTvNew Public Class cAvisoTvNew
Public Property TVID As Integer
Public Property TvTextBezeichnungID As Integer Public Property TvTextBezeichnungID As Integer
Public Property TvTextBezeichnung As String Public Property TvTextBezeichnung As String
Public Property FixeZeile1RTF As String Public Property FixeZeile1RTF As String
Public Property FixeZeile1HTML As String Public Property FixeZeile1HTML As String
Public Property FixeZeile2 As String Public Property FixeZeile2RTF As String
Public Property FixeZeile3 As String Public Property FixeZeile2HTML As String
Public Property FixeZeile3HTML As String
Public Property FixeZeile3RTF As String
Public Property StandortID As Integer Public Property StandortID As Integer
Public Property Standort As String Public Property Standort As String
Public Property Art As String Public Property Art As String
@@ -2464,12 +2465,6 @@ Public Class cAvisoTvNew
Public Property IsActive As Boolean Public Property IsActive As Boolean
Public Property Position As String 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 End Class
@@ -2481,10 +2476,9 @@ End Class
Public Class cAvisoTvNewDAL Public Class cAvisoTvNewDAL
' Methode zum Abrufen der StandortID basierend auf dem Standortnamen
Public Function GetStandortID(standort As String) As Integer Public Function GetStandortID(standort As String) As Integer
Dim standortID As Integer = 0 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 Try
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
@@ -2590,8 +2584,8 @@ Public Class cAvisoTvNewDAL
s.Standort, s.Standort,
stv.Position, stv.Position,
a.FixeZeile1RTF, a.FixeZeile1RTF,
a.FixeZeile2, a.FixeZeile2RTF,
a.FixeZeile3, a.FixeZeile3RTF,
a.Art, a.Art,
a.StartDate, a.StartDate,
a.EndDate, a.EndDate,
@@ -2651,8 +2645,8 @@ Public Class cAvisoTvNewDAL
.Standort = Convert.ToString(dr("Standort")), .Standort = Convert.ToString(dr("Standort")),
.Position = If(IsDBNull(dr("Position")), Nothing, Convert.ToString(dr("Position"))), .Position = If(IsDBNull(dr("Position")), Nothing, Convert.ToString(dr("Position"))),
.FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, Convert.ToString(dr("FixeZeile1RTF"))), .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, Convert.ToString(dr("FixeZeile1RTF"))),
.FixeZeile2 = If(IsDBNull(dr("FixeZeile2")), Nothing, Convert.ToString(dr("FixeZeile2"))), .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, Convert.ToString(dr("FixeZeile2RTF"))),
.FixeZeile3 = If(IsDBNull(dr("FixeZeile3")), Nothing, Convert.ToString(dr("FixeZeile3"))), .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, Convert.ToString(dr("FixeZeile3RTF"))),
.Art = If(IsDBNull(dr("Art")), Nothing, Convert.ToString(dr("Art"))), .Art = If(IsDBNull(dr("Art")), Nothing, Convert.ToString(dr("Art"))),
.StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))),
.EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))),
@@ -2688,8 +2682,8 @@ Public Class cAvisoTvNewDAL
a.TvTextBezeichnungID, a.TvTextBezeichnungID,
a.TvTextBezeichnung, a.TvTextBezeichnung,
a.FixeZeile1RTF, a.FixeZeile1RTF,
a.FixeZeile2, a.FixeZeile2RTF,
a.FixeZeile3, a.FixeZeile3RTF,
a.Art, a.Art,
a.StartDate, a.StartDate,
a.EndDate, a.EndDate,
@@ -2727,8 +2721,8 @@ Public Class cAvisoTvNewDAL
.TvTextBezeichnungID = If(IsDBNull(dr("TvTextBezeichnungID")), 0, Convert.ToInt32(dr("TvTextBezeichnungID"))), .TvTextBezeichnungID = If(IsDBNull(dr("TvTextBezeichnungID")), 0, Convert.ToInt32(dr("TvTextBezeichnungID"))),
.TvTextBezeichnung = If(IsDBNull(dr("TvTextBezeichnung")), String.Empty, dr("TvTextBezeichnung").ToString()), .TvTextBezeichnung = If(IsDBNull(dr("TvTextBezeichnung")), String.Empty, dr("TvTextBezeichnung").ToString()),
.FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, dr("FixeZeile1RTF").ToString()), .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, dr("FixeZeile1RTF").ToString()),
.FixeZeile2 = If(IsDBNull(dr("FixeZeile2")), Nothing, dr("FixeZeile2").ToString()), .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, dr("FixeZeile2RTF").ToString()),
.FixeZeile3 = If(IsDBNull(dr("FixeZeile3")), Nothing, dr("FixeZeile3").ToString()), .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, dr("FixeZeile3RTF").ToString()),
.Art = If(IsDBNull(dr("Art")), Nothing, dr("Art").ToString()), .Art = If(IsDBNull(dr("Art")), Nothing, dr("Art").ToString()),
.StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))),
.EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))),
@@ -2786,8 +2780,10 @@ Public Class cAvisoTvNewDAL
TvTextBezeichnung, TvTextBezeichnung,
FixeZeile1RTF, FixeZeile1RTF,
FixeZeile1HTML, FixeZeile1HTML,
FixeZeile2, FixeZeile2RTF,
FixeZeile3, FixeZeile2HTML,
FixeZeile3RTF,
FixeZeile3HTML,
StartDate, StartDate,
EndDate, EndDate,
StartTime, StartTime,
@@ -2805,8 +2801,10 @@ Public Class cAvisoTvNewDAL
@TvTextBezeichnung, @TvTextBezeichnung,
@FixeZeile1RTF, @FixeZeile1RTF,
@FixeZeile1HTML, @FixeZeile1HTML,
@FixeZeile2, @FixeZeile2RTF,
@FixeZeile3, @FixeZeile2HTML,
@FixeZeile3RTF,
@FixeZeile3HTML,
@StartDate, @StartDate,
@EndDate, @EndDate,
@StartTime, @StartTime,
@@ -2827,8 +2825,10 @@ Public Class cAvisoTvNewDAL
sql = "UPDATE AvisoTvNew SET sql = "UPDATE AvisoTvNew SET
FixeZeile1RTF = @FixeZeile1RTF, FixeZeile1RTF = @FixeZeile1RTF,
FixeZeile1HTML = @FixeZeile1HTML, FixeZeile1HTML = @FixeZeile1HTML,
FixeZeile2 = @FixeZeile2, FixeZeile2RTF = @FixeZeile2RTF,
FixeZeile3 = @FixeZeile3, FixeZeile2HTML = @FixeZeile2HTML,
FixeZeile3RTF = @FixeZeile3RTF,
FixeZeile3HTML = @FixeZeile3HTML,
StartDate = @StartDate, StartDate = @StartDate,
EndDate = @EndDate, EndDate = @EndDate,
StartTime = @StartTime, 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("@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("@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("@FixeZeile2RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2RTF), DBNull.Value, aviso.FixeZeile2RTF))
cmd.Parameters.AddWithValue("@FixeZeile3", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3), CType(Nothing, String), aviso.FixeZeile3)) 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("@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("@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)) cmd.Parameters.AddWithValue("@StartTime", If(aviso.StartTime.HasValue, CType(aviso.StartTime.Value, Object), DBNull.Value))
@@ -2891,19 +2893,13 @@ Public Class cAvisoTvNewDAL
) )
BEGIN BEGIN
UPDATE StandortTvBezeichnung UPDATE StandortTvBezeichnung
SET Position = @Position, SET Position = @Position
FontFamily = @FontFamily,
FontSize = @FontSize,
FontStyle = @FontStyle,
TextColor = @TextColor,
BackColor = @BackColor,
TextAlignment = @TextAlignment
WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID
END END
ELSE ELSE
BEGIN BEGIN
INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position, FontFamily, FontSize, FontStyle, TextColor, BackColor, TextAlignment) INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position)
VALUES (@StandortID, @TvTextBezeichnungID, @Position, @FontFamily, @FontSize, @FontStyle, @TextColor, @BackColor, @TextAlignment) VALUES (@StandortID, @TvTextBezeichnungID, @Position)
END END
" "
@@ -2911,12 +2907,6 @@ Public Class cAvisoTvNewDAL
cmdLink.Parameters.AddWithValue("@StandortID", aviso.StandortID) cmdLink.Parameters.AddWithValue("@StandortID", aviso.StandortID)
cmdLink.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) cmdLink.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID)
cmdLink.Parameters.AddWithValue("@Position", If(String.IsNullOrEmpty(aviso.Position), DBNull.Value, aviso.Position)) 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() cmdLink.ExecuteNonQuery()