neu

2021-12-06 11:52:36 +01:00
parent 50df683d3b
commit 273a0c5b29
71 changed files with 1305 additions and 270 deletions
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
@@ -277,6 +277,40 @@ Public Class usrCntlATLAS_NCTS
            End If
        Next

+        AddHandler ADRESSEN.Button1.Click, Sub()
+                                               Dim origin = ""
+                                               Dim destination = ""
+
+                                               'Dim usrCntlVers = ADRESSEN.usrCntlVersender
+                                               'origin &= usrCntlVers.txtStrasse.Text & " "
+                                               'origin &= usrCntlVers.sbLand._value & " "
+                                               'origin &= usrCntlVers.txtPlz.Text & " "
+                                               'origin &= usrCntlVers.txtOrt.Text & " "
+
+                                               If ALLG.sbAbgangZollstelle._value <> "" Then
+                                                   origin = ALLG.sbAbgangZollstelle._value.Substring(0, 2) & " " & ALLG.sbAbgangZollstelle.Text
+                                               End If
+
+
+                                               Dim usrCntlEmpf = ADRESSEN.usrCntlEmpfaenger
+                                               destination &= usrCntlEmpf.txtStrasse.Text & " "
+                                               destination &= usrCntlEmpf.sbLand._value & " "
+                                               destination &= usrCntlEmpf.txtPlz.Text & " "
+                                               destination &= usrCntlEmpf.txtOrt.Text & " "
+
+
+                                               Dim duration = ""
+                                               Dim distance = ""
+                                               VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, "", distance)
+
+                                               ADRESSEN.lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine
+                                               ADRESSEN.lblWegstreckeVonNach.Text &= "nach: " & destination
+
+                                               ADRESSEN.lblWegstrecke.Text = distance
+                                               ADRESSEN.lblWegZeit.Text = duration
+                                           End Sub
+
+
        SplitContainer.Panel2.Controls.Add(ALLG)
        lblBezugsnummer.Text = BezugsNr

--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.Designer.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.Designer.vb
@@ -23,6 +23,12 @@ Partial Class usrCntlATLAS_ncts_Adressen
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.lblWegstreckeVonNach = New System.Windows.Forms.Label()
+        Me.lblWegZeit = New System.Windows.Forms.Label()
+        Me.lblWegstrecke = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.lblBefullen = New System.Windows.Forms.Label()
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.grp = New System.Windows.Forms.GroupBox()
        Me.usrCntlSumA_Versender = New SDL.usrCntlAdresse()
        Me.cbxSumABeforderer = New System.Windows.Forms.CheckBox()
@@ -34,8 +40,6 @@ Partial Class usrCntlATLAS_ncts_Adressen
        Me.usrCntlVersender = New SDL.usrCntlAdresse()
        Me.usrCntlHauptverpflichteter = New SDL.usrCntlAdresse()
        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
-        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.lblBefullen = New System.Windows.Forms.Label()
        Me.pnl.SuspendLayout()
        Me.grp.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -44,6 +48,10 @@ Partial Class usrCntlATLAS_ncts_Adressen
        '
        'pnl
        '
+        Me.pnl.Controls.Add(Me.lblWegstreckeVonNach)
+        Me.pnl.Controls.Add(Me.lblWegZeit)
+        Me.pnl.Controls.Add(Me.lblWegstrecke)
+        Me.pnl.Controls.Add(Me.Button1)
        Me.pnl.Controls.Add(Me.lblBefullen)
        Me.pnl.Controls.Add(Me.MyComboBox1)
        Me.pnl.Controls.Add(Me.grp)
@@ -59,6 +67,64 @@ Partial Class usrCntlATLAS_ncts_Adressen
        Me.pnl.Size = New System.Drawing.Size(907, 628)
        Me.pnl.TabIndex = 0
        '
