Feature_Implementierung Frachkostenberechnung

Aviso/frmFrachtkostenBerechnen.Designer.vb

@@ -22,6 +22,7 @@ Partial Class frmFrachtkostenBerechnen
     '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()
@@ -29,25 +30,36 @@ Partial Class frmFrachtkostenBerechnen
         Me.btnOK = New System.Windows.Forms.Button()
         Me.lblEUAnteil = New System.Windows.Forms.Label()
         Me.lblNichtEUAnteil = New System.Windows.Forms.Label()
-        Me.lblDistanz = 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.txbCalcDistance = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        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.txbGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox()
-        Me.lblGesamtfrachkosten = New System.Windows.Forms.Label()
+        Me.ToolTipAutomatischErmitteln = New System.Windows.Forms.ToolTip(Me.components)
-        Me.tbxGesamtfrachtkosten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txbFactor = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.lblFaktor = New System.Windows.Forms.Label()
         Me.SuspendLayout()
         '
         'lblVon
@@ -71,7 +83,7 @@ Partial Class frmFrachtkostenBerechnen
         'btnCancel
         '
         Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancel.Location = New System.Drawing.Point(10, 214)
+        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
@@ -80,9 +92,9 @@ Partial Class frmFrachtkostenBerechnen
         '
         'btnOK
         '
-        Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
+        Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.Cursor
         Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnOK.Location = New System.Drawing.Point(264, 214)
+        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
@@ -92,7 +104,7 @@ Partial Class frmFrachtkostenBerechnen
         'lblEUAnteil
         '
         Me.lblEUAnteil.AutoSize = True
-        Me.lblEUAnteil.Location = New System.Drawing.Point(170, 151)
+        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
@@ -101,25 +113,25 @@ Partial Class frmFrachtkostenBerechnen
         'lblNichtEUAnteil
         '
         Me.lblNichtEUAnteil.AutoSize = True
-        Me.lblNichtEUAnteil.Location = New System.Drawing.Point(170, 173)
+        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"
         '
-        'lblDistanz
+        'lblDistanzEU
         '
-        Me.lblDistanz.AutoSize = True
+        Me.lblDistanzEU.AutoSize = True
-        Me.lblDistanz.Location = New System.Drawing.Point(5, 177)
+        Me.lblDistanzEU.Location = New System.Drawing.Point(215, 195)
-        Me.lblDistanz.Name = "lblDistanz"
+        Me.lblDistanzEU.Name = "lblDistanzEU"
-        Me.lblDistanz.Size = New System.Drawing.Size(42, 13)
+        Me.lblDistanzEU.Size = New System.Drawing.Size(42, 13)
-        Me.lblDistanz.TabIndex = 12
+        Me.lblDistanzEU.TabIndex = 12
-        Me.lblDistanz.Text = "Distanz"
+        Me.lblDistanzEU.Text = "Distanz"
         '
         'lblGewicht
         '
         Me.lblGewicht.AutoSize = True
-        Me.lblGewicht.Location = New System.Drawing.Point(1, 81)
+        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
@@ -128,7 +140,7 @@ Partial Class frmFrachtkostenBerechnen
         'btnCalculate
         '
         Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
-        Me.btnCalculate.Location = New System.Drawing.Point(266, 115)
+        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
@@ -171,28 +183,254 @@ Partial Class frmFrachtkostenBerechnen
         Me.Label4.TabIndex = 20
         Me.Label4.Text = "PLZ"
         '
-        'txbCalcDistance
+        'lblGesamtfrachkosten
         '
