feature_Frachtkostenberechnung

Aviso/frmFrachtkostenBerechnen.Designer.vb

@@ -25,19 +25,29 @@ Partial Class frmFrachtkostenBerechnen
         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.cbxVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cbxNach = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.btnCancel = New System.Windows.Forms.Button()
         Me.btnOK = New System.Windows.Forms.Button()
-        Me.tbEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.tbNichtEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblEUAnteil = New System.Windows.Forms.Label()
         Me.lblNichtEUAnteil = New System.Windows.Forms.Label()
-        Me.txbVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblDistanz = New System.Windows.Forms.Label()
-        Me.txbNach = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblGewicht = New System.Windows.Forms.Label()
-        Me.lblRohmasse = New System.Windows.Forms.Label()
-        Me.lblFrachtfaktor = 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.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.SuspendLayout()
         '
         'lblVon
@@ -52,40 +62,16 @@ Partial Class frmFrachtkostenBerechnen
         'lblNach
         '
         Me.lblNach.AutoSize = True
-        Me.lblNach.Location = New System.Drawing.Point(229, 6)
+        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:"
         '
-        'cbxVon
-        '
-        Me.cbxVon._allowedValuesFreiText = Nothing
-        Me.cbxVon._allowFreiText = False
-        Me.cbxVon._value = ""
-        Me.cbxVon.Enabled = False
-        Me.cbxVon.FormattingEnabled = True
-        Me.cbxVon.Location = New System.Drawing.Point(74, 6)
-        Me.cbxVon.Name = "cbxVon"
-        Me.cbxVon.Size = New System.Drawing.Size(121, 21)
-        Me.cbxVon.TabIndex = 2
-        '
-        'cbxNach
-        '
-        Me.cbxNach._allowedValuesFreiText = Nothing
-        Me.cbxNach._allowFreiText = False
-        Me.cbxNach._value = ""
-        Me.cbxNach.Enabled = False
-        Me.cbxNach.FormattingEnabled = True
-        Me.cbxNach.Location = New System.Drawing.Point(319, 6)
-        Me.cbxNach.Name = "cbxNach"
-        Me.cbxNach.Size = New System.Drawing.Size(121, 21)
-        Me.cbxNach.TabIndex = 3
-        '
         'btnCancel
         '
         Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancel.Location = New System.Drawing.Point(10, 170)
+        Me.btnCancel.Location = New System.Drawing.Point(10, 214)
         Me.btnCancel.Name = "btnCancel"
         Me.btnCancel.Size = New System.Drawing.Size(75, 23)
         Me.btnCancel.TabIndex = 4
@@ -96,63 +82,17 @@ Partial Class frmFrachtkostenBerechnen
         '
         Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
         Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnOK.Location = New System.Drawing.Point(365, 170)
+        Me.btnOK.Location = New System.Drawing.Point(264, 214)
         Me.btnOK.Name = "btnOK"
         Me.btnOK.Size = New System.Drawing.Size(75, 23)
         Me.btnOK.TabIndex = 5
         Me.btnOK.Text = "OK"
         Me.btnOK.UseVisualStyleBackColor = True
         '
-        'tbEUAnteil
-        '
-        Me.tbEUAnteil._DateTimeOnly = False
-        Me.tbEUAnteil._numbersOnly = False
-        Me.tbEUAnteil._numbersOnlyKommastellen = ""
-        Me.tbEUAnteil._numbersOnlyTrennzeichen = True
-        Me.tbEUAnteil._Prozent = False
-        Me.tbEUAnteil._ShortDateNew = False
-        Me.tbEUAnteil._ShortDateOnly = False
-        Me.tbEUAnteil._TimeOnly = False
-        Me.tbEUAnteil._TimeOnly_Seconds = False
-        Me.tbEUAnteil._value = ""
-        Me.tbEUAnteil._Waehrung = False
-        Me.tbEUAnteil._WaehrungZeichen = True
-        Me.tbEUAnteil.ForeColor = System.Drawing.Color.Black
-        Me.tbEUAnteil.Location = New System.Drawing.Point(340, 91)
-        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(100, 20)
-        Me.tbEUAnteil.TabIndex = 6
-        '
-        'tbNichtEUAnteil
-        '
-        Me.tbNichtEUAnteil._DateTimeOnly = False
-        Me.tbNichtEUAnteil._numbersOnly = False
-        Me.tbNichtEUAnteil._numbersOnlyKommastellen = ""
-        Me.tbNichtEUAnteil._numbersOnlyTrennzeichen = True
-        Me.tbNichtEUAnteil._Prozent = False
-        Me.tbNichtEUAnteil._ShortDateNew = False
-        Me.tbNichtEUAnteil._ShortDateOnly = False
-        Me.tbNichtEUAnteil._TimeOnly = False
-        Me.tbNichtEUAnteil._TimeOnly_Seconds = False
-        Me.tbNichtEUAnteil._value = ""
-        Me.tbNichtEUAnteil._Waehrung = False
-        Me.tbNichtEUAnteil._WaehrungZeichen = True
-        Me.tbNichtEUAnteil.ForeColor = System.Drawing.Color.Black
-        Me.tbNichtEUAnteil.Location = New System.Drawing.Point(340, 121)
-        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(100, 20)
-        Me.tbNichtEUAnteil.TabIndex = 7
-        '
         'lblEUAnteil
         '
         Me.lblEUAnteil.AutoSize = True
