Bugfix Frachtkostenberechnung
This commit is contained in:
166
Aviso/frmFrachtkostenBerechnen.Designer.vb
generated
166
Aviso/frmFrachtkostenBerechnen.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user