Merge: Routen, AVISO-Ansicht

Aviso/frmEintragAviso.vb

@@ -2,7 +2,8 @@
 Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
 Imports System.Data.OleDb
 Imports System.Data.SqlClient
-Imports System.Drawing.Printing 
+Imports System.Drawing.Printing
+Imports System.Linq.Expressions
 
 Public Class frmEintragAviso
     '   Public frmHilf As frmMain
@@ -527,6 +528,7 @@ Public Class frmEintragAviso
             dtpAvisoEingangZeit.Enabled = bearb
         End If
 
+        'cbxEintreffenAus.fillWithSQL("SELECT [nctsr_dauer_in_tagen], [nctsr_von] FROM [tblNTCSRouten] ", False, "FMZOLL", False)
 
         initAttachment()
 
@@ -1836,4 +1838,28 @@ Public Class frmEintragAviso
     End Sub
 
 
+
+
+
+    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles btnStreckendauerBerechnen.Click
+
+        Dim destination As String = ""
+
+        If cboGrenzstelle._value = "???" AndAlso txtBestimmungszollstelle._value IsNot "" Then
+            destination = txtBestimmungszollstelle._value
+        Else
+            destination = cboGrenzstelle._value
+        End If
+
+        If destination Is "" Or destination Is Nothing Then
+            MsgBox("Zur Berechnung muss vorher eine Grenzstelle/Zollstelle ausgewählt werden!")
+        Else
+            Dim frmRouteBerechnen = New frmRoutendauerBerechnen(destination)
+
+            If frmRouteBerechnen.ShowDialog() = DialogResult.OK Then
+                datVoraussichtlichesEintreffen.Value = frmRouteBerechnen.calculatedDate
+            End If
+
+        End If
+    End Sub
 End Class