-        Me.lblEUAnteil.Location = New System.Drawing.Point(229, 98)
+        Me.lblEUAnteil.Location = New System.Drawing.Point(170, 151)
         Me.lblEUAnteil.Name = "lblEUAnteil"
         Me.lblEUAnteil.Size = New System.Drawing.Size(51, 13)
         Me.lblEUAnteil.TabIndex = 8
@@ -161,104 +101,354 @@ Partial Class frmFrachtkostenBerechnen
         'lblNichtEUAnteil
         '
         Me.lblNichtEUAnteil.AutoSize = True
-        Me.lblNichtEUAnteil.Location = New System.Drawing.Point(229, 124)
+        Me.lblNichtEUAnteil.Location = New System.Drawing.Point(170, 173)
         Me.lblNichtEUAnteil.Name = "lblNichtEUAnteil"
         Me.lblNichtEUAnteil.Size = New System.Drawing.Size(79, 13)
         Me.lblNichtEUAnteil.TabIndex = 9
         Me.lblNichtEUAnteil.Text = "Nicht EU Anteil"
         '
-        'txbVon
+        'lblDistanz
         '
-        Me.txbVon._DateTimeOnly = False
+        Me.lblDistanz.AutoSize = True
-        Me.txbVon._numbersOnly = False
+        Me.lblDistanz.Location = New System.Drawing.Point(5, 177)
-        Me.txbVon._numbersOnlyKommastellen = ""
+        Me.lblDistanz.Name = "lblDistanz"
-        Me.txbVon._numbersOnlyTrennzeichen = True
+        Me.lblDistanz.Size = New System.Drawing.Size(42, 13)
-        Me.txbVon._Prozent = False
+        Me.lblDistanz.TabIndex = 12
-        Me.txbVon._ShortDateNew = False
+        Me.lblDistanz.Text = "Distanz"
-        Me.txbVon._ShortDateOnly = False
-        Me.txbVon._TimeOnly = False
-        Me.txbVon._TimeOnly_Seconds = False
-        Me.txbVon._value = ""
-        Me.txbVon._Waehrung = False
-        Me.txbVon._WaehrungZeichen = True
-        Me.txbVon.ForeColor = System.Drawing.Color.Black
-        Me.txbVon.Location = New System.Drawing.Point(74, 33)
-        Me.txbVon.MaxLineLength = -1
-        Me.txbVon.MaxLines_Warning = ""
-        Me.txbVon.MaxLines_Warning_Label = Nothing
-        Me.txbVon.Name = "txbVon"
-        Me.txbVon.Size = New System.Drawing.Size(121, 20)
-        Me.txbVon.TabIndex = 10
         '
-        'txbNach
+        'lblGewicht
         '
