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

AVISO, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-05 11:44:16 +01:00
parent 8111c842c6
commit effac545d8
7 changed files with 232 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Aviso/AktenErfassung/frmEintragAviso.vb
View File

@@ -757,27 +757,52 @@ Public Class frmEintragAviso
For Each LKWNr In ListOfLKWNr
Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(LKWNr)
Dim temp_avisoID As Integer = -1
Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(LKWNr, temp_avisoID)
If hLKWCheck2 <> "" Then
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
"Aviso-Eintrag")
If antwort = vbNo Then
Exit Sub
Else
EintragMehrfach = True
If temp_avisoID > 0 Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1)
FRM.ShowDialog(frmGrayOut)
frmGrayOut.Close()
Exit Sub
Else
MsgBox("AVISO-ID konnte nicht ermittelt werden")
Exit Sub
End If
ElseIf antwort = vbCancel Then
Exit Sub
Else
EintragMehrfach = True
End If
End If
If hLKWCheck2 = "" Then
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
Dim hLKWCheck As String = AvisoDAL.Suche_LKW(LKWNr)
Dim hLKWCheck As String = AvisoDAL.Suche_LKW(LKWNr, temp_avisoID)
If hLKWCheck <> "" Then
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
"Aviso-Eintrag")
If antwort = vbNo Then
If temp_avisoID > 0 Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1)
FRM.ShowDialog(frmGrayOut)
frmGrayOut.Close()
Exit Sub
Else
MsgBox("AVISO-ID konnte nicht ermittelt werden")
Exit Sub
End If
ElseIf antwort = vbCancel Then
Exit Sub
Else
EintragMehrfach = True
End If
End If