Exception-Handling verfeinert, kleine Bugfixes durchgeführt.

This commit is contained in:
2022-10-10 09:27:39 +02:00
parent 2b982ebb9a
commit 21bf05ed06
7 changed files with 88 additions and 108 deletions

View File

@@ -1848,10 +1848,9 @@ Public Class frmEintragAviso
If destination Is "" Or destination Is Nothing Then
MsgBox("Zur Berechnung muss vorher eine Grenzstelle/Zollstelle ausgewählt werden!")
Else
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim frmRouteBerechnen = New frmRoutendauerBerechnen(destination)
If frmRouteBerechnen.ShowDialog(frmGrayOut) = DialogResult.OK Then
If frmRouteBerechnen.ShowDialog() = DialogResult.OK Then
datVoraussichtlichesEintreffen.Value = frmRouteBerechnen.calculatedDate
End If