-        Me.txbNach._DateTimeOnly = False
+        Me.lblGewicht.AutoSize = True
-        Me.txbNach._numbersOnly = False
+        Me.lblGewicht.Location = New System.Drawing.Point(1, 81)
-        Me.txbNach._numbersOnlyKommastellen = ""
+        Me.lblGewicht.Name = "lblGewicht"
-        Me.txbNach._numbersOnlyTrennzeichen = True
+        Me.lblGewicht.Size = New System.Drawing.Size(46, 13)
-        Me.txbNach._Prozent = False
+        Me.lblGewicht.TabIndex = 13
-        Me.txbNach._ShortDateNew = False
+        Me.lblGewicht.Text = "Gewicht"
-        Me.txbNach._ShortDateOnly = False
-        Me.txbNach._TimeOnly = False
-        Me.txbNach._TimeOnly_Seconds = False
-        Me.txbNach._value = ""
-        Me.txbNach._Waehrung = False
-        Me.txbNach._WaehrungZeichen = True
-        Me.txbNach.ForeColor = System.Drawing.Color.Black
-        Me.txbNach.Location = New System.Drawing.Point(319, 33)
-        Me.txbNach.MaxLineLength = -1
-        Me.txbNach.MaxLines_Warning = ""
-        Me.txbNach.MaxLines_Warning_Label = Nothing
-        Me.txbNach.Name = "txbNach"
-        Me.txbNach.Size = New System.Drawing.Size(121, 20)
-        Me.txbNach.TabIndex = 11
-        '
-        'lblRohmasse
-        '
-        Me.lblRohmasse.AutoSize = True
-        Me.lblRohmasse.Location = New System.Drawing.Point(5, 102)
-        Me.lblRohmasse.Name = "lblRohmasse"
-        Me.lblRohmasse.Size = New System.Drawing.Size(57, 13)
-        Me.lblRohmasse.TabIndex = 12
-        Me.lblRohmasse.Text = "Rohmasse"
-        '
-        'lblFrachtfaktor
-        '
-        Me.lblFrachtfaktor.AutoSize = True
-        Me.lblFrachtfaktor.Location = New System.Drawing.Point(5, 128)
-        Me.lblFrachtfaktor.Name = "lblFrachtfaktor"
-        Me.lblFrachtfaktor.Size = New System.Drawing.Size(73, 13)
-        Me.lblFrachtfaktor.TabIndex = 13
-        Me.lblFrachtfaktor.Text = "Faktor pro KG"
         '
         'btnCalculate
         '
         Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
-        Me.btnCalculate.Location = New System.Drawing.Point(365, 147)
+        Me.btnCalculate.Location = New System.Drawing.Point(266, 115)
         Me.btnCalculate.Name = "btnCalculate"
         Me.btnCalculate.Size = New System.Drawing.Size(75, 23)
         Me.btnCalculate.TabIndex = 14
         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 = 17
+        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 = 18
+        Me.Label2.Text = "Ort"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(211, 56)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(21, 13)
+        Me.Label3.TabIndex = 19
+        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 = 20
+        Me.Label4.Text = "PLZ"
+        '
+        'txbCalcDistance
+        '
+        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
+        '
+        '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(84, 20)
+        Me.txbNachOrt.TabIndex = 16
+        '
+        '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(91, 20)
+        Me.txbVonOrt.TabIndex = 15
+        '
+        '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(255, 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
+        '
+        '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(75, 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
+        '
+        '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 = ""
+        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.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.TabIndex = 7
+        '
+        '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 = ""
+        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.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.TabIndex = 6
+        '
+        '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, 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"
+        '
         'frmFrachtkostenBerechnen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(450, 205)
+        Me.ClientSize = New System.Drawing.Size(353, 252)
+        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.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.lblFrachtfaktor)
+        Me.Controls.Add(Me.lblGesamtfrachkosten)
-        Me.Controls.Add(Me.lblRohmasse)
+        Me.Controls.Add(Me.lblGewicht)
-        Me.Controls.Add(Me.txbNach)
+        Me.Controls.Add(Me.lblDistanz)
-        Me.Controls.Add(Me.txbVon)
+        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.cbxNach)
-        Me.Controls.Add(Me.cbxVon)
         Me.Controls.Add(Me.lblNach)
         Me.Controls.Add(Me.lblVon)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -271,17 +461,27 @@ Partial Class frmFrachtkostenBerechnen
 
     Friend WithEvents lblVon As Label
     Friend WithEvents lblNach As Label
-    Friend WithEvents cbxVon As VERAG_PROG_ALLGEMEIN.MyComboBox
-    Friend WithEvents cbxNach As VERAG_PROG_ALLGEMEIN.MyComboBox
     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 txbVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txbVonPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txbNach As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txbNachPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents lblRohmasse As Label