-        Me.txbCalcDistance._DateTimeOnly = False
+        Me.lblGesamtfrachkosten.AutoSize = True
-        Me.txbCalcDistance._numbersOnly = False
+        Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(157, 125)
-        Me.txbCalcDistance._numbersOnlyKommastellen = ""
+        Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten"
-        Me.txbCalcDistance._numbersOnlyTrennzeichen = True
+        Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13)
-        Me.txbCalcDistance._Prozent = False
+        Me.lblGesamtfrachkosten.TabIndex = 13
-        Me.txbCalcDistance._ShortDateNew = False
+        Me.lblGesamtfrachkosten.Text = "Frachtkosten ges."
-        Me.txbCalcDistance._ShortDateOnly = False
+        '
-        Me.txbCalcDistance._TimeOnly = False
+        'lblFaktor
-        Me.txbCalcDistance._TimeOnly_Seconds = False
+        '
-        Me.txbCalcDistance._value = ""
+        Me.lblFaktor.AutoSize = True
-        Me.txbCalcDistance._Waehrung = False
+        Me.lblFaktor.Location = New System.Drawing.Point(1, 125)
-        Me.txbCalcDistance._WaehrungZeichen = True
+        Me.lblFaktor.Name = "lblFaktor"
-        Me.txbCalcDistance.ForeColor = System.Drawing.Color.Black
+        Me.lblFaktor.Size = New System.Drawing.Size(37, 13)
-        Me.txbCalcDistance.Location = New System.Drawing.Point(75, 170)
+        Me.lblFaktor.TabIndex = 24
-        Me.txbCalcDistance.MaxLineLength = -1
+        Me.lblFaktor.Text = "Faktor"
-        Me.txbCalcDistance.MaxLines_Warning = ""
+        '
-        Me.txbCalcDistance.MaxLines_Warning_Label = Nothing
+        'lblWarningEUAnteil
-        Me.txbCalcDistance.Name = "txbCalcDistance"
+        '
-        Me.txbCalcDistance.Size = New System.Drawing.Size(84, 20)
+        Me.lblWarningEUAnteil.AutoSize = True
-        Me.txbCalcDistance.TabIndex = 21
+        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
         '
@@ -297,16 +535,16 @@ Partial Class frmFrachtkostenBerechnen
         Me.tbNichtEUAnteil._ShortDateOnly = False
         Me.tbNichtEUAnteil._TimeOnly = False
         Me.tbNichtEUAnteil._TimeOnly_Seconds = False
-        Me.tbNichtEUAnteil._value = ""
+        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(257, 170)
+        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(84, 20)
+        Me.tbNichtEUAnteil.Size = New System.Drawing.Size(49, 20)
         Me.tbNichtEUAnteil.TabIndex = 7
         '
         'tbEUAnteil
@@ -320,117 +558,51 @@ Partial Class frmFrachtkostenBerechnen
         Me.tbEUAnteil._ShortDateOnly = False
         Me.tbEUAnteil._TimeOnly = False
         Me.tbEUAnteil._TimeOnly_Seconds = False
-        Me.tbEUAnteil._value = ""
+        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(255, 144)
+        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(84, 20)
+        Me.tbEUAnteil.Size = New System.Drawing.Size(51, 20)
         Me.tbEUAnteil.TabIndex = 6
         '
-        'txbGewicht
+        'ckbManAnteilsermittlung
         '
-        Me.txbGewicht._DateTimeOnly = False
+        Me.ckbManAnteilsermittlung.AutoSize = True
-        Me.txbGewicht._numbersOnly = False
+        Me.ckbManAnteilsermittlung.Location = New System.Drawing.Point(113, 160)
-        Me.txbGewicht._numbersOnlyKommastellen = ""
+        Me.ckbManAnteilsermittlung.Name = "ckbManAnteilsermittlung"
-        Me.txbGewicht._numbersOnlyTrennzeichen = True
+        Me.ckbManAnteilsermittlung.Size = New System.Drawing.Size(154, 17)
-        Me.txbGewicht._Prozent = False
+        Me.ckbManAnteilsermittlung.TabIndex = 36
-        Me.txbGewicht._ShortDateNew = False
+        Me.ckbManAnteilsermittlung.Text = "Anteile autmatisch ermitteln"
-        Me.txbGewicht._ShortDateOnly = False
+        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" &
-        Me.txbGewicht._TimeOnly = False
+        " der EU-Anteil des Streckenverlaufs ermittelt, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle weiteren werden mit 60% EU" &
-        Me.txbGewicht._TimeOnly_Seconds = False
+        " und 40% nicht EU berechnet." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10))
-        Me.txbGewicht._value = ""
+        Me.ckbManAnteilsermittlung.UseVisualStyleBackColor = True
-        Me.txbGewicht._Waehrung = False
-        Me.txbGewicht._WaehrungZeichen = True
-        Me.txbGewicht.ForeColor = System.Drawing.Color.Black
-        Me.txbGewicht.Location = New System.Drawing.Point(75, 78)
-        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
-        '
-        'lblGesamtfrachkosten
-        '
-        Me.lblGesamtfrachkosten.AutoSize = True
-        Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(1, 104)
-        Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten"
-        Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13)
-        Me.lblGesamtfrachkosten.TabIndex = 13
-        Me.lblGesamtfrachkosten.Text = "Frachtkosten ges."
-        '
-        '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(99, 101)
-        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
-        '
-        '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(99, 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
-        '
-        '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"
         '
         'frmFrachtkostenBerechnen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(353, 252)
