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

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,47 @@ 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.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
+        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.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        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 +320,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 +351,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 +375,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 +398,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 +415,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 +446,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 +463,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 +491,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.Size = New System.Drawing.Size(106, 20)
-        Me.txbNachOrt.TabIndex = 16
+        Me.txbNachOrt.TabIndex = 11
         '
         'txbVonOrt
         '
@@ -475,8 +514,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.Size = New System.Drawing.Size(105, 20)
-        Me.txbVonOrt.TabIndex = 15
+        Me.txbVonOrt.TabIndex = 9
         '
         'txbNachPLZ
         '
@@ -493,13 +532,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.Size = New System.Drawing.Size(50, 20)
-        Me.txbNachPLZ.TabIndex = 11
+        Me.txbNachPLZ.TabIndex = 7
         '
         'txbVonPLZ
         '
@@ -516,13 +555,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.Size = New System.Drawing.Size(50, 20)
-        Me.txbVonPLZ.TabIndex = 10
+        Me.txbVonPLZ.TabIndex = 4
         '
         'tbNichtEUAnteil
         '
@@ -545,7 +584,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 +607,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
+        Me.tbEUAnteil.TabIndex = 24
-        '
-        '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.cbxLandNach)
+        Me.Controls.Add(Me.cbxLandVon)
         Me.Controls.Add(Me.ckbManAnteilsermittlung)
         Me.Controls.Add(Me.txbCalcDistanceNichtEU)
         Me.Controls.Add(Me.lblDistanzNichtEU)
@@ -668,4 +696,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

Aviso/frmFrachtkostenBerechnen.vb

@@ -1,37 +1,65 @@
-Imports System.Security.Cryptography
+Imports System.Linq.Expressions
+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 absenderID As Integer = -1
-    Dim empfaengerID As Integer
+    Dim empfaengerID As Integer = -1
     Dim origin As String
     Dim destination As String
     Public EUAnteil As Double
     Public nichtEUAnteil As Double
     Dim gewicht As Double
     Dim gesamtFrachtkosten As Double
+    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
 
 
     Sub New(absID As String, empfID As String, gewichtInput As Double)
 
         InitializeComponent()
-        absenderID = CInt(absID)
+        Try
-        empfaengerID = CInt(empfID)
+
-        gewicht = gewichtInput
+            gewicht = IIf(gewichtInput.ToString <> "", CDbl(gewichtInput), 0)
+
+            If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then
+                absenderID = CInt(absID)
+            Else
+                absenderID = -1
+            End If
+
+
+            If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then
+
+                empfaengerID = Int(empfID)
+            Else
+                empfaengerID = -1
+            End If
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
 
     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 & "'")
+        cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [VERAG].[dbo].[Adressen] order by LandKz asc", False, "FMZOLL", True, True)
+
+        cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", ""))
+        txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'')  FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
+        txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
+
+        cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
+        cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", ""))
+        txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
+        txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
 
         ckbManAnteilsermittlung.Checked = True
 
@@ -49,8 +77,8 @@ Public Class frmFrachtkostenBerechnen
         'resetInputFields()
         setControlEUAnteile()
 
-        origin = IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
+        origin = IIf(cbxLandVon._value <> "", cbxLandVon._value, "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
-        destination = IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
+        destination = IIf(cbxLandNach._value <> "", cbxLandNach._value, "") & " " & IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
 
         Dim getValues = True
         Dim twoRouteRequest As Boolean = False
@@ -60,14 +88,14 @@ Public Class frmFrachtkostenBerechnen
         Dim distanceEU = ""
 
 
-        If txbVonPLZ._value.Substring(0, 2) = "TR" AndAlso ckbManAnteilsermittlung.Checked Then
+        If cbxLandVon._value = "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
+        ElseIf cbxLandVon._value = "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)
@@ -124,15 +152,17 @@ Public Class frmFrachtkostenBerechnen
 
             tbEUAnteil._value = 0.6
             tbNichtEUAnteil._value = 0.4
-
+            If distance = "0" Or distance = "" Then
+                MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen")
+            End If
             lblDistanzEU.Text = "Distanz"
-            txbCalcDistanceEU._value = distance
+                txbCalcDistanceEU._value = distance
-            lblDistanzNichtEU.Visible = False
+                lblDistanzNichtEU.Visible = False
-            txbCalcDistanceNichtEU.Visible = False
+                txbCalcDistanceNichtEU.Visible = False
 
-        Else
+            Else
 
-            lblDistanzEU.Text = "Distanz"
+                lblDistanzEU.Text = "Distanz"
             txbCalcDistanceEU._value = distance
             lblDistanzNichtEU.Visible = False
             txbCalcDistanceNichtEU.Visible = False