+    Friend WithEvents lblDistanz As Label
-    Friend WithEvents lblFrachtfaktor 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 txbCalcDistance 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
 End Class

Aviso/frmFrachtkostenBerechnen.vb

@@ -1,4 +1,5 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports DocumentFormat.OpenXml.Drawing
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmFrachtkostenBerechnen
 
@@ -6,45 +7,99 @@ Public Class frmFrachtkostenBerechnen
     Dim empfaengerID As Integer
     Dim origin As String
     Dim destination As String
+    Dim EUAnteil As Integer
+    Dim nichtEUAnteil As Integer
+    Dim gewicht As Double
+    Dim gesamtFrachtkosten As Double
 
 
-    Sub New(absID As String, empfID As String)
+    Sub New(absID As String, empfID As String, gewichtInput As Double)
 
         InitializeComponent()
         absenderID = CInt(absID)
         empfaengerID = CInt(empfID)
-
+        gewicht = gewichtInput
 
     End Sub
 
 
     Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-        txbVon.fillWithSQL("SELECT  ISNULL([LandKz],'-') AS  , ISNULL([PLZ],'-'), ISNULL([Ort],''), ISNULL([Straße],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
+        txbVonPLZ.fillWithSQL("SELECT  ISNULL([LandKz],'') + '-' + ISNULL([PLZ],'')  FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
-        txbNach.fillWithSQL("SELECT  ISNULL([LandKz],'-') AS  , ISNULL([PLZ],'-'), ISNULL([Ort],''), ISNULL([Straße],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
+        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 & "'")
+
+
+        'tbEUAnteil._value = EUAnteil.ToString
+        'tbNichtEUAnteil._value = nichtEUAnteil.ToString
+        txbGewicht._value = gewicht.ToString
+        txbFactor._value = 0.15
 
 
     End Sub
 
     Sub calculateFreight()
 
+        origin = IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
+        destination = IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
+
         Dim duration = ""
         Dim distance = ""
 
-        'If ALLG.sbAbgangZollstelle._value <> "" Then
+        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance)
-        '    origin = ALLG.sbAbgangZollstelle._value.Substring(0, 2) & " " & ALLG.sbAbgangZollstelle.Text
-        'End If
 
+        txbCalcDistance._value = distance
 
-        'Dim usrCntlEmpf = ADRESSEN.usrCntlEmpfaenger
-        destination &= usrCntlEmpf.txtStrasse.Text & " "
-        destination &= usrCntlEmpf.sbLand._value & " "
-        destination &= usrCntlEmpf.txtPlz.Text & " "
-        destination &= usrCntlEmpf.txtOrt.Text & " "
-
-
-        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, "", distance)
 
     End Sub
 
+    Sub calculateFreightCosts()
+
+        Try
+            gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
+            tbxGesamtfrachtkosten._value = gesamtFrachtkosten
+            EUAnteil = gesamtFrachtkosten * tbEUAnteil._value / 100
+            nichtEUAnteil = gesamtFrachtkosten * tbNichtEUAnteil._value / 100
+
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+    Sub checkInputFields()
+        If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then
+            'Hinweis INPUT false
+        End If
+
+        If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then
+            'Hinweis INPUT false
+        End If
+
+        If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then
+            'Hinweis INPUT false
+        End If
+
+
+    End Sub
+
+
+    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
+        resetInputFIeld()
+        calculateFreight()
+        calculateFreightCosts()
+
+    End Sub
+
+
+
+
+
+    Private Sub resetInputFIeld()
+        txbCalcDistance._value = ""
+    End Sub
+
+
 End Class

Aviso/frmHauptfenster.Designer.vb

@@ -71,7 +71,6 @@ Partial Class frmHauptfenster
         Me.SDLProgrammStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AlleStatusMailsSchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.RoutenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -362,6 +361,7 @@ Partial Class frmHauptfenster
         Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RoutenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.Top.SuspendLayout()
@@ -643,12 +643,6 @@ Partial Class frmHauptfenster
         Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
         Me.AlleStatusMailsSchickenToolStripMenuItem.Text = "Alle Status Mails schicken"
         '
-        'RoutenverwaltungToolStripMenuItem
-        '
-        Me.RoutenverwaltungToolStripMenuItem.Name = "RoutenverwaltungToolStripMenuItem"
-        Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
-        Me.RoutenverwaltungToolStripMenuItem.Text = "Routenverwaltung"
-        '
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
@@ -2022,7 +2016,6 @@ Partial Class frmHauptfenster
         Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
         Me.SplitContainer2.Size = New System.Drawing.Size(815, 300)
         Me.SplitContainer2.SplitterDistance = 164