+        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.txbCalcDistance)
+        Me.Controls.Add(Me.txbCalcDistanceEU)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label2)
@@ -440,7 +612,7 @@ Partial Class frmFrachtkostenBerechnen
         Me.Controls.Add(Me.btnCalculate)
         Me.Controls.Add(Me.lblGesamtfrachkosten)
         Me.Controls.Add(Me.lblGewicht)
-        Me.Controls.Add(Me.lblDistanz)
+        Me.Controls.Add(Me.lblDistanzEU)
         Me.Controls.Add(Me.txbNachPLZ)
         Me.Controls.Add(Me.txbVonPLZ)
         Me.Controls.Add(Me.lblNichtEUAnteil)
@@ -453,6 +625,7 @@ Partial Class frmFrachtkostenBerechnen
         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()
@@ -469,7 +642,7 @@ Partial Class frmFrachtkostenBerechnen
     Friend WithEvents lblNichtEUAnteil As Label
     Friend WithEvents txbVonPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents txbNachPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents lblDistanz As Label
+    Friend WithEvents lblDistanzEU As Label
     Friend WithEvents lblGewicht As Label
     Friend WithEvents btnCalculate As Button
     Friend WithEvents txbVonOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -478,10 +651,21 @@ Partial Class frmFrachtkostenBerechnen
     Friend WithEvents Label2 As Label
     Friend WithEvents Label3 As Label
     Friend WithEvents Label4 As Label
-    Friend WithEvents txbCalcDistance As VERAG_PROG_ALLGEMEIN.MyTextBox
+    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.resx

@@ -117,6 +117,9 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ToolTipAutomatischErmitteln.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

Aviso/frmFrachtkostenBerechnen.vb

@@ -1,4 +1,6 @@
-Imports DocumentFormat.OpenXml.Drawing
+Imports System.Security.Cryptography
+Imports DocumentFormat.OpenXml.Drawing
+Imports DocumentFormat.OpenXml.Office.MetaAttributes
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmFrachtkostenBerechnen
@@ -7,8 +9,8 @@ Public Class frmFrachtkostenBerechnen
     Dim empfaengerID As Integer
     Dim origin As String
     Dim destination As String
-    Dim EUAnteil As Integer
+    Public EUAnteil As Double
-    Dim nichtEUAnteil As Integer
+    Public nichtEUAnteil As Double
     Dim gewicht As Double
     Dim gesamtFrachtkosten As Double
 
@@ -31,26 +33,111 @@ Public Class frmFrachtkostenBerechnen
         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 = EUAnteil.ToString
+        tbEUAnteil._value = 0
-        'tbNichtEUAnteil._value = nichtEUAnteil.ToString
+        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 = ""
 
-        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance)
 
-        txbCalcDistance._value = distance
+        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
@@ -60,46 +147,93 @@ Public Class frmFrachtkostenBerechnen
         Try
             gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
             tbxGesamtfrachtkosten._value = gesamtFrachtkosten
-            EUAnteil = gesamtFrachtkosten * tbEUAnteil._value / 100
+            EUAnteil = gesamtFrachtkosten * tbEUAnteil._value
-            nichtEUAnteil = gesamtFrachtkosten * tbNichtEUAnteil._value / 100
+            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
 
-    Sub checkInputFields()
+    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
-            'Hinweis INPUT false
+            lblWarningEUAnteil.Visible = True
+            btnOK.DialogResult = DialogResult.OK
+            isFilled = False
         End If
 
         If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then
-            'Hinweis INPUT false
+            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
 
-    End Sub
+        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
-        resetInputFIeld()
+
+        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
 
-
-    Private Sub resetInputFIeld()
-        txbCalcDistance._value = ""
     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/frmSendungsdetailsNEU.vb

@@ -5373,8 +5373,8 @@ Public Class frmSendungsdetailsNEU
 
 
         If frachkosten.ShowDialog() = DialogResult.OK Then
-            ' TODO -> Rückgabewert von Frachkostenberechnung
+            txtFrachtkostenEU._value = frachkosten.EUAnteil
-
+            txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
         End If
 
     End Sub