diff --git a/Aviso/frmFrachtkostenBerechnen.Designer.vb b/Aviso/frmFrachtkostenBerechnen.Designer.vb index 9875fa4..38f498a 100644 --- a/Aviso/frmFrachtkostenBerechnen.Designer.vb +++ b/Aviso/frmFrachtkostenBerechnen.Designer.vb @@ -25,21 +25,21 @@ Partial Class frmFrachtkostenBerechnen Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFrachtkostenBerechnen)) Me.ToolTipAutomatischErmitteln = New System.Windows.Forms.ToolTip(Me.components) - Me.UsrcntlFrachtkostenberechnung1 = New usrcntlFrachtkostenberechnung() + Me.UsrcntlFrachtkostenberechnung1 = New AVISO.usrcntlFrachtkostenberechnung() Me.SuspendLayout() ' 'UsrcntlFrachtkostenberechnung1 ' Me.UsrcntlFrachtkostenberechnung1.Location = New System.Drawing.Point(12, 12) Me.UsrcntlFrachtkostenberechnung1.Name = "UsrcntlFrachtkostenberechnung1" - Me.UsrcntlFrachtkostenberechnung1.Size = New System.Drawing.Size(386, 393) + Me.UsrcntlFrachtkostenberechnung1.Size = New System.Drawing.Size(386, 451) Me.UsrcntlFrachtkostenberechnung1.TabIndex = 37 ' 'frmFrachtkostenBerechnen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(405, 395) + Me.ClientSize = New System.Drawing.Size(405, 472) Me.Controls.Add(Me.UsrcntlFrachtkostenberechnung1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmFrachtkostenBerechnen" diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 614a921..378f8b9 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -5714,7 +5714,7 @@ Public Class frmSendungsdetailsNEU Dim f = New frmFrachtkostenBerechnen() - f.UsrcntlFrachtkostenberechnung1.init(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text, txtWarenwert._value) + f.UsrcntlFrachtkostenberechnung1.init(AvisoId, txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text, txtWarenwert._value) If f.ShowDialog = DialogResult.OK Then diff --git a/Aviso/usrcntlFrachtkostenberechnung.Designer.vb b/Aviso/usrcntlFrachtkostenberechnung.Designer.vb index 2659a2c..490c809 100644 --- a/Aviso/usrcntlFrachtkostenberechnung.Designer.vb +++ b/Aviso/usrcntlFrachtkostenberechnung.Designer.vb @@ -22,6 +22,8 @@ Partial Class usrcntlFrachtkostenberechnung 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlFrachtkostenberechnung)) Me.cbxLandNach = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxLandVon = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox() @@ -62,53 +64,63 @@ Partial Class usrcntlFrachtkostenberechnung Me.Panel1 = New System.Windows.Forms.Panel() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.Panel2 = New System.Windows.Forms.Panel() + Me.Button8 = New System.Windows.Forms.Button() Me.Label17 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label() - Me.txtDistanzGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGesamtdistanz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label12 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() Me.lblAnteil = New System.Windows.Forms.Label() Me.Panel6 = New System.Windows.Forms.Panel() - Me.MyTextBox6 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGesamtfracht = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() - Me.txtWarengewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWarengewichtBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label9 = New System.Windows.Forms.Label() Me.txtGesamtgewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label28 = New System.Windows.Forms.Label() Me.lblWaehrung = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() - Me.txtWarenanteil = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWarenanteilsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGesamtfrachtAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel4 = New System.Windows.Forms.Panel() Me.Label8 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() - Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txbCalcDistanceNichtEU2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWarengewichtNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPreis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtDistanzNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label16 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() - Me.txbCalcDistanceEU2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtDistanzEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel5 = New System.Windows.Forms.Panel() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnteilZollInProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label27 = New System.Windows.Forms.Label() Me.txtBGLZoll = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label21 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() - Me.txtWeitereTarifPos = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnteilZoll = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVerzollungskosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label23 = New System.Windows.Forms.Label() - Me.txtPreis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEUST = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGesamtpreis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBGLEUST = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtWare = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label25 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.Panel3 = New System.Windows.Forms.Panel() - Me.txtFrachtanteil = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFrachtkostenanteil = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnCancel = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.Label19 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label32 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -174,7 +186,6 @@ Partial Class usrcntlFrachtkostenberechnung Me.txbCalcDistanceNichtEU.Name = "txbCalcDistanceNichtEU" Me.txbCalcDistanceNichtEU.Size = New System.Drawing.Size(84, 20) Me.txbCalcDistanceNichtEU.TabIndex = 69 - Me.txbCalcDistanceNichtEU.Visible = False ' 'lblDistanzNichtEU ' @@ -184,7 +195,6 @@ Partial Class usrcntlFrachtkostenberechnung Me.lblDistanzNichtEU.Size = New System.Drawing.Size(42, 13) Me.lblDistanzNichtEU.TabIndex = 70 Me.lblDistanzNichtEU.Text = "Distanz" - Me.lblDistanzNichtEU.Visible = False ' 'tbNichtEUAnteilberechnet ' @@ -646,7 +656,7 @@ Partial Class usrcntlFrachtkostenberechnung Me.TabControl1.Location = New System.Drawing.Point(3, 3) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(385, 365) + Me.TabControl1.Size = New System.Drawing.Size(385, 407) Me.TabControl1.TabIndex = 74 ' 'TabPage1 @@ -655,7 +665,7 @@ Partial Class usrcntlFrachtkostenberechnung Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(377, 339) + Me.TabPage1.Size = New System.Drawing.Size(377, 381) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Entfernung" Me.TabPage1.UseVisualStyleBackColor = True @@ -699,7 +709,7 @@ Partial Class usrcntlFrachtkostenberechnung Me.Panel1.Controls.Add(Me.Label3) Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(374, 347) + Me.Panel1.Size = New System.Drawing.Size(374, 295) Me.Panel1.TabIndex = 0 ' 'TabPage2 @@ -708,67 +718,87 @@ Partial Class usrcntlFrachtkostenberechnung Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(377, 339) + Me.TabPage2.Size = New System.Drawing.Size(377, 381) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Detailiert" Me.TabPage2.UseVisualStyleBackColor = True ' 'Panel2 ' + Me.Panel2.Controls.Add(Me.Label33) + Me.Panel2.Controls.Add(Me.Label32) + Me.Panel2.Controls.Add(Me.Label31) + Me.Panel2.Controls.Add(Me.Label30) + Me.Panel2.Controls.Add(Me.Label26) + Me.Panel2.Controls.Add(Me.Label24) + Me.Panel2.Controls.Add(Me.Label20) + Me.Panel2.Controls.Add(Me.Label19) + Me.Panel2.Controls.Add(Me.Button8) Me.Panel2.Controls.Add(Me.Label17) Me.Panel2.Controls.Add(Me.Label15) - Me.Panel2.Controls.Add(Me.txtDistanzGes) + Me.Panel2.Controls.Add(Me.txtGesamtdistanz) Me.Panel2.Controls.Add(Me.Label12) Me.Panel2.Controls.Add(Me.Label11) Me.Panel2.Controls.Add(Me.lblAnteil) Me.Panel2.Controls.Add(Me.Panel6) - Me.Panel2.Controls.Add(Me.MyTextBox6) + Me.Panel2.Controls.Add(Me.txtGesamtfracht) Me.Panel2.Controls.Add(Me.Label10) - Me.Panel2.Controls.Add(Me.txtWarengewicht) + Me.Panel2.Controls.Add(Me.txtWarengewichtBrutto) Me.Panel2.Controls.Add(Me.Label9) Me.Panel2.Controls.Add(Me.txtGesamtgewicht) Me.Panel2.Controls.Add(Me.Label28) Me.Panel2.Controls.Add(Me.lblWaehrung) Me.Panel2.Controls.Add(Me.Label14) Me.Panel2.Controls.Add(Me.Label13) - Me.Panel2.Controls.Add(Me.txtWarenanteil) - Me.Panel2.Controls.Add(Me.txtGesamtsumme) + Me.Panel2.Controls.Add(Me.txtWarenanteilsumme) + Me.Panel2.Controls.Add(Me.txtGesamtfrachtAnteil) Me.Panel2.Controls.Add(Me.Panel4) Me.Panel2.Controls.Add(Me.Label8) Me.Panel2.Controls.Add(Me.Label7) - Me.Panel2.Controls.Add(Me.MyTextBox3) - Me.Panel2.Controls.Add(Me.MyTextBox2) - Me.Panel2.Controls.Add(Me.txbCalcDistanceNichtEU2) + Me.Panel2.Controls.Add(Me.txtWarengewichtNetto) + Me.Panel2.Controls.Add(Me.txtPreis) + Me.Panel2.Controls.Add(Me.txtDistanzNichtEU) Me.Panel2.Controls.Add(Me.Label16) Me.Panel2.Controls.Add(Me.Label18) - Me.Panel2.Controls.Add(Me.txbCalcDistanceEU2) + Me.Panel2.Controls.Add(Me.txtDistanzEU) Me.Panel2.Controls.Add(Me.Panel5) - Me.Panel2.Controls.Add(Me.MyTextBox1) + Me.Panel2.Controls.Add(Me.txtAnteilZollInProzent) Me.Panel2.Controls.Add(Me.Label5) Me.Panel2.Controls.Add(Me.Label6) Me.Panel2.Controls.Add(Me.Label27) Me.Panel2.Controls.Add(Me.txtBGLZoll) Me.Panel2.Controls.Add(Me.Label21) Me.Panel2.Controls.Add(Me.Label22) - Me.Panel2.Controls.Add(Me.txtWeitereTarifPos) + Me.Panel2.Controls.Add(Me.txtAnteilZoll) Me.Panel2.Controls.Add(Me.txtVerzollungskosten) Me.Panel2.Controls.Add(Me.Label23) - Me.Panel2.Controls.Add(Me.txtPreis) - Me.Panel2.Controls.Add(Me.txtEUST) + Me.Panel2.Controls.Add(Me.txtGesamtpreis) + Me.Panel2.Controls.Add(Me.txtBGLEUST) Me.Panel2.Controls.Add(Me.txtWare) Me.Panel2.Controls.Add(Me.Label25) Me.Panel2.Controls.Add(Me.Label29) Me.Panel2.Controls.Add(Me.Panel3) - Me.Panel2.Controls.Add(Me.txtFrachtanteil) + Me.Panel2.Controls.Add(Me.txtFrachtkostenanteil) Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(377, 375) + Me.Panel2.Size = New System.Drawing.Size(377, 385) Me.Panel2.TabIndex = 0 ' + 'Button8 + ' + Me.Button8.BackgroundImage = CType(resources.GetObject("Button8.BackgroundImage"), System.Drawing.Image) + Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.Location = New System.Drawing.Point(172, 333) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(36, 42) + Me.Button8.TabIndex = 175 + Me.Button8.UseVisualStyleBackColor = True + ' 'Label17 ' Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(227, 315) + Me.Label17.Location = New System.Drawing.Point(227, 305) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(43, 13) Me.Label17.TabIndex = 174 @@ -778,40 +808,41 @@ Partial Class usrcntlFrachtkostenberechnung ' Me.Label15.AutoSize = True Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label15.Location = New System.Drawing.Point(353, 315) + Me.Label15.Location = New System.Drawing.Point(351, 305) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(23, 13) Me.Label15.TabIndex = 173 Me.Label15.Text = "km" ' - 'txtDistanzGes + 'txtGesamtdistanz ' - Me.txtDistanzGes._DateTimeOnly = False - Me.txtDistanzGes._numbersOnly = False - Me.txtDistanzGes._numbersOnlyKommastellen = "" - Me.txtDistanzGes._numbersOnlyTrennzeichen = True - Me.txtDistanzGes._Prozent = False - Me.txtDistanzGes._ShortDateNew = False - Me.txtDistanzGes._ShortDateOnly = False - Me.txtDistanzGes._TimeOnly = False - Me.txtDistanzGes._TimeOnly_Seconds = False - Me.txtDistanzGes._value = "" - Me.txtDistanzGes._Waehrung = False - Me.txtDistanzGes._WaehrungZeichen = True - Me.txtDistanzGes.ForeColor = System.Drawing.Color.Black - Me.txtDistanzGes.Location = New System.Drawing.Point(276, 308) - Me.txtDistanzGes.MaxLineLength = -1 - Me.txtDistanzGes.MaxLines_Warning = "" - Me.txtDistanzGes.MaxLines_Warning_Label = Nothing - Me.txtDistanzGes.Name = "txtDistanzGes" - Me.txtDistanzGes.Size = New System.Drawing.Size(71, 20) - Me.txtDistanzGes.TabIndex = 172 + Me.txtGesamtdistanz._DateTimeOnly = False + Me.txtGesamtdistanz._numbersOnly = False + Me.txtGesamtdistanz._numbersOnlyKommastellen = "" + Me.txtGesamtdistanz._numbersOnlyTrennzeichen = True + Me.txtGesamtdistanz._Prozent = False + Me.txtGesamtdistanz._ShortDateNew = False + Me.txtGesamtdistanz._ShortDateOnly = False + Me.txtGesamtdistanz._TimeOnly = False + Me.txtGesamtdistanz._TimeOnly_Seconds = False + Me.txtGesamtdistanz._value = "" + Me.txtGesamtdistanz._Waehrung = False + Me.txtGesamtdistanz._WaehrungZeichen = True + Me.txtGesamtdistanz.ForeColor = System.Drawing.Color.Black + Me.txtGesamtdistanz.Location = New System.Drawing.Point(276, 298) + Me.txtGesamtdistanz.MaxLineLength = -1 + Me.txtGesamtdistanz.MaxLines_Warning = "" + Me.txtGesamtdistanz.MaxLines_Warning_Label = Nothing + Me.txtGesamtdistanz.Name = "txtGesamtdistanz" + Me.txtGesamtdistanz.ReadOnly = True + Me.txtGesamtdistanz.Size = New System.Drawing.Size(71, 20) + Me.txtGesamtdistanz.TabIndex = 172 ' 'Label12 ' Me.Label12.AutoSize = True Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label12.Location = New System.Drawing.Point(181, 315) + Me.Label12.Location = New System.Drawing.Point(181, 305) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(23, 13) Me.Label12.TabIndex = 170 @@ -821,7 +852,7 @@ Partial Class usrcntlFrachtkostenberechnung ' Me.Label11.AutoSize = True Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label11.Location = New System.Drawing.Point(181, 292) + Me.Label11.Location = New System.Drawing.Point(181, 282) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(23, 13) Me.Label11.TabIndex = 169 @@ -831,7 +862,7 @@ Partial Class usrcntlFrachtkostenberechnung ' Me.lblAnteil.AutoSize = True Me.lblAnteil.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAnteil.Location = New System.Drawing.Point(219, 48) + Me.lblAnteil.Location = New System.Drawing.Point(206, 47) Me.lblAnteil.Name = "lblAnteil" Me.lblAnteil.Size = New System.Drawing.Size(0, 13) Me.lblAnteil.TabIndex = 168 @@ -844,30 +875,30 @@ Partial Class usrcntlFrachtkostenberechnung Me.Panel6.Size = New System.Drawing.Size(350, 2) Me.Panel6.TabIndex = 159 ' - 'MyTextBox6 + 'txtGesamtfracht ' - Me.MyTextBox6._DateTimeOnly = False - Me.MyTextBox6._numbersOnly = False - Me.MyTextBox6._numbersOnlyKommastellen = "" - Me.MyTextBox6._numbersOnlyTrennzeichen = True - Me.MyTextBox6._Prozent = False - Me.MyTextBox6._ShortDateNew = False - Me.MyTextBox6._ShortDateOnly = False - Me.MyTextBox6._TimeOnly = False - Me.MyTextBox6._TimeOnly_Seconds = False - Me.MyTextBox6._value = Nothing - Me.MyTextBox6._Waehrung = True - Me.MyTextBox6._WaehrungZeichen = False - Me.MyTextBox6.ForeColor = System.Drawing.Color.Black - Me.MyTextBox6.Location = New System.Drawing.Point(104, 70) - Me.MyTextBox6.MaxLineLength = -1 - Me.MyTextBox6.MaxLines_Warning = "" - Me.MyTextBox6.MaxLines_Warning_Label = Nothing - Me.MyTextBox6.Name = "MyTextBox6" - Me.MyTextBox6.Size = New System.Drawing.Size(86, 20) - Me.MyTextBox6.TabIndex = 79 - Me.MyTextBox6.Text = "0,00 €" - Me.MyTextBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtGesamtfracht._DateTimeOnly = False + Me.txtGesamtfracht._numbersOnly = False + Me.txtGesamtfracht._numbersOnlyKommastellen = "" + Me.txtGesamtfracht._numbersOnlyTrennzeichen = True + Me.txtGesamtfracht._Prozent = False + Me.txtGesamtfracht._ShortDateNew = False + Me.txtGesamtfracht._ShortDateOnly = False + Me.txtGesamtfracht._TimeOnly = False + Me.txtGesamtfracht._TimeOnly_Seconds = False + Me.txtGesamtfracht._value = Nothing + Me.txtGesamtfracht._Waehrung = True + Me.txtGesamtfracht._WaehrungZeichen = False + Me.txtGesamtfracht.ForeColor = System.Drawing.Color.Black + Me.txtGesamtfracht.Location = New System.Drawing.Point(114, 70) + Me.txtGesamtfracht.MaxLineLength = -1 + Me.txtGesamtfracht.MaxLines_Warning = "" + Me.txtGesamtfracht.MaxLines_Warning_Label = Nothing + Me.txtGesamtfracht.Name = "txtGesamtfracht" + Me.txtGesamtfracht.Size = New System.Drawing.Size(76, 20) + Me.txtGesamtfracht.TabIndex = 79 + Me.txtGesamtfracht.Text = "0,00 €" + Me.txtGesamtfracht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label10 ' @@ -879,30 +910,30 @@ Partial Class usrcntlFrachtkostenberechnung Me.Label10.TabIndex = 166 Me.Label10.Text = "kg" ' - 'txtWarengewicht + 'txtWarengewichtBrutto ' - Me.txtWarengewicht._DateTimeOnly = False - Me.txtWarengewicht._numbersOnly = False - Me.txtWarengewicht._numbersOnlyKommastellen = "" - Me.txtWarengewicht._numbersOnlyTrennzeichen = True - Me.txtWarengewicht._Prozent = False - Me.txtWarengewicht._ShortDateNew = False - Me.txtWarengewicht._ShortDateOnly = False - Me.txtWarengewicht._TimeOnly = False - Me.txtWarengewicht._TimeOnly_Seconds = False - Me.txtWarengewicht._value = "0,00" - Me.txtWarengewicht._Waehrung = False - Me.txtWarengewicht._WaehrungZeichen = False - Me.txtWarengewicht.ForeColor = System.Drawing.Color.Black - Me.txtWarengewicht.Location = New System.Drawing.Point(104, 43) - Me.txtWarengewicht.MaxLineLength = -1 - Me.txtWarengewicht.MaxLines_Warning = "" - Me.txtWarengewicht.MaxLines_Warning_Label = Nothing - Me.txtWarengewicht.Name = "txtWarengewicht" - Me.txtWarengewicht.Size = New System.Drawing.Size(65, 20) - Me.txtWarengewicht.TabIndex = 78 - Me.txtWarengewicht.Text = "0,00" - Me.txtWarengewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtWarengewichtBrutto._DateTimeOnly = False + Me.txtWarengewichtBrutto._numbersOnly = False + Me.txtWarengewichtBrutto._numbersOnlyKommastellen = "" + Me.txtWarengewichtBrutto._numbersOnlyTrennzeichen = True + Me.txtWarengewichtBrutto._Prozent = False + Me.txtWarengewichtBrutto._ShortDateNew = False + Me.txtWarengewichtBrutto._ShortDateOnly = False + Me.txtWarengewichtBrutto._TimeOnly = False + Me.txtWarengewichtBrutto._TimeOnly_Seconds = False + Me.txtWarengewichtBrutto._value = "0,00" + Me.txtWarengewichtBrutto._Waehrung = False + Me.txtWarengewichtBrutto._WaehrungZeichen = False + Me.txtWarengewichtBrutto.ForeColor = System.Drawing.Color.Black + Me.txtWarengewichtBrutto.Location = New System.Drawing.Point(104, 43) + Me.txtWarengewichtBrutto.MaxLineLength = -1 + Me.txtWarengewichtBrutto.MaxLines_Warning = "" + Me.txtWarengewichtBrutto.MaxLines_Warning_Label = Nothing + Me.txtWarengewichtBrutto.Name = "txtWarengewichtBrutto" + Me.txtWarengewichtBrutto.Size = New System.Drawing.Size(65, 20) + Me.txtWarengewichtBrutto.TabIndex = 78 + Me.txtWarengewichtBrutto.Text = "0,00" + Me.txtWarengewichtBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label9 ' @@ -951,7 +982,7 @@ Partial Class usrcntlFrachtkostenberechnung 'lblWaehrung ' Me.lblWaehrung.AutoSize = True - Me.lblWaehrung.Location = New System.Drawing.Point(240, 70) + Me.lblWaehrung.Location = New System.Drawing.Point(241, 74) Me.lblWaehrung.Name = "lblWaehrung" Me.lblWaehrung.Size = New System.Drawing.Size(30, 13) Me.lblWaehrung.TabIndex = 161 @@ -969,65 +1000,65 @@ Partial Class usrcntlFrachtkostenberechnung 'Label13 ' Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(7, 70) + Me.Label13.Location = New System.Drawing.Point(5, 74) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(70, 13) Me.Label13.TabIndex = 159 Me.Label13.Text = "Gesamtfracht" ' - 'txtWarenanteil + 'txtWarenanteilsumme ' - Me.txtWarenanteil._DateTimeOnly = False - Me.txtWarenanteil._numbersOnly = False - Me.txtWarenanteil._numbersOnlyKommastellen = "" - Me.txtWarenanteil._numbersOnlyTrennzeichen = True - Me.txtWarenanteil._Prozent = False - Me.txtWarenanteil._ShortDateNew = False - Me.txtWarenanteil._ShortDateOnly = False - Me.txtWarenanteil._TimeOnly = False - Me.txtWarenanteil._TimeOnly_Seconds = False - Me.txtWarenanteil._value = Nothing - Me.txtWarenanteil._Waehrung = True - Me.txtWarenanteil._WaehrungZeichen = False - Me.txtWarenanteil.ForeColor = System.Drawing.Color.Black - Me.txtWarenanteil.Location = New System.Drawing.Point(280, 40) - Me.txtWarenanteil.MaxLineLength = -1 - Me.txtWarenanteil.MaxLines_Warning = "" - Me.txtWarenanteil.MaxLines_Warning_Label = Nothing - Me.txtWarenanteil.Name = "txtWarenanteil" - Me.txtWarenanteil.ReadOnly = True - Me.txtWarenanteil.Size = New System.Drawing.Size(67, 20) - Me.txtWarenanteil.TabIndex = 157 - Me.txtWarenanteil.TabStop = False - Me.txtWarenanteil.Text = "0,00 €" - Me.txtWarenanteil.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtWarenanteilsumme._DateTimeOnly = False + Me.txtWarenanteilsumme._numbersOnly = False + Me.txtWarenanteilsumme._numbersOnlyKommastellen = "" + Me.txtWarenanteilsumme._numbersOnlyTrennzeichen = True + Me.txtWarenanteilsumme._Prozent = False + Me.txtWarenanteilsumme._ShortDateNew = False + Me.txtWarenanteilsumme._ShortDateOnly = False + Me.txtWarenanteilsumme._TimeOnly = False + Me.txtWarenanteilsumme._TimeOnly_Seconds = False + Me.txtWarenanteilsumme._value = Nothing + Me.txtWarenanteilsumme._Waehrung = True + Me.txtWarenanteilsumme._WaehrungZeichen = False + Me.txtWarenanteilsumme.ForeColor = System.Drawing.Color.Black + Me.txtWarenanteilsumme.Location = New System.Drawing.Point(280, 40) + Me.txtWarenanteilsumme.MaxLineLength = -1 + Me.txtWarenanteilsumme.MaxLines_Warning = "" + Me.txtWarenanteilsumme.MaxLines_Warning_Label = Nothing + Me.txtWarenanteilsumme.Name = "txtWarenanteilsumme" + Me.txtWarenanteilsumme.ReadOnly = True + Me.txtWarenanteilsumme.Size = New System.Drawing.Size(75, 20) + Me.txtWarenanteilsumme.TabIndex = 157 + Me.txtWarenanteilsumme.TabStop = False + Me.txtWarenanteilsumme.Text = "0,00 €" + Me.txtWarenanteilsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'txtGesamtsumme + 'txtGesamtfrachtAnteil ' - Me.txtGesamtsumme._DateTimeOnly = False - Me.txtGesamtsumme._numbersOnly = False - Me.txtGesamtsumme._numbersOnlyKommastellen = "" - Me.txtGesamtsumme._numbersOnlyTrennzeichen = True - Me.txtGesamtsumme._Prozent = False - Me.txtGesamtsumme._ShortDateNew = False - Me.txtGesamtsumme._ShortDateOnly = False - Me.txtGesamtsumme._TimeOnly = False - Me.txtGesamtsumme._TimeOnly_Seconds = False - Me.txtGesamtsumme._value = Nothing - Me.txtGesamtsumme._Waehrung = True - Me.txtGesamtsumme._WaehrungZeichen = False - Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black - Me.txtGesamtsumme.Location = New System.Drawing.Point(279, 67) - Me.txtGesamtsumme.MaxLineLength = -1 - Me.txtGesamtsumme.MaxLines_Warning = "" - Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing - Me.txtGesamtsumme.Name = "txtGesamtsumme" - Me.txtGesamtsumme.ReadOnly = True - Me.txtGesamtsumme.Size = New System.Drawing.Size(68, 20) - Me.txtGesamtsumme.TabIndex = 160 - Me.txtGesamtsumme.TabStop = False - Me.txtGesamtsumme.Text = "0,00 €" - Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtGesamtfrachtAnteil._DateTimeOnly = False + Me.txtGesamtfrachtAnteil._numbersOnly = False + Me.txtGesamtfrachtAnteil._numbersOnlyKommastellen = "" + Me.txtGesamtfrachtAnteil._numbersOnlyTrennzeichen = True + Me.txtGesamtfrachtAnteil._Prozent = False + Me.txtGesamtfrachtAnteil._ShortDateNew = False + Me.txtGesamtfrachtAnteil._ShortDateOnly = False + Me.txtGesamtfrachtAnteil._TimeOnly = False + Me.txtGesamtfrachtAnteil._TimeOnly_Seconds = False + Me.txtGesamtfrachtAnteil._value = Nothing + Me.txtGesamtfrachtAnteil._Waehrung = True + Me.txtGesamtfrachtAnteil._WaehrungZeichen = False + Me.txtGesamtfrachtAnteil.ForeColor = System.Drawing.Color.Black + Me.txtGesamtfrachtAnteil.Location = New System.Drawing.Point(280, 71) + Me.txtGesamtfrachtAnteil.MaxLineLength = -1 + Me.txtGesamtfrachtAnteil.MaxLines_Warning = "" + Me.txtGesamtfrachtAnteil.MaxLines_Warning_Label = Nothing + Me.txtGesamtfrachtAnteil.Name = "txtGesamtfrachtAnteil" + Me.txtGesamtfrachtAnteil.ReadOnly = True + Me.txtGesamtfrachtAnteil.Size = New System.Drawing.Size(76, 20) + Me.txtGesamtfrachtAnteil.TabIndex = 160 + Me.txtGesamtfrachtAnteil.TabStop = False + Me.txtGesamtfrachtAnteil.Text = "0,00 €" + Me.txtGesamtfrachtAnteil.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Panel4 ' @@ -1041,7 +1072,7 @@ Partial Class usrcntlFrachtkostenberechnung ' Me.Label8.AutoSize = True Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label8.Location = New System.Drawing.Point(195, 142) + Me.Label8.Location = New System.Drawing.Point(206, 132) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(21, 13) Me.Label8.TabIndex = 150 @@ -1051,89 +1082,89 @@ Partial Class usrcntlFrachtkostenberechnung ' Me.Label7.AutoSize = True Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(111, 142) + Me.Label7.Location = New System.Drawing.Point(122, 132) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(13, 13) Me.Label7.TabIndex = 149 Me.Label7.Text = "x" ' - 'MyTextBox3 + 'txtWarengewichtNetto ' - Me.MyTextBox3._DateTimeOnly = False - Me.MyTextBox3._numbersOnly = False - Me.MyTextBox3._numbersOnlyKommastellen = "" - Me.MyTextBox3._numbersOnlyTrennzeichen = True - Me.MyTextBox3._Prozent = False - Me.MyTextBox3._ShortDateNew = False - Me.MyTextBox3._ShortDateOnly = False - Me.MyTextBox3._TimeOnly = False - Me.MyTextBox3._TimeOnly_Seconds = False - Me.MyTextBox3._value = "0,00" - Me.MyTextBox3._Waehrung = False - Me.MyTextBox3._WaehrungZeichen = False - Me.MyTextBox3.ForeColor = System.Drawing.Color.Black - Me.MyTextBox3.Location = New System.Drawing.Point(130, 139) - Me.MyTextBox3.MaxLineLength = -1 - Me.MyTextBox3.MaxLines_Warning = "" - Me.MyTextBox3.MaxLines_Warning_Label = Nothing - Me.MyTextBox3.Name = "MyTextBox3" - Me.MyTextBox3.Size = New System.Drawing.Size(65, 20) - Me.MyTextBox3.TabIndex = 82 - Me.MyTextBox3.Text = "0,00" - Me.MyTextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtWarengewichtNetto._DateTimeOnly = False + Me.txtWarengewichtNetto._numbersOnly = False + Me.txtWarengewichtNetto._numbersOnlyKommastellen = "" + Me.txtWarengewichtNetto._numbersOnlyTrennzeichen = True + Me.txtWarengewichtNetto._Prozent = False + Me.txtWarengewichtNetto._ShortDateNew = False + Me.txtWarengewichtNetto._ShortDateOnly = False + Me.txtWarengewichtNetto._TimeOnly = False + Me.txtWarengewichtNetto._TimeOnly_Seconds = False + Me.txtWarengewichtNetto._value = "0,00" + Me.txtWarengewichtNetto._Waehrung = False + Me.txtWarengewichtNetto._WaehrungZeichen = False + Me.txtWarengewichtNetto.ForeColor = System.Drawing.Color.Black + Me.txtWarengewichtNetto.Location = New System.Drawing.Point(141, 129) + Me.txtWarengewichtNetto.MaxLineLength = -1 + Me.txtWarengewichtNetto.MaxLines_Warning = "" + Me.txtWarengewichtNetto.MaxLines_Warning_Label = Nothing + Me.txtWarengewichtNetto.Name = "txtWarengewichtNetto" + Me.txtWarengewichtNetto.Size = New System.Drawing.Size(65, 20) + Me.txtWarengewichtNetto.TabIndex = 82 + Me.txtWarengewichtNetto.Text = "0,00" + Me.txtWarengewichtNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'MyTextBox2 + 'txtPreis ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = False - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = True - Me.MyTextBox2._WaehrungZeichen = False - Me.MyTextBox2.ForeColor = System.Drawing.Color.Black - Me.MyTextBox2.Location = New System.Drawing.Point(57, 139) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(43, 20) - Me.MyTextBox2.TabIndex = 81 - Me.MyTextBox2.Text = "0,00 €" - Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtPreis._DateTimeOnly = False + Me.txtPreis._numbersOnly = False + Me.txtPreis._numbersOnlyKommastellen = "" + Me.txtPreis._numbersOnlyTrennzeichen = True + Me.txtPreis._Prozent = False + Me.txtPreis._ShortDateNew = False + Me.txtPreis._ShortDateOnly = False + Me.txtPreis._TimeOnly = False + Me.txtPreis._TimeOnly_Seconds = False + Me.txtPreis._value = "" + Me.txtPreis._Waehrung = True + Me.txtPreis._WaehrungZeichen = False + Me.txtPreis.ForeColor = System.Drawing.Color.Black + Me.txtPreis.Location = New System.Drawing.Point(65, 129) + Me.txtPreis.MaxLineLength = -1 + Me.txtPreis.MaxLines_Warning = "" + Me.txtPreis.MaxLines_Warning_Label = Nothing + Me.txtPreis.Name = "txtPreis" + Me.txtPreis.Size = New System.Drawing.Size(43, 20) + Me.txtPreis.TabIndex = 81 + Me.txtPreis.Text = "0,00 €" + Me.txtPreis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'txbCalcDistanceNichtEU2 + 'txtDistanzNichtEU ' - Me.txbCalcDistanceNichtEU2._DateTimeOnly = False - Me.txbCalcDistanceNichtEU2._numbersOnly = False - Me.txbCalcDistanceNichtEU2._numbersOnlyKommastellen = "" - Me.txbCalcDistanceNichtEU2._numbersOnlyTrennzeichen = True - Me.txbCalcDistanceNichtEU2._Prozent = False - Me.txbCalcDistanceNichtEU2._ShortDateNew = False - Me.txbCalcDistanceNichtEU2._ShortDateOnly = False - Me.txbCalcDistanceNichtEU2._TimeOnly = False - Me.txbCalcDistanceNichtEU2._TimeOnly_Seconds = False - Me.txbCalcDistanceNichtEU2._value = "" - Me.txbCalcDistanceNichtEU2._Waehrung = False - Me.txbCalcDistanceNichtEU2._WaehrungZeichen = True - Me.txbCalcDistanceNichtEU2.ForeColor = System.Drawing.Color.Black - Me.txbCalcDistanceNichtEU2.Location = New System.Drawing.Point(104, 308) - Me.txbCalcDistanceNichtEU2.MaxLineLength = -1 - Me.txbCalcDistanceNichtEU2.MaxLines_Warning = "" - Me.txbCalcDistanceNichtEU2.MaxLines_Warning_Label = Nothing - Me.txbCalcDistanceNichtEU2.Name = "txbCalcDistanceNichtEU2" - Me.txbCalcDistanceNichtEU2.Size = New System.Drawing.Size(71, 20) - Me.txbCalcDistanceNichtEU2.TabIndex = 143 + Me.txtDistanzNichtEU._DateTimeOnly = False + Me.txtDistanzNichtEU._numbersOnly = False + Me.txtDistanzNichtEU._numbersOnlyKommastellen = "" + Me.txtDistanzNichtEU._numbersOnlyTrennzeichen = True + Me.txtDistanzNichtEU._Prozent = False + Me.txtDistanzNichtEU._ShortDateNew = False + Me.txtDistanzNichtEU._ShortDateOnly = False + Me.txtDistanzNichtEU._TimeOnly = False + Me.txtDistanzNichtEU._TimeOnly_Seconds = False + Me.txtDistanzNichtEU._value = "" + Me.txtDistanzNichtEU._Waehrung = False + Me.txtDistanzNichtEU._WaehrungZeichen = True + Me.txtDistanzNichtEU.ForeColor = System.Drawing.Color.Black + Me.txtDistanzNichtEU.Location = New System.Drawing.Point(104, 298) + Me.txtDistanzNichtEU.MaxLineLength = -1 + Me.txtDistanzNichtEU.MaxLines_Warning = "" + Me.txtDistanzNichtEU.MaxLines_Warning_Label = Nothing + Me.txtDistanzNichtEU.Name = "txtDistanzNichtEU" + Me.txtDistanzNichtEU.Size = New System.Drawing.Size(71, 20) + Me.txtDistanzNichtEU.TabIndex = 143 ' 'Label16 ' Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(7, 288) + Me.Label16.Location = New System.Drawing.Point(7, 278) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(51, 13) Me.Label16.TabIndex = 134 @@ -1142,72 +1173,72 @@ Partial Class usrcntlFrachtkostenberechnung 'Label18 ' Me.Label18.AutoSize = True - Me.Label18.Location = New System.Drawing.Point(7, 311) + Me.Label18.Location = New System.Drawing.Point(7, 301) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(79, 13) Me.Label18.TabIndex = 140 Me.Label18.Text = "Nicht EU Anteil" ' - 'txbCalcDistanceEU2 + 'txtDistanzEU ' - Me.txbCalcDistanceEU2._DateTimeOnly = False - Me.txbCalcDistanceEU2._numbersOnly = False - Me.txbCalcDistanceEU2._numbersOnlyKommastellen = "" - Me.txbCalcDistanceEU2._numbersOnlyTrennzeichen = True - Me.txbCalcDistanceEU2._Prozent = False - Me.txbCalcDistanceEU2._ShortDateNew = False - Me.txbCalcDistanceEU2._ShortDateOnly = False - Me.txbCalcDistanceEU2._TimeOnly = False - Me.txbCalcDistanceEU2._TimeOnly_Seconds = False - Me.txbCalcDistanceEU2._value = "" - Me.txbCalcDistanceEU2._Waehrung = False - Me.txbCalcDistanceEU2._WaehrungZeichen = True - Me.txbCalcDistanceEU2.ForeColor = System.Drawing.Color.Black - Me.txbCalcDistanceEU2.Location = New System.Drawing.Point(104, 285) - Me.txbCalcDistanceEU2.MaxLineLength = -1 - Me.txbCalcDistanceEU2.MaxLines_Warning = "" - Me.txbCalcDistanceEU2.MaxLines_Warning_Label = Nothing - Me.txbCalcDistanceEU2.Name = "txbCalcDistanceEU2" - Me.txbCalcDistanceEU2.Size = New System.Drawing.Size(71, 20) - Me.txbCalcDistanceEU2.TabIndex = 138 + Me.txtDistanzEU._DateTimeOnly = False + Me.txtDistanzEU._numbersOnly = False + Me.txtDistanzEU._numbersOnlyKommastellen = "" + Me.txtDistanzEU._numbersOnlyTrennzeichen = True + Me.txtDistanzEU._Prozent = False + Me.txtDistanzEU._ShortDateNew = False + Me.txtDistanzEU._ShortDateOnly = False + Me.txtDistanzEU._TimeOnly = False + Me.txtDistanzEU._TimeOnly_Seconds = False + Me.txtDistanzEU._value = "" + Me.txtDistanzEU._Waehrung = False + Me.txtDistanzEU._WaehrungZeichen = True + Me.txtDistanzEU.ForeColor = System.Drawing.Color.Black + Me.txtDistanzEU.Location = New System.Drawing.Point(104, 275) + Me.txtDistanzEU.MaxLineLength = -1 + Me.txtDistanzEU.MaxLines_Warning = "" + Me.txtDistanzEU.MaxLines_Warning_Label = Nothing + Me.txtDistanzEU.Name = "txtDistanzEU" + Me.txtDistanzEU.Size = New System.Drawing.Size(71, 20) + Me.txtDistanzEU.TabIndex = 138 ' 'Panel5 ' Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel5.Location = New System.Drawing.Point(10, 245) + Me.Panel5.Location = New System.Drawing.Point(10, 235) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(350, 2) Me.Panel5.TabIndex = 86 ' - 'MyTextBox1 + 'txtAnteilZollInProzent ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = False - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = True - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "0,2" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(10, 207) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(45, 20) - Me.MyTextBox1.TabIndex = 88 - Me.MyTextBox1.Text = "20,00 %" - Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtAnteilZollInProzent._DateTimeOnly = False + Me.txtAnteilZollInProzent._numbersOnly = False + Me.txtAnteilZollInProzent._numbersOnlyKommastellen = "" + Me.txtAnteilZollInProzent._numbersOnlyTrennzeichen = True + Me.txtAnteilZollInProzent._Prozent = True + Me.txtAnteilZollInProzent._ShortDateNew = False + Me.txtAnteilZollInProzent._ShortDateOnly = False + Me.txtAnteilZollInProzent._TimeOnly = False + Me.txtAnteilZollInProzent._TimeOnly_Seconds = False + Me.txtAnteilZollInProzent._value = "0,2" + Me.txtAnteilZollInProzent._Waehrung = False + Me.txtAnteilZollInProzent._WaehrungZeichen = True + Me.txtAnteilZollInProzent.ForeColor = System.Drawing.Color.Black + Me.txtAnteilZollInProzent.Location = New System.Drawing.Point(10, 197) + Me.txtAnteilZollInProzent.MaxLineLength = -1 + Me.txtAnteilZollInProzent.MaxLines_Warning = "" + Me.txtAnteilZollInProzent.MaxLines_Warning_Label = Nothing + Me.txtAnteilZollInProzent.Name = "txtAnteilZollInProzent" + Me.txtAnteilZollInProzent.Size = New System.Drawing.Size(45, 20) + Me.txtAnteilZollInProzent.TabIndex = 88 + Me.txtAnteilZollInProzent.Text = "0,00 %" + Me.txtAnteilZollInProzent.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(65, 142) + Me.Label5.Location = New System.Drawing.Point(65, 132) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(10, 13) Me.Label5.TabIndex = 118 @@ -1217,7 +1248,7 @@ Partial Class usrcntlFrachtkostenberechnung ' Me.Label6.AutoSize = True Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(7, 165) + Me.Label6.Location = New System.Drawing.Point(7, 155) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(158, 13) Me.Label6.TabIndex = 117 @@ -1248,13 +1279,13 @@ Partial Class usrcntlFrachtkostenberechnung Me.txtBGLZoll._Waehrung = True Me.txtBGLZoll._WaehrungZeichen = False Me.txtBGLZoll.ForeColor = System.Drawing.Color.Black - Me.txtBGLZoll.Location = New System.Drawing.Point(235, 226) + Me.txtBGLZoll.Location = New System.Drawing.Point(280, 216) Me.txtBGLZoll.MaxLineLength = -1 Me.txtBGLZoll.MaxLines_Warning = "" Me.txtBGLZoll.MaxLines_Warning_Label = Nothing Me.txtBGLZoll.Name = "txtBGLZoll" Me.txtBGLZoll.ReadOnly = True - Me.txtBGLZoll.Size = New System.Drawing.Size(116, 20) + Me.txtBGLZoll.Size = New System.Drawing.Size(76, 20) Me.txtBGLZoll.TabIndex = 92 Me.txtBGLZoll.TabStop = False Me.txtBGLZoll.Text = "0,00 €" @@ -1263,7 +1294,7 @@ Partial Class usrcntlFrachtkostenberechnung 'Label21 ' Me.Label21.AutoSize = True - Me.Label21.Location = New System.Drawing.Point(7, 254) + Me.Label21.Location = New System.Drawing.Point(7, 244) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(149, 13) Me.Label21.TabIndex = 93 @@ -1272,38 +1303,38 @@ Partial Class usrcntlFrachtkostenberechnung 'Label22 ' Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(7, 229) + Me.Label22.Location = New System.Drawing.Point(7, 219) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(147, 13) Me.Label22.TabIndex = 91 Me.Label22.Text = "Berechnungsgrundlage ZOLL" ' - 'txtWeitereTarifPos + 'txtAnteilZoll ' - Me.txtWeitereTarifPos._DateTimeOnly = False - Me.txtWeitereTarifPos._numbersOnly = False - Me.txtWeitereTarifPos._numbersOnlyKommastellen = "" - Me.txtWeitereTarifPos._numbersOnlyTrennzeichen = True - Me.txtWeitereTarifPos._Prozent = False - Me.txtWeitereTarifPos._ShortDateNew = False - Me.txtWeitereTarifPos._ShortDateOnly = False - Me.txtWeitereTarifPos._TimeOnly = False - Me.txtWeitereTarifPos._TimeOnly_Seconds = False - Me.txtWeitereTarifPos._value = "" - Me.txtWeitereTarifPos._Waehrung = True - Me.txtWeitereTarifPos._WaehrungZeichen = False - Me.txtWeitereTarifPos.ForeColor = System.Drawing.Color.Black - Me.txtWeitereTarifPos.Location = New System.Drawing.Point(235, 207) - Me.txtWeitereTarifPos.MaxLineLength = -1 - Me.txtWeitereTarifPos.MaxLines_Warning = "" - Me.txtWeitereTarifPos.MaxLines_Warning_Label = Nothing - Me.txtWeitereTarifPos.Name = "txtWeitereTarifPos" - Me.txtWeitereTarifPos.ReadOnly = True - Me.txtWeitereTarifPos.Size = New System.Drawing.Size(116, 20) - Me.txtWeitereTarifPos.TabIndex = 90 - Me.txtWeitereTarifPos.TabStop = False - Me.txtWeitereTarifPos.Text = "0,00 €" - Me.txtWeitereTarifPos.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtAnteilZoll._DateTimeOnly = False + Me.txtAnteilZoll._numbersOnly = False + Me.txtAnteilZoll._numbersOnlyKommastellen = "" + Me.txtAnteilZoll._numbersOnlyTrennzeichen = True + Me.txtAnteilZoll._Prozent = False + Me.txtAnteilZoll._ShortDateNew = False + Me.txtAnteilZoll._ShortDateOnly = False + Me.txtAnteilZoll._TimeOnly = False + Me.txtAnteilZoll._TimeOnly_Seconds = False + Me.txtAnteilZoll._value = "" + Me.txtAnteilZoll._Waehrung = True + Me.txtAnteilZoll._WaehrungZeichen = False + Me.txtAnteilZoll.ForeColor = System.Drawing.Color.Black + Me.txtAnteilZoll.Location = New System.Drawing.Point(280, 197) + Me.txtAnteilZoll.MaxLineLength = -1 + Me.txtAnteilZoll.MaxLines_Warning = "" + Me.txtAnteilZoll.MaxLines_Warning_Label = Nothing + Me.txtAnteilZoll.Name = "txtAnteilZoll" + Me.txtAnteilZoll.ReadOnly = True + Me.txtAnteilZoll.Size = New System.Drawing.Size(76, 20) + Me.txtAnteilZoll.TabIndex = 90 + Me.txtAnteilZoll.TabStop = False + Me.txtAnteilZoll.Text = "0,00 €" + Me.txtAnteilZoll.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'txtVerzollungskosten ' @@ -1320,12 +1351,13 @@ Partial Class usrcntlFrachtkostenberechnung Me.txtVerzollungskosten._Waehrung = True Me.txtVerzollungskosten._WaehrungZeichen = False Me.txtVerzollungskosten.ForeColor = System.Drawing.Color.Black - Me.txtVerzollungskosten.Location = New System.Drawing.Point(235, 188) + Me.txtVerzollungskosten.Location = New System.Drawing.Point(280, 178) Me.txtVerzollungskosten.MaxLineLength = -1 Me.txtVerzollungskosten.MaxLines_Warning = "" Me.txtVerzollungskosten.MaxLines_Warning_Label = Nothing Me.txtVerzollungskosten.Name = "txtVerzollungskosten" - Me.txtVerzollungskosten.Size = New System.Drawing.Size(116, 20) + Me.txtVerzollungskosten.ReadOnly = True + Me.txtVerzollungskosten.Size = New System.Drawing.Size(76, 20) Me.txtVerzollungskosten.TabIndex = 87 Me.txtVerzollungskosten.Text = "0,00 €" Me.txtVerzollungskosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1333,65 +1365,65 @@ Partial Class usrcntlFrachtkostenberechnung 'Label23 ' Me.Label23.AutoSize = True - Me.Label23.Location = New System.Drawing.Point(61, 210) + Me.Label23.Location = New System.Drawing.Point(61, 200) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(51, 13) Me.Label23.TabIndex = 89 Me.Label23.Text = "enth. Zoll" ' - 'txtPreis + 'txtGesamtpreis ' - Me.txtPreis._DateTimeOnly = False - Me.txtPreis._numbersOnly = False - Me.txtPreis._numbersOnlyKommastellen = "" - Me.txtPreis._numbersOnlyTrennzeichen = True - Me.txtPreis._Prozent = False - Me.txtPreis._ShortDateNew = False - Me.txtPreis._ShortDateOnly = False - Me.txtPreis._TimeOnly = False - Me.txtPreis._TimeOnly_Seconds = False - Me.txtPreis._value = "" - Me.txtPreis._Waehrung = True - Me.txtPreis._WaehrungZeichen = False - Me.txtPreis.ForeColor = System.Drawing.Color.Black - Me.txtPreis.Location = New System.Drawing.Point(235, 139) - Me.txtPreis.MaxLineLength = -1 - Me.txtPreis.MaxLines_Warning = "" - Me.txtPreis.MaxLines_Warning_Label = Nothing - Me.txtPreis.Name = "txtPreis" - Me.txtPreis.ReadOnly = True - Me.txtPreis.Size = New System.Drawing.Size(116, 20) - Me.txtPreis.TabIndex = 82 - Me.txtPreis.TabStop = False - Me.txtPreis.Text = "0,00 €" - Me.txtPreis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtGesamtpreis._DateTimeOnly = False + Me.txtGesamtpreis._numbersOnly = False + Me.txtGesamtpreis._numbersOnlyKommastellen = "" + Me.txtGesamtpreis._numbersOnlyTrennzeichen = True + Me.txtGesamtpreis._Prozent = False + Me.txtGesamtpreis._ShortDateNew = False + Me.txtGesamtpreis._ShortDateOnly = False + Me.txtGesamtpreis._TimeOnly = False + Me.txtGesamtpreis._TimeOnly_Seconds = False + Me.txtGesamtpreis._value = "" + Me.txtGesamtpreis._Waehrung = True + Me.txtGesamtpreis._WaehrungZeichen = False + Me.txtGesamtpreis.ForeColor = System.Drawing.Color.Black + Me.txtGesamtpreis.Location = New System.Drawing.Point(280, 129) + Me.txtGesamtpreis.MaxLineLength = -1 + Me.txtGesamtpreis.MaxLines_Warning = "" + Me.txtGesamtpreis.MaxLines_Warning_Label = Nothing + Me.txtGesamtpreis.Name = "txtGesamtpreis" + Me.txtGesamtpreis.ReadOnly = True + Me.txtGesamtpreis.Size = New System.Drawing.Size(76, 20) + Me.txtGesamtpreis.TabIndex = 82 + Me.txtGesamtpreis.TabStop = False + Me.txtGesamtpreis.Text = "0,00 €" + Me.txtGesamtpreis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'txtEUST + 'txtBGLEUST ' - Me.txtEUST._DateTimeOnly = False - Me.txtEUST._numbersOnly = False - Me.txtEUST._numbersOnlyKommastellen = "" - Me.txtEUST._numbersOnlyTrennzeichen = True - Me.txtEUST._Prozent = False - Me.txtEUST._ShortDateNew = False - Me.txtEUST._ShortDateOnly = False - Me.txtEUST._TimeOnly = False - Me.txtEUST._TimeOnly_Seconds = False - Me.txtEUST._value = "" - Me.txtEUST._Waehrung = True - Me.txtEUST._WaehrungZeichen = False - Me.txtEUST.ForeColor = System.Drawing.Color.Black - Me.txtEUST.Location = New System.Drawing.Point(235, 251) - Me.txtEUST.MaxLineLength = -1 - Me.txtEUST.MaxLines_Warning = "" - Me.txtEUST.MaxLines_Warning_Label = Nothing - Me.txtEUST.Name = "txtEUST" - Me.txtEUST.ReadOnly = True - Me.txtEUST.Size = New System.Drawing.Size(116, 20) - Me.txtEUST.TabIndex = 94 - Me.txtEUST.TabStop = False - Me.txtEUST.Text = "0,00 €" - Me.txtEUST.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtBGLEUST._DateTimeOnly = False + Me.txtBGLEUST._numbersOnly = False + Me.txtBGLEUST._numbersOnlyKommastellen = "" + Me.txtBGLEUST._numbersOnlyTrennzeichen = True + Me.txtBGLEUST._Prozent = False + Me.txtBGLEUST._ShortDateNew = False + Me.txtBGLEUST._ShortDateOnly = False + Me.txtBGLEUST._TimeOnly = False + Me.txtBGLEUST._TimeOnly_Seconds = False + Me.txtBGLEUST._value = "" + Me.txtBGLEUST._Waehrung = True + Me.txtBGLEUST._WaehrungZeichen = False + Me.txtBGLEUST.ForeColor = System.Drawing.Color.Black + Me.txtBGLEUST.Location = New System.Drawing.Point(280, 241) + Me.txtBGLEUST.MaxLineLength = -1 + Me.txtBGLEUST.MaxLines_Warning = "" + Me.txtBGLEUST.MaxLines_Warning_Label = Nothing + Me.txtBGLEUST.Name = "txtBGLEUST" + Me.txtBGLEUST.ReadOnly = True + Me.txtBGLEUST.Size = New System.Drawing.Size(76, 20) + Me.txtBGLEUST.TabIndex = 94 + Me.txtBGLEUST.TabStop = False + Me.txtBGLEUST.Text = "0,00 €" + Me.txtBGLEUST.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'txtWare ' @@ -1408,7 +1440,7 @@ Partial Class usrcntlFrachtkostenberechnung Me.txtWare._Waehrung = False Me.txtWare._WaehrungZeichen = False Me.txtWare.ForeColor = System.Drawing.Color.Black - Me.txtWare.Location = New System.Drawing.Point(130, 117) + Me.txtWare.Location = New System.Drawing.Point(130, 107) Me.txtWare.MaxLineLength = -1 Me.txtWare.MaxLines_Warning = "" Me.txtWare.MaxLines_Warning_Label = Nothing @@ -1420,7 +1452,7 @@ Partial Class usrcntlFrachtkostenberechnung ' Me.Label25.AutoSize = True Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label25.Location = New System.Drawing.Point(7, 142) + Me.Label25.Location = New System.Drawing.Point(7, 132) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(44, 13) Me.Label25.TabIndex = 81 @@ -1430,7 +1462,7 @@ Partial Class usrcntlFrachtkostenberechnung ' Me.Label29.AutoSize = True Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label29.Location = New System.Drawing.Point(7, 120) + Me.Label29.Location = New System.Drawing.Point(7, 110) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(44, 13) Me.Label29.TabIndex = 79 @@ -1439,40 +1471,41 @@ Partial Class usrcntlFrachtkostenberechnung 'Panel3 ' Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel3.Location = New System.Drawing.Point(10, 181) + Me.Panel3.Location = New System.Drawing.Point(10, 171) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(350, 2) Me.Panel3.TabIndex = 85 ' - 'txtFrachtanteil + 'txtFrachtkostenanteil ' - Me.txtFrachtanteil._DateTimeOnly = False - Me.txtFrachtanteil._numbersOnly = False - Me.txtFrachtanteil._numbersOnlyKommastellen = "" - Me.txtFrachtanteil._numbersOnlyTrennzeichen = True - Me.txtFrachtanteil._Prozent = False - Me.txtFrachtanteil._ShortDateNew = False - Me.txtFrachtanteil._ShortDateOnly = False - Me.txtFrachtanteil._TimeOnly = False - Me.txtFrachtanteil._TimeOnly_Seconds = False - Me.txtFrachtanteil._value = "" - Me.txtFrachtanteil._Waehrung = True - Me.txtFrachtanteil._WaehrungZeichen = False - Me.txtFrachtanteil.ForeColor = System.Drawing.Color.Black - Me.txtFrachtanteil.Location = New System.Drawing.Point(235, 162) - Me.txtFrachtanteil.MaxLineLength = -1 - Me.txtFrachtanteil.MaxLines_Warning = "" - Me.txtFrachtanteil.MaxLines_Warning_Label = Nothing - Me.txtFrachtanteil.Name = "txtFrachtanteil" - Me.txtFrachtanteil.Size = New System.Drawing.Size(116, 20) - Me.txtFrachtanteil.TabIndex = 84 - Me.txtFrachtanteil.Text = "0,00 €" - Me.txtFrachtanteil.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtFrachtkostenanteil._DateTimeOnly = False + Me.txtFrachtkostenanteil._numbersOnly = False + Me.txtFrachtkostenanteil._numbersOnlyKommastellen = "" + Me.txtFrachtkostenanteil._numbersOnlyTrennzeichen = True + Me.txtFrachtkostenanteil._Prozent = False + Me.txtFrachtkostenanteil._ShortDateNew = False + Me.txtFrachtkostenanteil._ShortDateOnly = False + Me.txtFrachtkostenanteil._TimeOnly = False + Me.txtFrachtkostenanteil._TimeOnly_Seconds = False + Me.txtFrachtkostenanteil._value = "" + Me.txtFrachtkostenanteil._Waehrung = True + Me.txtFrachtkostenanteil._WaehrungZeichen = False + Me.txtFrachtkostenanteil.ForeColor = System.Drawing.Color.Black + Me.txtFrachtkostenanteil.Location = New System.Drawing.Point(280, 152) + Me.txtFrachtkostenanteil.MaxLineLength = -1 + Me.txtFrachtkostenanteil.MaxLines_Warning = "" + Me.txtFrachtkostenanteil.MaxLines_Warning_Label = Nothing + Me.txtFrachtkostenanteil.Name = "txtFrachtkostenanteil" + Me.txtFrachtkostenanteil.ReadOnly = True + Me.txtFrachtkostenanteil.Size = New System.Drawing.Size(76, 20) + Me.txtFrachtkostenanteil.TabIndex = 84 + Me.txtFrachtkostenanteil.Text = "0,00 €" + Me.txtFrachtkostenanteil.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'btnCancel ' Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.btnCancel.Location = New System.Drawing.Point(7, 397) + Me.btnCancel.Location = New System.Drawing.Point(9, 416) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(75, 23) Me.btnCancel.TabIndex = 75 @@ -1483,13 +1516,90 @@ Partial Class usrcntlFrachtkostenberechnung ' Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.Cursor Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK - Me.btnOK.Location = New System.Drawing.Point(306, 397) + Me.btnOK.Location = New System.Drawing.Point(308, 416) Me.btnOK.Name = "btnOK" Me.btnOK.Size = New System.Drawing.Size(75, 23) Me.btnOK.TabIndex = 76 Me.btnOK.Text = "OK" Me.btnOK.UseVisualStyleBackColor = True ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(240, 46) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(30, 13) + Me.Label19.TabIndex = 176 + Me.Label19.Text = "EUR" + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(78, 74) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(30, 13) + Me.Label20.TabIndex = 177 + Me.Label20.Text = "EUR" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(241, 132) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(30, 13) + Me.Label24.TabIndex = 178 + Me.Label24.Text = "EUR" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(241, 152) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(30, 13) + Me.Label26.TabIndex = 179 + Me.Label26.Text = "EUR" + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Location = New System.Drawing.Point(244, 181) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(30, 13) + Me.Label30.TabIndex = 180 + Me.Label30.Text = "EUR" + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Location = New System.Drawing.Point(244, 200) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(30, 13) + Me.Label31.TabIndex = 181 + Me.Label31.Text = "EUR" + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(244, 219) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(30, 13) + Me.Label32.TabIndex = 182 + Me.Label32.Text = "EUR" + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Location = New System.Drawing.Point(244, 244) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(30, 13) + Me.Label33.TabIndex = 183 + Me.Label33.Text = "EUR" + ' 'usrcntlFrachtkostenberechnung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1498,7 +1608,7 @@ Partial Class usrcntlFrachtkostenberechnung Me.Controls.Add(Me.btnOK) Me.Controls.Add(Me.TabControl1) Me.Name = "usrcntlFrachtkostenberechnung" - Me.Size = New System.Drawing.Size(386, 433) + Me.Size = New System.Drawing.Size(386, 451) Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.Panel1.ResumeLayout(False) @@ -1555,46 +1665,56 @@ Partial Class usrcntlFrachtkostenberechnung Public WithEvents txtBGLZoll As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label21 As Label Friend WithEvents Label22 As Label - Public WithEvents txtWeitereTarifPos As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtAnteilZoll As VERAG_PROG_ALLGEMEIN.MyTextBox Public WithEvents txtVerzollungskosten As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label23 As Label - Public WithEvents txtPreis As VERAG_PROG_ALLGEMEIN.MyTextBox - Public WithEvents txtEUST As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtGesamtpreis As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtBGLEUST As VERAG_PROG_ALLGEMEIN.MyTextBox Public WithEvents txtWare As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label25 As Label Friend WithEvents Label29 As Label Friend WithEvents Panel3 As Panel - Public WithEvents txtFrachtanteil As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtFrachtkostenanteil As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Panel5 As Panel - Public WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtAnteilZollInProzent As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label5 As Label - Friend WithEvents txbCalcDistanceNichtEU2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtDistanzNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label16 As Label Friend WithEvents Label18 As Label - Friend WithEvents txbCalcDistanceEU2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtDistanzEU As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents btnCancel As Button Friend WithEvents btnOK As Button Friend WithEvents Label7 As Label - Public WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox - Public WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtWarengewichtNetto As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtPreis As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label8 As Label - Public WithEvents MyTextBox6 As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtGesamtfracht As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label10 As Label - Public WithEvents txtWarengewicht As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtWarengewichtBrutto As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label9 As Label Public WithEvents txtGesamtgewicht As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label28 As Label Friend WithEvents lblWaehrung As Label Friend WithEvents Label14 As Label Friend WithEvents Label13 As Label - Public WithEvents txtWarenanteil As VERAG_PROG_ALLGEMEIN.MyTextBox - Public WithEvents txtGesamtsumme As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtWarenanteilsumme As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtGesamtfrachtAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Panel4 As Panel Friend WithEvents Panel6 As Panel Friend WithEvents lblAnteil As Label Friend WithEvents Label17 As Label Friend WithEvents Label15 As Label - Friend WithEvents txtDistanzGes As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtGesamtdistanz As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label12 As Label Friend WithEvents Label11 As Label + Friend WithEvents Button8 As Button + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents Label33 As Label + Friend WithEvents Label32 As Label + Friend WithEvents Label31 As Label + Friend WithEvents Label30 As Label + Friend WithEvents Label26 As Label + Friend WithEvents Label24 As Label + Friend WithEvents Label20 As Label + Friend WithEvents Label19 As Label End Class diff --git a/Aviso/usrcntlFrachtkostenberechnung.resx b/Aviso/usrcntlFrachtkostenberechnung.resx index 1af7de1..b53f6ac 100644 --- a/Aviso/usrcntlFrachtkostenberechnung.resx +++ b/Aviso/usrcntlFrachtkostenberechnung.resx @@ -117,4 +117,42 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + 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 + + + + 17, 17 + \ No newline at end of file diff --git a/Aviso/usrcntlFrachtkostenberechnung.vb b/Aviso/usrcntlFrachtkostenberechnung.vb index 32778ee..d5700b0 100644 --- a/Aviso/usrcntlFrachtkostenberechnung.vb +++ b/Aviso/usrcntlFrachtkostenberechnung.vb @@ -1,4 +1,7 @@ -Imports DocumentFormat.OpenXml.Drawing.Diagrams +Imports DocumentFormat.OpenXml.Drawing.Charts +Imports DocumentFormat.OpenXml.Drawing.Diagrams +Imports Microsoft.Office.Interop.Excel +Imports SDL Public Class usrcntlFrachtkostenberechnung @@ -14,65 +17,67 @@ Public Class usrcntlFrachtkostenberechnung Dim gesamtFrachtkosten As Double Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim warenbez As String + Dim avisoid As Integer = -1 Sub New() InitializeComponent() End Sub - Public Sub init(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String, warenwert As String) + Public Sub init(avisoid As Integer, absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String, warenwert As String) + Me.avisoid = avisoid If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then - gesamtFrachtkosten = CDbl(gesamtfrachtkostenInput) - tbxGesamtfrachtkosten._value = gesamtFrachtkosten - Else - gesamtFrachtkosten = 0 - End If + gesamtFrachtkosten = CDbl(gesamtfrachtkostenInput) + tbxGesamtfrachtkosten._value = gesamtFrachtkosten + Else + gesamtFrachtkosten = 0 + End If - If gewichtInput IsNot Nothing AndAlso gewichtInput.ToString <> "" AndAlso IsNumeric(gewichtInput) Then - gewicht = CDbl(gewichtInput) - Else - gewicht = 0 - End If + If gewichtInput IsNot Nothing AndAlso gewichtInput.ToString <> "" AndAlso IsNumeric(gewichtInput) Then + gewicht = CDbl(gewichtInput) + Else + gewicht = 0 + End If - If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then - absenderID = CInt(absID) - Else - absenderID = -1 - End If + If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then + absenderID = CInt(absID) + Else + absenderID = -1 + End If - If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then + If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then - empfaengerID = Int(empfID) - Else - empfaengerID = -1 - End If + empfaengerID = Int(empfID) + Else + empfaengerID = -1 + End If - 'cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [Adressen] order by LandKz asc", False, "FMZOLL", True, True) - cbxLandVon.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", True, "FMZOLL", True) + 'cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [Adressen] order by LandKz asc", False, "FMZOLL", True, True) + cbxLandVon.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", True, "FMZOLL", True) - cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", "")) - txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL") - txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL") + cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", "")) + txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL") + txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL") - cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) - cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", "")) - txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL") - txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL") + cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) + cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", "")) + txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL") + txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL") - ckbManAnteilsermittlung.Checked = True + ckbManAnteilsermittlung.Checked = True - tbEUAnteil._value = 0 - tbNichtEUAnteil._value = 0 - txbGewicht._value = gewicht.ToString - txbFactor._value = 0.15 + tbEUAnteil._value = 0 + tbNichtEUAnteil._value = 0 + txbGewicht._value = gewicht.ToString + txbFactor._value = 0.15 - txtWare._value = ware - txtGesamtgewicht._value = gewichtInput + txtWare._value = ware + txtGesamtgewicht._value = gewichtInput - checkInputFields() + checkInputFields() End Sub @@ -129,7 +134,7 @@ Public Class usrcntlFrachtkostenberechnung ElseIf cbxLandVon._value = "SRB" AndAlso cbxLandNach._value = "D" AndAlso (absenderID = "551038" Or absenderID = "722998") AndAlso ckbManAnteilsermittlung.Checked Then twoRouteRequest = True - 'Sonderfall für Lukow-Berechnung + 'Sonderfall für Lukowa-Berechnung VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Bajakovo", duration, distance,, getValues) VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Bajakovo", destination, durationEU, distanceEU,, getValues) @@ -305,8 +310,8 @@ Public Class usrcntlFrachtkostenberechnung End Sub Private Sub txbCalcDistanceEU_TextChanged(sender As Object, e As EventArgs) Handles txbCalcDistanceEU.TextChanged, txbCalcDistanceNichtEU.TextChanged, txbCalcDistanceNichtEU.TextChanged, tbNichtEUAnteilberechnet.TextChanged, tbEUAnteil.TextChanged, tbNichtEUAnteil.TextChanged - txbCalcDistanceEU2.Text = txbCalcDistanceEU.Text - txbCalcDistanceNichtEU2.Text = txbCalcDistanceNichtEU.Text + txtDistanzEU.Text = txbCalcDistanceEU.Text + txtDistanzNichtEU.Text = txbCalcDistanceNichtEU.Text 'tbEUAnteilberechnet2.Text = txbCalcDistanceNichtEU.Text 'tbNichtEUAnteilberechnet22.Text = tbNichtEUAnteilberechnet.Text @@ -316,33 +321,33 @@ Public Class usrcntlFrachtkostenberechnung End Sub - Private Sub MyTextBox1_ValueChanged() Handles MyTextBox1.ValueChanged - If IsNumeric(MyTextBox1._value) AndAlso IsNumeric(txtVerzollungskosten._value) Then - If CDbl(MyTextBox1._value) < 100 And CDbl(MyTextBox1._value) > 0 And CDbl(txtVerzollungskosten._value) > 0 Then - txtWeitereTarifPos._value = CDbl((MyTextBox1._value * 100) * txtVerzollungskosten._value / (100 + CDbl(MyTextBox1._value * 100))) + Private Sub MyTextBox1_ValueChanged() Handles txtAnteilZollInProzent.ValueChanged + If IsNumeric(txtAnteilZollInProzent._value) AndAlso IsNumeric(txtVerzollungskosten._value) Then + If CDbl(txtAnteilZollInProzent._value) < 100 And CDbl(txtAnteilZollInProzent._value) > 0 And CDbl(txtVerzollungskosten._value) > 0 Then + txtAnteilZoll._value = CDbl((txtAnteilZollInProzent._value * 100) * txtVerzollungskosten._value / (100 + CDbl(txtAnteilZollInProzent._value * 100))) End If End If End Sub - Private Sub MyTextBox2_ValueChanged() Handles MyTextBox2.ValueChanged, MyTextBox3.ValueChanged - If IsNumeric(MyTextBox2._value) And IsNumeric(MyTextBox3._value) Then - txtPreis._value = MyTextBox2._value * MyTextBox3._value + Private Sub MyTextBox2_ValueChanged() Handles txtPreis.ValueChanged, txtWarengewichtNetto.ValueChanged + If IsNumeric(txtPreis._value) And IsNumeric(txtWarengewichtNetto._value) Then + txtGesamtpreis._value = txtPreis._value * txtWarengewichtNetto._value End If End Sub - Private Sub txtFrachtanteil_ValueChanged() Handles txtFrachtanteil.ValueChanged, txtPreis.ValueChanged - If IsNumeric(txtFrachtanteil._value) And IsNumeric(txtPreis._value) Then - txtVerzollungskosten._value = CDbl(txtPreis._value - txtFrachtanteil._value) + Private Sub txtFrachtanteil_ValueChanged() Handles txtFrachtkostenanteil.ValueChanged, txtGesamtpreis.ValueChanged + If IsNumeric(txtFrachtkostenanteil._value) And IsNumeric(txtGesamtpreis._value) Then + txtVerzollungskosten._value = CDbl(txtGesamtpreis._value - txtFrachtkostenanteil._value) End If End Sub - Private Sub txtWarengewicht_ValueChanged() Handles txtWarengewicht.ValueChanged, MyTextBox6.ValueChanged - If IsNumeric(txtWarengewicht._value) And IsNumeric(txtGesamtgewicht._value) Then - Dim anteil As Double = Math.Round(CDbl(txtWarengewicht._value / txtGesamtgewicht._value * 100), 2) + Private Sub txtWarengewicht_ValueChanged() Handles txtWarengewichtBrutto.ValueChanged, txtGesamtfracht.ValueChanged + If IsNumeric(txtWarengewichtBrutto._value) And IsNumeric(txtGesamtgewicht._value) Then + Dim anteil As Double = Math.Round(CDbl(txtWarengewichtBrutto._value / txtGesamtgewicht._value * 100), 2) lblAnteil.Text = anteil & " %" - If IsNumeric(MyTextBox6._value) Then - txtWarenanteil._value = CDbl(MyTextBox6._value * anteil / 100) + If IsNumeric(txtGesamtfracht._value) Then + txtWarenanteilsumme._value = CDbl(txtGesamtfracht._value * anteil / 100) End If Else @@ -351,31 +356,103 @@ Public Class usrcntlFrachtkostenberechnung End If End Sub - Private Sub txbCalcDistanceNichtEU2_TextChanged(sender As Object, e As EventArgs) Handles txbCalcDistanceNichtEU2.TextChanged, txbCalcDistanceEU2.TextAlignChanged - If IsNumeric(txbCalcDistanceNichtEU2._value) AndAlso IsNumeric(txbCalcDistanceEU2._value) Then - txtDistanzGes._value = CDbl(txbCalcDistanceNichtEU2._value) + CDbl(txbCalcDistanceEU2._value) + Private Sub txbCalcDistanceNichtEU2_TextChanged(sender As Object, e As EventArgs) Handles txtDistanzNichtEU.TextChanged, txtDistanzEU.TextAlignChanged + If IsNumeric(txtDistanzNichtEU._value) AndAlso IsNumeric(txtDistanzEU._value) Then + txtGesamtdistanz._value = CDbl(txtDistanzNichtEU._value) + CDbl(txtDistanzEU._value) End If End Sub - Private Sub txtDistanzGes_ValueChanged() Handles txtDistanzGes.ValueChanged, txtWarenanteil.ValueChanged - If IsNumeric(txtDistanzGes._value) And IsNumeric(txtWarenanteil._value) And IsNumeric(txbCalcDistanceEU2._value) Then - txtGesamtsumme._value = CDbl(txtWarenanteil._value / txtDistanzGes._value * txbCalcDistanceEU2._value) - txtFrachtanteil._value = txtGesamtsumme._value + Private Sub txtDistanzGes_ValueChanged() Handles txtGesamtdistanz.ValueChanged, txtWarenanteilsumme.ValueChanged + If IsNumeric(txtGesamtdistanz._value) And IsNumeric(txtWarenanteilsumme._value) And IsNumeric(txtDistanzEU._value) Then + txtGesamtfrachtAnteil._value = CDbl(txtWarenanteilsumme._value / txtGesamtdistanz._value * txtDistanzEU._value) + txtFrachtkostenanteil._value = txtGesamtfrachtAnteil._value End If End Sub - Private Sub txtVerzollungskosten_ValueChanged() Handles txtVerzollungskosten.ValueChanged, txtWeitereTarifPos.ValueChanged - If IsNumeric(txtVerzollungskosten._value) AndAlso IsNumeric(txtWeitereTarifPos._value) Then - txtBGLZoll._value = CDbl(txtVerzollungskosten._value) + CDbl(txtWeitereTarifPos._value) + Private Sub txtVerzollungskosten_ValueChanged() Handles txtVerzollungskosten.ValueChanged, txtAnteilZoll.ValueChanged + If IsNumeric(txtVerzollungskosten._value) AndAlso IsNumeric(txtAnteilZoll._value) Then + txtBGLZoll._value = CDbl(txtVerzollungskosten._value) + CDbl(txtAnteilZoll._value) End If End Sub - Private Sub txtPreis_ValueChanged() Handles txtPreis.ValueChanged - If IsNumeric(txtPreis._value) Then - txtEUST._value = txtPreis._value + Private Sub txtPreis_ValueChanged() Handles txtGesamtpreis.ValueChanged + If IsNumeric(txtGesamtpreis._value) Then + txtBGLEUST._value = txtGesamtpreis._value End If End Sub + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click + If Not ContextMenuStrip1.Items.ContainsKey("open") Then + Dim uploadPictures = New ToolStripMenuItem() With {.Text = "öffnen", .Name = "open"} + ContextMenuStrip1.Items.Add(uploadPictures) + AddHandler uploadPictures.Click, AddressOf mnuItem_Clicked + End If + + + If Not ContextMenuStrip1.Items.ContainsKey("createAttachment") Then + Dim copyToClipboard = New ToolStripMenuItem() With {.Text = "als Anhang anfügen", .Name = "createAttachment"} + AddHandler copyToClipboard.Click, AddressOf mnuItem_Clicked + ContextMenuStrip1.Items.Add(copyToClipboard) + End If + + + + ContextMenuStrip1.Show(Cursor.Position) + End Sub + + Private Sub mnuItem_Clicked(sender As Object, e As EventArgs) + ContextMenuStrip1.Hide() + Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) + + If item IsNot Nothing Then + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Frachtkostenberechnung", ".pdf", , False) + If item.Name = "open" Then + createFrachtkostenberechnung(tmpPath) + Process.Start(tmpPath) + + ElseIf item.Name = "createAttachment" Then + createFrachtkostenberechnung(tmpPath) + If avisoid < 0 Then + MsgBox("AvisoId wurde nicht korrekt ermittelt!") + Exit Sub + End If + Dim f As New frmSendungAnhangImport(avisoid) + If f.addData_SendungAnhang(tmpPath) > 0 Then + MsgBox("Formular wurde in der Sendung angefügt") + Else + MsgBox("Fehler beim Einfügen") + End If + + + Else + MsgBox("Funktion nicht implementiert!") + End If + + End If + + End Sub + + Private Sub createFrachtkostenberechnung(tmpPath As String) + + Try + Me.Cursor = Cursors.WaitCursor + + Dim rptFrachtkosten As New SDL.rptFrachtkostenberechnung(txtWare.Text, txtPreis.Text, txtWarengewichtNetto.Text, txtGesamtpreis.Text, txtFrachtkostenanteil.Text, txtVerzollungskosten.Text, txtAnteilZoll.Text, txtAnteilZollInProzent._value, txtBGLZoll.Text, txtBGLEUST.Text, txtDistanzEU.Text, txtDistanzNichtEU.Text, txtGesamtdistanz.Text, txtGesamtgewicht.Text, txtWarengewichtBrutto.Text, lblAnteil.Text, txtWarenanteilsumme.Text, txtGesamtfracht.Text, txtGesamtfrachtAnteil.Text) + + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rptFrachtkosten.Run(False) + p.NeverEmbedFonts = "" + p.Export(rptFrachtkosten.Document, tmpPath) + + Me.Cursor = Cursors.Default + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Me.Cursor = Cursors.Default + End Try + + + End Sub + End Class