+        'lblWegstreckeVonNach
+        '
+        Me.lblWegstreckeVonNach.Location = New System.Drawing.Point(160, 324)
+        Me.lblWegstreckeVonNach.Name = "lblWegstreckeVonNach"
+        Me.lblWegstreckeVonNach.Size = New System.Drawing.Size(265, 29)
+        Me.lblWegstreckeVonNach.TabIndex = 55
+        '
+        'lblWegZeit
+        '
+        Me.lblWegZeit.AutoSize = True
+        Me.lblWegZeit.Location = New System.Drawing.Point(20, 375)
+        Me.lblWegZeit.Name = "lblWegZeit"
+        Me.lblWegZeit.Size = New System.Drawing.Size(19, 13)
+        Me.lblWegZeit.TabIndex = 54
+        Me.lblWegZeit.Text = "----"
+        Me.lblWegZeit.Visible = False
+        '
+        'lblWegstrecke
+        '
+        Me.lblWegstrecke.AutoSize = True
+        Me.lblWegstrecke.Location = New System.Drawing.Point(20, 360)
+        Me.lblWegstrecke.Name = "lblWegstrecke"
+        Me.lblWegstrecke.Size = New System.Drawing.Size(19, 13)
+        Me.lblWegstrecke.TabIndex = 53
+        Me.lblWegstrecke.Text = "----"
+        Me.lblWegstrecke.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(17, 324)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(137, 29)
+        Me.Button1.TabIndex = 52
+        Me.Button1.Text = "Strecke berechnen"
+        Me.Button1.UseVisualStyleBackColor = True
+        Me.Button1.Visible = False
+        '
+        'lblBefullen
+        '
+        Me.lblBefullen.AutoSize = True
+        Me.lblBefullen.Location = New System.Drawing.Point(569, 8)
+        Me.lblBefullen.Name = "lblBefullen"
+        Me.lblBefullen.Size = New System.Drawing.Size(48, 13)
+        Me.lblBefullen.TabIndex = 51
+        Me.lblBefullen.Text = "Befüllen:"
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(623, 5)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(267, 21)
+        Me.MyComboBox1.TabIndex = 50
+        '
        'grp
        '
        Me.grp.Controls.Add(Me.usrCntlSumA_Versender)
@@ -112,7 +178,7 @@ Partial Class usrCntlATLAS_ncts_Adressen
        '
        'PictureBox1
        '
-        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.lorry_motion
+        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.PictureBox1.Location = New System.Drawing.Point(418, 83)
        Me.PictureBox1.Name = "PictureBox1"
@@ -173,7 +239,7 @@ Partial Class usrCntlATLAS_ncts_Adressen
        '
        'PictureBox2
        '
-        Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.lorry_motion
+        Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.PictureBox2.Location = New System.Drawing.Point(421, 221)
        Me.PictureBox2.Name = "PictureBox2"
@@ -181,33 +247,13 @@ Partial Class usrCntlATLAS_ncts_Adressen
        Me.PictureBox2.TabIndex = 49
        Me.PictureBox2.TabStop = False
        '
-        'MyComboBox1
-        '
-        Me.MyComboBox1._allowedValuesFreiText = Nothing
-        Me.MyComboBox1._allowFreiText = False
-        Me.MyComboBox1._value = ""
-        Me.MyComboBox1.FormattingEnabled = True
-        Me.MyComboBox1.Location = New System.Drawing.Point(623, 5)
-        Me.MyComboBox1.Name = "MyComboBox1"
-        Me.MyComboBox1.Size = New System.Drawing.Size(267, 21)
-        Me.MyComboBox1.TabIndex = 50
-        '
-        'lblBefullen
-        '
-        Me.lblBefullen.AutoSize = True
-        Me.lblBefullen.Location = New System.Drawing.Point(569, 8)
-        Me.lblBefullen.Name = "lblBefullen"
-        Me.lblBefullen.Size = New System.Drawing.Size(48, 13)
-        Me.lblBefullen.TabIndex = 51
-        Me.lblBefullen.Text = "Befüllen:"
-        '
-        'usrCntlATLAS_NCTS_Adressen
+        'usrCntlATLAS_ncts_Adressen
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
        Me.Controls.Add(Me.pnl)
