From 457faacad0699fa999aad0e5abf6adef0e5b79a2 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 12 Oct 2022 10:58:18 +0200 Subject: [PATCH 1/3] Bugfix Frachtkostenberechnung --- Aviso/frmFrachtkostenBerechnen.Designer.vb | 166 ++++++++++++--------- Aviso/frmFrachtkostenBerechnen.vb | 56 +++++-- 2 files changed, 139 insertions(+), 83 deletions(-) diff --git a/Aviso/frmFrachtkostenBerechnen.Designer.vb b/Aviso/frmFrachtkostenBerechnen.Designer.vb index 7af4633..39ebad1 100644 --- 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 diff --git a/Aviso/frmFrachtkostenBerechnen.vb b/Aviso/frmFrachtkostenBerechnen.vb index 20cb510..8869546 100644 --- a/Aviso/frmFrachtkostenBerechnen.vb +++ b/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 empfaengerID As Integer + Dim absenderID As Integer = -1 + 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) - empfaengerID = CInt(empfID) - gewicht = gewichtInput + Try + MsgBox(IsNumeric(absID)) + MsgBox(IsNumeric(empfID)) + + 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 & "'") + cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) FROM [VERAG].[dbo].[Adressen]", 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 & "'") - 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 & "'") + + cbxLandNach.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) FROM [VERAG].[dbo].[Adressen]", False, "FMZOLL", True, True) + 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, "") - destination = IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "") + origin = IIf(cbxLandVon._value <> "", cbxLandVon._value, "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._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) From e5f6b65a9cb3cdd3ba5bb4da87735f80d01a5537 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 12 Oct 2022 11:23:39 +0200 Subject: [PATCH 2/3] Bugfixes --- Aviso/frmFrachtkostenBerechnen.Designer.vb | 2 ++ Aviso/frmFrachtkostenBerechnen.vb | 10 +++++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/Aviso/frmFrachtkostenBerechnen.Designer.vb b/Aviso/frmFrachtkostenBerechnen.Designer.vb index 39ebad1..353e30e 100644 --- a/Aviso/frmFrachtkostenBerechnen.Designer.vb +++ b/Aviso/frmFrachtkostenBerechnen.Designer.vb @@ -286,6 +286,7 @@ Partial Class frmFrachtkostenBerechnen 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" @@ -297,6 +298,7 @@ Partial Class frmFrachtkostenBerechnen 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" diff --git a/Aviso/frmFrachtkostenBerechnen.vb b/Aviso/frmFrachtkostenBerechnen.vb index 8869546..6900c80 100644 --- a/Aviso/frmFrachtkostenBerechnen.vb +++ b/Aviso/frmFrachtkostenBerechnen.vb @@ -21,8 +21,6 @@ Public Class frmFrachtkostenBerechnen InitializeComponent() Try - MsgBox(IsNumeric(absID)) - MsgBox(IsNumeric(empfID)) gewicht = IIf(gewichtInput.ToString <> "", CDbl(gewichtInput), 0) @@ -50,13 +48,15 @@ Public Class frmFrachtkostenBerechnen Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load - cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) FROM [VERAG].[dbo].[Adressen]", False, "FMZOLL", True, True) + + + 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.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) FROM [VERAG].[dbo].[Adressen]", False, "FMZOLL", True, True) + 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 & "'") From acf168c72e629fcd5045fbede5308bfa670ad542 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 12 Oct 2022 11:33:03 +0200 Subject: [PATCH 3/3] Meldung bei fehlerhafter Standortermittlung. --- Aviso/frmFrachtkostenBerechnen.vb | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/Aviso/frmFrachtkostenBerechnen.vb b/Aviso/frmFrachtkostenBerechnen.vb index 6900c80..d894e86 100644 --- a/Aviso/frmFrachtkostenBerechnen.vb +++ b/Aviso/frmFrachtkostenBerechnen.vb @@ -152,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 - lblDistanzNichtEU.Visible = False - txbCalcDistanceNichtEU.Visible = False + txbCalcDistanceEU._value = distance + lblDistanzNichtEU.Visible = False + txbCalcDistanceNichtEU.Visible = False - Else + Else - lblDistanzEU.Text = "Distanz" + lblDistanzEU.Text = "Distanz" txbCalcDistanceEU._value = distance lblDistanzNichtEU.Visible = False txbCalcDistanceNichtEU.Visible = False