From 70e583853f5eb38a394d7ca2a5b8b29ff81cea23 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 10 Oct 2022 17:36:28 +0200 Subject: [PATCH] feature_Frachtkostenberechnung --- Aviso/frmFrachtkostenBerechnen.Designer.vb | 514 ++++++++---- Aviso/frmFrachtkostenBerechnen.vb | 87 +- Aviso/frmHauptfenster.Designer.vb | 16 +- Aviso/frmSendungsdetailsNEU.Designer.vb | 917 +++++++++++---------- Aviso/frmSendungsdetailsNEU.resx | 212 +++-- Aviso/frmSendungsdetailsNEU.vb | 66 +- 6 files changed, 1015 insertions(+), 797 deletions(-) diff --git a/Aviso/frmFrachtkostenBerechnen.Designer.vb b/Aviso/frmFrachtkostenBerechnen.Designer.vb index dc60e70..ed70781 100644 --- a/Aviso/frmFrachtkostenBerechnen.Designer.vb +++ b/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.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 diff --git a/Aviso/frmFrachtkostenBerechnen.vb b/Aviso/frmFrachtkostenBerechnen.vb index af27fed..aeaa7bf 100644 --- a/Aviso/frmFrachtkostenBerechnen.vb +++ b/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 & "'") - 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 \ No newline at end of file diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index 340ec85..bf42e31 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/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 diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index 7fb4f82..bcd0b8a 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -24,10 +24,10 @@ Partial Class frmSendungsdetailsNEU Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU)) - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnl = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel() Me.TabControl1 = New System.Windows.Forms.TabControl() @@ -114,8 +114,11 @@ Partial Class frmSendungsdetailsNEU Me.pnlDetails = New System.Windows.Forms.Panel() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.txtFrachtkostenEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() + Me.Button18 = New System.Windows.Forms.Button() + Me.txtFrachtkostenNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFrachtkostenEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbx = New System.Windows.Forms.CheckBox() Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.lblWW = New System.Windows.Forms.Label() @@ -125,7 +128,6 @@ Partial Class frmSendungsdetailsNEU Me.rtbAnmerkungDispoliste = New System.Windows.Forms.RichTextBox() Me.btnImportaviso = New System.Windows.Forms.Button() Me.btnVorauszahlung = New System.Windows.Forms.Button() - Me.Button14 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblWarenbezeichnung = New System.Windows.Forms.Label() @@ -141,8 +143,10 @@ Partial Class frmSendungsdetailsNEU Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.rtbAnmerkung = New System.Windows.Forms.RichTextBox() Me.Panel22 = New System.Windows.Forms.Panel() - Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblZuKass = New System.Windows.Forms.Label() + Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Button14 = New System.Windows.Forms.Button() Me.tbVorkosten = New System.Windows.Forms.TabPage() Me.lblVK_BEarbeitungAbbrechen = New System.Windows.Forms.LinkLabel() Me.btnVorkostenAdd = New System.Windows.Forms.Button() @@ -195,10 +199,35 @@ Partial Class frmSendungsdetailsNEU Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button4 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() + Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox() Me.lblSonstigesKosten = New System.Windows.Forms.Label() Me.btnAufschub_Atr = New System.Windows.Forms.Button() Me.btnAufschub_Empf = New System.Windows.Forms.Button() Me.btnAufschub_VERAG = New System.Windows.Forms.Button() + Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox() Me.Panel15 = New System.Windows.Forms.Panel() Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() @@ -211,6 +240,7 @@ Partial Class frmSendungsdetailsNEU Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblFrachtfuehrer = New System.Windows.Forms.Label() Me.pnlT1 = New System.Windows.Forms.Panel() + Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse() Me.Label43 = New System.Windows.Forms.Label() Me.lblAbsender = New System.Windows.Forms.Label() Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -360,36 +390,6 @@ Partial Class frmSendungsdetailsNEU Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem() Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox() - Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse() - Me.txtFrachtkostenNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.Label7 = New System.Windows.Forms.Label() - Me.Button18 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() @@ -880,7 +880,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" - Me.ToolStripMenuItem8.Size = New System.Drawing.Size(93, 22) + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30) Me.ToolStripMenuItem8.Text = "T1" ' 'ToolStripMenuItem9 @@ -888,7 +888,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" - Me.ToolStripMenuItem9.Size = New System.Drawing.Size(93, 22) + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30) Me.ToolStripMenuItem9.Text = "T2" ' 'ToolStripMenuItem10 @@ -896,7 +896,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem10.Enabled = False Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" - Me.ToolStripMenuItem10.Size = New System.Drawing.Size(93, 22) + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30) Me.ToolStripMenuItem10.Text = "Ü-T" Me.ToolStripMenuItem10.Visible = False ' @@ -934,7 +934,7 @@ Partial Class frmSendungsdetailsNEU ' Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" - Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22) + Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30) Me.ToolStripMenuItem20.Text = "EZA" ' 'ToolStripMenuItem18 @@ -943,7 +943,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18" - Me.ToolStripMenuItem18.Size = New System.Drawing.Size(95, 22) + Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30) Me.ToolStripMenuItem18.Text = "T1" ' 'ToolStripMenuItem19 @@ -952,7 +952,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19" - Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22) + Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30) Me.ToolStripMenuItem19.Text = "T2" ' 'ToolStripMenuItem21 @@ -969,7 +969,7 @@ Partial Class frmSendungsdetailsNEU ' Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22" - Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22) + Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30) Me.ToolStripMenuItem22.Text = "MIC Import senden" ' 'ToolStripMenuItem23 @@ -977,7 +977,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23" - Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22) + Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30) Me.ToolStripMenuItem23.Text = "MIC Transit senden" ' 'ToolStripMenuItem24 @@ -986,7 +986,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24" - Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22) + Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30) Me.ToolStripMenuItem24.Text = "MIC Export senden" ' 'ToolStripMenuItem12 @@ -1429,18 +1429,18 @@ Partial Class frmSendungsdetailsNEU Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToResizeRows = False - DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.gridVermerke.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Location = New System.Drawing.Point(0, 0) @@ -1449,8 +1449,8 @@ Partial Class frmSendungsdetailsNEU Me.gridVermerke.ReadOnly = True Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3 Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -1539,6 +1539,59 @@ Partial Class frmSendungsdetailsNEU Me.TabPage4.Text = "Aktendeckel" Me.TabPage4.UseVisualStyleBackColor = True ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label6.Location = New System.Drawing.Point(293, 43) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(21, 13) + Me.Label6.TabIndex = 16 + Me.Label6.Text = "EU" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(261, 43) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(40, 13) + Me.Label1.TabIndex = 13 + Me.Label1.Text = "Fracht:" + ' + 'Button18 + ' + Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button18.Location = New System.Drawing.Point(264, 76) + Me.Button18.Name = "Button18" + Me.Button18.Size = New System.Drawing.Size(99, 21) + Me.Button18.TabIndex = 60 + Me.Button18.Text = "berechnen" + Me.Button18.UseVisualStyleBackColor = True + ' + 'txtFrachtkostenNichtEU + ' + Me.txtFrachtkostenNichtEU._DateTimeOnly = False + Me.txtFrachtkostenNichtEU._numbersOnly = False + Me.txtFrachtkostenNichtEU._numbersOnlyKommastellen = "" + Me.txtFrachtkostenNichtEU._numbersOnlyTrennzeichen = True + Me.txtFrachtkostenNichtEU._Prozent = False + Me.txtFrachtkostenNichtEU._ShortDateNew = False + Me.txtFrachtkostenNichtEU._ShortDateOnly = False + Me.txtFrachtkostenNichtEU._TimeOnly = False + Me.txtFrachtkostenNichtEU._TimeOnly_Seconds = False + Me.txtFrachtkostenNichtEU._value = "" + Me.txtFrachtkostenNichtEU._Waehrung = True + Me.txtFrachtkostenNichtEU._WaehrungZeichen = True + Me.txtFrachtkostenNichtEU.ForeColor = System.Drawing.Color.Black + Me.txtFrachtkostenNichtEU.Location = New System.Drawing.Point(313, 57) + Me.txtFrachtkostenNichtEU.MaxLineLength = -1 + Me.txtFrachtkostenNichtEU.MaxLines_Warning = "" + Me.txtFrachtkostenNichtEU.MaxLines_Warning_Label = Nothing + Me.txtFrachtkostenNichtEU.Name = "txtFrachtkostenNichtEU" + Me.txtFrachtkostenNichtEU.Size = New System.Drawing.Size(50, 20) + Me.txtFrachtkostenNichtEU.TabIndex = 14 + Me.txtFrachtkostenNichtEU.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'txtFrachtkostenEU ' Me.txtFrachtkostenEU._DateTimeOnly = False @@ -1563,15 +1616,6 @@ Partial Class frmSendungsdetailsNEU Me.txtFrachtkostenEU.TabIndex = 12 Me.txtFrachtkostenEU.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(261, 43) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(40, 13) - Me.Label1.TabIndex = 13 - Me.Label1.Text = "Fracht:" - ' 'cbx ' Me.cbx.AutoSize = True @@ -1707,25 +1751,6 @@ Partial Class frmSendungsdetailsNEU Me.btnVorauszahlung.UseVisualStyleBackColor = True Me.btnVorauszahlung.Visible = False ' - 'Button14 - ' - Me.Button14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Button14.BackgroundImage = CType(resources.GetObject("Button14.BackgroundImage"), System.Drawing.Image) - Me.Button14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button14.Cursor = System.Windows.Forms.Cursors.Hand - Me.Button14.FlatAppearance.BorderSize = 0 - Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Button14.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.Button14.Location = New System.Drawing.Point(239, 28) - Me.Button14.Name = "Button14" - Me.Button14.Padding = New System.Windows.Forms.Padding(0, 13, 0, 0) - Me.Button14.Size = New System.Drawing.Size(15, 15) - Me.Button14.TabIndex = 8 - Me.Button14.TabStop = False - Me.Button14.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.Button14.UseVisualStyleBackColor = True - ' 'Button12 ' Me.Button12.Location = New System.Drawing.Point(49, 161) @@ -1903,6 +1928,15 @@ Partial Class frmSendungsdetailsNEU Me.Panel22.TabIndex = 2 Me.Panel22.TabStop = True ' + 'lblZuKass + ' + Me.lblZuKass.AutoSize = True + Me.lblZuKass.Location = New System.Drawing.Point(1, 3) + Me.lblZuKass.Name = "lblZuKass" + Me.lblZuKass.Size = New System.Drawing.Size(100, 13) + Me.lblZuKass.TabIndex = 0 + Me.lblZuKass.Text = "zu kassieren (BAR):" + ' 'txtBARzuKassieren ' Me.txtBARzuKassieren._DateTimeOnly = False @@ -1927,14 +1961,34 @@ Partial Class frmSendungsdetailsNEU Me.txtBARzuKassieren.TabIndex = 1 Me.txtBARzuKassieren.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'lblZuKass + 'Label7 ' - Me.lblZuKass.AutoSize = True - Me.lblZuKass.Location = New System.Drawing.Point(1, 3) - Me.lblZuKass.Name = "lblZuKass" - Me.lblZuKass.Size = New System.Drawing.Size(100, 13) - Me.lblZuKass.TabIndex = 0 - Me.lblZuKass.Text = "zu kassieren (BAR):" + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label7.Location = New System.Drawing.Point(321, 43) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(47, 13) + Me.Label7.TabIndex = 15 + Me.Label7.Text = "Nicht EU" + ' + 'Button14 + ' + Me.Button14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button14.BackgroundImage = CType(resources.GetObject("Button14.BackgroundImage"), System.Drawing.Image) + Me.Button14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button14.Cursor = System.Windows.Forms.Cursors.Hand + Me.Button14.FlatAppearance.BorderSize = 0 + Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Button14.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button14.Location = New System.Drawing.Point(239, 28) + Me.Button14.Name = "Button14" + Me.Button14.Padding = New System.Windows.Forms.Padding(0, 13, 0, 0) + Me.Button14.Size = New System.Drawing.Size(15, 15) + Me.Button14.TabIndex = 8 + Me.Button14.TabStop = False + Me.Button14.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button14.UseVisualStyleBackColor = True ' 'tbVorkosten ' @@ -2096,8 +2150,8 @@ Partial Class frmSendungsdetailsNEU 'clmnPreis ' Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle8.Format = "C2" - Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle4.Format = "C2" + Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle4 Me.clmnPreis.HeaderText = "Preis" Me.clmnPreis.MaxInputLength = 15 Me.clmnPreis.Name = "clmnPreis" @@ -2767,6 +2821,66 @@ Partial Class frmSendungsdetailsNEU Me.Button1.Text = "BAR - Beleg" Me.Button1.UseVisualStyleBackColor = False ' + 'cntlFrachtfuehrer_Sonst + ' + Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST" + Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF" + Me.cntlFrachtfuehrer_Sonst._readOnly = True + Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168) + Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst" + Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtfuehrer_Sonst.TabIndex = 82 + Me.cntlFrachtfuehrer_Sonst.TabStop = False + Me.cntlFrachtfuehrer_Sonst.value = "" + ' + 'cntlAbsender_Sonst + ' + Me.cntlAbsender_Sonst._abrArt = "SONST" + Me.cntlAbsender_Sonst._beteiligter = "ABS" + Me.cntlAbsender_Sonst._readOnly = True + Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133) + Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst" + Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Sonst.TabIndex = 68 + Me.cntlAbsender_Sonst.TabStop = False + Me.cntlAbsender_Sonst.value = "" + ' + 'cntlEmpfaenger_Sonst + ' + Me.cntlEmpfaenger_Sonst._abrArt = "SONST" + Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF" + Me.cntlEmpfaenger_Sonst._readOnly = True + Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94) + Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst" + Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpfaenger_Sonst.TabIndex = 53 + Me.cntlEmpfaenger_Sonst.TabStop = False + Me.cntlEmpfaenger_Sonst.value = "" + ' + 'cntlAuftraggeber_Sonst + ' + Me.cntlAuftraggeber_Sonst._abrArt = "SONST" + Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR" + Me.cntlAuftraggeber_Sonst._readOnly = True + Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57) + Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst" + Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftraggeber_Sonst.TabIndex = 36 + Me.cntlAuftraggeber_Sonst.TabStop = False + Me.cntlAuftraggeber_Sonst.value = "" + ' + 'cntlAvisierer_Sonst + ' + Me.cntlAvisierer_Sonst._abrArt = "SONST" + Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER" + Me.cntlAvisierer_Sonst._readOnly = True + Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20) + Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst" + Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Sonst.TabIndex = 21 + Me.cntlAvisierer_Sonst.TabStop = False + Me.cntlAvisierer_Sonst.value = "" + ' 'lblSonstigesKosten ' Me.lblSonstigesKosten.AutoSize = True @@ -2834,6 +2948,246 @@ Partial Class frmSendungsdetailsNEU Me.btnAufschub_VERAG.UseVisualStyleBackColor = False Me.btnAufschub_VERAG.Visible = False ' + 'cntlFrachtf_Clear + ' + Me.cntlFrachtf_Clear._abrArt = "CLEARING" + Me.cntlFrachtf_Clear._beteiligter = "FRACHTF" + Me.cntlFrachtf_Clear._readOnly = False + Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168) + Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear" + Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Clear.TabIndex = 81 + Me.cntlFrachtf_Clear.TabStop = False + Me.cntlFrachtf_Clear.value = "" + ' + 'cntlFrachtf_Abf + ' + Me.cntlFrachtf_Abf._abrArt = "ABFKOST" + Me.cntlFrachtf_Abf._beteiligter = "FRACHTF" + Me.cntlFrachtf_Abf._readOnly = False + Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168) + Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf" + Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Abf.TabIndex = 80 + Me.cntlFrachtf_Abf.TabStop = False + Me.cntlFrachtf_Abf.value = "" + ' + 'cntlFrachtf_Eust + ' + Me.cntlFrachtf_Eust._abrArt = "EUST" + Me.cntlFrachtf_Eust._beteiligter = "FRACHTF" + Me.cntlFrachtf_Eust._readOnly = False + Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168) + Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust" + Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Eust.TabIndex = 79 + Me.cntlFrachtf_Eust.TabStop = False + Me.cntlFrachtf_Eust.value = "" + ' + 'cntlFrachtf_Zoll + ' + Me.cntlFrachtf_Zoll._abrArt = "ZOLL" + Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF" + Me.cntlFrachtf_Zoll._readOnly = False + Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168) + Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll" + Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Zoll.TabIndex = 78 + Me.cntlFrachtf_Zoll.TabStop = False + Me.cntlFrachtf_Zoll.value = "" + ' + 'cntlAbsender_Clear + ' + Me.cntlAbsender_Clear._abrArt = "CLEARING" + Me.cntlAbsender_Clear._beteiligter = "ABS" + Me.cntlAbsender_Clear._readOnly = False + Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133) + Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear" + Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Clear.TabIndex = 67 + Me.cntlAbsender_Clear.TabStop = False + Me.cntlAbsender_Clear.value = "" + ' + 'cntlAbsender_Abf + ' + Me.cntlAbsender_Abf._abrArt = "ABFKOST" + Me.cntlAbsender_Abf._beteiligter = "ABS" + Me.cntlAbsender_Abf._readOnly = False + Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133) + Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf" + Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Abf.TabIndex = 66 + Me.cntlAbsender_Abf.TabStop = False + Me.cntlAbsender_Abf.value = "" + ' + 'cntlAbsender_Eust + ' + Me.cntlAbsender_Eust._abrArt = "EUST" + Me.cntlAbsender_Eust._beteiligter = "ABS" + Me.cntlAbsender_Eust._readOnly = False + Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133) + Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust" + Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Eust.TabIndex = 65 + Me.cntlAbsender_Eust.TabStop = False + Me.cntlAbsender_Eust.value = "" + ' + 'cntlAbsender_Zoll + ' + Me.cntlAbsender_Zoll._abrArt = "ZOLL" + Me.cntlAbsender_Zoll._beteiligter = "ABS" + Me.cntlAbsender_Zoll._readOnly = False + Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133) + Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll" + Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Zoll.TabIndex = 64 + Me.cntlAbsender_Zoll.TabStop = False + Me.cntlAbsender_Zoll.value = "" + ' + 'cntlEmpf_Clear + ' + Me.cntlEmpf_Clear._abrArt = "CLEARING" + Me.cntlEmpf_Clear._beteiligter = "EMPF" + Me.cntlEmpf_Clear._readOnly = False + Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94) + Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear" + Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Clear.TabIndex = 52 + Me.cntlEmpf_Clear.TabStop = False + Me.cntlEmpf_Clear.value = "" + ' + 'cntlEmpf_Abf + ' + Me.cntlEmpf_Abf._abrArt = "ABFKOST" + Me.cntlEmpf_Abf._beteiligter = "EMPF" + Me.cntlEmpf_Abf._readOnly = False + Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94) + Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf" + Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Abf.TabIndex = 51 + Me.cntlEmpf_Abf.TabStop = False + Me.cntlEmpf_Abf.value = "" + ' + 'cntlEmpf_Eust + ' + Me.cntlEmpf_Eust._abrArt = "EUST" + Me.cntlEmpf_Eust._beteiligter = "EMPF" + Me.cntlEmpf_Eust._readOnly = False + Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94) + Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust" + Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Eust.TabIndex = 50 + Me.cntlEmpf_Eust.TabStop = False + Me.cntlEmpf_Eust.value = "" + ' + 'cntlEmpf_Zoll + ' + Me.cntlEmpf_Zoll._abrArt = "ZOLL" + Me.cntlEmpf_Zoll._beteiligter = "EMPF" + Me.cntlEmpf_Zoll._readOnly = False + Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94) + Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll" + Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Zoll.TabIndex = 49 + Me.cntlEmpf_Zoll.TabStop = False + Me.cntlEmpf_Zoll.value = "" + ' + 'cntlAuftr_Clear + ' + Me.cntlAuftr_Clear._abrArt = "CLEARING" + Me.cntlAuftr_Clear._beteiligter = "AUFTR" + Me.cntlAuftr_Clear._readOnly = False + Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57) + Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear" + Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Clear.TabIndex = 35 + Me.cntlAuftr_Clear.TabStop = False + Me.cntlAuftr_Clear.value = "" + ' + 'cntlAuftr_Abf + ' + Me.cntlAuftr_Abf._abrArt = "ABFKOST" + Me.cntlAuftr_Abf._beteiligter = "AUFTR" + Me.cntlAuftr_Abf._readOnly = False + Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57) + Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf" + Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Abf.TabIndex = 34 + Me.cntlAuftr_Abf.TabStop = False + Me.cntlAuftr_Abf.value = "" + ' + 'cntlAuftr_Eust + ' + Me.cntlAuftr_Eust._abrArt = "EUST" + Me.cntlAuftr_Eust._beteiligter = "AUFTR" + Me.cntlAuftr_Eust._readOnly = False + Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57) + Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust" + Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Eust.TabIndex = 33 + Me.cntlAuftr_Eust.TabStop = False + Me.cntlAuftr_Eust.value = "" + ' + 'cntlAuftr_Zoll + ' + Me.cntlAuftr_Zoll._abrArt = "ZOLL" + Me.cntlAuftr_Zoll._beteiligter = "AUFTR" + Me.cntlAuftr_Zoll._readOnly = False + Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57) + Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll" + Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Zoll.TabIndex = 32 + Me.cntlAuftr_Zoll.TabStop = False + Me.cntlAuftr_Zoll.value = "" + ' + 'cntlAvisierer_Clear + ' + Me.cntlAvisierer_Clear._abrArt = "CLEARING" + Me.cntlAvisierer_Clear._beteiligter = "AVISIERER" + Me.cntlAvisierer_Clear._readOnly = False + Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20) + Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear" + Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Clear.TabIndex = 20 + Me.cntlAvisierer_Clear.TabStop = False + Me.cntlAvisierer_Clear.value = "" + ' + 'cntlAvisierer_Abf + ' + Me.cntlAvisierer_Abf._abrArt = "ABFKOST" + Me.cntlAvisierer_Abf._beteiligter = "AVISIERER" + Me.cntlAvisierer_Abf._readOnly = False + Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20) + Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf" + Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Abf.TabIndex = 19 + Me.cntlAvisierer_Abf.TabStop = False + Me.cntlAvisierer_Abf.value = "" + ' + 'cntlAvisierer_Eust + ' + Me.cntlAvisierer_Eust._abrArt = "EUST" + Me.cntlAvisierer_Eust._beteiligter = "AVISIERER" + Me.cntlAvisierer_Eust._readOnly = False + Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20) + Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust" + Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Eust.TabIndex = 18 + Me.cntlAvisierer_Eust.TabStop = False + Me.cntlAvisierer_Eust.value = "" + ' + 'cntlAvisierer_Zoll + ' + Me.cntlAvisierer_Zoll._abrArt = "ZOLL" + Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER" + Me.cntlAvisierer_Zoll._readOnly = False + Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20) + Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll" + Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Zoll.TabIndex = 17 + Me.cntlAvisierer_Zoll.TabStop = False + Me.cntlAvisierer_Zoll.value = "" + ' 'Panel15 ' Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) @@ -3022,6 +3376,14 @@ Partial Class frmSendungsdetailsNEU Me.pnlT1.Size = New System.Drawing.Size(549, 92) Me.pnlT1.TabIndex = 86 ' + 'UsrCntlSND_NCTSGestellungsadresse1 + ' + Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1" + Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 92) + Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 + ' 'Label43 ' Me.Label43.AutoSize = True @@ -4444,6 +4806,7 @@ Partial Class frmSendungsdetailsNEU ' Me.BindingNavigatorPositionItem.AccessibleName = "Position" Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) Me.BindingNavigatorPositionItem.Text = "0" @@ -4712,368 +5075,6 @@ Partial Class frmSendungsdetailsNEU Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30) Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" ' - 'cntlFrachtfuehrer_Sonst - ' - Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST" - Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF" - Me.cntlFrachtfuehrer_Sonst._readOnly = True - Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168) - Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst" - Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtfuehrer_Sonst.TabIndex = 82 - Me.cntlFrachtfuehrer_Sonst.TabStop = False - Me.cntlFrachtfuehrer_Sonst.value = "" - ' - 'cntlAbsender_Sonst - ' - Me.cntlAbsender_Sonst._abrArt = "SONST" - Me.cntlAbsender_Sonst._beteiligter = "ABS" - Me.cntlAbsender_Sonst._readOnly = True - Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133) - Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst" - Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Sonst.TabIndex = 68 - Me.cntlAbsender_Sonst.TabStop = False - Me.cntlAbsender_Sonst.value = "" - ' - 'cntlEmpfaenger_Sonst - ' - Me.cntlEmpfaenger_Sonst._abrArt = "SONST" - Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF" - Me.cntlEmpfaenger_Sonst._readOnly = True - Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94) - Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst" - Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpfaenger_Sonst.TabIndex = 53 - Me.cntlEmpfaenger_Sonst.TabStop = False - Me.cntlEmpfaenger_Sonst.value = "" - ' - 'cntlAuftraggeber_Sonst - ' - Me.cntlAuftraggeber_Sonst._abrArt = "SONST" - Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR" - Me.cntlAuftraggeber_Sonst._readOnly = True - Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57) - Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst" - Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftraggeber_Sonst.TabIndex = 36 - Me.cntlAuftraggeber_Sonst.TabStop = False - Me.cntlAuftraggeber_Sonst.value = "" - ' - 'cntlAvisierer_Sonst - ' - Me.cntlAvisierer_Sonst._abrArt = "SONST" - Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER" - Me.cntlAvisierer_Sonst._readOnly = True - Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20) - Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst" - Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Sonst.TabIndex = 21 - Me.cntlAvisierer_Sonst.TabStop = False - Me.cntlAvisierer_Sonst.value = "" - ' - 'cntlFrachtf_Clear - ' - Me.cntlFrachtf_Clear._abrArt = "CLEARING" - Me.cntlFrachtf_Clear._beteiligter = "FRACHTF" - Me.cntlFrachtf_Clear._readOnly = False - Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168) - Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear" - Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Clear.TabIndex = 81 - Me.cntlFrachtf_Clear.TabStop = False - Me.cntlFrachtf_Clear.value = "" - ' - 'cntlFrachtf_Abf - ' - Me.cntlFrachtf_Abf._abrArt = "ABFKOST" - Me.cntlFrachtf_Abf._beteiligter = "FRACHTF" - Me.cntlFrachtf_Abf._readOnly = False - Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168) - Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf" - Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Abf.TabIndex = 80 - Me.cntlFrachtf_Abf.TabStop = False - Me.cntlFrachtf_Abf.value = "" - ' - 'cntlFrachtf_Eust - ' - Me.cntlFrachtf_Eust._abrArt = "EUST" - Me.cntlFrachtf_Eust._beteiligter = "FRACHTF" - Me.cntlFrachtf_Eust._readOnly = False - Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168) - Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust" - Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Eust.TabIndex = 79 - Me.cntlFrachtf_Eust.TabStop = False - Me.cntlFrachtf_Eust.value = "" - ' - 'cntlFrachtf_Zoll - ' - Me.cntlFrachtf_Zoll._abrArt = "ZOLL" - Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF" - Me.cntlFrachtf_Zoll._readOnly = False - Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168) - Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll" - Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Zoll.TabIndex = 78 - Me.cntlFrachtf_Zoll.TabStop = False - Me.cntlFrachtf_Zoll.value = "" - ' - 'cntlAbsender_Clear - ' - Me.cntlAbsender_Clear._abrArt = "CLEARING" - Me.cntlAbsender_Clear._beteiligter = "ABS" - Me.cntlAbsender_Clear._readOnly = False - Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133) - Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear" - Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Clear.TabIndex = 67 - Me.cntlAbsender_Clear.TabStop = False - Me.cntlAbsender_Clear.value = "" - ' - 'cntlAbsender_Abf - ' - Me.cntlAbsender_Abf._abrArt = "ABFKOST" - Me.cntlAbsender_Abf._beteiligter = "ABS" - Me.cntlAbsender_Abf._readOnly = False - Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133) - Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf" - Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Abf.TabIndex = 66 - Me.cntlAbsender_Abf.TabStop = False - Me.cntlAbsender_Abf.value = "" - ' - 'cntlAbsender_Eust - ' - Me.cntlAbsender_Eust._abrArt = "EUST" - Me.cntlAbsender_Eust._beteiligter = "ABS" - Me.cntlAbsender_Eust._readOnly = False - Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133) - Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust" - Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Eust.TabIndex = 65 - Me.cntlAbsender_Eust.TabStop = False - Me.cntlAbsender_Eust.value = "" - ' - 'cntlAbsender_Zoll - ' - Me.cntlAbsender_Zoll._abrArt = "ZOLL" - Me.cntlAbsender_Zoll._beteiligter = "ABS" - Me.cntlAbsender_Zoll._readOnly = False - Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133) - Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll" - Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Zoll.TabIndex = 64 - Me.cntlAbsender_Zoll.TabStop = False - Me.cntlAbsender_Zoll.value = "" - ' - 'cntlEmpf_Clear - ' - Me.cntlEmpf_Clear._abrArt = "CLEARING" - Me.cntlEmpf_Clear._beteiligter = "EMPF" - Me.cntlEmpf_Clear._readOnly = False - Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94) - Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear" - Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Clear.TabIndex = 52 - Me.cntlEmpf_Clear.TabStop = False - Me.cntlEmpf_Clear.value = "" - ' - 'cntlEmpf_Abf - ' - Me.cntlEmpf_Abf._abrArt = "ABFKOST" - Me.cntlEmpf_Abf._beteiligter = "EMPF" - Me.cntlEmpf_Abf._readOnly = False - Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94) - Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf" - Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Abf.TabIndex = 51 - Me.cntlEmpf_Abf.TabStop = False - Me.cntlEmpf_Abf.value = "" - ' - 'cntlEmpf_Eust - ' - Me.cntlEmpf_Eust._abrArt = "EUST" - Me.cntlEmpf_Eust._beteiligter = "EMPF" - Me.cntlEmpf_Eust._readOnly = False - Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94) - Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust" - Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Eust.TabIndex = 50 - Me.cntlEmpf_Eust.TabStop = False - Me.cntlEmpf_Eust.value = "" - ' - 'cntlEmpf_Zoll - ' - Me.cntlEmpf_Zoll._abrArt = "ZOLL" - Me.cntlEmpf_Zoll._beteiligter = "EMPF" - Me.cntlEmpf_Zoll._readOnly = False - Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94) - Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll" - Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Zoll.TabIndex = 49 - Me.cntlEmpf_Zoll.TabStop = False - Me.cntlEmpf_Zoll.value = "" - ' - 'cntlAuftr_Clear - ' - Me.cntlAuftr_Clear._abrArt = "CLEARING" - Me.cntlAuftr_Clear._beteiligter = "AUFTR" - Me.cntlAuftr_Clear._readOnly = False - Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57) - Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear" - Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Clear.TabIndex = 35 - Me.cntlAuftr_Clear.TabStop = False - Me.cntlAuftr_Clear.value = "" - ' - 'cntlAuftr_Abf - ' - Me.cntlAuftr_Abf._abrArt = "ABFKOST" - Me.cntlAuftr_Abf._beteiligter = "AUFTR" - Me.cntlAuftr_Abf._readOnly = False - Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57) - Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf" - Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Abf.TabIndex = 34 - Me.cntlAuftr_Abf.TabStop = False - Me.cntlAuftr_Abf.value = "" - ' - 'cntlAuftr_Eust - ' - Me.cntlAuftr_Eust._abrArt = "EUST" - Me.cntlAuftr_Eust._beteiligter = "AUFTR" - Me.cntlAuftr_Eust._readOnly = False - Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57) - Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust" - Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Eust.TabIndex = 33 - Me.cntlAuftr_Eust.TabStop = False - Me.cntlAuftr_Eust.value = "" - ' - 'cntlAuftr_Zoll - ' - Me.cntlAuftr_Zoll._abrArt = "ZOLL" - Me.cntlAuftr_Zoll._beteiligter = "AUFTR" - Me.cntlAuftr_Zoll._readOnly = False - Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57) - Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll" - Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Zoll.TabIndex = 32 - Me.cntlAuftr_Zoll.TabStop = False - Me.cntlAuftr_Zoll.value = "" - ' - 'cntlAvisierer_Clear - ' - Me.cntlAvisierer_Clear._abrArt = "CLEARING" - Me.cntlAvisierer_Clear._beteiligter = "AVISIERER" - Me.cntlAvisierer_Clear._readOnly = False - Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20) - Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear" - Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Clear.TabIndex = 20 - Me.cntlAvisierer_Clear.TabStop = False - Me.cntlAvisierer_Clear.value = "" - ' - 'cntlAvisierer_Abf - ' - Me.cntlAvisierer_Abf._abrArt = "ABFKOST" - Me.cntlAvisierer_Abf._beteiligter = "AVISIERER" - Me.cntlAvisierer_Abf._readOnly = False - Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20) - Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf" - Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Abf.TabIndex = 19 - Me.cntlAvisierer_Abf.TabStop = False - Me.cntlAvisierer_Abf.value = "" - ' - 'cntlAvisierer_Eust - ' - Me.cntlAvisierer_Eust._abrArt = "EUST" - Me.cntlAvisierer_Eust._beteiligter = "AVISIERER" - Me.cntlAvisierer_Eust._readOnly = False - Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20) - Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust" - Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Eust.TabIndex = 18 - Me.cntlAvisierer_Eust.TabStop = False - Me.cntlAvisierer_Eust.value = "" - ' - 'cntlAvisierer_Zoll - ' - Me.cntlAvisierer_Zoll._abrArt = "ZOLL" - Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER" - Me.cntlAvisierer_Zoll._readOnly = False - Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20) - Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll" - Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Zoll.TabIndex = 17 - Me.cntlAvisierer_Zoll.TabStop = False - Me.cntlAvisierer_Zoll.value = "" - ' - 'UsrCntlSND_NCTSGestellungsadresse1 - ' - Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1" - Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 92) - Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 - ' - 'txtFrachtkostenNichtEU - ' - Me.txtFrachtkostenNichtEU._DateTimeOnly = False - Me.txtFrachtkostenNichtEU._numbersOnly = False - Me.txtFrachtkostenNichtEU._numbersOnlyKommastellen = "" - Me.txtFrachtkostenNichtEU._numbersOnlyTrennzeichen = True - Me.txtFrachtkostenNichtEU._Prozent = False - Me.txtFrachtkostenNichtEU._ShortDateNew = False - Me.txtFrachtkostenNichtEU._ShortDateOnly = False - Me.txtFrachtkostenNichtEU._TimeOnly = False - Me.txtFrachtkostenNichtEU._TimeOnly_Seconds = False - Me.txtFrachtkostenNichtEU._value = "" - Me.txtFrachtkostenNichtEU._Waehrung = True - Me.txtFrachtkostenNichtEU._WaehrungZeichen = True - Me.txtFrachtkostenNichtEU.ForeColor = System.Drawing.Color.Black - Me.txtFrachtkostenNichtEU.Location = New System.Drawing.Point(313, 57) - Me.txtFrachtkostenNichtEU.MaxLineLength = -1 - Me.txtFrachtkostenNichtEU.MaxLines_Warning = "" - Me.txtFrachtkostenNichtEU.MaxLines_Warning_Label = Nothing - Me.txtFrachtkostenNichtEU.Name = "txtFrachtkostenNichtEU" - Me.txtFrachtkostenNichtEU.Size = New System.Drawing.Size(50, 20) - Me.txtFrachtkostenNichtEU.TabIndex = 14 - Me.txtFrachtkostenNichtEU.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label6.Location = New System.Drawing.Point(293, 43) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(21, 13) - Me.Label6.TabIndex = 16 - Me.Label6.Text = "EU" - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label7.Location = New System.Drawing.Point(321, 43) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(47, 13) - Me.Label7.TabIndex = 15 - Me.Label7.Text = "Nicht EU" - ' - 'Button18 - ' - Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button18.Location = New System.Drawing.Point(264, 76) - Me.Button18.Name = "Button18" - Me.Button18.Size = New System.Drawing.Size(99, 21) - Me.Button18.TabIndex = 60 - Me.Button18.Text = "berechnen" - Me.Button18.UseVisualStyleBackColor = True - ' 'frmSendungsdetailsNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) diff --git a/Aviso/frmSendungsdetailsNEU.resx b/Aviso/frmSendungsdetailsNEU.resx index 5e264b1..9efdf68 100644 --- a/Aviso/frmSendungsdetailsNEU.resx +++ b/Aviso/frmSendungsdetailsNEU.resx @@ -118,103 +118,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 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= - - - - - 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 - - - - - 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= - - iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V @@ -1628,9 +1531,6 @@ mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== - - 296, 17 - iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V @@ -1642,18 +1542,103 @@ 296, 17 - - True - - - True - - - True - - - True - + + + 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= + + + + + 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 + + + + + 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= + + True @@ -1898,9 +1883,6 @@ 174, 17 - - 404, 17 - 596, 17 diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 5e7f3be..658911d 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/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 @@ -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,
" TextHTML &= "
" - TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.
" - TextHTML &= "
" + TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.
" + TextHTML &= "
" - TextHTML &= "Mit freundlichen Grüßen
" - TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" - TextHTML &= "
" + TextHTML &= "Mit freundlichen Grüßen
" + TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + TextHTML &= "
" - Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" + Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" - 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