Exception-Handling verfeinert, kleine Bugfixes durchgeführt.

Aviso/frmNCTSRouten.vb

@@ -1,5 +1,6 @@
 
 Imports System.Security.Authentication.ExtendedProtection
+Imports DocumentFormat.OpenXml.Drawing
 Imports GrapeCity.ActiveReports.Document.Section
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -7,7 +8,7 @@ Imports VERAG_PROG_ALLGEMEIN
 Public Class frmNCTSRouten
 
     Dim routenId As Integer = -1
-    Private sql As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
     Dim currentRoute As New VERAG_PROG_ALLGEMEIN.cNCTSRouten
     Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
 
@@ -239,6 +240,7 @@ Public Class frmNCTSRouten
     Private Sub sbxVon_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles sbxVon.PreviewKeyDown
         If sender Is sbxVon Then sbxVon.FireReturn() : e.IsInputKey = True : Me.DialogResult = DialogResult.None
         If sender Is sbxNach Then sbxNach.FireReturn() : e.IsInputKey = True : Me.DialogResult = DialogResult.None
+
     End Sub
 
     Public Function GetTxtDauer() As TextBox
@@ -328,5 +330,11 @@ Public Class frmNCTSRouten
         searchbox.Visible = visible
     End Sub
 
+    Sub cbxNach_ValueChanged() Handles sbxNach.VALUE_CHANGED
+        If cbxNach._value = "???" AndAlso sbxNach._value <> "" Then
+            txtNach.Text = sbxNach._value
+        End If
+    End Sub
+
 End Class