edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feature_Frachtkostenberechnung

Browse Source
This commit is contained in:
d.breimaier
2022-10-10 17:36:28 +02:00
parent 276c19cc30
commit 70e583853f
6 changed files with 1015 additions and 797 deletions
Download Patch File Download Diff File Expand all files Collapse all files

514
Aviso/frmFrachtkostenBerechnen.Designer.vb generated
View File

@@ -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.txbNach = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblRohmasse = New System.Windows.Forms.Label()
Me.lblFrachtfaktor = New System.Windows.Forms.Label()
Me.lblDistanz = 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.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.txbVon._numbersOnly = False
Me.txbVon._numbersOnlyKommastellen = ""
Me.txbVon._numbersOnlyTrennzeichen = True
Me.txbVon._Prozent = False
Me.txbVon._ShortDateNew = False
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
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"
'
'txbNach
'lblGewicht
'
Me.txbNach._DateTimeOnly = False
Me.txbNach._numbersOnly = False
Me.txbNach._numbersOnlyKommastellen = ""
Me.txbNach._numbersOnlyTrennzeichen = True
Me.txbNach._Prozent = False
Me.txbNach._ShortDateNew = False
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"
Me.lblGewicht.AutoSize = True
Me.lblGewicht.Location = New System.Drawing.Point(1, 81)
Me.lblGewicht.Name = "lblGewicht"
Me.lblGewicht.Size = New System.Drawing.Size(46, 13)
Me.lblGewicht.TabIndex = 13
Me.lblGewicht.Text = "Gewicht"
'
'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.lblRohmasse)
Me.Controls.Add(Me.txbNach)
Me.Controls.Add(Me.txbVon)
Me.Controls.Add(Me.lblGesamtfrachkosten)
Me.Controls.Add(Me.lblGewicht)
Me.Controls.Add(Me.lblDistanz)
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 txbNach As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblRohmasse As Label
Friend WithEvents lblFrachtfaktor 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 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

87
Aviso/frmFrachtkostenBerechnen.vb
View File

@@ -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 & "'")
txbNach.fillWithSQL("SELECT ISNULL([LandKz],'-') AS , ISNULL([PLZ],'-'), ISNULL([Ort],''), ISNULL([Straße],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
txbVonPLZ.fillWithSQL("SELECT ISNULL([LandKz],'') + '-' + ISNULL([PLZ],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
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
' origin = ALLG.sbAbgangZollstelle._value.Substring(0, 2) & " " & ALLG.sbAbgangZollstelle.Text
'End If
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance)
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

16
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -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

917
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

212
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -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">
<value>True</value>
</metadata>
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<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>
<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>

66
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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
@@ -295,7 +296,7 @@ Public Class frmSendungsdetailsNEU
End If
End If
initVorpapiere()
@@ -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 &= "<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 &= "Mit freundlichen Grüßen<br>"
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
TextHTML &= "<br>"
TextHTML &= "Mit freundlichen Grüßen<br>"
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<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
Dim f As New SDL.frmCMR
Sub calculateFreightCosts()
f.btnCMRtoAkt.Visible = True
f.txtCMRName.Visible = True
Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text)
If txtAbsender.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtAbsender.Text = txtAbsender.KdData_ADRESSEN.getAdressFromatted()
If txtFrachtfuehrer.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtFrachtführer.Text = txtFrachtfuehrer.KdData_ADRESSEN.getAdressFromatted()
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
If frachkosten.ShowDialog() = DialogResult.OK Then
' TODO -> Rückgabewert von Frachkostenberechnung
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