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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-12-13 21:30:05 +01:00
parent 65ee38135e
commit 56fe11bc97
26 changed files with 3960 additions and 248 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmEintragAviso.vb
View File

@@ -621,7 +621,7 @@ Public Class frmEintragAviso
If Neuanlage Then
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(txtLKW_Nr.Text.Trim.Replace(" ", ""))
Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
If hLKWCheck2 <> "" Then
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
"Aviso-Eintrag")
@@ -632,7 +632,7 @@ Public Class frmEintragAviso
If hLKWCheck2 = "" Then
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
Dim hLKWCheck As String = AvisoDAL.Suche_LKW(txtLKW_Nr.Text.Trim.Replace(" ", ""))
Dim hLKWCheck As String = AvisoDAL.Suche_LKW(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
If hLKWCheck <> "" Then
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
"Aviso-Eintrag")
@@ -720,7 +720,7 @@ Public Class frmEintragAviso
'Werte zuweisen
myAviso.Datum = dtpDatum.Value
myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "")
myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "")
myAviso.LKW_Nationalitaet = sbLkwNationalitaet._value
myAviso.DakosyRef = SQL.isNullNothing(txtDyRef.Text.Trim)
If datVoraussichtlichesEintreffen.Visible Then