TVAPP
This commit is contained in:
@@ -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()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user