Bugfix Frachtkostenberechnung

2022-10-12 10:58:18 +02:00
parent e6930cc9dd
commit 457faacad0
2 changed files with 139 additions and 83 deletions
--- a/Aviso/frmFrachtkostenBerechnen.Designer.vb
+++ b/Aviso/frmFrachtkostenBerechnen.Designer.vb
@@ -45,6 +45,10 @@ Partial Class frmFrachtkostenBerechnen
        Me.lblWarningBestimmungsort = New System.Windows.Forms.Label()
        Me.lblWarningFaktor = New System.Windows.Forms.Label()
        Me.lblDistanzNichtEU = New System.Windows.Forms.Label()
+        Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox()
+        Me.ToolTipAutomatischErmitteln = New System.Windows.Forms.ToolTip(Me.components)
+        Me.cbxLandNach = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxLandVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txbCalcDistanceNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbNichtEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -58,8 +62,6 @@ Partial Class frmFrachtkostenBerechnen
        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
@@ -83,10 +85,10 @@ Partial Class frmFrachtkostenBerechnen
        'btnCancel
        '
        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancel.Location = New System.Drawing.Point(10, 270)
+        Me.btnCancel.Location = New System.Drawing.Point(5, 270)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(75, 23)
-        Me.btnCancel.TabIndex = 4
+        Me.btnCancel.TabIndex = 35
        Me.btnCancel.Text = "Abbrechen"
        Me.btnCancel.UseVisualStyleBackColor = True
        '
@@ -94,56 +96,56 @@ Partial Class frmFrachtkostenBerechnen
        '
        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.Location = New System.Drawing.Point(286, 270)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(75, 23)
-        Me.btnOK.TabIndex = 5
+        Me.btnOK.TabIndex = 36
        Me.btnOK.Text = "OK"
        Me.btnOK.UseVisualStyleBackColor = True
        '
        'lblEUAnteil
        '
        Me.lblEUAnteil.AutoSize = True
-        Me.lblEUAnteil.Location = New System.Drawing.Point(-1, 195)
+        Me.lblEUAnteil.Location = New System.Drawing.Point(5, 195)
        Me.lblEUAnteil.Name = "lblEUAnteil"
        Me.lblEUAnteil.Size = New System.Drawing.Size(51, 13)
-        Me.lblEUAnteil.TabIndex = 8
+        Me.lblEUAnteil.TabIndex = 23
        Me.lblEUAnteil.Text = "EU Anteil"
        '
        'lblNichtEUAnteil
        '
        Me.lblNichtEUAnteil.AutoSize = True
-        Me.lblNichtEUAnteil.Location = New System.Drawing.Point(-1, 230)
+        Me.lblNichtEUAnteil.Location = New System.Drawing.Point(5, 230)
        Me.lblNichtEUAnteil.Name = "lblNichtEUAnteil"
        Me.lblNichtEUAnteil.Size = New System.Drawing.Size(79, 13)
-        Me.lblNichtEUAnteil.TabIndex = 9
+        Me.lblNichtEUAnteil.TabIndex = 29
        Me.lblNichtEUAnteil.Text = "Nicht EU Anteil"
        '
        'lblDistanzEU
        '
        Me.lblDistanzEU.AutoSize = True
-        Me.lblDistanzEU.Location = New System.Drawing.Point(215, 195)
+        Me.lblDistanzEU.Location = New System.Drawing.Point(210, 195)
        Me.lblDistanzEU.Name = "lblDistanzEU"
        Me.lblDistanzEU.Size = New System.Drawing.Size(42, 13)
-        Me.lblDistanzEU.TabIndex = 12
+        Me.lblDistanzEU.TabIndex = 26
        Me.lblDistanzEU.Text = "Distanz"
        '
        'lblGewicht
        '
        Me.lblGewicht.AutoSize = True
-        Me.lblGewicht.Location = New System.Drawing.Point(1, 99)
+        Me.lblGewicht.Location = New System.Drawing.Point(5, 99)
        Me.lblGewicht.Name = "lblGewicht"
        Me.lblGewicht.Size = New System.Drawing.Size(46, 13)
