Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Aviso/Aviso.vbproj

@@ -828,6 +828,12 @@
     <Compile Include="frmZollstopp.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmFrachtkostenBerechnen.Designer.vb">
+      <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmFrachtkostenBerechnen.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="GVMS\frmGVMS.Designer.vb">
       <DependentUpon>frmGVMS.vb</DependentUpon>
     </Compile>
@@ -1207,6 +1213,9 @@
     <EmbeddedResource Include="frmZollstopp.resx">
       <DependentUpon>frmZollstopp.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmFrachtkostenBerechnen.resx">
+      <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="GVMS\frmGVMS.resx">
       <DependentUpon>frmGVMS.vb</DependentUpon>
     </EmbeddedResource>

Aviso/frmFrachtkostenBerechnen.Designer.vb

@@ -0,0 +1,671 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmFrachtkostenBerechnen
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFrachtkostenBerechnen))
+        Me.lblVon = New System.Windows.Forms.Label()
+        Me.lblNach = New System.Windows.Forms.Label()
+        Me.btnCancel = New System.Windows.Forms.Button()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.lblEUAnteil = New System.Windows.Forms.Label()
+        Me.lblNichtEUAnteil = New System.Windows.Forms.Label()
+        Me.lblDistanzEU = New System.Windows.Forms.Label()
+        Me.lblGewicht = New System.Windows.Forms.Label()
+        Me.btnCalculate = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.lblGesamtfrachkosten = New System.Windows.Forms.Label()
+        Me.lblFaktor = New System.Windows.Forms.Label()
+        Me.lblWarningEUAnteil = New System.Windows.Forms.Label()
+        Me.lblWarningNichtEUAnteil = New System.Windows.Forms.Label()
+        Me.lblWarningAbgangort = New System.Windows.Forms.Label()
+        Me.lblWarningBestimmungsort = New System.Windows.Forms.Label()
+        Me.lblWarningFaktor = New System.Windows.Forms.Label()
+        Me.lblDistanzNichtEU = New System.Windows.Forms.Label()
+        Me.txbCalcDistanceNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.tbNichtEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.tbEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txbFactor = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.tbxGesamtfrachtkosten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txbGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txbCalcDistanceEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txbNachOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txbVonOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txbNachPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txbVonPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.tbNichtEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.tbEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox()
+        Me.ToolTipAutomatischErmitteln = New System.Windows.Forms.ToolTip(Me.components)
+        Me.SuspendLayout()
+        '
+        'lblVon
+        '
+        Me.lblVon.AutoSize = True
+        Me.lblVon.Location = New System.Drawing.Point(5, 9)
+        Me.lblVon.Name = "lblVon"
+        Me.lblVon.Size = New System.Drawing.Size(64, 13)
+        Me.lblVon.TabIndex = 0
+        Me.lblVon.Text = "Abgangsort:"
+        '
+        'lblNach
+        '
+        Me.lblNach.AutoSize = True
+        Me.lblNach.Location = New System.Drawing.Point(205, 9)
+        Me.lblNach.Name = "lblNach"
+        Me.lblNach.Size = New System.Drawing.Size(84, 13)
+        Me.lblNach.TabIndex = 1
+        Me.lblNach.Text = "Bestimmungsort:"
+        '
+        'btnCancel
+        '
+        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancel.Location = New System.Drawing.Point(10, 270)
+        Me.btnCancel.Name = "btnCancel"
+        Me.btnCancel.Size = New System.Drawing.Size(75, 23)
+        Me.btnCancel.TabIndex = 4
+        Me.btnCancel.Text = "Abbrechen"
+        Me.btnCancel.UseVisualStyleBackColor = True
+        '
+        'btnOK
+        '
+        Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.Cursor
+        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnOK.Location = New System.Drawing.Point(297, 270)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(75, 23)
+        Me.btnOK.TabIndex = 5
+        Me.btnOK.Text = "OK"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'lblEUAnteil
+        '
+        Me.lblEUAnteil.AutoSize = True
+        Me.lblEUAnteil.Location = New System.Drawing.Point(-1, 195)
+        Me.lblEUAnteil.Name = "lblEUAnteil"
+        Me.lblEUAnteil.Size = New System.Drawing.Size(51, 13)
+        Me.lblEUAnteil.TabIndex = 8
+        Me.lblEUAnteil.Text = "EU Anteil"
+        '
+        'lblNichtEUAnteil
+        '
+        Me.lblNichtEUAnteil.AutoSize = True
+        Me.lblNichtEUAnteil.Location = New System.Drawing.Point(-1, 230)
+        Me.lblNichtEUAnteil.Name = "lblNichtEUAnteil"
+        Me.lblNichtEUAnteil.Size = New System.Drawing.Size(79, 13)
+        Me.lblNichtEUAnteil.TabIndex = 9
+        Me.lblNichtEUAnteil.Text = "Nicht EU Anteil"
+        '
+        'lblDistanzEU
+        '
+        Me.lblDistanzEU.AutoSize = True
+        Me.lblDistanzEU.Location = New System.Drawing.Point(215, 195)
+        Me.lblDistanzEU.Name = "lblDistanzEU"
+        Me.lblDistanzEU.Size = New System.Drawing.Size(42, 13)
+        Me.lblDistanzEU.TabIndex = 12
+        Me.lblDistanzEU.Text = "Distanz"
+        '
+        'lblGewicht
+        '
+        Me.lblGewicht.AutoSize = True
+        Me.lblGewicht.Location = New System.Drawing.Point(1, 99)
+        Me.lblGewicht.Name = "lblGewicht"
+        Me.lblGewicht.Size = New System.Drawing.Size(46, 13)
+        Me.lblGewicht.TabIndex = 13
+        Me.lblGewicht.Text = "Gewicht"
+        '
+        'btnCalculate
+        '
+        Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
+        Me.btnCalculate.Location = New System.Drawing.Point(10, 160)
+        Me.btnCalculate.Name = "btnCalculate"
+        Me.btnCalculate.Size = New System.Drawing.Size(75, 23)
+        Me.btnCalculate.TabIndex = 14
+        Me.btnCalculate.Text = "Berechnen"
+        Me.btnCalculate.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(5, 30)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(27, 13)
+        Me.Label1.TabIndex = 17
+        Me.Label1.Text = "PLZ"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(5, 52)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(21, 13)
+        Me.Label2.TabIndex = 18
+        Me.Label2.Text = "Ort"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(211, 56)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(21, 13)
+        Me.Label3.TabIndex = 19
+        Me.Label3.Text = "Ort"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(205, 30)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(27, 13)
+        Me.Label4.TabIndex = 20
+        Me.Label4.Text = "PLZ"
+        '
+        'lblGesamtfrachkosten
+        '
+        Me.lblGesamtfrachkosten.AutoSize = True
+        Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(157, 125)
+        Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten"
+        Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13)
+        Me.lblGesamtfrachkosten.TabIndex = 13
+        Me.lblGesamtfrachkosten.Text = "Frachtkosten ges."
+        '
+        'lblFaktor
+        '
+        Me.lblFaktor.AutoSize = True
+        Me.lblFaktor.Location = New System.Drawing.Point(1, 125)
+        Me.lblFaktor.Name = "lblFaktor"
+        Me.lblFaktor.Size = New System.Drawing.Size(37, 13)
+        Me.lblFaktor.TabIndex = 24
+        Me.lblFaktor.Text = "Faktor"
+        '
+        'lblWarningEUAnteil
+        '
+        Me.lblWarningEUAnteil.AutoSize = True
+        Me.lblWarningEUAnteil.ForeColor = System.Drawing.Color.Red
+        Me.lblWarningEUAnteil.Location = New System.Drawing.Point(-1, 211)
+        Me.lblWarningEUAnteil.Name = "lblWarningEUAnteil"
+        Me.lblWarningEUAnteil.Size = New System.Drawing.Size(162, 13)
+        Me.lblWarningEUAnteil.TabIndex = 26
+        Me.lblWarningEUAnteil.Text = "EU Anteil hinterlegen (in Prozent)"
+        Me.lblWarningEUAnteil.Visible = False
+        '
+        'lblWarningNichtEUAnteil
+        '
+        Me.lblWarningNichtEUAnteil.AutoSize = True
+        Me.lblWarningNichtEUAnteil.ForeColor = System.Drawing.Color.Red
+        Me.lblWarningNichtEUAnteil.Location = New System.Drawing.Point(-1, 249)
+        Me.lblWarningNichtEUAnteil.Name = "lblWarningNichtEUAnteil"
+        Me.lblWarningNichtEUAnteil.Size = New System.Drawing.Size(190, 13)
+        Me.lblWarningNichtEUAnteil.TabIndex = 27
+        Me.lblWarningNichtEUAnteil.Text = "Nicht EU Anteil hinterlegen (in Prozent)"
+        Me.lblWarningNichtEUAnteil.Visible = False
+        '
+        'lblWarningAbgangort
+        '
+        Me.lblWarningAbgangort.AutoSize = True
+        Me.lblWarningAbgangort.ForeColor = System.Drawing.Color.Red
+        Me.lblWarningAbgangort.Location = New System.Drawing.Point(5, 72)
+        Me.lblWarningAbgangort.Name = "lblWarningAbgangort"
+        Me.lblWarningAbgangort.Size = New System.Drawing.Size(147, 13)
+        Me.lblWarningAbgangort.TabIndex = 28
+        Me.lblWarningAbgangort.Text = "PLZ/Ort von Abgangsort fehlt"
+        Me.lblWarningAbgangort.Visible = False
+        '
+        'lblWarningBestimmungsort
+        '
+        Me.lblWarningBestimmungsort.AutoSize = True
+        Me.lblWarningBestimmungsort.ForeColor = System.Drawing.Color.Red
+        Me.lblWarningBestimmungsort.Location = New System.Drawing.Point(180, 72)
+        Me.lblWarningBestimmungsort.Name = "lblWarningBestimmungsort"
+        Me.lblWarningBestimmungsort.Size = New System.Drawing.Size(167, 13)
+        Me.lblWarningBestimmungsort.TabIndex = 29
+        Me.lblWarningBestimmungsort.Text = "PLZ/Ort von Bestimmungsort fehlt"
+        Me.lblWarningBestimmungsort.Visible = False
+        '
+        'lblWarningFaktor
+        '
+        Me.lblWarningFaktor.AutoSize = True
+        Me.lblWarningFaktor.ForeColor = System.Drawing.Color.Red
+        Me.lblWarningFaktor.Location = New System.Drawing.Point(1, 144)
+        Me.lblWarningFaktor.Name = "lblWarningFaktor"
+        Me.lblWarningFaktor.Size = New System.Drawing.Size(82, 13)
+        Me.lblWarningFaktor.TabIndex = 30
+        Me.lblWarningFaktor.Text = "Faktor angeben"
+        Me.lblWarningFaktor.Visible = False
+        '
+        'lblDistanzNichtEU
+        '
+        Me.lblDistanzNichtEU.AutoSize = True
+        Me.lblDistanzNichtEU.Location = New System.Drawing.Point(215, 237)
+        Me.lblDistanzNichtEU.Name = "lblDistanzNichtEU"
+        Me.lblDistanzNichtEU.Size = New System.Drawing.Size(42, 13)
+        Me.lblDistanzNichtEU.TabIndex = 34
+        Me.lblDistanzNichtEU.Text = "Distanz"
+        Me.lblDistanzNichtEU.Visible = False
+        '
+        'txbCalcDistanceNichtEU
+        '
+        Me.txbCalcDistanceNichtEU._DateTimeOnly = False
+        Me.txbCalcDistanceNichtEU._numbersOnly = False
+        Me.txbCalcDistanceNichtEU._numbersOnlyKommastellen = ""
+        Me.txbCalcDistanceNichtEU._numbersOnlyTrennzeichen = True
+        Me.txbCalcDistanceNichtEU._Prozent = False
+        Me.txbCalcDistanceNichtEU._ShortDateNew = False
+        Me.txbCalcDistanceNichtEU._ShortDateOnly = False
+        Me.txbCalcDistanceNichtEU._TimeOnly = False
+        Me.txbCalcDistanceNichtEU._TimeOnly_Seconds = False
+        Me.txbCalcDistanceNichtEU._value = ""
+        Me.txbCalcDistanceNichtEU._Waehrung = False
+        Me.txbCalcDistanceNichtEU._WaehrungZeichen = True
+        Me.txbCalcDistanceNichtEU.ForeColor = System.Drawing.Color.Black
+        Me.txbCalcDistanceNichtEU.Location = New System.Drawing.Point(285, 230)
+        Me.txbCalcDistanceNichtEU.MaxLineLength = -1
+        Me.txbCalcDistanceNichtEU.MaxLines_Warning = ""
+        Me.txbCalcDistanceNichtEU.MaxLines_Warning_Label = Nothing
+        Me.txbCalcDistanceNichtEU.Name = "txbCalcDistanceNichtEU"
+        Me.txbCalcDistanceNichtEU.Size = New System.Drawing.Size(84, 20)
+        Me.txbCalcDistanceNichtEU.TabIndex = 35
+        Me.txbCalcDistanceNichtEU.Visible = False
+        '
+        'tbNichtEUAnteilberechnet
+        '
+        Me.tbNichtEUAnteilberechnet._DateTimeOnly = False
+        Me.tbNichtEUAnteilberechnet._numbersOnly = False
+        Me.tbNichtEUAnteilberechnet._numbersOnlyKommastellen = ""
+        Me.tbNichtEUAnteilberechnet._numbersOnlyTrennzeichen = True
+        Me.tbNichtEUAnteilberechnet._Prozent = False
+        Me.tbNichtEUAnteilberechnet._ShortDateNew = False
+        Me.tbNichtEUAnteilberechnet._ShortDateOnly = False
+        Me.tbNichtEUAnteilberechnet._TimeOnly = False
+        Me.tbNichtEUAnteilberechnet._TimeOnly_Seconds = False
+        Me.tbNichtEUAnteilberechnet._value = ""
+        Me.tbNichtEUAnteilberechnet._Waehrung = True
+        Me.tbNichtEUAnteilberechnet._WaehrungZeichen = True
+        Me.tbNichtEUAnteilberechnet.ForeColor = System.Drawing.Color.Black
+        Me.tbNichtEUAnteilberechnet.Location = New System.Drawing.Point(141, 227)
+        Me.tbNichtEUAnteilberechnet.MaxLineLength = -1
+        Me.tbNichtEUAnteilberechnet.MaxLines_Warning = ""
+        Me.tbNichtEUAnteilberechnet.MaxLines_Warning_Label = Nothing
+        Me.tbNichtEUAnteilberechnet.Name = "tbNichtEUAnteilberechnet"
+        Me.tbNichtEUAnteilberechnet.ReadOnly = True
+        Me.tbNichtEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
+        Me.tbNichtEUAnteilberechnet.TabIndex = 33
+        '
+        'tbEUAnteilberechnet
+        '
+        Me.tbEUAnteilberechnet._DateTimeOnly = False
+        Me.tbEUAnteilberechnet._numbersOnly = False
+        Me.tbEUAnteilberechnet._numbersOnlyKommastellen = ""
+        Me.tbEUAnteilberechnet._numbersOnlyTrennzeichen = True
+        Me.tbEUAnteilberechnet._Prozent = False
+        Me.tbEUAnteilberechnet._ShortDateNew = False
+        Me.tbEUAnteilberechnet._ShortDateOnly = False
+        Me.tbEUAnteilberechnet._TimeOnly = False
+        Me.tbEUAnteilberechnet._TimeOnly_Seconds = False
+        Me.tbEUAnteilberechnet._value = ""
+        Me.tbEUAnteilberechnet._Waehrung = True
+        Me.tbEUAnteilberechnet._WaehrungZeichen = True
+        Me.tbEUAnteilberechnet.ForeColor = System.Drawing.Color.Black
+        Me.tbEUAnteilberechnet.Location = New System.Drawing.Point(141, 188)
+        Me.tbEUAnteilberechnet.MaxLineLength = -1
+        Me.tbEUAnteilberechnet.MaxLines_Warning = ""
+        Me.tbEUAnteilberechnet.MaxLines_Warning_Label = Nothing
+        Me.tbEUAnteilberechnet.Name = "tbEUAnteilberechnet"
+        Me.tbEUAnteilberechnet.ReadOnly = True
+        Me.tbEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
+        Me.tbEUAnteilberechnet.TabIndex = 32
+        '
+        'txbFactor
+        '
+        Me.txbFactor._DateTimeOnly = False
+        Me.txbFactor._numbersOnly = True
+        Me.txbFactor._numbersOnlyKommastellen = ""
+        Me.txbFactor._numbersOnlyTrennzeichen = True
+        Me.txbFactor._Prozent = False
+        Me.txbFactor._ShortDateNew = False
+        Me.txbFactor._ShortDateOnly = False
+        Me.txbFactor._TimeOnly = False
+        Me.txbFactor._TimeOnly_Seconds = False
+        Me.txbFactor._value = ""
+        Me.txbFactor._Waehrung = True
+        Me.txbFactor._WaehrungZeichen = True
+        Me.txbFactor.ForeColor = System.Drawing.Color.Black
+        Me.txbFactor.Location = New System.Drawing.Point(75, 122)
+        Me.txbFactor.MaxLineLength = -1
+        Me.txbFactor.MaxLines_Warning = ""
+        Me.txbFactor.MaxLines_Warning_Label = Nothing
+        Me.txbFactor.Name = "txbFactor"
+        Me.txbFactor.Size = New System.Drawing.Size(60, 20)
+        Me.txbFactor.TabIndex = 25
+        '
+        'tbxGesamtfrachtkosten
+        '
+        Me.tbxGesamtfrachtkosten._DateTimeOnly = False
+        Me.tbxGesamtfrachtkosten._numbersOnly = False
+        Me.tbxGesamtfrachtkosten._numbersOnlyKommastellen = ""
+        Me.tbxGesamtfrachtkosten._numbersOnlyTrennzeichen = True
+        Me.tbxGesamtfrachtkosten._Prozent = False
+        Me.tbxGesamtfrachtkosten._ShortDateNew = False
+        Me.tbxGesamtfrachtkosten._ShortDateOnly = False
+        Me.tbxGesamtfrachtkosten._TimeOnly = False
+        Me.tbxGesamtfrachtkosten._TimeOnly_Seconds = False
+        Me.tbxGesamtfrachtkosten._value = ""
+        Me.tbxGesamtfrachtkosten._Waehrung = True
+        Me.tbxGesamtfrachtkosten._WaehrungZeichen = True
+        Me.tbxGesamtfrachtkosten.ForeColor = System.Drawing.Color.Black
+        Me.tbxGesamtfrachtkosten.Location = New System.Drawing.Point(255, 122)
+        Me.tbxGesamtfrachtkosten.MaxLineLength = -1
+        Me.tbxGesamtfrachtkosten.MaxLines_Warning = ""
+        Me.tbxGesamtfrachtkosten.MaxLines_Warning_Label = Nothing
+        Me.tbxGesamtfrachtkosten.Name = "tbxGesamtfrachtkosten"
+        Me.tbxGesamtfrachtkosten.ReadOnly = True
+        Me.tbxGesamtfrachtkosten.Size = New System.Drawing.Size(60, 20)
+        Me.tbxGesamtfrachtkosten.TabIndex = 23
+        '
+        'txbGewicht
+        '
+        Me.txbGewicht._DateTimeOnly = False
+        Me.txbGewicht._numbersOnly = False
+        Me.txbGewicht._numbersOnlyKommastellen = ""
+        Me.txbGewicht._numbersOnlyTrennzeichen = True
+        Me.txbGewicht._Prozent = False
+        Me.txbGewicht._ShortDateNew = False
+        Me.txbGewicht._ShortDateOnly = False
+        Me.txbGewicht._TimeOnly = False
+        Me.txbGewicht._TimeOnly_Seconds = False
+        Me.txbGewicht._value = ""
+        Me.txbGewicht._Waehrung = False
+        Me.txbGewicht._WaehrungZeichen = True
+        Me.txbGewicht.ForeColor = System.Drawing.Color.Black
+        Me.txbGewicht.Location = New System.Drawing.Point(75, 96)
+        Me.txbGewicht.MaxLineLength = -1
+        Me.txbGewicht.MaxLines_Warning = ""
+        Me.txbGewicht.MaxLines_Warning_Label = Nothing
+        Me.txbGewicht.Name = "txbGewicht"
+        Me.txbGewicht.ReadOnly = True
+        Me.txbGewicht.Size = New System.Drawing.Size(84, 20)
+        Me.txbGewicht.TabIndex = 22
+        '
+        'txbCalcDistanceEU
+        '
+        Me.txbCalcDistanceEU._DateTimeOnly = False
+        Me.txbCalcDistanceEU._numbersOnly = False
+        Me.txbCalcDistanceEU._numbersOnlyKommastellen = ""
+        Me.txbCalcDistanceEU._numbersOnlyTrennzeichen = True
+        Me.txbCalcDistanceEU._Prozent = False
+        Me.txbCalcDistanceEU._ShortDateNew = False
+        Me.txbCalcDistanceEU._ShortDateOnly = False
+        Me.txbCalcDistanceEU._TimeOnly = False
+        Me.txbCalcDistanceEU._TimeOnly_Seconds = False
+        Me.txbCalcDistanceEU._value = ""
+        Me.txbCalcDistanceEU._Waehrung = False
+        Me.txbCalcDistanceEU._WaehrungZeichen = True
+        Me.txbCalcDistanceEU.ForeColor = System.Drawing.Color.Black
+        Me.txbCalcDistanceEU.Location = New System.Drawing.Point(285, 188)
+        Me.txbCalcDistanceEU.MaxLineLength = -1
+        Me.txbCalcDistanceEU.MaxLines_Warning = ""
+        Me.txbCalcDistanceEU.MaxLines_Warning_Label = Nothing
+        Me.txbCalcDistanceEU.Name = "txbCalcDistanceEU"
+        Me.txbCalcDistanceEU.Size = New System.Drawing.Size(84, 20)
+        Me.txbCalcDistanceEU.TabIndex = 21
+        '
+        'txbNachOrt
+        '
+        Me.txbNachOrt._DateTimeOnly = False
+        Me.txbNachOrt._numbersOnly = False
+        Me.txbNachOrt._numbersOnlyKommastellen = ""
+        Me.txbNachOrt._numbersOnlyTrennzeichen = True
+        Me.txbNachOrt._Prozent = False
+        Me.txbNachOrt._ShortDateNew = False
+        Me.txbNachOrt._ShortDateOnly = False
+        Me.txbNachOrt._TimeOnly = False
+        Me.txbNachOrt._TimeOnly_Seconds = False
+        Me.txbNachOrt._value = ""
+        Me.txbNachOrt._Waehrung = False
+        Me.txbNachOrt._WaehrungZeichen = True
+        Me.txbNachOrt.ForeColor = System.Drawing.Color.Black
+        Me.txbNachOrt.Location = New System.Drawing.Point(255, 49)
+        Me.txbNachOrt.MaxLineLength = -1
+        Me.txbNachOrt.MaxLines_Warning = ""
+        Me.txbNachOrt.MaxLines_Warning_Label = Nothing
+        Me.txbNachOrt.Name = "txbNachOrt"
+        Me.txbNachOrt.Size = New System.Drawing.Size(84, 20)
+        Me.txbNachOrt.TabIndex = 16
+        '
+        'txbVonOrt
+        '
+        Me.txbVonOrt._DateTimeOnly = False
+        Me.txbVonOrt._numbersOnly = False
+        Me.txbVonOrt._numbersOnlyKommastellen = ""
+        Me.txbVonOrt._numbersOnlyTrennzeichen = True
+        Me.txbVonOrt._Prozent = False
+        Me.txbVonOrt._ShortDateNew = False
+        Me.txbVonOrt._ShortDateOnly = False
+        Me.txbVonOrt._TimeOnly = False
+        Me.txbVonOrt._TimeOnly_Seconds = False
+        Me.txbVonOrt._value = ""
+        Me.txbVonOrt._Waehrung = False
+        Me.txbVonOrt._WaehrungZeichen = True
+        Me.txbVonOrt.ForeColor = System.Drawing.Color.Black
+        Me.txbVonOrt.Location = New System.Drawing.Point(75, 49)
+        Me.txbVonOrt.MaxLineLength = -1
+        Me.txbVonOrt.MaxLines_Warning = ""
+        Me.txbVonOrt.MaxLines_Warning_Label = Nothing
+        Me.txbVonOrt.Name = "txbVonOrt"
+        Me.txbVonOrt.Size = New System.Drawing.Size(91, 20)
+        Me.txbVonOrt.TabIndex = 15
+        '
+        'txbNachPLZ
+        '
+        Me.txbNachPLZ._DateTimeOnly = False
+        Me.txbNachPLZ._numbersOnly = False
+        Me.txbNachPLZ._numbersOnlyKommastellen = ""
+        Me.txbNachPLZ._numbersOnlyTrennzeichen = True
+        Me.txbNachPLZ._Prozent = False
+        Me.txbNachPLZ._ShortDateNew = False
+        Me.txbNachPLZ._ShortDateOnly = False
+        Me.txbNachPLZ._TimeOnly = False
+        Me.txbNachPLZ._TimeOnly_Seconds = False
+        Me.txbNachPLZ._value = ""
+        Me.txbNachPLZ._Waehrung = False
+        Me.txbNachPLZ._WaehrungZeichen = True
+        Me.txbNachPLZ.ForeColor = System.Drawing.Color.Black
+        Me.txbNachPLZ.Location = New System.Drawing.Point(255, 23)
+        Me.txbNachPLZ.MaxLineLength = -1
+        Me.txbNachPLZ.MaxLines_Warning = ""
+        Me.txbNachPLZ.MaxLines_Warning_Label = Nothing
+        Me.txbNachPLZ.Name = "txbNachPLZ"
+        Me.txbNachPLZ.Size = New System.Drawing.Size(84, 20)
+        Me.txbNachPLZ.TabIndex = 11
+        '
+        'txbVonPLZ
+        '
+        Me.txbVonPLZ._DateTimeOnly = False
+        Me.txbVonPLZ._numbersOnly = False
+        Me.txbVonPLZ._numbersOnlyKommastellen = ""
+        Me.txbVonPLZ._numbersOnlyTrennzeichen = True
+        Me.txbVonPLZ._Prozent = False
+        Me.txbVonPLZ._ShortDateNew = False
+        Me.txbVonPLZ._ShortDateOnly = False
+        Me.txbVonPLZ._TimeOnly = False
+        Me.txbVonPLZ._TimeOnly_Seconds = False
+        Me.txbVonPLZ._value = ""
+        Me.txbVonPLZ._Waehrung = False
+        Me.txbVonPLZ._WaehrungZeichen = True
+        Me.txbVonPLZ.ForeColor = System.Drawing.Color.Black
+        Me.txbVonPLZ.Location = New System.Drawing.Point(75, 23)
+        Me.txbVonPLZ.MaxLineLength = -1
+        Me.txbVonPLZ.MaxLines_Warning = ""
+        Me.txbVonPLZ.MaxLines_Warning_Label = Nothing
+        Me.txbVonPLZ.Name = "txbVonPLZ"
+        Me.txbVonPLZ.Size = New System.Drawing.Size(91, 20)
+        Me.txbVonPLZ.TabIndex = 10
+        '
+        'tbNichtEUAnteil
+        '
+        Me.tbNichtEUAnteil._DateTimeOnly = False
+        Me.tbNichtEUAnteil._numbersOnly = False
+        Me.tbNichtEUAnteil._numbersOnlyKommastellen = ""
+        Me.tbNichtEUAnteil._numbersOnlyTrennzeichen = True
+        Me.tbNichtEUAnteil._Prozent = True
+        Me.tbNichtEUAnteil._ShortDateNew = False
+        Me.tbNichtEUAnteil._ShortDateOnly = False
+        Me.tbNichtEUAnteil._TimeOnly = False
+        Me.tbNichtEUAnteil._TimeOnly_Seconds = False
+        Me.tbNichtEUAnteil._value = Nothing
+        Me.tbNichtEUAnteil._Waehrung = False
+        Me.tbNichtEUAnteil._WaehrungZeichen = False
+        Me.tbNichtEUAnteil.ForeColor = System.Drawing.Color.Black
+        Me.tbNichtEUAnteil.Location = New System.Drawing.Point(86, 227)
+        Me.tbNichtEUAnteil.MaxLineLength = -1
+        Me.tbNichtEUAnteil.MaxLines_Warning = ""
+        Me.tbNichtEUAnteil.MaxLines_Warning_Label = Nothing
+        Me.tbNichtEUAnteil.Name = "tbNichtEUAnteil"
+        Me.tbNichtEUAnteil.Size = New System.Drawing.Size(49, 20)
+        Me.tbNichtEUAnteil.TabIndex = 7
+        '
+        'tbEUAnteil
+        '
+        Me.tbEUAnteil._DateTimeOnly = False
+        Me.tbEUAnteil._numbersOnly = False
+        Me.tbEUAnteil._numbersOnlyKommastellen = ""
+        Me.tbEUAnteil._numbersOnlyTrennzeichen = False
+        Me.tbEUAnteil._Prozent = True
+        Me.tbEUAnteil._ShortDateNew = False
+        Me.tbEUAnteil._ShortDateOnly = False
+        Me.tbEUAnteil._TimeOnly = False
+        Me.tbEUAnteil._TimeOnly_Seconds = False
+        Me.tbEUAnteil._value = Nothing
+        Me.tbEUAnteil._Waehrung = False
+        Me.tbEUAnteil._WaehrungZeichen = False
+        Me.tbEUAnteil.ForeColor = System.Drawing.Color.Black
+        Me.tbEUAnteil.Location = New System.Drawing.Point(84, 188)
+        Me.tbEUAnteil.MaxLineLength = -1
+        Me.tbEUAnteil.MaxLines_Warning = ""
+        Me.tbEUAnteil.MaxLines_Warning_Label = Nothing
+        Me.tbEUAnteil.Name = "tbEUAnteil"
+        Me.tbEUAnteil.Size = New System.Drawing.Size(51, 20)
+        Me.tbEUAnteil.TabIndex = 6
+        '
+        'ckbManAnteilsermittlung
+        '
+        Me.ckbManAnteilsermittlung.AutoSize = True
+        Me.ckbManAnteilsermittlung.Location = New System.Drawing.Point(113, 160)
+        Me.ckbManAnteilsermittlung.Name = "ckbManAnteilsermittlung"
+        Me.ckbManAnteilsermittlung.Size = New System.Drawing.Size(160, 17)
+        Me.ckbManAnteilsermittlung.TabIndex = 36
+        Me.ckbManAnteilsermittlung.Text = "Anteile automatisch ermitteln"
+        Me.ToolTipAutomatischErmitteln.SetToolTip(Me.ckbManAnteilsermittlung, "" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anteile werden automatisch ermittelt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Für TR (=Türkei) und SRB (=Serbien) wird" &
+        " der EU-Anteil des Streckenverlaufs ermittelt, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle weiteren werden mit 60% EU" &
+        " und 40% nicht EU berechnet." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10))
+        Me.ckbManAnteilsermittlung.UseVisualStyleBackColor = True
+        '
+        'frmFrachtkostenBerechnen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(381, 305)
+        Me.Controls.Add(Me.ckbManAnteilsermittlung)
+        Me.Controls.Add(Me.txbCalcDistanceNichtEU)
+        Me.Controls.Add(Me.lblDistanzNichtEU)
+        Me.Controls.Add(Me.tbNichtEUAnteilberechnet)
+        Me.Controls.Add(Me.tbEUAnteilberechnet)
+        Me.Controls.Add(Me.lblWarningFaktor)
+        Me.Controls.Add(Me.lblWarningBestimmungsort)
+        Me.Controls.Add(Me.lblWarningAbgangort)
+        Me.Controls.Add(Me.lblWarningNichtEUAnteil)
+        Me.Controls.Add(Me.lblWarningEUAnteil)
+        Me.Controls.Add(Me.txbFactor)
+        Me.Controls.Add(Me.lblFaktor)
+        Me.Controls.Add(Me.tbxGesamtfrachtkosten)
+        Me.Controls.Add(Me.txbGewicht)
+        Me.Controls.Add(Me.txbCalcDistanceEU)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txbNachOrt)
+        Me.Controls.Add(Me.txbVonOrt)
+        Me.Controls.Add(Me.btnCalculate)
+        Me.Controls.Add(Me.lblGesamtfrachkosten)
+        Me.Controls.Add(Me.lblGewicht)
+        Me.Controls.Add(Me.lblDistanzEU)
+        Me.Controls.Add(Me.txbNachPLZ)
+        Me.Controls.Add(Me.txbVonPLZ)
+        Me.Controls.Add(Me.lblNichtEUAnteil)
+        Me.Controls.Add(Me.lblEUAnteil)
+        Me.Controls.Add(Me.tbNichtEUAnteil)
+        Me.Controls.Add(Me.tbEUAnteil)
+        Me.Controls.Add(Me.btnOK)
+        Me.Controls.Add(Me.btnCancel)
+        Me.Controls.Add(Me.lblNach)
+        Me.Controls.Add(Me.lblVon)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmFrachtkostenBerechnen"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Frachtkosten berechnen"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents lblVon As Label
+    Friend WithEvents lblNach As Label
+    Friend WithEvents btnCancel As Button
+    Friend WithEvents btnOK As Button
+    Friend WithEvents tbEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents tbNichtEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblEUAnteil As Label
+    Friend WithEvents lblNichtEUAnteil As Label
+    Friend WithEvents txbVonPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txbNachPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblDistanzEU As Label
+    Friend WithEvents lblGewicht As Label
+    Friend WithEvents btnCalculate As Button
+    Friend WithEvents txbVonOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txbNachOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents txbCalcDistanceEU As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txbGewicht As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblGesamtfrachkosten As Label
+    Friend WithEvents tbxGesamtfrachtkosten As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txbFactor As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblFaktor As Label
+    Friend WithEvents lblWarningEUAnteil As Label
+    Friend WithEvents lblWarningNichtEUAnteil As Label
+    Friend WithEvents lblWarningAbgangort As Label
+    Friend WithEvents lblWarningBestimmungsort As Label
+    Friend WithEvents lblWarningFaktor As Label
+    Friend WithEvents tbEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents tbNichtEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txbCalcDistanceNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblDistanzNichtEU As Label
+    Friend WithEvents ckbManAnteilsermittlung As CheckBox
+    Friend WithEvents ToolTipAutomatischErmitteln As ToolTip
+End Class