-        Me.Name = "usrCntlATLAS_NCTS_Adressen"
+        Me.Name = "usrCntlATLAS_ncts_Adressen"
        Me.Size = New System.Drawing.Size(907, 628)
        Me.pnl.ResumeLayout(False)
        Me.pnl.PerformLayout()
@@ -232,5 +278,8 @@ Partial Class usrCntlATLAS_ncts_Adressen
    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
    Friend WithEvents lblBefullen As System.Windows.Forms.Label
    Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
-
+    Friend WithEvents lblWegZeit As Label
+    Friend WithEvents lblWegstrecke As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents lblWegstreckeVonNach As Label
 End Class
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb
@@ -395,4 +395,6 @@

        End Select
    End Sub
+
+
 End Class
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.Designer.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.Designer.vb
@@ -93,6 +93,11 @@ Partial Class usrCntlATLAS_NCTS_Allg
        Me.Label7 = New System.Windows.Forms.Label()
        Me.txtLadeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtEntladeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblWegstreckeVonNach = New System.Windows.Forms.Label()
+        Me.lblWegZeit = New System.Windows.Forms.Label()
+        Me.lblWegstrecke = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.cbxWegStrecke = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
@@ -102,6 +107,11 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        'pnl
        '
+        Me.pnl.Controls.Add(Me.cbxWegStrecke)
+        Me.pnl.Controls.Add(Me.lblWegstreckeVonNach)
+        Me.pnl.Controls.Add(Me.lblWegZeit)
+        Me.pnl.Controls.Add(Me.lblWegstrecke)
+        Me.pnl.Controls.Add(Me.Button1)
        Me.pnl.Controls.Add(Me.LinkLabel1)
        Me.pnl.Controls.Add(Me.txtKennnummer)
        Me.pnl.Controls.Add(Me.Label21)
@@ -330,6 +340,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbRoute5._allowFreitext = False
        Me.sbRoute5._AllowSetValue = False
+        Me.sbRoute5._allowSpaceAsSplitter = False
        Me.sbRoute5._autoSizeGross = False
        Me.sbRoute5._hideIfListEmpty = True
        Me.sbRoute5._value = ""
@@ -354,6 +365,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbRoute9._allowFreitext = False
        Me.sbRoute9._AllowSetValue = False
+        Me.sbRoute9._allowSpaceAsSplitter = False
        Me.sbRoute9._autoSizeGross = False
        Me.sbRoute9._hideIfListEmpty = True
        Me.sbRoute9._value = ""
@@ -378,6 +390,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbRoute8._allowFreitext = False
        Me.sbRoute8._AllowSetValue = False
+        Me.sbRoute8._allowSpaceAsSplitter = False
        Me.sbRoute8._autoSizeGross = False
        Me.sbRoute8._hideIfListEmpty = True
        Me.sbRoute8._value = ""
@@ -402,6 +415,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbRoute7._allowFreitext = False
        Me.sbRoute7._AllowSetValue = False
+        Me.sbRoute7._allowSpaceAsSplitter = False
        Me.sbRoute7._autoSizeGross = False
        Me.sbRoute7._hideIfListEmpty = True
        Me.sbRoute7._value = ""
@@ -426,6 +440,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbRoute6._allowFreitext = False
        Me.sbRoute6._AllowSetValue = False
+        Me.sbRoute6._allowSpaceAsSplitter = False
        Me.sbRoute6._autoSizeGross = False
        Me.sbRoute6._hideIfListEmpty = True
        Me.sbRoute6._value = ""
@@ -450,6 +465,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbRoute4._allowFreitext = False
        Me.sbRoute4._AllowSetValue = False