-        Me.lblGewicht.TabIndex = 13
+        Me.lblGewicht.TabIndex = 14
        Me.lblGewicht.Text = "Gewicht"
        '
        'btnCalculate
        '
        Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
-        Me.btnCalculate.Location = New System.Drawing.Point(10, 160)
+        Me.btnCalculate.Location = New System.Drawing.Point(5, 160)
        Me.btnCalculate.Name = "btnCalculate"
        Me.btnCalculate.Size = New System.Drawing.Size(75, 23)
-        Me.btnCalculate.TabIndex = 14
+        Me.btnCalculate.TabIndex = 21
        Me.btnCalculate.Text = "Berechnen"
        Me.btnCalculate.UseVisualStyleBackColor = True
        '
@@ -153,7 +155,7 @@ Partial Class frmFrachtkostenBerechnen
        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.TabIndex = 2
        Me.Label1.Text = "PLZ"
        '
        'Label2
@@ -162,16 +164,16 @@ Partial Class frmFrachtkostenBerechnen
        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.TabIndex = 8
        Me.Label2.Text = "Ort"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(211, 56)
+        Me.Label3.Location = New System.Drawing.Point(205, 56)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(21, 13)
-        Me.Label3.TabIndex = 19
+        Me.Label3.TabIndex = 10
        Me.Label3.Text = "Ort"
        '
        'Label4
@@ -180,35 +182,35 @@ Partial Class frmFrachtkostenBerechnen
        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.TabIndex = 5
        Me.Label4.Text = "PLZ"
        '
        'lblGesamtfrachkosten
        '
        Me.lblGesamtfrachkosten.AutoSize = True
-        Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(157, 125)
+        Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(205, 125)
        Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten"
        Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13)
-        Me.lblGesamtfrachkosten.TabIndex = 13
+        Me.lblGesamtfrachkosten.TabIndex = 18
        Me.lblGesamtfrachkosten.Text = "Frachtkosten ges."
        '
        'lblFaktor
        '
        Me.lblFaktor.AutoSize = True
-        Me.lblFaktor.Location = New System.Drawing.Point(1, 125)
+        Me.lblFaktor.Location = New System.Drawing.Point(5, 125)
        Me.lblFaktor.Name = "lblFaktor"
        Me.lblFaktor.Size = New System.Drawing.Size(37, 13)
-        Me.lblFaktor.TabIndex = 24
+        Me.lblFaktor.TabIndex = 16
        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.Location = New System.Drawing.Point(5, 211)
        Me.lblWarningEUAnteil.Name = "lblWarningEUAnteil"
        Me.lblWarningEUAnteil.Size = New System.Drawing.Size(162, 13)
-        Me.lblWarningEUAnteil.TabIndex = 26
+        Me.lblWarningEUAnteil.TabIndex = 28
        Me.lblWarningEUAnteil.Text = "EU Anteil hinterlegen (in Prozent)"
        Me.lblWarningEUAnteil.Visible = False
        '
@@ -216,10 +218,10 @@ Partial Class frmFrachtkostenBerechnen
        '
        Me.lblWarningNichtEUAnteil.AutoSize = True
        Me.lblWarningNichtEUAnteil.ForeColor = System.Drawing.Color.Red
-        Me.lblWarningNichtEUAnteil.Location = New System.Drawing.Point(-1, 249)
+        Me.lblWarningNichtEUAnteil.Location = New System.Drawing.Point(5, 249)
        Me.lblWarningNichtEUAnteil.Name = "lblWarningNichtEUAnteil"
        Me.lblWarningNichtEUAnteil.Size = New System.Drawing.Size(190, 13)
-        Me.lblWarningNichtEUAnteil.TabIndex = 27
+        Me.lblWarningNichtEUAnteil.TabIndex = 34
        Me.lblWarningNichtEUAnteil.Text = "Nicht EU Anteil hinterlegen (in Prozent)"
        Me.lblWarningNichtEUAnteil.Visible = False
        '
@@ -230,7 +232,7 @@ Partial Class frmFrachtkostenBerechnen
        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.TabIndex = 12
        Me.lblWarningAbgangort.Text = "PLZ/Ort von Abgangsort fehlt"
        Me.lblWarningAbgangort.Visible = False
        '