Aviso/frmFrachtkostenBerechnen.vb

@@ -0,0 +1,239 @@
+Imports System.Security.Cryptography
+Imports DocumentFormat.OpenXml.Drawing
+Imports DocumentFormat.OpenXml.Office.MetaAttributes
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmFrachtkostenBerechnen
+
+    Dim absenderID As Integer
+    Dim empfaengerID As Integer
+    Dim origin As String
+    Dim destination As String
+    Public EUAnteil As Double
+    Public nichtEUAnteil As Double
+    Dim gewicht As Double
+    Dim gesamtFrachtkosten As Double
+
+
+    Sub New(absID As String, empfID As String, gewichtInput As Double)
+
+        InitializeComponent()
+        absenderID = CInt(absID)
+        empfaengerID = CInt(empfID)
+        gewicht = gewichtInput
+
+    End Sub
+
+
+    Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        txbVonPLZ.fillWithSQL("SELECT  ISNULL([LandKz],'') + '-' + ISNULL([PLZ],'')  FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
+        txbVonOrt.fillWithSQL("SELECT  ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
+
+        txbNachPLZ.fillWithSQL("SELECT  ISNULL([LandKz],'') + '-' + ISNULL([PLZ],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
+        txbNachOrt.fillWithSQL("SELECT  ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
+
+        ckbManAnteilsermittlung.Checked = True
+
+        tbEUAnteil._value = 0
+        tbNichtEUAnteil._value = 0
+        txbGewicht._value = gewicht.ToString
+        txbFactor._value = 0.15
+        checkInputFields()
+
+
+    End Sub
+
+    Sub calculateFreight()
+
+        'resetInputFields()
+        setControlEUAnteile()
+
+        origin = IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
+        destination = IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
+
+        Dim getValues = True
+        Dim twoRouteRequest As Boolean = False
+        Dim duration = ""
+        Dim distance = ""
+        Dim durationEU = ""
+        Dim distanceEU = ""
+
+
+        If txbVonPLZ._value.Substring(0, 2) = "TR" AndAlso ckbManAnteilsermittlung.Checked Then
+
+            twoRouteRequest = True
+            'Kapitan Andreevo ist EU Grenze für Lieferungen aus der Türkei
+            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Kapitan Andreevo", duration, distance,, getValues)
+            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues)
+
+        ElseIf txbVonPLZ._value.Substring(0, 3) = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then
+            twoRouteRequest = True
+            'Horgoš ist EU Grenze für Lieferungen aus Serbien
+            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues)
+            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues)
+
+        End If
+
+        If twoRouteRequest = True AndAlso ckbManAnteilsermittlung.Checked Then
+
+            lblDistanzEU.Text = "EU-Distanz"
+            lblDistanzNichtEU.Visible = True
+            txbCalcDistanceNichtEU.Visible = True
+
+            Try
+
+                If (IsNumeric(distanceEU)) Then
+                    IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
+                    txbCalcDistanceEU._value = IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
+                Else
+                    distanceEU = "0"
+
+                    MsgBox("Standort vom Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbNachPLZ._value & " " & txbNachOrt._value & " prüfen")
+                    Exit Sub
+
+                End If
+
+                If (IsNumeric(distance)) Then
+                    txbCalcDistanceNichtEU._value = IIf(CInt(distance) > 1000, Math.Round(CInt(distance) / 1000, 0), CInt(distance))
+                Else
+                    distance = "0"
+                    MsgBox("Standort vom Abgangsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbVonPLZ._value & " " & txbVonOrt._value & " prüfen")
+                    Exit Sub
+                End If
+
+                Dim totalDistance = CDbl(distance) + CDbl(distanceEU)
+
+                Dim distanceNotEUpercent = CDbl(distance) * 100 / totalDistance
+                Dim distanceEUpercent = CDbl(distanceEU) * 100 / totalDistance
+
+                Math.Round(distanceNotEUpercent, 2)
+                Math.Round(distanceEUpercent, 2)
+
+                tbEUAnteil._value = CDbl(distanceEUpercent) / 100
+                tbNichtEUAnteil._value = CDbl(distanceNotEUpercent) / 100
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+
+
+        ElseIf ckbManAnteilsermittlung.Checked Then
+
+            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance)
+
+            tbEUAnteil._value = 0.6
+            tbNichtEUAnteil._value = 0.4
+
+            lblDistanzEU.Text = "Distanz"
+            txbCalcDistanceEU._value = distance
+            lblDistanzNichtEU.Visible = False
+            txbCalcDistanceNichtEU.Visible = False
+
+        Else
+
+            lblDistanzEU.Text = "Distanz"
+            txbCalcDistanceEU._value = distance
+            lblDistanzNichtEU.Visible = False
+            txbCalcDistanceNichtEU.Visible = False
+
+        End If
+
+
+    End Sub
+
+    Sub calculateFreightCosts()
+
+        Try
+            gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
+            tbxGesamtfrachtkosten._value = gesamtFrachtkosten
+            EUAnteil = gesamtFrachtkosten * tbEUAnteil._value
+            nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value)
+            tbEUAnteilberechnet._value = CStr(EUAnteil)
+            tbNichtEUAnteilberechnet._value = CStr(nichtEUAnteil)
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
+    Function checkInputFields() As Boolean
+
+        Dim isFilled As Boolean = True
+
+        lblWarningAbgangort.Visible = False
+        lblWarningBestimmungsort.Visible = False
+        lblWarningEUAnteil.Visible = False
+        lblWarningNichtEUAnteil.Visible = False
+        btnOK.DialogResult = DialogResult.OK
+
+        If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then
+            lblWarningEUAnteil.Visible = True
+            btnOK.DialogResult = DialogResult.OK
+            isFilled = False
+        End If
+
+        If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then
+            lblWarningNichtEUAnteil.Visible = True
+            btnOK.DialogResult = DialogResult.OK
+            isFilled = False
+        End If
+
+        If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then
+            'Hinweis INPUT false
+        End If
+
+        If (txbVonOrt._value = "" Or txbVonPLZ._value = "") Then
+            lblWarningAbgangort.Visible = True
+            btnOK.DialogResult = DialogResult.OK
+            isFilled = False
+        End If
+
+        If (txbNachOrt._value = "" Or txbNachPLZ._value = "") Then
+            lblWarningBestimmungsort.Visible = True
+            btnOK.DialogResult = DialogResult.OK
+            isFilled = False
+        End If
+
+        Return isFilled
+
+    End Function
+
+
+    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
+
+        If (checkInputFields() = False) Then Exit Sub
+        calculateFreight()
+        If (checkInputFields() = False) Then Exit Sub
+        calculateFreightCosts()
+
+    End Sub
+
+
+
+    Private Sub resetInputFields()
+        txbCalcDistanceEU.Clear()
+        txbCalcDistanceNichtEU.Clear()
+        tbEUAnteilberechnet.Clear()
+        tbNichtEUAnteilberechnet.Clear()
+        If tbEUAnteil._value = "" Then tbEUAnteil._value = 0
+        If tbNichtEUAnteil._value = "" Then tbNichtEUAnteil._value = 0
+
+    End Sub
+
+    Private Sub setControlEUAnteile()
+        If ckbManAnteilsermittlung.Checked Then
+            tbEUAnteil.Enabled = False
+            tbNichtEUAnteil.Enabled = False
+        Else
+            tbEUAnteil.Enabled = True
+            tbNichtEUAnteil.Enabled = True
+            resetInputFields()
+        End If
+    End Sub
+
+    Private Sub ckbManAnteilsermittlung_CheckStateChanged(sender As Object, e As EventArgs) Handles ckbManAnteilsermittlung.CheckStateChanged
+        setControlEUAnteile()
+    End Sub
+End Class

Aviso/frmHauptfenster.Designer.vb

@@ -71,7 +71,6 @@ Partial Class frmHauptfenster
         Me.SDLProgrammStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AlleStatusMailsSchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.RoutenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -362,6 +361,7 @@ Partial Class frmHauptfenster
         Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RoutenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.Top.SuspendLayout()
@@ -643,12 +643,6 @@ Partial Class frmHauptfenster
         Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
         Me.AlleStatusMailsSchickenToolStripMenuItem.Text = "Alle Status Mails schicken"
         '
-        'RoutenverwaltungToolStripMenuItem
-        '
-        Me.RoutenverwaltungToolStripMenuItem.Name = "RoutenverwaltungToolStripMenuItem"
-        Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
-        Me.RoutenverwaltungToolStripMenuItem.Text = "Routenverwaltung"
-        '
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
@@ -2022,7 +2016,6 @@ Partial Class frmHauptfenster
         Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
         Me.SplitContainer2.Size = New System.Drawing.Size(815, 300)
         Me.SplitContainer2.SplitterDistance = 164
-        Me.SplitContainer2.SplitterDistance = 111
         Me.SplitContainer2.SplitterWidth = 1
         Me.SplitContainer2.TabIndex = 0
         '
@@ -3458,6 +3451,12 @@ Partial Class frmHauptfenster
         Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
         Me.ToolStripMenuItem21.Text = "GELB"
         '
+        'RoutenverwaltungToolStripMenuItem
+        '
+        Me.RoutenverwaltungToolStripMenuItem.Name = "RoutenverwaltungToolStripMenuItem"
+        Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
+        Me.RoutenverwaltungToolStripMenuItem.Text = "Routenverwaltung"
+        '
         'frmHauptfenster
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3859,4 +3858,5 @@ Partial Class frmHauptfenster
     Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem
     Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
     Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmSendungsdetailsNEU.resx

@@ -118,103 +118,6 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
-        mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
-        i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
-        p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
-        hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
-        Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
-        XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
-        4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
-        k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
-        uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
-        dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
-        lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
-        AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
-        CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
-        oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
-        F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
-        O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
-        pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
-        rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
-        XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
-        tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
-        kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
-        NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
-        mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
-        sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
-        vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
-        PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
-        a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
-        etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
-        zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
-        HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
-        9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
-        sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
-        EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
-        nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
-        Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
-        Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
-        581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
-        GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
-        Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
-        l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
-        lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
-        8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
-        FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
-        sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
-        8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
-        N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
-        xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
-        NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
-        tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
-        GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
-        e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
-        xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
-        9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
-        wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
-        7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
-        6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
-        fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
-        nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
-        8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
-        s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
-        jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
-        kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
-        SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
-        asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
-        Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
-        unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
-        YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
-        AElFTkSuQmCC
-</value>
-  </data>
-  <data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
-        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
-        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
-        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
-        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
-        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
-        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
-        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
-        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
-        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
-        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
-        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
-        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
-        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
-        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
-</value>
-  </data>
   <data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1628,9 +1531,6 @@
         mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
 </value>
   </data>
-  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>296, 17</value>
-  </metadata>
   <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1642,18 +1542,103 @@
   <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>296, 17</value>
   </metadata>
-  <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>True</value>
+    <value>
-  </metadata>
+        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
-  <metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+        mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
-    <value>True</value>
+        i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
-  </metadata>
+        p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
-  <metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+        hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
-    <value>True</value>
+        Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
-  </metadata>
+        XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
-  <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+        4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
-    <value>True</value>
+        k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
-  </metadata>
+        uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
+        dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
+        lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
+        AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
+        CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
+        oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
+        F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
+        O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
+        pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
+        rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
+        XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
+        tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
+        kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
+        NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
+        mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
+        sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
+        vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
+        PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
+        a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
+        etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
+        zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
+        HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
+        9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
+        sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
+        EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
+        nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
+        Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
+        Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
+        581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
+        GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
+        Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
+        l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
+        lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
+        8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
+        FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
+        sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
+        8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
+        N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
+        xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
+        NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
+        tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
+        GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
+        e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
+        xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
+        9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
+        wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
+        7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
+        6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
+        fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
+        nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
+        8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
+        s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
+        jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
+        kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
+        SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
+        asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
+        Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
+        unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
+        YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
+        AElFTkSuQmCC
+</value>
+  </data>
+  <data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
+        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
+        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
+        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
+        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
+        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
+        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
+        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
+        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
+        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
+        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
+        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
+        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
+        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
+        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
+</value>
+  </data>
   <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
@@ -1898,9 +1883,6 @@
   <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>174, 17</value>
   </metadata>
-  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>404, 17</value>
-  </metadata>
   <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>596, 17</value>
   </metadata>

Aviso/frmSendungsdetailsNEU.vb

@@ -6,6 +6,7 @@ Imports System.Management
 Imports System.Data.SqlClient
 Imports iTextSharp.text.pdf
 Imports Microsoft.Office.Interop
+Imports DocumentFormat.OpenXml.Presentation
 
 Public Class frmSendungsdetailsNEU
     Public AvisoId As Integer
@@ -900,7 +901,8 @@ Public Class frmSendungsdetailsNEU
         b_add.Size = New Size(30, 30)
         b_add.Margin = New Padding(2, 22, 0, 0)
         b_add.Text = "+"
-        b_add.Font = New Font(b_add.Font.FontFamily, 14, FontStyle.Bold)
+        'b_add.Font = New Font()
+        'b_add.Font.FontFamily, 14, FontStyle.Bold)
         b_add.BackColor = Color.LightGray()
         AddHandler b_add.Click, Sub(send As Object, ev As EventArgs)
                                     If AVISO.Abgeschlossen Then Exit Sub
@@ -2916,12 +2918,12 @@ Public Class frmSendungsdetailsNEU
                         End If
                     End If
                 End If
-                End If
             End If
+        End If
 
 
 
-            txtAnzahlPos.Visible = (cboFiliale._value = "7001")
+        txtAnzahlPos.Visible = (cboFiliale._value = "7001")
         Label4.Visible = (cboFiliale._value = "7001")
 
         Dim tmp = cboAbfertigungsart._value
@@ -3977,20 +3979,20 @@ Public Class frmSendungsdetailsNEU
                         Dim TextHTML = ""
                         TextHTML &= "Sehr geehrte Damen und Herren,<br>"
                         TextHTML &= "<br>"
-                            TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
+                        TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
-                            TextHTML &= "<br>"
+                        TextHTML &= "<br>"
 
-                            TextHTML &= "Mit freundlichen Grüßen<br>"
+                        TextHTML &= "Mit freundlichen Grüßen<br>"
-                            TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                        TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
-                            TextHTML &= "<br>"
+                        TextHTML &= "<br>"
 
-                            Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
+                        Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
 
-                            AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
+                        AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
 
-                        End If
+                    End If
 
-                        Mail.Display()
+                    Mail.Display()
 
                 Catch ex As Exception
                     VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
@@ -4087,7 +4089,7 @@ Public Class frmSendungsdetailsNEU
                     DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = True
                 End If
             Else
-                    If pnlKundenInfo.Controls.Count > 0 Then
+                If pnlKundenInfo.Controls.Count > 0 Then
                     DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = False
                 End If
             End If
@@ -4718,7 +4720,7 @@ Public Class frmSendungsdetailsNEU
                         Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr)
                         If AD IsNot Nothing Then
                             Blatt.Range("E13").Value = AD.Name_1