+        Me.sbRoute4._allowSpaceAsSplitter = False
        Me.sbRoute4._autoSizeGross = False
        Me.sbRoute4._hideIfListEmpty = True
        Me.sbRoute4._value = ""
@@ -474,6 +490,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbRoute3._allowFreitext = False
        Me.sbRoute3._AllowSetValue = False
+        Me.sbRoute3._allowSpaceAsSplitter = False
        Me.sbRoute3._autoSizeGross = False
        Me.sbRoute3._hideIfListEmpty = True
        Me.sbRoute3._value = ""
@@ -498,6 +515,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbRoute2._allowFreitext = False
        Me.sbRoute2._AllowSetValue = False
+        Me.sbRoute2._allowSpaceAsSplitter = False
        Me.sbRoute2._autoSizeGross = False
        Me.sbRoute2._hideIfListEmpty = True
        Me.sbRoute2._value = ""
@@ -522,6 +540,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbRoute1._allowFreitext = False
        Me.sbRoute1._AllowSetValue = False
+        Me.sbRoute1._allowSpaceAsSplitter = False
        Me.sbRoute1._autoSizeGross = False
        Me.sbRoute1._hideIfListEmpty = True
        Me.sbRoute1._value = ""
@@ -728,6 +747,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbDurchgangszollstelle5._allowFreitext = False
        Me.sbDurchgangszollstelle5._AllowSetValue = False
+        Me.sbDurchgangszollstelle5._allowSpaceAsSplitter = False
        Me.sbDurchgangszollstelle5._autoSizeGross = False
        Me.sbDurchgangszollstelle5._hideIfListEmpty = True
        Me.sbDurchgangszollstelle5._value = ""
@@ -752,6 +772,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbDurchgangszollstelle9._allowFreitext = False
        Me.sbDurchgangszollstelle9._AllowSetValue = False
+        Me.sbDurchgangszollstelle9._allowSpaceAsSplitter = False
        Me.sbDurchgangszollstelle9._autoSizeGross = False
        Me.sbDurchgangszollstelle9._hideIfListEmpty = True
        Me.sbDurchgangszollstelle9._value = ""
@@ -776,6 +797,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbDurchgangszollstelle8._allowFreitext = False
        Me.sbDurchgangszollstelle8._AllowSetValue = False
+        Me.sbDurchgangszollstelle8._allowSpaceAsSplitter = False
        Me.sbDurchgangszollstelle8._autoSizeGross = False
        Me.sbDurchgangszollstelle8._hideIfListEmpty = True
        Me.sbDurchgangszollstelle8._value = ""
@@ -800,6 +822,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbDurchgangszollstelle7._allowFreitext = False
        Me.sbDurchgangszollstelle7._AllowSetValue = False
+        Me.sbDurchgangszollstelle7._allowSpaceAsSplitter = False
        Me.sbDurchgangszollstelle7._autoSizeGross = False
        Me.sbDurchgangszollstelle7._hideIfListEmpty = True
        Me.sbDurchgangszollstelle7._value = ""
@@ -824,6 +847,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbDurchgangszollstelle6._allowFreitext = False
        Me.sbDurchgangszollstelle6._AllowSetValue = False
+        Me.sbDurchgangszollstelle6._allowSpaceAsSplitter = False
        Me.sbDurchgangszollstelle6._autoSizeGross = False
        Me.sbDurchgangszollstelle6._hideIfListEmpty = True
        Me.sbDurchgangszollstelle6._value = ""
@@ -848,6 +872,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbDurchgangszollstelle4._allowFreitext = False
        Me.sbDurchgangszollstelle4._AllowSetValue = False
+        Me.sbDurchgangszollstelle4._allowSpaceAsSplitter = False
        Me.sbDurchgangszollstelle4._autoSizeGross = False
        Me.sbDurchgangszollstelle4._hideIfListEmpty = True
        Me.sbDurchgangszollstelle4._value = ""