@@ -241,7 +243,7 @@ Partial Class frmFrachtkostenBerechnen
        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.TabIndex = 13
        Me.lblWarningBestimmungsort.Text = "PLZ/Ort von Bestimmungsort fehlt"
        Me.lblWarningBestimmungsort.Visible = False
        '
@@ -249,10 +251,10 @@ Partial Class frmFrachtkostenBerechnen
        '
        Me.lblWarningFaktor.AutoSize = True
        Me.lblWarningFaktor.ForeColor = System.Drawing.Color.Red
-        Me.lblWarningFaktor.Location = New System.Drawing.Point(1, 144)
+        Me.lblWarningFaktor.Location = New System.Drawing.Point(5, 144)
        Me.lblWarningFaktor.Name = "lblWarningFaktor"
        Me.lblWarningFaktor.Size = New System.Drawing.Size(82, 13)
-        Me.lblWarningFaktor.TabIndex = 30
+        Me.lblWarningFaktor.TabIndex = 20
        Me.lblWarningFaktor.Text = "Faktor angeben"
        Me.lblWarningFaktor.Visible = False
        '
@@ -262,10 +264,45 @@ Partial Class frmFrachtkostenBerechnen
        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.TabIndex = 33
        Me.lblDistanzNichtEU.Text = "Distanz"
        Me.lblDistanzNichtEU.Visible = False
        '
+        'ckbManAnteilsermittlung
+        '
+        Me.ckbManAnteilsermittlung.AutoSize = True
+        Me.ckbManAnteilsermittlung.Location = New System.Drawing.Point(92, 160)
+        Me.ckbManAnteilsermittlung.Name = "ckbManAnteilsermittlung"
+        Me.ckbManAnteilsermittlung.Size = New System.Drawing.Size(160, 17)
+        Me.ckbManAnteilsermittlung.TabIndex = 22
+        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
+        '
+        'cbxLandNach
+        '
+        Me.cbxLandNach._allowedValuesFreiText = Nothing
+        Me.cbxLandNach._allowFreiText = False
+        Me.cbxLandNach._value = ""
+        Me.cbxLandNach.FormattingEnabled = True
+        Me.cbxLandNach.Location = New System.Drawing.Point(255, 23)
+        Me.cbxLandNach.Name = "cbxLandNach"
+        Me.cbxLandNach.Size = New System.Drawing.Size(50, 21)
+        Me.cbxLandNach.TabIndex = 6
+        '
+        'cbxLandVon
+        '
+        Me.cbxLandVon._allowedValuesFreiText = Nothing
+        Me.cbxLandVon._allowFreiText = False
+        Me.cbxLandVon._value = ""
+        Me.cbxLandVon.FormattingEnabled = True
+        Me.cbxLandVon.Location = New System.Drawing.Point(75, 22)
+        Me.cbxLandVon.Name = "cbxLandVon"
+        Me.cbxLandVon.Size = New System.Drawing.Size(50, 21)
+        Me.cbxLandVon.TabIndex = 3
+        '
        'txbCalcDistanceNichtEU
        '
        Me.txbCalcDistanceNichtEU._DateTimeOnly = False
@@ -281,13 +318,13 @@ Partial Class frmFrachtkostenBerechnen
        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.Location = New System.Drawing.Point(277, 227)
        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.TabIndex = 32
        Me.txbCalcDistanceNichtEU.Visible = False
        '
        'tbNichtEUAnteilberechnet
@@ -312,7 +349,7 @@ Partial Class frmFrachtkostenBerechnen
        Me.tbNichtEUAnteilberechnet.Name = "tbNichtEUAnteilberechnet"
        Me.tbNichtEUAnteilberechnet.ReadOnly = True
        Me.tbNichtEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
-        Me.tbNichtEUAnteilberechnet.TabIndex = 33
+        Me.tbNichtEUAnteilberechnet.TabIndex = 31
        '
        'tbEUAnteilberechnet
        '
@@ -336,7 +373,7 @@ Partial Class frmFrachtkostenBerechnen
        Me.tbEUAnteilberechnet.Name = "tbEUAnteilberechnet"
        Me.tbEUAnteilberechnet.ReadOnly = True
        Me.tbEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