-        Me.SplitContainer2.SplitterDistance = 111
         Me.SplitContainer2.SplitterWidth = 1
         Me.SplitContainer2.TabIndex = 0
         '
@@ -3458,6 +3451,12 @@ Partial Class frmHauptfenster
         Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
         Me.ToolStripMenuItem21.Text = "GELB"
         '
+        'RoutenverwaltungToolStripMenuItem
+        '
+        Me.RoutenverwaltungToolStripMenuItem.Name = "RoutenverwaltungToolStripMenuItem"
+        Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
+        Me.RoutenverwaltungToolStripMenuItem.Text = "Routenverwaltung"
+        '
         'frmHauptfenster
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3858,4 +3857,5 @@ Partial Class frmHauptfenster
     Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem
     Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
     Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmSendungsdetailsNEU.resx

@@ -118,103 +118,6 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
-        mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
-        i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
-        p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
-        hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
-        Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
-        XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
-        4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
-        k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
-        uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
-        dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
-        lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
-        AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
-        CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
-        oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
-        F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
-        O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
-        pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
-        rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
-        XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
-        tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
-        kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
-        NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
-        mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
-        sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
-        vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
-        PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
-        a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
-        etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
-        zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
-        HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
-        9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
-        sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
-        EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
-        nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
-        Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
-        Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
-        581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
-        GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
-        Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
-        l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
-        lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
-        8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
-        FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
-        sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
-        8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
-        N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
-        xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
-        NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
-        tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
-        GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
-        e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
-        xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
-        9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
-        wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
-        7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
-        6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
-        fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
-        nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
-        8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
-        s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
-        jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
-        kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
-        SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
-        asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
-        Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
-        unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
-        YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
-        AElFTkSuQmCC
-</value>
-  </data>
-  <data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
-        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
-        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
-        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
-        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
-        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
-        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
-        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
-        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
-        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
-        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
-        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
-        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
-        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
-        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
-</value>
-  </data>
   <data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1628,9 +1531,6 @@
         mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
 </value>
   </data>
-  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>296, 17</value>
-  </metadata>
   <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1642,18 +1542,103 @@
   <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>296, 17</value>
   </metadata>
-  <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>True</value>
+    <value>
-  </metadata>
+        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
-  <metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+        mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
-    <value>True</value>
+        i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
-  </metadata>
+        p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
-  <metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+        hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
-    <value>True</value>
+        Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
-  </metadata>
+        XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
-  <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+        4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
-    <value>True</value>
+        k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
-  </metadata>
+        uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
+        dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
+        lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
+        AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
+        CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
+        oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
+        F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
+        O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
+        pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
+        rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
+        XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
+        tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
+        kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
+        NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
+        mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
+        sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
+        vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
+        PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
+        a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
+        etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
+        zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
+        HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
+        9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
+        sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
+        EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
+        nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
+        Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
+        Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
+        581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
+        GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
+        Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
+        l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
+        lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
+        8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
+        FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
+        sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
+        8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
+        N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
+        xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
+        NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
+        tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
+        GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
+        e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
+        xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
+        9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
+        wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
+        7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
+        6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
+        fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
+        nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
+        8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
+        s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
+        jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
+        kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
+        SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
+        asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
+        Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
+        unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
+        YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
+        AElFTkSuQmCC
+</value>
+  </data>
+  <data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
+        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
+        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
+        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
+        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
+        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
+        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
+        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
+        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
+        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
+        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
+        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
+        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
+        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
+        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
+</value>
+  </data>
   <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
@@ -1898,9 +1883,6 @@
   <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>174, 17</value>
   </metadata>
-  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>404, 17</value>
-  </metadata>
   <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>596, 17</value>
   </metadata>

Aviso/frmSendungsdetailsNEU.vb

@@ -6,6 +6,7 @@ Imports System.Management
 Imports System.Data.SqlClient
 Imports iTextSharp.text.pdf
 Imports Microsoft.Office.Interop
+Imports DocumentFormat.OpenXml.Presentation
 
 Public Class frmSendungsdetailsNEU
     Public AvisoId As Integer