@@ -872,6 +897,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbDurchgangszollstelle3._allowFreitext = False
        Me.sbDurchgangszollstelle3._AllowSetValue = False
+        Me.sbDurchgangszollstelle3._allowSpaceAsSplitter = False
        Me.sbDurchgangszollstelle3._autoSizeGross = False
        Me.sbDurchgangszollstelle3._hideIfListEmpty = True
        Me.sbDurchgangszollstelle3._value = ""
@@ -896,6 +922,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbDurchgangszollstelle2._allowFreitext = False
        Me.sbDurchgangszollstelle2._AllowSetValue = False
+        Me.sbDurchgangszollstelle2._allowSpaceAsSplitter = False
        Me.sbDurchgangszollstelle2._autoSizeGross = False
        Me.sbDurchgangszollstelle2._hideIfListEmpty = True
        Me.sbDurchgangszollstelle2._value = ""
@@ -920,6 +947,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbDurchgangszollstelle1._allowFreitext = False
        Me.sbDurchgangszollstelle1._AllowSetValue = False
+        Me.sbDurchgangszollstelle1._allowSpaceAsSplitter = False
        Me.sbDurchgangszollstelle1._autoSizeGross = False
        Me.sbDurchgangszollstelle1._hideIfListEmpty = True
        Me.sbDurchgangszollstelle1._value = ""
@@ -952,6 +980,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbBestimmungsland._allowFreitext = False
        Me.sbBestimmungsland._AllowSetValue = False
+        Me.sbBestimmungsland._allowSpaceAsSplitter = False
        Me.sbBestimmungsland._autoSizeGross = False
        Me.sbBestimmungsland._hideIfListEmpty = True
        Me.sbBestimmungsland._value = ""
@@ -994,6 +1023,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbVersendungsLand._allowFreitext = False
        Me.sbVersendungsLand._AllowSetValue = False
+        Me.sbVersendungsLand._allowSpaceAsSplitter = False
        Me.sbVersendungsLand._autoSizeGross = False
        Me.sbVersendungsLand._hideIfListEmpty = True
        Me.sbVersendungsLand._value = ""
@@ -1018,6 +1048,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbBestimmungZollstelle._allowFreitext = False
        Me.sbBestimmungZollstelle._AllowSetValue = False
+        Me.sbBestimmungZollstelle._allowSpaceAsSplitter = False
        Me.sbBestimmungZollstelle._autoSizeGross = False
        Me.sbBestimmungZollstelle._hideIfListEmpty = True
        Me.sbBestimmungZollstelle._value = ""
@@ -1060,6 +1091,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbAbgangZollstelle._allowFreitext = False
        Me.sbAbgangZollstelle._AllowSetValue = False
+        Me.sbAbgangZollstelle._allowSpaceAsSplitter = False
        Me.sbAbgangZollstelle._autoSizeGross = False
        Me.sbAbgangZollstelle._hideIfListEmpty = True
        Me.sbAbgangZollstelle._value = ""
@@ -1133,6 +1165,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbKennzeichenGrenzeLand._allowFreitext = False
        Me.sbKennzeichenGrenzeLand._AllowSetValue = False
+        Me.sbKennzeichenGrenzeLand._allowSpaceAsSplitter = False
        Me.sbKennzeichenGrenzeLand._autoSizeGross = False
        Me.sbKennzeichenGrenzeLand._hideIfListEmpty = True
        Me.sbKennzeichenGrenzeLand._value = ""
@@ -1178,6 +1211,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
        '
        Me.sbKennzeichenAbgangLand._allowFreitext = False
        Me.sbKennzeichenAbgangLand._AllowSetValue = False
+        Me.sbKennzeichenAbgangLand._allowSpaceAsSplitter = False
        Me.sbKennzeichenAbgangLand._autoSizeGross = False
        Me.sbKennzeichenAbgangLand._hideIfListEmpty = True
        Me.sbKennzeichenAbgangLand._value = ""
