Frachtkostenberechnung und ATEZ-API

This commit is contained in:
2023-08-21 16:12:01 +02:00
parent a784a66b57
commit 0fc4063b19
12 changed files with 2706 additions and 1281 deletions

View File

@@ -24,680 +24,30 @@ Partial Class frmFrachtkostenBerechnen
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()
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.lblEUAnteil = New System.Windows.Forms.Label()
Me.lblNichtEUAnteil = 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.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.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()
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.UsrcntlFrachtkostenberechnung1 = New usrcntlFrachtkostenberechnung()
Me.SuspendLayout()
'
'lblVon
'UsrcntlFrachtkostenberechnung1
'
Me.lblVon.AutoSize = True
Me.lblVon.Location = New System.Drawing.Point(5, 9)
Me.lblVon.Name = "lblVon"
Me.lblVon.Size = New System.Drawing.Size(64, 13)
Me.lblVon.TabIndex = 0
Me.lblVon.Text = "Abgangsort:"
'
'lblNach
'
Me.lblNach.AutoSize = True
Me.lblNach.Location = New System.Drawing.Point(205, 9)
Me.lblNach.Name = "lblNach"
Me.lblNach.Size = New System.Drawing.Size(84, 13)
Me.lblNach.TabIndex = 1
Me.lblNach.Text = "Bestimmungsort:"
'
'btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
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 = 35
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnOK
'
Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.Cursor
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
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 = 36
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'lblEUAnteil
'
Me.lblEUAnteil.AutoSize = True
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 = 23
Me.lblEUAnteil.Text = "EU Anteil"
'
'lblNichtEUAnteil
'
Me.lblNichtEUAnteil.AutoSize = True
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 = 29
Me.lblNichtEUAnteil.Text = "Nicht EU Anteil"
'
'lblDistanzEU
'
Me.lblDistanzEU.AutoSize = True
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 = 26
Me.lblDistanzEU.Text = "Distanz"
'
'lblGewicht
'
Me.lblGewicht.AutoSize = True
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 = 14
Me.lblGewicht.Text = "Gewicht"
'
'btnCalculate
'
Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
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 = 21
Me.btnCalculate.Text = "Berechnen"
Me.btnCalculate.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
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 = 2
Me.Label1.Text = "PLZ"
'
'Label2
'
Me.Label2.AutoSize = True
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 = 8
Me.Label2.Text = "Ort"
'
'Label3
'
Me.Label3.AutoSize = True
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 = 10
Me.Label3.Text = "Ort"
'
'Label4
'
Me.Label4.AutoSize = True
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 = 5
Me.Label4.Text = "PLZ"
'
'lblGesamtfrachkosten
'
Me.lblGesamtfrachkosten.AutoSize = True
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 = 18
Me.lblGesamtfrachkosten.Text = "Frachtkosten ges."
'
'lblFaktor
'
Me.lblFaktor.AutoSize = True
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 = 16
Me.lblFaktor.Text = "Faktor"
'
'lblWarningEUAnteil
'
Me.lblWarningEUAnteil.AutoSize = True
Me.lblWarningEUAnteil.ForeColor = System.Drawing.Color.Red
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 = 28
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(5, 249)
Me.lblWarningNichtEUAnteil.Name = "lblWarningNichtEUAnteil"
Me.lblWarningNichtEUAnteil.Size = New System.Drawing.Size(190, 13)
Me.lblWarningNichtEUAnteil.TabIndex = 34
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 = 12
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 = 13
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(5, 144)
Me.lblWarningFaktor.Name = "lblWarningFaktor"
Me.lblWarningFaktor.Size = New System.Drawing.Size(82, 13)
Me.lblWarningFaktor.TabIndex = 20
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 = 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.DropDownWidth = 250
Me.cbxLandNach.FormattingEnabled = True
Me.cbxLandNach.Location = New System.Drawing.Point(255, 23)
Me.cbxLandNach.Name = "cbxLandNach"
Me.cbxLandNach.Size = New System.Drawing.Size(45, 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.DropDownWidth = 250
Me.cbxLandVon.FormattingEnabled = True
Me.cbxLandVon.Location = New System.Drawing.Point(75, 22)
Me.cbxLandVon.Name = "cbxLandVon"
Me.cbxLandVon.Size = New System.Drawing.Size(45, 21)
Me.cbxLandVon.TabIndex = 3
'
'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(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 = 32
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 = 31
'
'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 = 25
'
'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 = 17
'
'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(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 = 19
'
'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 = 15
'
'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(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 = 27
'
'txbNachOrt
'
Me.txbNachOrt._DateTimeOnly = False
Me.txbNachOrt._numbersOnly = False
Me.txbNachOrt._numbersOnlyKommastellen = ""
Me.txbNachOrt._numbersOnlyTrennzeichen = True
Me.txbNachOrt._Prozent = False
Me.txbNachOrt._ShortDateNew = False
Me.txbNachOrt._ShortDateOnly = False
Me.txbNachOrt._TimeOnly = False
Me.txbNachOrt._TimeOnly_Seconds = False
Me.txbNachOrt._value = ""
Me.txbNachOrt._Waehrung = False
Me.txbNachOrt._WaehrungZeichen = True
Me.txbNachOrt.ForeColor = System.Drawing.Color.Black
Me.txbNachOrt.Location = New System.Drawing.Point(255, 49)
Me.txbNachOrt.MaxLineLength = -1
Me.txbNachOrt.MaxLines_Warning = ""
Me.txbNachOrt.MaxLines_Warning_Label = Nothing
Me.txbNachOrt.Name = "txbNachOrt"
Me.txbNachOrt.Size = New System.Drawing.Size(106, 20)
Me.txbNachOrt.TabIndex = 11
'
'txbVonOrt
'
Me.txbVonOrt._DateTimeOnly = False
Me.txbVonOrt._numbersOnly = False
Me.txbVonOrt._numbersOnlyKommastellen = ""
Me.txbVonOrt._numbersOnlyTrennzeichen = True
Me.txbVonOrt._Prozent = False
Me.txbVonOrt._ShortDateNew = False
Me.txbVonOrt._ShortDateOnly = False
Me.txbVonOrt._TimeOnly = False
Me.txbVonOrt._TimeOnly_Seconds = False
Me.txbVonOrt._value = ""
Me.txbVonOrt._Waehrung = False
Me.txbVonOrt._WaehrungZeichen = True
Me.txbVonOrt.ForeColor = System.Drawing.Color.Black
Me.txbVonOrt.Location = New System.Drawing.Point(75, 49)
Me.txbVonOrt.MaxLineLength = -1
Me.txbVonOrt.MaxLines_Warning = ""
Me.txbVonOrt.MaxLines_Warning_Label = Nothing
Me.txbVonOrt.Name = "txbVonOrt"
Me.txbVonOrt.Size = New System.Drawing.Size(106, 20)
Me.txbVonOrt.TabIndex = 9
'
'txbNachPLZ
'
Me.txbNachPLZ._DateTimeOnly = False
Me.txbNachPLZ._numbersOnly = False
Me.txbNachPLZ._numbersOnlyKommastellen = ""
Me.txbNachPLZ._numbersOnlyTrennzeichen = True
Me.txbNachPLZ._Prozent = False
Me.txbNachPLZ._ShortDateNew = False
Me.txbNachPLZ._ShortDateOnly = False
Me.txbNachPLZ._TimeOnly = False
Me.txbNachPLZ._TimeOnly_Seconds = False
Me.txbNachPLZ._value = ""
Me.txbNachPLZ._Waehrung = False
Me.txbNachPLZ._WaehrungZeichen = True
Me.txbNachPLZ.ForeColor = System.Drawing.Color.Black
Me.txbNachPLZ.Location = New System.Drawing.Point(301, 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(60, 20)
Me.txbNachPLZ.TabIndex = 7
'
'txbVonPLZ
'
Me.txbVonPLZ._DateTimeOnly = False
Me.txbVonPLZ._numbersOnly = False
Me.txbVonPLZ._numbersOnlyKommastellen = ""
Me.txbVonPLZ._numbersOnlyTrennzeichen = True
Me.txbVonPLZ._Prozent = False
Me.txbVonPLZ._ShortDateNew = False
Me.txbVonPLZ._ShortDateOnly = False
Me.txbVonPLZ._TimeOnly = False
Me.txbVonPLZ._TimeOnly_Seconds = False
Me.txbVonPLZ._value = ""
Me.txbVonPLZ._Waehrung = False
Me.txbVonPLZ._WaehrungZeichen = True
Me.txbVonPLZ.ForeColor = System.Drawing.Color.Black
Me.txbVonPLZ.Location = New System.Drawing.Point(121, 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(60, 20)
Me.txbVonPLZ.TabIndex = 4
'
'tbNichtEUAnteil
'
Me.tbNichtEUAnteil._DateTimeOnly = False
Me.tbNichtEUAnteil._numbersOnly = False
Me.tbNichtEUAnteil._numbersOnlyKommastellen = ""
Me.tbNichtEUAnteil._numbersOnlyTrennzeichen = True
Me.tbNichtEUAnteil._Prozent = True
Me.tbNichtEUAnteil._ShortDateNew = False
Me.tbNichtEUAnteil._ShortDateOnly = False
Me.tbNichtEUAnteil._TimeOnly = False
Me.tbNichtEUAnteil._TimeOnly_Seconds = False
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(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(49, 20)
Me.tbNichtEUAnteil.TabIndex = 30
'
'tbEUAnteil
'
Me.tbEUAnteil._DateTimeOnly = False
Me.tbEUAnteil._numbersOnly = False
Me.tbEUAnteil._numbersOnlyKommastellen = ""
Me.tbEUAnteil._numbersOnlyTrennzeichen = False
Me.tbEUAnteil._Prozent = True
Me.tbEUAnteil._ShortDateNew = False
Me.tbEUAnteil._ShortDateOnly = False
Me.tbEUAnteil._TimeOnly = False
Me.tbEUAnteil._TimeOnly_Seconds = False
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(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(51, 20)
Me.tbEUAnteil.TabIndex = 24
Me.UsrcntlFrachtkostenberechnung1.Location = New System.Drawing.Point(12, 12)
Me.UsrcntlFrachtkostenberechnung1.Name = "UsrcntlFrachtkostenberechnung1"
Me.UsrcntlFrachtkostenberechnung1.Size = New System.Drawing.Size(386, 393)
Me.UsrcntlFrachtkostenberechnung1.TabIndex = 37
'
'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)
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.txbCalcDistanceEU)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txbNachOrt)
Me.Controls.Add(Me.txbVonOrt)
Me.Controls.Add(Me.btnCalculate)
Me.Controls.Add(Me.lblGesamtfrachkosten)
Me.Controls.Add(Me.lblGewicht)
Me.Controls.Add(Me.lblDistanzEU)
Me.Controls.Add(Me.txbNachPLZ)
Me.Controls.Add(Me.txbVonPLZ)
Me.Controls.Add(Me.lblNichtEUAnteil)
Me.Controls.Add(Me.lblEUAnteil)
Me.Controls.Add(Me.tbNichtEUAnteil)
Me.Controls.Add(Me.tbEUAnteil)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.lblNach)
Me.Controls.Add(Me.lblVon)
Me.ClientSize = New System.Drawing.Size(405, 395)
Me.Controls.Add(Me.UsrcntlFrachtkostenberechnung1)
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()
End Sub
Friend WithEvents lblVon As Label
Friend WithEvents lblNach As Label
Friend WithEvents btnCancel As Button
Friend WithEvents btnOK As Button
Friend WithEvents tbEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents tbNichtEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblEUAnteil As Label
Friend WithEvents lblNichtEUAnteil As Label
Friend WithEvents txbVonPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbNachPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblDistanzEU As Label
Friend WithEvents lblGewicht As Label
Friend WithEvents btnCalculate As Button
Friend WithEvents txbVonOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbNachOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
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
Friend WithEvents cbxLandVon As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxLandNach As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents UsrcntlFrachtkostenberechnung1 As usrcntlFrachtkostenberechnung
End Class