@@ -900,7 +901,8 @@ Public Class frmSendungsdetailsNEU
         b_add.Size = New Size(30, 30)
         b_add.Margin = New Padding(2, 22, 0, 0)
         b_add.Text = "+"
-        b_add.Font = New Font(b_add.Font.FontFamily, 14, FontStyle.Bold)
+        'b_add.Font = New Font()
+        'b_add.Font.FontFamily, 14, FontStyle.Bold)
         b_add.BackColor = Color.LightGray()
         AddHandler b_add.Click, Sub(send As Object, ev As EventArgs)
                                     If AVISO.Abgeschlossen Then Exit Sub
@@ -2916,12 +2918,12 @@ Public Class frmSendungsdetailsNEU
                         End If
                     End If
                 End If
-                End If
             End If
+        End If
 
 
 
-            txtAnzahlPos.Visible = (cboFiliale._value = "7001")
+        txtAnzahlPos.Visible = (cboFiliale._value = "7001")
         Label4.Visible = (cboFiliale._value = "7001")
 
         Dim tmp = cboAbfertigungsart._value
@@ -3977,20 +3979,20 @@ Public Class frmSendungsdetailsNEU
                         Dim TextHTML = ""
                         TextHTML &= "Sehr geehrte Damen und Herren,<br>"
                         TextHTML &= "<br>"
-                            TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
+                        TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
-                            TextHTML &= "<br>"
+                        TextHTML &= "<br>"
 
-                            TextHTML &= "Mit freundlichen Grüßen<br>"
+                        TextHTML &= "Mit freundlichen Grüßen<br>"
-                            TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                        TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
-                            TextHTML &= "<br>"
+                        TextHTML &= "<br>"
 
-                            Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
+                        Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
 
-                            AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
+                        AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
 
-                        End If
+                    End If
 
-                        Mail.Display()
+                    Mail.Display()
 
                 Catch ex As Exception
                     VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
@@ -4087,7 +4089,7 @@ Public Class frmSendungsdetailsNEU
                     DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = True
                 End If
             Else
-                    If pnlKundenInfo.Controls.Count > 0 Then
+                If pnlKundenInfo.Controls.Count > 0 Then
                     DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = False
                 End If
             End If
@@ -4718,7 +4720,7 @@ Public Class frmSendungsdetailsNEU
                         Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr)
                         If AD IsNot Nothing Then
                             Blatt.Range("E13").Value = AD.Name_1
-                            Blatt.Range("E14").Value = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & " " & If(AD.Straße, "")).trim
+                            Blatt.Range("E14").Value = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & " " & If(AD.Straße, "")).Trim
                         End If
                         Blatt.Range("E13").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer
                     Else
@@ -5365,41 +5367,19 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub Button17_Click_2(sender As Object, e As EventArgs) Handles Button17.Click
+    Sub calculateFreightCosts()
-        Dim f As New SDL.frmCMR
 
-        f.btnCMRtoAkt.Visible = True
+        Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text)
-        f.txtCMRName.Visible = True
 
 
-        If txtAbsender.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtAbsender.Text = txtAbsender.KdData_ADRESSEN.getAdressFromatted()
+        If frachkosten.ShowDialog() = DialogResult.OK Then
-        If txtFrachtfuehrer.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtFrachtführer.Text = txtFrachtfuehrer.KdData_ADRESSEN.getAdressFromatted()
+            ' TODO -> Rückgabewert von Frachkostenberechnung
-        If txtEmpfaenger.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtEmpfänger.Text = txtEmpfaenger.KdData_ADRESSEN.getAdressFromatted()
-
-        f.uCmr.dgvLadungenKurz.Rows.Add(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, ""), "Pk", If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "")))
-
-        f.uCmr.txtKfz.Text = AVISO.LKW_Nr
-        f.uCmr.txtAnhänger.Text = AVISO.LKW_Nr
-
-        If f.ShowDialog(Me) Then
-
-            Dim da_id = -1
-            Dim anhId = -1
-            Dim destPath = ""
-
-            Dim Typ = ""
-
-            If f.PDF_Path <> "" Then
-                Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR")
-                frmSendungAnhangImport.saveToDS(AvisoId, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
-                initAnhang()
-
-            End If
 
         End If
+
     End Sub
 
     Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click
-        MsgBox("Funktion noch nicht verfügbar!")
+        calculateFreightCosts()
     End Sub
 End Class