@@ -1321,6 +1355,54 @@ Partial Class usrCntlATLAS_NCTS_Allg
        Me.txtEntladeort.Size = New System.Drawing.Size(214, 20)
        Me.txtEntladeort.TabIndex = 35
        '
+        'lblWegstreckeVonNach
+        '
+        Me.lblWegstreckeVonNach.Location = New System.Drawing.Point(719, 47)
+        Me.lblWegstreckeVonNach.Name = "lblWegstreckeVonNach"
+        Me.lblWegstreckeVonNach.Size = New System.Drawing.Size(119, 29)
+        Me.lblWegstreckeVonNach.TabIndex = 62
+        Me.lblWegstreckeVonNach.Visible = False
+        '
+        'lblWegZeit
+        '
+        Me.lblWegZeit.AutoSize = True
+        Me.lblWegZeit.Location = New System.Drawing.Point(719, 213)
+        Me.lblWegZeit.Name = "lblWegZeit"
+        Me.lblWegZeit.Size = New System.Drawing.Size(10, 13)
+        Me.lblWegZeit.TabIndex = 61
+        Me.lblWegZeit.Text = "-"
+        '
+        'lblWegstrecke
+        '
+        Me.lblWegstrecke.AutoSize = True
+        Me.lblWegstrecke.Location = New System.Drawing.Point(719, 198)
+        Me.lblWegstrecke.Name = "lblWegstrecke"
+        Me.lblWegstrecke.Size = New System.Drawing.Size(10, 13)
+        Me.lblWegstrecke.TabIndex = 60
+        Me.lblWegstrecke.Text = "-"
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(722, 174)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(137, 21)
+        Me.Button1.TabIndex = 59
+        Me.Button1.Text = "Strecke berechnen"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'cbxWegStrecke
+        '
+        Me.cbxWegStrecke.AutoSize = True
+        Me.cbxWegStrecke.Checked = True
+        Me.cbxWegStrecke.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxWegStrecke.Location = New System.Drawing.Point(865, 177)
+        Me.cbxWegStrecke.Name = "cbxWegStrecke"
+        Me.cbxWegStrecke.Size = New System.Drawing.Size(50, 17)
+        Me.cbxWegStrecke.TabIndex = 63
+        Me.cbxWegStrecke.Text = "LKW"
+        Me.cbxWegStrecke.UseVisualStyleBackColor = True
+        '
        'usrCntlATLAS_NCTS_Allg
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1410,4 +1492,9 @@ Partial Class usrCntlATLAS_NCTS_Allg
    Friend WithEvents txtKennnummer As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
+    Friend WithEvents lblWegstreckeVonNach As Label
+    Friend WithEvents lblWegZeit As Label
+    Friend WithEvents lblWegstrecke As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents cbxWegStrecke As CheckBox
 End Class
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb
@@ -389,5 +389,32 @@
        sbKennzeichenGrenzeLand.SET_VALUE(sbKennzeichenAbgangLand._value)
    End Sub

+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim origin = ""
+        Dim destination = ""

+        If sbAbgangZollstelle._value <> "" Then
+            origin = sbAbgangZollstelle._value.Substring(0, 2) & " " & sbAbgangZollstelle.Text
+        Else Exit Sub
+        End If
+
+        If sbBestimmungZollstelle._value <> "" Then
+            destination = sbBestimmungZollstelle._value.Substring(0, 2) & " " & sbBestimmungZollstelle.Text
+        Else Exit Sub
+        End If
+
+        Dim duration = ""
+        Dim distance = ""
+        Dim distanceSek = ""
+        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance, cbxWegStrecke.Checked)
+
+        'lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine
+        'lblWegstreckeVonNach.Text &= "nach: " & destination
+
+
+        lblWegstrecke.Text = "Wegstrecke: " & distance
+        lblWegZeit.Text = "Fahrzeit: " & duration
+
+
+    End Sub
 End Class