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

fix AVISO-Sendungschat

Browse Source
This commit is contained in:
d.breimaier
2026-03-03 11:08:57 +01:00
parent 5149713da7
commit 05d2c29d44
3 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -1220,7 +1220,7 @@ Public Class cAvisoDAL
Return daten
End Function
Public Function Suche_LKW(LKW_Nr As String) As String
Public Function Suche_LKW(ByRef LKW_Nr As String, ByRef Optional avisoID As Integer = 1) As String
'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war
@@ -1236,7 +1236,9 @@ Public Class cAvisoDAL
If CDate(VarToDate(dr.Item("Datum"))) > Now.AddDays(-4) Then
Suche_LKW = "Achtung: der LKW mit der Nr. " & LKW_Nr & " wurde bereits vor kurzem eingetragen - und zwar am " &
Format(CDate(VarToDate(dr.Item("Datum"))), "ddd, dd.MM.yyyy - HH:mm")
avisoID = CInt(dr.Item("AvisoID"))
End If
End If
dr.Close()
End Using
@@ -1245,7 +1247,7 @@ Public Class cAvisoDAL
Return Suche_LKW
End Function
Public Function Suche_LKWStatus(LKW_Nr As String) As String
Public Function Suche_LKWStatus(ByRef LKW_Nr As String, Optional ByRef AVISOID As Integer = -1) As String
'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war
Suche_LKWStatus = ""
@@ -1269,6 +1271,7 @@ Public Class cAvisoDAL
dr.Read()
Suche_LKWStatus = "Achtung: der LKW mit der Nr. " & LKW_Nr & " existiert bereits mit dem Status '" & cGlobal.getStatusText(VarToInt2(dr.Item("Status"))) & "', Eingetragen, am " &
Format(CDate(VarToDate(dr.Item("Datum"))), "ddd, dd.MM.yyyy - HH:mm")
AVISOID = CInt(dr.Item("AvisoID"))
End If
dr.Close()
End Using