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

TimasAPI, Uberstunden, Mailvorlagen, etc,

Browse Source
This commit is contained in:
d.breimaier
2024-04-24 11:09:58 +02:00
parent a7371e22ae
commit 41a236ad45
12 changed files with 323 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -2383,13 +2383,15 @@ Public Class cAvisoTV
Property FixeZeile3 As String
Property Standort As String
Property Art As String
Property Special As String
End Class
Public Class cAvisoTVDAL
Public Function LesenAvisoTV(hID As Integer, wherehSQL As String, Standort As String, Special As String) As cAvisoTV
Public Function LesenAvisoTV(hID As Integer, wherehSQL As String, Standort As String, Special As String, Optional ByRef list As List(Of cAvisoTV) = Nothing) As cAvisoTV
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
Dim sql As String
If list IsNot Nothing Then list.Clear()
sql = "SELECT * FROM AvisoTV WHERE 1=1 "
If hID > 0 Then
sql &= String.Format(" AND TVID = {0}", hID)
@@ -2421,6 +2423,21 @@ Public Class cAvisoTVDAL
daten.FixeZeile3 = VarToStr(dr.Item("FixeZeile3"))
daten.Standort = VarToStr(dr.Item("Standort"))
daten.Art = VarToStr(dr.Item("Art"))
daten.Special = VarToStr(dr.Item("Special"))
For Each ds In dr
Dim avisoTv = New cAvisoTV()
avisoTv.TVID = VarToInt(ds.Item("TVID"))
avisoTv.FixeZeile1 = VarToStr(ds.Item("FixeZeile1"))
avisoTv.FixeZeile2 = VarToStr(ds.Item("FixeZeile2"))
avisoTv.FixeZeile3 = VarToStr(ds.Item("FixeZeile3"))
avisoTv.Standort = VarToStr(ds.Item("Standort"))
avisoTv.Art = VarToStr(ds.Item("Art"))
avisoTv.Special = VarToStr(ds.Item("Special"))
If list IsNot Nothing Then list.Add(avisoTv)
Next
End If
dr.Close()
End Using