Feature_Implementierung Frachkostenberechnung

This commit is contained in:
2022-10-11 16:35:32 +02:00
parent 70e583853f
commit caf034d5f0
4 changed files with 481 additions and 160 deletions

View File

@@ -22,6 +22,7 @@ Partial Class frmFrachtkostenBerechnen
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFrachtkostenBerechnen))
Me.lblVon = New System.Windows.Forms.Label()
Me.lblNach = New System.Windows.Forms.Label()
@@ -29,25 +30,36 @@ Partial Class frmFrachtkostenBerechnen
Me.btnOK = New System.Windows.Forms.Button()
Me.lblEUAnteil = New System.Windows.Forms.Label()
Me.lblNichtEUAnteil = New System.Windows.Forms.Label()
Me.lblDistanz = New System.Windows.Forms.Label()
Me.lblDistanzEU = New System.Windows.Forms.Label()
Me.lblGewicht = New System.Windows.Forms.Label()
Me.btnCalculate = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txbCalcDistance = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblGesamtfrachkosten = New System.Windows.Forms.Label()
Me.lblFaktor = New System.Windows.Forms.Label()
Me.lblWarningEUAnteil = New System.Windows.Forms.Label()
Me.lblWarningNichtEUAnteil = New System.Windows.Forms.Label()
Me.lblWarningAbgangort = New System.Windows.Forms.Label()
Me.lblWarningBestimmungsort = New System.Windows.Forms.Label()
Me.lblWarningFaktor = New System.Windows.Forms.Label()
Me.lblDistanzNichtEU = New System.Windows.Forms.Label()
Me.txbCalcDistanceNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbNichtEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbFactor = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbxGesamtfrachtkosten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbCalcDistanceEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbNachOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbVonOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbNachPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbVonPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbNichtEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblGesamtfrachkosten = New System.Windows.Forms.Label()
Me.tbxGesamtfrachtkosten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbFactor = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblFaktor = New System.Windows.Forms.Label()
Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox()
Me.ToolTipAutomatischErmitteln = New System.Windows.Forms.ToolTip(Me.components)
Me.SuspendLayout()
'
'lblVon
@@ -71,7 +83,7 @@ Partial Class frmFrachtkostenBerechnen
'btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(10, 214)
Me.btnCancel.Location = New System.Drawing.Point(10, 270)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 4
@@ -80,9 +92,9 @@ Partial Class frmFrachtkostenBerechnen
'
'btnOK
'
Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.Cursor
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Location = New System.Drawing.Point(264, 214)
Me.btnOK.Location = New System.Drawing.Point(297, 270)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 5
@@ -92,7 +104,7 @@ Partial Class frmFrachtkostenBerechnen
'lblEUAnteil
'
Me.lblEUAnteil.AutoSize = True
Me.lblEUAnteil.Location = New System.Drawing.Point(170, 151)
Me.lblEUAnteil.Location = New System.Drawing.Point(-1, 195)
Me.lblEUAnteil.Name = "lblEUAnteil"
Me.lblEUAnteil.Size = New System.Drawing.Size(51, 13)
Me.lblEUAnteil.TabIndex = 8
@@ -101,25 +113,25 @@ Partial Class frmFrachtkostenBerechnen
'lblNichtEUAnteil
'
Me.lblNichtEUAnteil.AutoSize = True
Me.lblNichtEUAnteil.Location = New System.Drawing.Point(170, 173)
Me.lblNichtEUAnteil.Location = New System.Drawing.Point(-1, 230)
Me.lblNichtEUAnteil.Name = "lblNichtEUAnteil"
Me.lblNichtEUAnteil.Size = New System.Drawing.Size(79, 13)
Me.lblNichtEUAnteil.TabIndex = 9
Me.lblNichtEUAnteil.Text = "Nicht EU Anteil"
'
'lblDistanz
'lblDistanzEU
'
Me.lblDistanz.AutoSize = True
Me.lblDistanz.Location = New System.Drawing.Point(5, 177)
Me.lblDistanz.Name = "lblDistanz"
Me.lblDistanz.Size = New System.Drawing.Size(42, 13)
Me.lblDistanz.TabIndex = 12
Me.lblDistanz.Text = "Distanz"
Me.lblDistanzEU.AutoSize = True
Me.lblDistanzEU.Location = New System.Drawing.Point(215, 195)
Me.lblDistanzEU.Name = "lblDistanzEU"
Me.lblDistanzEU.Size = New System.Drawing.Size(42, 13)
Me.lblDistanzEU.TabIndex = 12
Me.lblDistanzEU.Text = "Distanz"
'
'lblGewicht
'
Me.lblGewicht.AutoSize = True
Me.lblGewicht.Location = New System.Drawing.Point(1, 81)
Me.lblGewicht.Location = New System.Drawing.Point(1, 99)
Me.lblGewicht.Name = "lblGewicht"
Me.lblGewicht.Size = New System.Drawing.Size(46, 13)
Me.lblGewicht.TabIndex = 13
@@ -128,7 +140,7 @@ Partial Class frmFrachtkostenBerechnen
'btnCalculate
'
Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
Me.btnCalculate.Location = New System.Drawing.Point(266, 115)
Me.btnCalculate.Location = New System.Drawing.Point(10, 160)
Me.btnCalculate.Name = "btnCalculate"
Me.btnCalculate.Size = New System.Drawing.Size(75, 23)
Me.btnCalculate.TabIndex = 14
@@ -171,28 +183,254 @@ Partial Class frmFrachtkostenBerechnen
Me.Label4.TabIndex = 20
Me.Label4.Text = "PLZ"
'
'txbCalcDistance
'lblGesamtfrachkosten
'
Me.txbCalcDistance._DateTimeOnly = False
Me.txbCalcDistance._numbersOnly = False
Me.txbCalcDistance._numbersOnlyKommastellen = ""
Me.txbCalcDistance._numbersOnlyTrennzeichen = True
Me.txbCalcDistance._Prozent = False
Me.txbCalcDistance._ShortDateNew = False
Me.txbCalcDistance._ShortDateOnly = False
Me.txbCalcDistance._TimeOnly = False
Me.txbCalcDistance._TimeOnly_Seconds = False
Me.txbCalcDistance._value = ""
Me.txbCalcDistance._Waehrung = False
Me.txbCalcDistance._WaehrungZeichen = True
Me.txbCalcDistance.ForeColor = System.Drawing.Color.Black
Me.txbCalcDistance.Location = New System.Drawing.Point(75, 170)
Me.txbCalcDistance.MaxLineLength = -1
Me.txbCalcDistance.MaxLines_Warning = ""
Me.txbCalcDistance.MaxLines_Warning_Label = Nothing
Me.txbCalcDistance.Name = "txbCalcDistance"
Me.txbCalcDistance.Size = New System.Drawing.Size(84, 20)
Me.txbCalcDistance.TabIndex = 21
Me.lblGesamtfrachkosten.AutoSize = True
Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(157, 125)
Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten"
Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13)
Me.lblGesamtfrachkosten.TabIndex = 13
Me.lblGesamtfrachkosten.Text = "Frachtkosten ges."
'
'lblFaktor
'
Me.lblFaktor.AutoSize = True
Me.lblFaktor.Location = New System.Drawing.Point(1, 125)
Me.lblFaktor.Name = "lblFaktor"
Me.lblFaktor.Size = New System.Drawing.Size(37, 13)
Me.lblFaktor.TabIndex = 24
Me.lblFaktor.Text = "Faktor"
'
'lblWarningEUAnteil
'
Me.lblWarningEUAnteil.AutoSize = True
Me.lblWarningEUAnteil.ForeColor = System.Drawing.Color.Red
Me.lblWarningEUAnteil.Location = New System.Drawing.Point(-1, 211)
Me.lblWarningEUAnteil.Name = "lblWarningEUAnteil"
Me.lblWarningEUAnteil.Size = New System.Drawing.Size(162, 13)
Me.lblWarningEUAnteil.TabIndex = 26
Me.lblWarningEUAnteil.Text = "EU Anteil hinterlegen (in Prozent)"
Me.lblWarningEUAnteil.Visible = False
'
'lblWarningNichtEUAnteil
'
Me.lblWarningNichtEUAnteil.AutoSize = True
Me.lblWarningNichtEUAnteil.ForeColor = System.Drawing.Color.Red
Me.lblWarningNichtEUAnteil.Location = New System.Drawing.Point(-1, 249)
Me.lblWarningNichtEUAnteil.Name = "lblWarningNichtEUAnteil"
Me.lblWarningNichtEUAnteil.Size = New System.Drawing.Size(190, 13)
Me.lblWarningNichtEUAnteil.TabIndex = 27
Me.lblWarningNichtEUAnteil.Text = "Nicht EU Anteil hinterlegen (in Prozent)"
Me.lblWarningNichtEUAnteil.Visible = False
'
'lblWarningAbgangort
'
Me.lblWarningAbgangort.AutoSize = True
Me.lblWarningAbgangort.ForeColor = System.Drawing.Color.Red
Me.lblWarningAbgangort.Location = New System.Drawing.Point(5, 72)
Me.lblWarningAbgangort.Name = "lblWarningAbgangort"
Me.lblWarningAbgangort.Size = New System.Drawing.Size(147, 13)
Me.lblWarningAbgangort.TabIndex = 28
Me.lblWarningAbgangort.Text = "PLZ/Ort von Abgangsort fehlt"
Me.lblWarningAbgangort.Visible = False
'
'lblWarningBestimmungsort
'
Me.lblWarningBestimmungsort.AutoSize = True
Me.lblWarningBestimmungsort.ForeColor = System.Drawing.Color.Red
Me.lblWarningBestimmungsort.Location = New System.Drawing.Point(180, 72)
Me.lblWarningBestimmungsort.Name = "lblWarningBestimmungsort"
Me.lblWarningBestimmungsort.Size = New System.Drawing.Size(167, 13)
Me.lblWarningBestimmungsort.TabIndex = 29
Me.lblWarningBestimmungsort.Text = "PLZ/Ort von Bestimmungsort fehlt"
Me.lblWarningBestimmungsort.Visible = False
'
'lblWarningFaktor
'
Me.lblWarningFaktor.AutoSize = True
Me.lblWarningFaktor.ForeColor = System.Drawing.Color.Red
Me.lblWarningFaktor.Location = New System.Drawing.Point(1, 144)
Me.lblWarningFaktor.Name = "lblWarningFaktor"
Me.lblWarningFaktor.Size = New System.Drawing.Size(82, 13)
Me.lblWarningFaktor.TabIndex = 30
Me.lblWarningFaktor.Text = "Faktor angeben"
Me.lblWarningFaktor.Visible = False
'
'lblDistanzNichtEU
'
Me.lblDistanzNichtEU.AutoSize = True
Me.lblDistanzNichtEU.Location = New System.Drawing.Point(215, 237)
Me.lblDistanzNichtEU.Name = "lblDistanzNichtEU"
Me.lblDistanzNichtEU.Size = New System.Drawing.Size(42, 13)
Me.lblDistanzNichtEU.TabIndex = 34
Me.lblDistanzNichtEU.Text = "Distanz"
Me.lblDistanzNichtEU.Visible = False
'
'txbCalcDistanceNichtEU
'
Me.txbCalcDistanceNichtEU._DateTimeOnly = False
Me.txbCalcDistanceNichtEU._numbersOnly = False
Me.txbCalcDistanceNichtEU._numbersOnlyKommastellen = ""
Me.txbCalcDistanceNichtEU._numbersOnlyTrennzeichen = True
Me.txbCalcDistanceNichtEU._Prozent = False
Me.txbCalcDistanceNichtEU._ShortDateNew = False
Me.txbCalcDistanceNichtEU._ShortDateOnly = False
Me.txbCalcDistanceNichtEU._TimeOnly = False
Me.txbCalcDistanceNichtEU._TimeOnly_Seconds = False
Me.txbCalcDistanceNichtEU._value = ""
Me.txbCalcDistanceNichtEU._Waehrung = False
Me.txbCalcDistanceNichtEU._WaehrungZeichen = True
Me.txbCalcDistanceNichtEU.ForeColor = System.Drawing.Color.Black
Me.txbCalcDistanceNichtEU.Location = New System.Drawing.Point(285, 230)
Me.txbCalcDistanceNichtEU.MaxLineLength = -1
Me.txbCalcDistanceNichtEU.MaxLines_Warning = ""
Me.txbCalcDistanceNichtEU.MaxLines_Warning_Label = Nothing
Me.txbCalcDistanceNichtEU.Name = "txbCalcDistanceNichtEU"
Me.txbCalcDistanceNichtEU.Size = New System.Drawing.Size(84, 20)
Me.txbCalcDistanceNichtEU.TabIndex = 35
Me.txbCalcDistanceNichtEU.Visible = False
'
'tbNichtEUAnteilberechnet
'
Me.tbNichtEUAnteilberechnet._DateTimeOnly = False
Me.tbNichtEUAnteilberechnet._numbersOnly = False
Me.tbNichtEUAnteilberechnet._numbersOnlyKommastellen = ""
Me.tbNichtEUAnteilberechnet._numbersOnlyTrennzeichen = True
Me.tbNichtEUAnteilberechnet._Prozent = False
Me.tbNichtEUAnteilberechnet._ShortDateNew = False
Me.tbNichtEUAnteilberechnet._ShortDateOnly = False
Me.tbNichtEUAnteilberechnet._TimeOnly = False
Me.tbNichtEUAnteilberechnet._TimeOnly_Seconds = False
Me.tbNichtEUAnteilberechnet._value = ""
Me.tbNichtEUAnteilberechnet._Waehrung = True
Me.tbNichtEUAnteilberechnet._WaehrungZeichen = True
Me.tbNichtEUAnteilberechnet.ForeColor = System.Drawing.Color.Black
Me.tbNichtEUAnteilberechnet.Location = New System.Drawing.Point(141, 227)
Me.tbNichtEUAnteilberechnet.MaxLineLength = -1
Me.tbNichtEUAnteilberechnet.MaxLines_Warning = ""
Me.tbNichtEUAnteilberechnet.MaxLines_Warning_Label = Nothing
Me.tbNichtEUAnteilberechnet.Name = "tbNichtEUAnteilberechnet"
Me.tbNichtEUAnteilberechnet.ReadOnly = True
Me.tbNichtEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
Me.tbNichtEUAnteilberechnet.TabIndex = 33
'
'tbEUAnteilberechnet
'
Me.tbEUAnteilberechnet._DateTimeOnly = False
Me.tbEUAnteilberechnet._numbersOnly = False
Me.tbEUAnteilberechnet._numbersOnlyKommastellen = ""
Me.tbEUAnteilberechnet._numbersOnlyTrennzeichen = True
Me.tbEUAnteilberechnet._Prozent = False
Me.tbEUAnteilberechnet._ShortDateNew = False
Me.tbEUAnteilberechnet._ShortDateOnly = False
Me.tbEUAnteilberechnet._TimeOnly = False
Me.tbEUAnteilberechnet._TimeOnly_Seconds = False
Me.tbEUAnteilberechnet._value = ""
Me.tbEUAnteilberechnet._Waehrung = True
Me.tbEUAnteilberechnet._WaehrungZeichen = True
Me.tbEUAnteilberechnet.ForeColor = System.Drawing.Color.Black
Me.tbEUAnteilberechnet.Location = New System.Drawing.Point(141, 188)
Me.tbEUAnteilberechnet.MaxLineLength = -1
Me.tbEUAnteilberechnet.MaxLines_Warning = ""
Me.tbEUAnteilberechnet.MaxLines_Warning_Label = Nothing
Me.tbEUAnteilberechnet.Name = "tbEUAnteilberechnet"
Me.tbEUAnteilberechnet.ReadOnly = True
Me.tbEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
Me.tbEUAnteilberechnet.TabIndex = 32
'
'txbFactor
'
Me.txbFactor._DateTimeOnly = False
Me.txbFactor._numbersOnly = True
Me.txbFactor._numbersOnlyKommastellen = ""
Me.txbFactor._numbersOnlyTrennzeichen = True
Me.txbFactor._Prozent = False
Me.txbFactor._ShortDateNew = False
Me.txbFactor._ShortDateOnly = False
Me.txbFactor._TimeOnly = False
Me.txbFactor._TimeOnly_Seconds = False
Me.txbFactor._value = ""
Me.txbFactor._Waehrung = True
Me.txbFactor._WaehrungZeichen = True
Me.txbFactor.ForeColor = System.Drawing.Color.Black
Me.txbFactor.Location = New System.Drawing.Point(75, 122)
Me.txbFactor.MaxLineLength = -1
Me.txbFactor.MaxLines_Warning = ""
Me.txbFactor.MaxLines_Warning_Label = Nothing
Me.txbFactor.Name = "txbFactor"
Me.txbFactor.Size = New System.Drawing.Size(60, 20)
Me.txbFactor.TabIndex = 25
'
'tbxGesamtfrachtkosten
'
Me.tbxGesamtfrachtkosten._DateTimeOnly = False
Me.tbxGesamtfrachtkosten._numbersOnly = False
Me.tbxGesamtfrachtkosten._numbersOnlyKommastellen = ""
Me.tbxGesamtfrachtkosten._numbersOnlyTrennzeichen = True
Me.tbxGesamtfrachtkosten._Prozent = False
Me.tbxGesamtfrachtkosten._ShortDateNew = False
Me.tbxGesamtfrachtkosten._ShortDateOnly = False
Me.tbxGesamtfrachtkosten._TimeOnly = False
Me.tbxGesamtfrachtkosten._TimeOnly_Seconds = False
Me.tbxGesamtfrachtkosten._value = ""
Me.tbxGesamtfrachtkosten._Waehrung = True
Me.tbxGesamtfrachtkosten._WaehrungZeichen = True
Me.tbxGesamtfrachtkosten.ForeColor = System.Drawing.Color.Black
Me.tbxGesamtfrachtkosten.Location = New System.Drawing.Point(255, 122)
Me.tbxGesamtfrachtkosten.MaxLineLength = -1
Me.tbxGesamtfrachtkosten.MaxLines_Warning = ""
Me.tbxGesamtfrachtkosten.MaxLines_Warning_Label = Nothing
Me.tbxGesamtfrachtkosten.Name = "tbxGesamtfrachtkosten"
Me.tbxGesamtfrachtkosten.ReadOnly = True
Me.tbxGesamtfrachtkosten.Size = New System.Drawing.Size(60, 20)
Me.tbxGesamtfrachtkosten.TabIndex = 23
'
'txbGewicht
'
Me.txbGewicht._DateTimeOnly = False
Me.txbGewicht._numbersOnly = False
Me.txbGewicht._numbersOnlyKommastellen = ""
Me.txbGewicht._numbersOnlyTrennzeichen = True
Me.txbGewicht._Prozent = False
Me.txbGewicht._ShortDateNew = False
Me.txbGewicht._ShortDateOnly = False
Me.txbGewicht._TimeOnly = False
Me.txbGewicht._TimeOnly_Seconds = False
Me.txbGewicht._value = ""
Me.txbGewicht._Waehrung = False
Me.txbGewicht._WaehrungZeichen = True
Me.txbGewicht.ForeColor = System.Drawing.Color.Black
Me.txbGewicht.Location = New System.Drawing.Point(75, 96)
Me.txbGewicht.MaxLineLength = -1
Me.txbGewicht.MaxLines_Warning = ""
Me.txbGewicht.MaxLines_Warning_Label = Nothing
Me.txbGewicht.Name = "txbGewicht"
Me.txbGewicht.ReadOnly = True
Me.txbGewicht.Size = New System.Drawing.Size(84, 20)
Me.txbGewicht.TabIndex = 22
'
'txbCalcDistanceEU
'
Me.txbCalcDistanceEU._DateTimeOnly = False
Me.txbCalcDistanceEU._numbersOnly = False
Me.txbCalcDistanceEU._numbersOnlyKommastellen = ""
Me.txbCalcDistanceEU._numbersOnlyTrennzeichen = True
Me.txbCalcDistanceEU._Prozent = False
Me.txbCalcDistanceEU._ShortDateNew = False
Me.txbCalcDistanceEU._ShortDateOnly = False
Me.txbCalcDistanceEU._TimeOnly = False
Me.txbCalcDistanceEU._TimeOnly_Seconds = False
Me.txbCalcDistanceEU._value = ""
Me.txbCalcDistanceEU._Waehrung = False
Me.txbCalcDistanceEU._WaehrungZeichen = True
Me.txbCalcDistanceEU.ForeColor = System.Drawing.Color.Black
Me.txbCalcDistanceEU.Location = New System.Drawing.Point(285, 188)
Me.txbCalcDistanceEU.MaxLineLength = -1
Me.txbCalcDistanceEU.MaxLines_Warning = ""
Me.txbCalcDistanceEU.MaxLines_Warning_Label = Nothing
Me.txbCalcDistanceEU.Name = "txbCalcDistanceEU"
Me.txbCalcDistanceEU.Size = New System.Drawing.Size(84, 20)
Me.txbCalcDistanceEU.TabIndex = 21
'
'txbNachOrt
'
@@ -297,16 +535,16 @@ Partial Class frmFrachtkostenBerechnen
Me.tbNichtEUAnteil._ShortDateOnly = False
Me.tbNichtEUAnteil._TimeOnly = False
Me.tbNichtEUAnteil._TimeOnly_Seconds = False
Me.tbNichtEUAnteil._value = ""
Me.tbNichtEUAnteil._value = Nothing
Me.tbNichtEUAnteil._Waehrung = False
Me.tbNichtEUAnteil._WaehrungZeichen = False
Me.tbNichtEUAnteil.ForeColor = System.Drawing.Color.Black
Me.tbNichtEUAnteil.Location = New System.Drawing.Point(257, 170)
Me.tbNichtEUAnteil.Location = New System.Drawing.Point(86, 227)
Me.tbNichtEUAnteil.MaxLineLength = -1
Me.tbNichtEUAnteil.MaxLines_Warning = ""
Me.tbNichtEUAnteil.MaxLines_Warning_Label = Nothing
Me.tbNichtEUAnteil.Name = "tbNichtEUAnteil"
Me.tbNichtEUAnteil.Size = New System.Drawing.Size(84, 20)
Me.tbNichtEUAnteil.Size = New System.Drawing.Size(49, 20)
Me.tbNichtEUAnteil.TabIndex = 7
'
'tbEUAnteil
@@ -320,117 +558,51 @@ Partial Class frmFrachtkostenBerechnen
Me.tbEUAnteil._ShortDateOnly = False
Me.tbEUAnteil._TimeOnly = False
Me.tbEUAnteil._TimeOnly_Seconds = False
Me.tbEUAnteil._value = ""
Me.tbEUAnteil._value = Nothing
Me.tbEUAnteil._Waehrung = False
Me.tbEUAnteil._WaehrungZeichen = False
Me.tbEUAnteil.ForeColor = System.Drawing.Color.Black
Me.tbEUAnteil.Location = New System.Drawing.Point(255, 144)
Me.tbEUAnteil.Location = New System.Drawing.Point(84, 188)
Me.tbEUAnteil.MaxLineLength = -1
Me.tbEUAnteil.MaxLines_Warning = ""
Me.tbEUAnteil.MaxLines_Warning_Label = Nothing
Me.tbEUAnteil.Name = "tbEUAnteil"
Me.tbEUAnteil.Size = New System.Drawing.Size(84, 20)
Me.tbEUAnteil.Size = New System.Drawing.Size(51, 20)
Me.tbEUAnteil.TabIndex = 6
'
'txbGewicht
'ckbManAnteilsermittlung
'
Me.txbGewicht._DateTimeOnly = False
Me.txbGewicht._numbersOnly = False
Me.txbGewicht._numbersOnlyKommastellen = ""
Me.txbGewicht._numbersOnlyTrennzeichen = True
Me.txbGewicht._Prozent = False
Me.txbGewicht._ShortDateNew = False
Me.txbGewicht._ShortDateOnly = False
Me.txbGewicht._TimeOnly = False
Me.txbGewicht._TimeOnly_Seconds = False
Me.txbGewicht._value = ""
Me.txbGewicht._Waehrung = False
Me.txbGewicht._WaehrungZeichen = True
Me.txbGewicht.ForeColor = System.Drawing.Color.Black
Me.txbGewicht.Location = New System.Drawing.Point(75, 78)
Me.txbGewicht.MaxLineLength = -1
Me.txbGewicht.MaxLines_Warning = ""
Me.txbGewicht.MaxLines_Warning_Label = Nothing
Me.txbGewicht.Name = "txbGewicht"
Me.txbGewicht.ReadOnly = True
Me.txbGewicht.Size = New System.Drawing.Size(84, 20)
Me.txbGewicht.TabIndex = 22
'
'lblGesamtfrachkosten
'
Me.lblGesamtfrachkosten.AutoSize = True
Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(1, 104)
Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten"
Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13)
Me.lblGesamtfrachkosten.TabIndex = 13
Me.lblGesamtfrachkosten.Text = "Frachtkosten ges."
'
'tbxGesamtfrachtkosten
'
Me.tbxGesamtfrachtkosten._DateTimeOnly = False
Me.tbxGesamtfrachtkosten._numbersOnly = False
Me.tbxGesamtfrachtkosten._numbersOnlyKommastellen = ""
Me.tbxGesamtfrachtkosten._numbersOnlyTrennzeichen = True
Me.tbxGesamtfrachtkosten._Prozent = False
Me.tbxGesamtfrachtkosten._ShortDateNew = False
Me.tbxGesamtfrachtkosten._ShortDateOnly = False
Me.tbxGesamtfrachtkosten._TimeOnly = False
Me.tbxGesamtfrachtkosten._TimeOnly_Seconds = False
Me.tbxGesamtfrachtkosten._value = ""
Me.tbxGesamtfrachtkosten._Waehrung = True
Me.tbxGesamtfrachtkosten._WaehrungZeichen = True
Me.tbxGesamtfrachtkosten.ForeColor = System.Drawing.Color.Black
Me.tbxGesamtfrachtkosten.Location = New System.Drawing.Point(99, 101)
Me.tbxGesamtfrachtkosten.MaxLineLength = -1
Me.tbxGesamtfrachtkosten.MaxLines_Warning = ""
Me.tbxGesamtfrachtkosten.MaxLines_Warning_Label = Nothing
Me.tbxGesamtfrachtkosten.Name = "tbxGesamtfrachtkosten"
Me.tbxGesamtfrachtkosten.ReadOnly = True
Me.tbxGesamtfrachtkosten.Size = New System.Drawing.Size(60, 20)
Me.tbxGesamtfrachtkosten.TabIndex = 23
'
'txbFactor
'
Me.txbFactor._DateTimeOnly = False
Me.txbFactor._numbersOnly = True
Me.txbFactor._numbersOnlyKommastellen = ""
Me.txbFactor._numbersOnlyTrennzeichen = True
Me.txbFactor._Prozent = False
Me.txbFactor._ShortDateNew = False
Me.txbFactor._ShortDateOnly = False
Me.txbFactor._TimeOnly = False
Me.txbFactor._TimeOnly_Seconds = False
Me.txbFactor._value = ""
Me.txbFactor._Waehrung = True
Me.txbFactor._WaehrungZeichen = True
Me.txbFactor.ForeColor = System.Drawing.Color.Black
Me.txbFactor.Location = New System.Drawing.Point(99, 122)
Me.txbFactor.MaxLineLength = -1
Me.txbFactor.MaxLines_Warning = ""
Me.txbFactor.MaxLines_Warning_Label = Nothing
Me.txbFactor.Name = "txbFactor"
Me.txbFactor.Size = New System.Drawing.Size(60, 20)
Me.txbFactor.TabIndex = 25
'
'lblFaktor
'
Me.lblFaktor.AutoSize = True
Me.lblFaktor.Location = New System.Drawing.Point(1, 125)
Me.lblFaktor.Name = "lblFaktor"
Me.lblFaktor.Size = New System.Drawing.Size(37, 13)
Me.lblFaktor.TabIndex = 24
Me.lblFaktor.Text = "Faktor"
Me.ckbManAnteilsermittlung.AutoSize = True
Me.ckbManAnteilsermittlung.Location = New System.Drawing.Point(113, 160)
Me.ckbManAnteilsermittlung.Name = "ckbManAnteilsermittlung"
Me.ckbManAnteilsermittlung.Size = New System.Drawing.Size(154, 17)
Me.ckbManAnteilsermittlung.TabIndex = 36
Me.ckbManAnteilsermittlung.Text = "Anteile autmatisch 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(353, 252)
Me.ClientSize = New System.Drawing.Size(381, 305)
Me.Controls.Add(Me.ckbManAnteilsermittlung)
Me.Controls.Add(Me.txbCalcDistanceNichtEU)
Me.Controls.Add(Me.lblDistanzNichtEU)
Me.Controls.Add(Me.tbNichtEUAnteilberechnet)
Me.Controls.Add(Me.tbEUAnteilberechnet)
Me.Controls.Add(Me.lblWarningFaktor)
Me.Controls.Add(Me.lblWarningBestimmungsort)
Me.Controls.Add(Me.lblWarningAbgangort)
Me.Controls.Add(Me.lblWarningNichtEUAnteil)
Me.Controls.Add(Me.lblWarningEUAnteil)
Me.Controls.Add(Me.txbFactor)
Me.Controls.Add(Me.lblFaktor)
Me.Controls.Add(Me.tbxGesamtfrachtkosten)
Me.Controls.Add(Me.txbGewicht)
Me.Controls.Add(Me.txbCalcDistance)
Me.Controls.Add(Me.txbCalcDistanceEU)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
@@ -440,7 +612,7 @@ Partial Class frmFrachtkostenBerechnen
Me.Controls.Add(Me.btnCalculate)
Me.Controls.Add(Me.lblGesamtfrachkosten)
Me.Controls.Add(Me.lblGewicht)
Me.Controls.Add(Me.lblDistanz)
Me.Controls.Add(Me.lblDistanzEU)
Me.Controls.Add(Me.txbNachPLZ)
Me.Controls.Add(Me.txbVonPLZ)
Me.Controls.Add(Me.lblNichtEUAnteil)
@@ -453,6 +625,7 @@ Partial Class frmFrachtkostenBerechnen
Me.Controls.Add(Me.lblVon)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmFrachtkostenBerechnen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Frachtkosten berechnen"
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -469,7 +642,7 @@ Partial Class frmFrachtkostenBerechnen
Friend WithEvents lblNichtEUAnteil As Label
Friend WithEvents txbVonPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbNachPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblDistanz As Label
Friend WithEvents lblDistanzEU As Label
Friend WithEvents lblGewicht As Label
Friend WithEvents btnCalculate As Button
Friend WithEvents txbVonOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -478,10 +651,21 @@ Partial Class frmFrachtkostenBerechnen
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents txbCalcDistance As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbCalcDistanceEU As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbGewicht As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblGesamtfrachkosten As Label
Friend WithEvents tbxGesamtfrachtkosten As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbFactor As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblFaktor As Label
Friend WithEvents lblWarningEUAnteil As Label
Friend WithEvents lblWarningNichtEUAnteil As Label
Friend WithEvents lblWarningAbgangort As Label
Friend WithEvents lblWarningBestimmungsort As Label
Friend WithEvents lblWarningFaktor As Label
Friend WithEvents tbEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents tbNichtEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbCalcDistanceNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblDistanzNichtEU As Label
Friend WithEvents ckbManAnteilsermittlung As CheckBox
Friend WithEvents ToolTipAutomatischErmitteln As ToolTip
End Class