TVSettings Bugfix

This commit is contained in:
2024-12-23 14:52:57 +01:00
parent ee9ce73ecd
commit dffac5a56d

View File

@@ -2497,6 +2497,7 @@ Public Class cTvSettings
Public Property TextFlaggeLeft As Double?
Public Property TextFlaggeBottom As Double?
Public Property SelectedLogoValue As String
Public Property Reload As Byte?
End Class
@@ -2548,7 +2549,8 @@ Public Class cAvisoTvNewDAL
TextBalkenHeightInPercent = @TextBalkenHeightInPercent,
FlaggeLeft = @FlaggeLeft,
FlaggeBottom = @FlaggeBottom,
Logo = @Logo
Logo = @Logo,
Reload = @Reload
WHERE StandortID = @StandortID"
Dim sqlInsert As String = "INSERT INTO AvisoTvSettings
(StandortID, KachelWidthInPercent, KachelHeightInPercent,KachelRowGapInPercent,
@@ -2583,6 +2585,7 @@ Public Class cAvisoTvNewDAL
cmdSave.Parameters.AddWithValue("@FlaggeLeft", settings.TextFlaggeLeft)
cmdSave.Parameters.AddWithValue("@FlaggeBottom", settings.TextFlaggeBottom)
cmdSave.Parameters.AddWithValue("@Logo", settings.SelectedLogoValue)
cmdSave.Parameters.AddWithValue("@Reload", settings.Reload)
cmdSave.ExecuteNonQuery()
End Using
End Using