-        Me.tbEUAnteilberechnet.TabIndex = 32
+        Me.tbEUAnteilberechnet.TabIndex = 25
        '
        'txbFactor
        '
@@ -359,7 +396,7 @@ Partial Class frmFrachtkostenBerechnen
        Me.txbFactor.MaxLines_Warning_Label = Nothing
        Me.txbFactor.Name = "txbFactor"
        Me.txbFactor.Size = New System.Drawing.Size(60, 20)
-        Me.txbFactor.TabIndex = 25
+        Me.txbFactor.TabIndex = 17
        '
        'tbxGesamtfrachtkosten
        '
@@ -376,14 +413,14 @@ Partial Class frmFrachtkostenBerechnen
        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.Location = New System.Drawing.Point(301, 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
+        Me.tbxGesamtfrachtkosten.TabIndex = 19
        '
        'txbGewicht
        '
@@ -407,7 +444,7 @@ Partial Class frmFrachtkostenBerechnen
        Me.txbGewicht.Name = "txbGewicht"
        Me.txbGewicht.ReadOnly = True
        Me.txbGewicht.Size = New System.Drawing.Size(84, 20)
-        Me.txbGewicht.TabIndex = 22
+        Me.txbGewicht.TabIndex = 15
        '
        'txbCalcDistanceEU
        '
@@ -424,13 +461,13 @@ Partial Class frmFrachtkostenBerechnen
        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.Location = New System.Drawing.Point(277, 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
+        Me.txbCalcDistanceEU.TabIndex = 27
        '
        'txbNachOrt
        '
@@ -452,8 +489,8 @@ Partial Class frmFrachtkostenBerechnen
        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
+        Me.txbNachOrt.Size = New System.Drawing.Size(106, 20)
+        Me.txbNachOrt.TabIndex = 11
        '
        'txbVonOrt
        '
@@ -475,8 +512,8 @@ Partial Class frmFrachtkostenBerechnen
        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
+        Me.txbVonOrt.Size = New System.Drawing.Size(105, 20)
+        Me.txbVonOrt.TabIndex = 9
        '
        'txbNachPLZ
        '
@@ -493,13 +530,13 @@ Partial Class frmFrachtkostenBerechnen
        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.Location = New System.Drawing.Point(311, 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
+        Me.txbNachPLZ.Size = New System.Drawing.Size(50, 20)
+        Me.txbNachPLZ.TabIndex = 7
        '
        'txbVonPLZ
        '
@@ -516,13 +553,13 @@ Partial Class frmFrachtkostenBerechnen
        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.Location = New System.Drawing.Point(130, 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
+        Me.txbVonPLZ.Size = New System.Drawing.Size(50, 20)
+        Me.txbVonPLZ.TabIndex = 4
        '
        'tbNichtEUAnteil
        '
@@ -545,7 +582,7 @@ Partial Class frmFrachtkostenBerechnen
        Me.tbNichtEUAnteil.MaxLines_Warning_Label = Nothing
        Me.tbNichtEUAnteil.Name = "tbNichtEUAnteil"
        Me.tbNichtEUAnteil.Size = New System.Drawing.Size(49, 20)
-        Me.tbNichtEUAnteil.TabIndex = 7
+        Me.tbNichtEUAnteil.TabIndex = 30
        '
        'tbEUAnteil
        '
@@ -568,26 +605,15 @@ Partial Class frmFrachtkostenBerechnen
        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
+        Me.tbEUAnteil.TabIndex = 24
        '
        '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.cbxLandNach)
+        Me.Controls.Add(Me.cbxLandVon)
        Me.Controls.Add(Me.ckbManAnteilsermittlung)
        Me.Controls.Add(Me.txbCalcDistanceNichtEU)
        Me.Controls.Add(Me.lblDistanzNichtEU)
@@ -668,4 +694,6 @@ Partial Class frmFrachtkostenBerechnen
    Friend WithEvents lblDistanzNichtEU As Label
    Friend WithEvents ckbManAnteilsermittlung As CheckBox
    Friend WithEvents ToolTipAutomatischErmitteln As ToolTip
+    Friend WithEvents cbxLandVon As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbxLandNach As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class