-                            Blatt.Range("E14").Value = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & " " & If(AD.Straße, "")).trim
+                            Blatt.Range("E14").Value = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & " " & If(AD.Straße, "")).Trim
                         End If
                         Blatt.Range("E13").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer
                     Else
@@ -5365,41 +5367,19 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub Button17_Click_2(sender As Object, e As EventArgs) Handles Button17.Click
+    Sub calculateFreightCosts()
-        Dim f As New SDL.frmCMR
 
-        f.btnCMRtoAkt.Visible = True
+        Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text)
-        f.txtCMRName.Visible = True
 
 
-        If txtAbsender.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtAbsender.Text = txtAbsender.KdData_ADRESSEN.getAdressFromatted()
+        If frachkosten.ShowDialog() = DialogResult.OK Then
-        If txtFrachtfuehrer.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtFrachtführer.Text = txtFrachtfuehrer.KdData_ADRESSEN.getAdressFromatted()
+            txtFrachtkostenEU._value = frachkosten.EUAnteil
-        If txtEmpfaenger.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtEmpfänger.Text = txtEmpfaenger.KdData_ADRESSEN.getAdressFromatted()
+            txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
-
-        f.uCmr.dgvLadungenKurz.Rows.Add(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, ""), "Pk", If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "")))
-
-        f.uCmr.txtKfz.Text = AVISO.LKW_Nr
-        f.uCmr.txtAnhänger.Text = AVISO.LKW_Nr
-
-        If f.ShowDialog(Me) Then
-
-            Dim da_id = -1
-            Dim anhId = -1
-            Dim destPath = ""
-
-            Dim Typ = ""
-
-            If f.PDF_Path <> "" Then
-                Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR")
-                frmSendungAnhangImport.saveToDS(AvisoId, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
-                initAnhang()
-
-            End If
-
         End If
+
     End Sub
 
     Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click
-        MsgBox("Funktion noch nicht verfügbar!")
+        calculateFreightCosts()
     End Sub
 End Class