diff --git a/Aviso/frmATEZ_NCTS.vb b/Aviso/frmATEZ_NCTS.vb index 514bf1a..ff1e003 100644 --- a/Aviso/frmATEZ_NCTS.vb +++ b/Aviso/frmATEZ_NCTS.vb @@ -64,7 +64,9 @@ Public Class frmATEZ_NCTS If id > 0 Then Dim atez_data = New cATEZ_NCTS_DATA(id) - If atez_data.json <> "" Then MsgBox(atez_data.json) 'InputBox(atez_data.json, "JSON-Text", , 100, 100) + If atez_data.json <> "" Then + MsgBox(atez_data.json) 'InputBox(atez_data.json, "JSON-Text", , 100, 100) + End If Else 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/frmFrachtkostenBerechnen.vb b/Aviso/frmFrachtkostenBerechnen.vb index ac3b522..1b82c90 100644 --- a/Aviso/frmFrachtkostenBerechnen.vb +++ b/Aviso/frmFrachtkostenBerechnen.vb @@ -6,6 +6,15 @@ Imports VERAG_PROG_ALLGEMEIN Public Class frmFrachtkostenBerechnen + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Dim ustcntl As New usrcntlFrachtkostenberechnung() + End Sub + 'Dim absenderID As Integer = -1 'Dim empfaengerID As Integer = -1 'Dim origin As String @@ -17,55 +26,17 @@ Public Class frmFrachtkostenBerechnen 'Dim sql As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String) + 'Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String) - InitializeComponent() - Try - Dim ustcntl As New usrcntlFrachtkostenberechnung(absID, empfID, gewichtInput, gesamtfrachtkostenInput, ware) + ' InitializeComponent() + ' Try + ' Dim ustcntl As New usrcntlFrachtkostenberechnung() - 'If ustcntl = DialogResult.OK Then - ' txtFrachtkostenEU._value = frachkosten.EUAnteil - ' txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil - ' txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value - 'End If + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try - - - 'If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then - ' 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 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 - - ' empfaengerID = Int(empfID) - 'Else - ' empfaengerID = -1 - 'End If - - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - - End Sub + 'End Sub 'Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index a2523b8..378f8b9 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -5712,14 +5712,19 @@ Public Class frmSendungsdetailsNEU Sub calculateFreightCosts() - Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text) + Dim f = New frmFrachtkostenBerechnen() + + f.UsrcntlFrachtkostenberechnung1.init(AvisoId, txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text, txtWarenwert._value) + + If f.ShowDialog = DialogResult.OK Then - If frachkosten.ShowDialog = DialogResult.OK Then 'txtFrachtkostenEU._value = frachkosten.usrcntlFrachtkostenberechnung.EUAnteil 'txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil 'txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value End If + + End Sub Private Sub btn_FrachtkostenBerechnen_Click(sender As Object, e As EventArgs) Handles btn_FrachtkostenBerechnen.Click diff --git a/Aviso/usrcntlFrachtkostenberechnung.Designer.vb b/Aviso/usrcntlFrachtkostenberechnung.Designer.vb index 2dd09d8..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,45 +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.Label28 = New System.Windows.Forms.Label() - Me.txbCalcDistanceNichtEU2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.tbEUAnteil2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button8 = New System.Windows.Forms.Button() + Me.Label17 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label() - Me.tbNichtEUAnteil2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.tbNichtEUAnteilberechnet22 = 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.txtGesamtfracht = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + 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.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.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.tbEUAnteilberechnet2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label18 = New System.Windows.Forms.Label() - Me.Label19 = 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.lblWaehrung = New System.Windows.Forms.Label() Me.Label27 = New System.Windows.Forms.Label() - Me.txtATLAS = New VERAG_PROG_ALLGEMEIN.MyTextBox() + 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.Label14 = New System.Windows.Forms.Label() + Me.txtAnteilZoll = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVerzollungskosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSonstigeKosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label23 = New System.Windows.Forms.Label() - Me.Label13 = New System.Windows.Forms.Label() - Me.txtEust2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtClearing = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtZoll2 = 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.txtMWST = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label29 = New System.Windows.Forms.Label() - Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel3 = New System.Windows.Forms.Panel() - Me.Panel4 = New System.Windows.Forms.Panel() - Me.txtMwstProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAndereAbgabenBetrag = 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() @@ -166,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 ' @@ -176,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 ' @@ -638,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, 342) + Me.TabControl1.Size = New System.Drawing.Size(385, 407) Me.TabControl1.TabIndex = 74 ' 'TabPage1 @@ -647,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, 316) + Me.TabPage1.Size = New System.Drawing.Size(377, 381) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Entfernung" Me.TabPage1.UseVisualStyleBackColor = True @@ -691,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 @@ -700,277 +718,527 @@ 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, 316) + 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.Label28) - Me.Panel2.Controls.Add(Me.txbCalcDistanceNichtEU2) - Me.Panel2.Controls.Add(Me.tbEUAnteil2) - Me.Panel2.Controls.Add(Me.Label15) - Me.Panel2.Controls.Add(Me.tbNichtEUAnteil2) - Me.Panel2.Controls.Add(Me.tbNichtEUAnteilberechnet22) - Me.Panel2.Controls.Add(Me.Label16) - Me.Panel2.Controls.Add(Me.tbEUAnteilberechnet2) - Me.Panel2.Controls.Add(Me.Label18) + 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.txbCalcDistanceEU2) + Me.Panel2.Controls.Add(Me.Button8) + Me.Panel2.Controls.Add(Me.Label17) + Me.Panel2.Controls.Add(Me.Label15) + 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.txtGesamtfracht) + Me.Panel2.Controls.Add(Me.Label10) + 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.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.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.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.lblWaehrung) Me.Panel2.Controls.Add(Me.Label27) - Me.Panel2.Controls.Add(Me.txtATLAS) + 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.Label14) + Me.Panel2.Controls.Add(Me.txtAnteilZoll) Me.Panel2.Controls.Add(Me.txtVerzollungskosten) - Me.Panel2.Controls.Add(Me.txtSonstigeKosten) Me.Panel2.Controls.Add(Me.Label23) - Me.Panel2.Controls.Add(Me.Label13) - Me.Panel2.Controls.Add(Me.txtEust2) - Me.Panel2.Controls.Add(Me.txtClearing) - Me.Panel2.Controls.Add(Me.txtZoll2) + 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.txtMWST) Me.Panel2.Controls.Add(Me.Label29) - Me.Panel2.Controls.Add(Me.txtGesamtsumme) Me.Panel2.Controls.Add(Me.Panel3) - Me.Panel2.Controls.Add(Me.Panel4) - Me.Panel2.Controls.Add(Me.txtMwstProzent) - Me.Panel2.Controls.Add(Me.txtAndereAbgabenBetrag) + 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 ' - 'Label28 + 'Button8 ' - Me.Label28.AutoSize = True - Me.Label28.Location = New System.Drawing.Point(4, 254) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(80, 13) - Me.Label28.TabIndex = 146 - Me.Label28.Text = "Gesamtgewicht" + 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 ' - 'txbCalcDistanceNichtEU2 + 'Label17 ' - 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(276, 211) - 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 - ' - 'tbEUAnteil2 - ' - Me.tbEUAnteil2._DateTimeOnly = False - Me.tbEUAnteil2._numbersOnly = False - Me.tbEUAnteil2._numbersOnlyKommastellen = "" - Me.tbEUAnteil2._numbersOnlyTrennzeichen = False - Me.tbEUAnteil2._Prozent = True - Me.tbEUAnteil2._ShortDateNew = False - Me.tbEUAnteil2._ShortDateOnly = False - Me.tbEUAnteil2._TimeOnly = False - Me.tbEUAnteil2._TimeOnly_Seconds = False - Me.tbEUAnteil2._value = Nothing - Me.tbEUAnteil2._Waehrung = False - Me.tbEUAnteil2._WaehrungZeichen = False - Me.tbEUAnteil2.ForeColor = System.Drawing.Color.Black - Me.tbEUAnteil2.Location = New System.Drawing.Point(99, 188) - Me.tbEUAnteil2.MaxLineLength = -1 - Me.tbEUAnteil2.MaxLines_Warning = "" - Me.tbEUAnteil2.MaxLines_Warning_Label = Nothing - Me.tbEUAnteil2.Name = "tbEUAnteil2" - Me.tbEUAnteil2.Size = New System.Drawing.Size(51, 20) - Me.tbEUAnteil2.TabIndex = 135 + Me.Label17.AutoSize = True + 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 + Me.Label17.Text = "Gesamt" ' 'Label15 ' Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(225, 214) + 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(351, 305) Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(42, 13) - Me.Label15.TabIndex = 144 - Me.Label15.Text = "Distanz" + Me.Label15.Size = New System.Drawing.Size(23, 13) + Me.Label15.TabIndex = 173 + Me.Label15.Text = "km" ' - 'tbNichtEUAnteil2 + 'txtGesamtdistanz ' - Me.tbNichtEUAnteil2._DateTimeOnly = False - Me.tbNichtEUAnteil2._numbersOnly = False - Me.tbNichtEUAnteil2._numbersOnlyKommastellen = "" - Me.tbNichtEUAnteil2._numbersOnlyTrennzeichen = True - Me.tbNichtEUAnteil2._Prozent = True - Me.tbNichtEUAnteil2._ShortDateNew = False - Me.tbNichtEUAnteil2._ShortDateOnly = False - Me.tbNichtEUAnteil2._TimeOnly = False - Me.tbNichtEUAnteil2._TimeOnly_Seconds = False - Me.tbNichtEUAnteil2._value = Nothing - Me.tbNichtEUAnteil2._Waehrung = False - Me.tbNichtEUAnteil2._WaehrungZeichen = False - Me.tbNichtEUAnteil2.ForeColor = System.Drawing.Color.Black - Me.tbNichtEUAnteil2.Location = New System.Drawing.Point(101, 211) - Me.tbNichtEUAnteil2.MaxLineLength = -1 - Me.tbNichtEUAnteil2.MaxLines_Warning = "" - Me.tbNichtEUAnteil2.MaxLines_Warning_Label = Nothing - Me.tbNichtEUAnteil2.Name = "tbNichtEUAnteil2" - Me.tbNichtEUAnteil2.Size = New System.Drawing.Size(49, 20) - Me.tbNichtEUAnteil2.TabIndex = 141 + 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 ' - 'tbNichtEUAnteilberechnet22 + 'Label12 ' - Me.tbNichtEUAnteilberechnet22._DateTimeOnly = False - Me.tbNichtEUAnteilberechnet22._numbersOnly = False - Me.tbNichtEUAnteilberechnet22._numbersOnlyKommastellen = "" - Me.tbNichtEUAnteilberechnet22._numbersOnlyTrennzeichen = True - Me.tbNichtEUAnteilberechnet22._Prozent = False - Me.tbNichtEUAnteilberechnet22._ShortDateNew = False - Me.tbNichtEUAnteilberechnet22._ShortDateOnly = False - Me.tbNichtEUAnteilberechnet22._TimeOnly = False - Me.tbNichtEUAnteilberechnet22._TimeOnly_Seconds = False - Me.tbNichtEUAnteilberechnet22._value = "" - Me.tbNichtEUAnteilberechnet22._Waehrung = True - Me.tbNichtEUAnteilberechnet22._WaehrungZeichen = True - Me.tbNichtEUAnteilberechnet22.ForeColor = System.Drawing.Color.Black - Me.tbNichtEUAnteilberechnet22.Location = New System.Drawing.Point(156, 211) - Me.tbNichtEUAnteilberechnet22.MaxLineLength = -1 - Me.tbNichtEUAnteilberechnet22.MaxLines_Warning = "" - Me.tbNichtEUAnteilberechnet22.MaxLines_Warning_Label = Nothing - Me.tbNichtEUAnteilberechnet22.Name = "tbNichtEUAnteilberechnet22" - Me.tbNichtEUAnteilberechnet22.ReadOnly = True - Me.tbNichtEUAnteilberechnet22.Size = New System.Drawing.Size(60, 20) - Me.tbNichtEUAnteilberechnet22.TabIndex = 142 + 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, 305) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(23, 13) + Me.Label12.TabIndex = 170 + Me.Label12.Text = "km" + ' + 'Label11 + ' + 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, 282) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(23, 13) + Me.Label11.TabIndex = 169 + Me.Label11.Text = "km" + ' + 'lblAnteil + ' + 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(206, 47) + Me.lblAnteil.Name = "lblAnteil" + Me.lblAnteil.Size = New System.Drawing.Size(0, 13) + Me.lblAnteil.TabIndex = 168 + ' + 'Panel6 + ' + Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel6.Location = New System.Drawing.Point(10, 96) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(350, 2) + Me.Panel6.TabIndex = 159 + ' + 'txtGesamtfracht + ' + 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 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(169, 46) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(21, 13) + Me.Label10.TabIndex = 166 + Me.Label10.Text = "kg" + ' + 'txtWarengewichtBrutto + ' + 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 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(169, 26) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(21, 13) + Me.Label9.TabIndex = 164 + Me.Label9.Text = "kg" + ' + 'txtGesamtgewicht + ' + Me.txtGesamtgewicht._DateTimeOnly = False + Me.txtGesamtgewicht._numbersOnly = False + Me.txtGesamtgewicht._numbersOnlyKommastellen = "" + Me.txtGesamtgewicht._numbersOnlyTrennzeichen = True + Me.txtGesamtgewicht._Prozent = False + Me.txtGesamtgewicht._ShortDateNew = False + Me.txtGesamtgewicht._ShortDateOnly = False + Me.txtGesamtgewicht._TimeOnly = False + Me.txtGesamtgewicht._TimeOnly_Seconds = False + Me.txtGesamtgewicht._value = "0,00" + Me.txtGesamtgewicht._Waehrung = False + Me.txtGesamtgewicht._WaehrungZeichen = False + Me.txtGesamtgewicht.ForeColor = System.Drawing.Color.Black + Me.txtGesamtgewicht.Location = New System.Drawing.Point(104, 23) + Me.txtGesamtgewicht.MaxLineLength = -1 + Me.txtGesamtgewicht.MaxLines_Warning = "" + Me.txtGesamtgewicht.MaxLines_Warning_Label = Nothing + Me.txtGesamtgewicht.Name = "txtGesamtgewicht" + Me.txtGesamtgewicht.Size = New System.Drawing.Size(65, 20) + Me.txtGesamtgewicht.TabIndex = 77 + Me.txtGesamtgewicht.Text = "0,00" + Me.txtGesamtgewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(7, 26) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(80, 13) + Me.Label28.TabIndex = 162 + Me.Label28.Text = "Gesamtgewicht" + ' + 'lblWaehrung + ' + Me.lblWaehrung.AutoSize = True + 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 + Me.lblWaehrung.Text = "EUR" + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(7, 43) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(75, 13) + Me.Label14.TabIndex = 156 + Me.Label14.Text = "Gewicht Ware" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + 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" + ' + 'txtWarenanteilsumme + ' + 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 + ' + 'txtGesamtfrachtAnteil + ' + 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 + ' + Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel4.Location = New System.Drawing.Point(6, 64) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(350, 2) + Me.Panel4.TabIndex = 158 + ' + 'Label8 + ' + 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(206, 132) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(21, 13) + Me.Label8.TabIndex = 150 + Me.Label8.Text = "kg" + ' + 'Label7 + ' + 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(122, 132) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(13, 13) + Me.Label7.TabIndex = 149 + Me.Label7.Text = "x" + ' + 'txtWarengewichtNetto + ' + 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 + ' + 'txtPreis + ' + 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 + ' + 'txtDistanzNichtEU + ' + 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(3, 191) + 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 Me.Label16.Text = "EU Anteil" ' - 'tbEUAnteilberechnet2 - ' - Me.tbEUAnteilberechnet2._DateTimeOnly = False - Me.tbEUAnteilberechnet2._numbersOnly = False - Me.tbEUAnteilberechnet2._numbersOnlyKommastellen = "" - Me.tbEUAnteilberechnet2._numbersOnlyTrennzeichen = True - Me.tbEUAnteilberechnet2._Prozent = False - Me.tbEUAnteilberechnet2._ShortDateNew = False - Me.tbEUAnteilberechnet2._ShortDateOnly = False - Me.tbEUAnteilberechnet2._TimeOnly = False - Me.tbEUAnteilberechnet2._TimeOnly_Seconds = False - Me.tbEUAnteilberechnet2._value = "" - Me.tbEUAnteilberechnet2._Waehrung = True - Me.tbEUAnteilberechnet2._WaehrungZeichen = True - Me.tbEUAnteilberechnet2.ForeColor = System.Drawing.Color.Black - Me.tbEUAnteilberechnet2.Location = New System.Drawing.Point(156, 188) - Me.tbEUAnteilberechnet2.MaxLineLength = -1 - Me.tbEUAnteilberechnet2.MaxLines_Warning = "" - Me.tbEUAnteilberechnet2.MaxLines_Warning_Label = Nothing - Me.tbEUAnteilberechnet2.Name = "tbEUAnteilberechnet2" - Me.tbEUAnteilberechnet2.ReadOnly = True - Me.tbEUAnteilberechnet2.Size = New System.Drawing.Size(60, 20) - Me.tbEUAnteilberechnet2.TabIndex = 136 - ' 'Label18 ' Me.Label18.AutoSize = True - Me.Label18.Location = New System.Drawing.Point(3, 214) + 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" ' - 'Label19 + 'txtDistanzEU ' - Me.Label19.AutoSize = True - Me.Label19.Location = New System.Drawing.Point(225, 191) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(42, 13) - Me.Label19.TabIndex = 137 - Me.Label19.Text = "Distanz" - ' - 'txbCalcDistanceEU2 - ' - 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(276, 188) - 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(6, 148) + 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(6, 110) - 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 = 119 - 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(61, 45) + 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 @@ -980,21 +1248,12 @@ 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(3, 68) + 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 Me.Label6.Text = "- FRACHTKOSTENANTEIL" ' - 'lblWaehrung - ' - Me.lblWaehrung.AutoSize = True - Me.lblWaehrung.Location = New System.Drawing.Point(191, 294) - Me.lblWaehrung.Name = "lblWaehrung" - Me.lblWaehrung.Size = New System.Drawing.Size(30, 13) - Me.lblWaehrung.TabIndex = 115 - Me.lblWaehrung.Text = "EUR" - ' 'Label27 ' Me.Label27.AutoSize = True @@ -1005,35 +1264,37 @@ Partial Class usrcntlFrachtkostenberechnung Me.Label27.TabIndex = 78 Me.Label27.Text = "Kostenaufstellung" ' - 'txtATLAS + 'txtBGLZoll ' - Me.txtATLAS._DateTimeOnly = False - Me.txtATLAS._numbersOnly = False - Me.txtATLAS._numbersOnlyKommastellen = "" - Me.txtATLAS._numbersOnlyTrennzeichen = True - Me.txtATLAS._Prozent = False - Me.txtATLAS._ShortDateNew = False - Me.txtATLAS._ShortDateOnly = False - Me.txtATLAS._TimeOnly = False - Me.txtATLAS._TimeOnly_Seconds = False - Me.txtATLAS._value = "" - Me.txtATLAS._Waehrung = True - Me.txtATLAS._WaehrungZeichen = False - Me.txtATLAS.ForeColor = System.Drawing.Color.Black - Me.txtATLAS.Location = New System.Drawing.Point(231, 129) - Me.txtATLAS.MaxLineLength = -1 - Me.txtATLAS.MaxLines_Warning = "" - Me.txtATLAS.MaxLines_Warning_Label = Nothing - Me.txtATLAS.Name = "txtATLAS" - Me.txtATLAS.Size = New System.Drawing.Size(116, 20) - Me.txtATLAS.TabIndex = 92 - Me.txtATLAS.Text = "0,00 €" - Me.txtATLAS.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtBGLZoll._DateTimeOnly = False + Me.txtBGLZoll._numbersOnly = False + Me.txtBGLZoll._numbersOnlyKommastellen = "" + Me.txtBGLZoll._numbersOnlyTrennzeichen = True + Me.txtBGLZoll._Prozent = False + Me.txtBGLZoll._ShortDateNew = False + Me.txtBGLZoll._ShortDateOnly = False + Me.txtBGLZoll._TimeOnly = False + Me.txtBGLZoll._TimeOnly_Seconds = False + Me.txtBGLZoll._value = "" + Me.txtBGLZoll._Waehrung = True + Me.txtBGLZoll._WaehrungZeichen = False + Me.txtBGLZoll.ForeColor = System.Drawing.Color.Black + 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(76, 20) + Me.txtBGLZoll.TabIndex = 92 + Me.txtBGLZoll.TabStop = False + Me.txtBGLZoll.Text = "0,00 €" + Me.txtBGLZoll.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label21 ' Me.Label21.AutoSize = True - Me.Label21.Location = New System.Drawing.Point(3, 157) + 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 @@ -1042,45 +1303,38 @@ Partial Class usrcntlFrachtkostenberechnung 'Label22 ' Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(3, 132) + 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(231, 110) - Me.txtWeitereTarifPos.MaxLineLength = -1 - Me.txtWeitereTarifPos.MaxLines_Warning = "" - Me.txtWeitereTarifPos.MaxLines_Warning_Label = Nothing - Me.txtWeitereTarifPos.Name = "txtWeitereTarifPos" - Me.txtWeitereTarifPos.Size = New System.Drawing.Size(116, 20) - Me.txtWeitereTarifPos.TabIndex = 90 - Me.txtWeitereTarifPos.Text = "0,00 €" - Me.txtWeitereTarifPos.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(4, 271) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(75, 13) - Me.Label14.TabIndex = 108 - Me.Label14.Text = "Gewicht Ware" + 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 ' @@ -1097,276 +1351,161 @@ 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(231, 91) + 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 ' - 'txtSonstigeKosten - ' - Me.txtSonstigeKosten._DateTimeOnly = False - Me.txtSonstigeKosten._numbersOnly = False - Me.txtSonstigeKosten._numbersOnlyKommastellen = "" - Me.txtSonstigeKosten._numbersOnlyTrennzeichen = True - Me.txtSonstigeKosten._Prozent = False - Me.txtSonstigeKosten._ShortDateNew = False - Me.txtSonstigeKosten._ShortDateOnly = False - Me.txtSonstigeKosten._TimeOnly = False - Me.txtSonstigeKosten._TimeOnly_Seconds = False - Me.txtSonstigeKosten._value = Nothing - Me.txtSonstigeKosten._Waehrung = True - Me.txtSonstigeKosten._WaehrungZeichen = False - Me.txtSonstigeKosten.ForeColor = System.Drawing.Color.Black - Me.txtSonstigeKosten.Location = New System.Drawing.Point(228, 247) - Me.txtSonstigeKosten.MaxLineLength = -1 - Me.txtSonstigeKosten.MaxLines_Warning = "" - Me.txtSonstigeKosten.MaxLines_Warning_Label = Nothing - Me.txtSonstigeKosten.Name = "txtSonstigeKosten" - Me.txtSonstigeKosten.Size = New System.Drawing.Size(116, 20) - Me.txtSonstigeKosten.TabIndex = 107 - Me.txtSonstigeKosten.Text = "0,00 €" - Me.txtSonstigeKosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label23 ' Me.Label23.AutoSize = True - Me.Label23.Location = New System.Drawing.Point(57, 113) + 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" ' - 'Label13 + 'txtGesamtpreis ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(4, 294) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(76, 13) - Me.Label13.TabIndex = 112 - Me.Label13.Text = "Gesamtsumme" + 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 ' - 'txtEust2 + 'txtBGLEUST ' - Me.txtEust2._DateTimeOnly = False - Me.txtEust2._numbersOnly = False - Me.txtEust2._numbersOnlyKommastellen = "" - Me.txtEust2._numbersOnlyTrennzeichen = True - Me.txtEust2._Prozent = False - Me.txtEust2._ShortDateNew = False - Me.txtEust2._ShortDateOnly = False - Me.txtEust2._TimeOnly = False - Me.txtEust2._TimeOnly_Seconds = False - Me.txtEust2._value = "" - Me.txtEust2._Waehrung = True - Me.txtEust2._WaehrungZeichen = False - Me.txtEust2.ForeColor = System.Drawing.Color.Black - Me.txtEust2.Location = New System.Drawing.Point(231, 42) - Me.txtEust2.MaxLineLength = -1 - Me.txtEust2.MaxLines_Warning = "" - Me.txtEust2.MaxLines_Warning_Label = Nothing - Me.txtEust2.Name = "txtEust2" - Me.txtEust2.ReadOnly = True - Me.txtEust2.Size = New System.Drawing.Size(116, 20) - Me.txtEust2.TabIndex = 82 - Me.txtEust2.Text = "0,00 €" - Me.txtEust2.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 ' - 'txtClearing + 'txtWare ' - Me.txtClearing._DateTimeOnly = False - Me.txtClearing._numbersOnly = False - Me.txtClearing._numbersOnlyKommastellen = "" - Me.txtClearing._numbersOnlyTrennzeichen = True - Me.txtClearing._Prozent = False - Me.txtClearing._ShortDateNew = False - Me.txtClearing._ShortDateOnly = False - Me.txtClearing._TimeOnly = False - Me.txtClearing._TimeOnly_Seconds = False - Me.txtClearing._value = "" - Me.txtClearing._Waehrung = True - Me.txtClearing._WaehrungZeichen = False - Me.txtClearing.ForeColor = System.Drawing.Color.Black - Me.txtClearing.Location = New System.Drawing.Point(231, 154) - Me.txtClearing.MaxLineLength = -1 - Me.txtClearing.MaxLines_Warning = "" - Me.txtClearing.MaxLines_Warning_Label = Nothing - Me.txtClearing.Name = "txtClearing" - Me.txtClearing.Size = New System.Drawing.Size(116, 20) - Me.txtClearing.TabIndex = 94 - Me.txtClearing.Text = "0,00 €" - Me.txtClearing.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtZoll2 - ' - Me.txtZoll2._DateTimeOnly = False - Me.txtZoll2._numbersOnly = False - Me.txtZoll2._numbersOnlyKommastellen = "" - Me.txtZoll2._numbersOnlyTrennzeichen = False - Me.txtZoll2._Prozent = False - Me.txtZoll2._ShortDateNew = False - Me.txtZoll2._ShortDateOnly = False - Me.txtZoll2._TimeOnly = False - Me.txtZoll2._TimeOnly_Seconds = False - Me.txtZoll2._value = "" - Me.txtZoll2._Waehrung = False - Me.txtZoll2._WaehrungZeichen = False - Me.txtZoll2.ForeColor = System.Drawing.Color.Black - Me.txtZoll2.Location = New System.Drawing.Point(126, 20) - Me.txtZoll2.MaxLineLength = -1 - Me.txtZoll2.MaxLines_Warning = "" - Me.txtZoll2.MaxLines_Warning_Label = Nothing - Me.txtZoll2.Name = "txtZoll2" - Me.txtZoll2.ReadOnly = True - Me.txtZoll2.Size = New System.Drawing.Size(221, 20) - Me.txtZoll2.TabIndex = 80 + Me.txtWare._DateTimeOnly = False + Me.txtWare._numbersOnly = False + Me.txtWare._numbersOnlyKommastellen = "" + Me.txtWare._numbersOnlyTrennzeichen = False + Me.txtWare._Prozent = False + Me.txtWare._ShortDateNew = False + Me.txtWare._ShortDateOnly = False + Me.txtWare._TimeOnly = False + Me.txtWare._TimeOnly_Seconds = False + Me.txtWare._value = "" + Me.txtWare._Waehrung = False + Me.txtWare._WaehrungZeichen = False + Me.txtWare.ForeColor = System.Drawing.Color.Black + Me.txtWare.Location = New System.Drawing.Point(130, 107) + Me.txtWare.MaxLineLength = -1 + Me.txtWare.MaxLines_Warning = "" + Me.txtWare.MaxLines_Warning_Label = Nothing + Me.txtWare.Name = "txtWare" + Me.txtWare.Size = New System.Drawing.Size(221, 20) + Me.txtWare.TabIndex = 80 ' 'Label25 ' 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(3, 45) + 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 Me.Label25.Text = "PREIS" ' - 'txtMWST - ' - Me.txtMWST._DateTimeOnly = False - Me.txtMWST._numbersOnly = False - Me.txtMWST._numbersOnlyKommastellen = "" - Me.txtMWST._numbersOnlyTrennzeichen = True - Me.txtMWST._Prozent = False - Me.txtMWST._ShortDateNew = False - Me.txtMWST._ShortDateOnly = False - Me.txtMWST._TimeOnly = False - Me.txtMWST._TimeOnly_Seconds = False - Me.txtMWST._value = Nothing - Me.txtMWST._Waehrung = True - Me.txtMWST._WaehrungZeichen = False - Me.txtMWST.ForeColor = System.Drawing.Color.Black - Me.txtMWST.Location = New System.Drawing.Point(228, 268) - Me.txtMWST.MaxLineLength = -1 - Me.txtMWST.MaxLines_Warning = "" - Me.txtMWST.MaxLines_Warning_Label = Nothing - Me.txtMWST.Name = "txtMWST" - Me.txtMWST.ReadOnly = True - Me.txtMWST.Size = New System.Drawing.Size(116, 20) - Me.txtMWST.TabIndex = 110 - Me.txtMWST.Text = "0,00 €" - Me.txtMWST.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label29 ' 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(3, 23) + 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 Me.Label29.Text = "WARE" ' - 'txtGesamtsumme - ' - 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(228, 291) - 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(116, 20) - Me.txtGesamtsumme.TabIndex = 113 - Me.txtGesamtsumme.Text = "0,00 €" - Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Panel3 ' Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel3.Location = New System.Drawing.Point(6, 84) + 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 ' - 'Panel4 + 'txtFrachtkostenanteil ' - Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel4.Location = New System.Drawing.Point(3, 287) - Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(350, 2) - Me.Panel4.TabIndex = 111 - ' - 'txtMwstProzent - ' - Me.txtMwstProzent._DateTimeOnly = False - Me.txtMwstProzent._numbersOnly = False - Me.txtMwstProzent._numbersOnlyKommastellen = "" - Me.txtMwstProzent._numbersOnlyTrennzeichen = True - Me.txtMwstProzent._Prozent = True - Me.txtMwstProzent._ShortDateNew = False - Me.txtMwstProzent._ShortDateOnly = False - Me.txtMwstProzent._TimeOnly = False - Me.txtMwstProzent._TimeOnly_Seconds = False - Me.txtMwstProzent._value = "0,2" - Me.txtMwstProzent._Waehrung = False - Me.txtMwstProzent._WaehrungZeichen = True - Me.txtMwstProzent.ForeColor = System.Drawing.Color.Black - Me.txtMwstProzent.Location = New System.Drawing.Point(146, 268) - Me.txtMwstProzent.MaxLineLength = -1 - Me.txtMwstProzent.MaxLines_Warning = "" - Me.txtMwstProzent.MaxLines_Warning_Label = Nothing - Me.txtMwstProzent.Name = "txtMwstProzent" - Me.txtMwstProzent.Size = New System.Drawing.Size(45, 20) - Me.txtMwstProzent.TabIndex = 109 - Me.txtMwstProzent.Text = "20,00 %" - Me.txtMwstProzent.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtAndereAbgabenBetrag - ' - Me.txtAndereAbgabenBetrag._DateTimeOnly = False - Me.txtAndereAbgabenBetrag._numbersOnly = False - Me.txtAndereAbgabenBetrag._numbersOnlyKommastellen = "" - Me.txtAndereAbgabenBetrag._numbersOnlyTrennzeichen = True - Me.txtAndereAbgabenBetrag._Prozent = False - Me.txtAndereAbgabenBetrag._ShortDateNew = False - Me.txtAndereAbgabenBetrag._ShortDateOnly = False - Me.txtAndereAbgabenBetrag._TimeOnly = False - Me.txtAndereAbgabenBetrag._TimeOnly_Seconds = False - Me.txtAndereAbgabenBetrag._value = "" - Me.txtAndereAbgabenBetrag._Waehrung = True - Me.txtAndereAbgabenBetrag._WaehrungZeichen = False - Me.txtAndereAbgabenBetrag.ForeColor = System.Drawing.Color.Black - Me.txtAndereAbgabenBetrag.Location = New System.Drawing.Point(231, 65) - Me.txtAndereAbgabenBetrag.MaxLineLength = -1 - Me.txtAndereAbgabenBetrag.MaxLines_Warning = "" - Me.txtAndereAbgabenBetrag.MaxLines_Warning_Label = Nothing - Me.txtAndereAbgabenBetrag.Name = "txtAndereAbgabenBetrag" - Me.txtAndereAbgabenBetrag.Size = New System.Drawing.Size(116, 20) - Me.txtAndereAbgabenBetrag.TabIndex = 84 - Me.txtAndereAbgabenBetrag.Text = "0,00 €" - Me.txtAndereAbgabenBetrag.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, 344) + 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 @@ -1377,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, 344) + 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!) @@ -1392,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, 372) + Me.Size = New System.Drawing.Size(386, 451) Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.Panel1.ResumeLayout(False) @@ -1445,42 +1661,60 @@ Partial Class usrcntlFrachtkostenberechnung Friend WithEvents Panel1 As Panel Friend WithEvents Panel2 As Panel Friend WithEvents Label6 As Label - Friend WithEvents lblWaehrung As Label Friend WithEvents Label27 As Label - Public WithEvents txtATLAS As VERAG_PROG_ALLGEMEIN.MyTextBox + 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 - Friend WithEvents Label14 As Label + Public WithEvents txtAnteilZoll As VERAG_PROG_ALLGEMEIN.MyTextBox Public WithEvents txtVerzollungskosten As VERAG_PROG_ALLGEMEIN.MyTextBox - Public WithEvents txtSonstigeKosten As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label23 As Label - Friend WithEvents Label13 As Label - Public WithEvents txtEust2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Public WithEvents txtClearing As VERAG_PROG_ALLGEMEIN.MyTextBox - Public WithEvents txtZoll2 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 - Public WithEvents txtMWST As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label29 As Label - Public WithEvents txtGesamtsumme As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Panel3 As Panel - Friend WithEvents Panel4 As Panel - Public WithEvents txtMwstProzent As VERAG_PROG_ALLGEMEIN.MyTextBox - Public WithEvents txtAndereAbgabenBetrag 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 Label28 As Label - Friend WithEvents txbCalcDistanceNichtEU2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents tbEUAnteil2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label15 As Label - Friend WithEvents tbNichtEUAnteil2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents tbNichtEUAnteilberechnet22 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtDistanzNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label16 As Label - Friend WithEvents tbEUAnteilberechnet2 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label18 As Label - Friend WithEvents Label19 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 txtWarengewichtNetto As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtPreis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label8 As Label + Public WithEvents txtGesamtfracht As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label + 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 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 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 81bf039..d5700b0 100644 --- a/Aviso/usrcntlFrachtkostenberechnung.vb +++ b/Aviso/usrcntlFrachtkostenberechnung.vb @@ -1,4 +1,9 @@ -Public Class usrcntlFrachtkostenberechnung +Imports DocumentFormat.OpenXml.Drawing.Charts +Imports DocumentFormat.OpenXml.Drawing.Diagrams +Imports Microsoft.Office.Interop.Excel +Imports SDL + +Public Class usrcntlFrachtkostenberechnung Dim absenderID As Integer = -1 @@ -11,19 +16,17 @@ Dim gewicht As Double Dim gesamtFrachtkosten As Double Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim warenbez As String + Dim avisoid As Integer = -1 Sub New() InitializeComponent() - ware = "Test" End Sub + Public Sub init(avisoid As Integer, absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String, warenwert As String) - Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String) + Me.avisoid = avisoid - InitializeComponent() - Try - - - If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then + If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then gesamtFrachtkosten = CDbl(gesamtfrachtkostenInput) tbxGesamtfrachtkosten._value = gesamtFrachtkosten Else @@ -52,40 +55,29 @@ empfaengerID = -1 End If - txtZoll2._value = ware.ToString - Label5.Text = gewicht.ToString + '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") - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try + 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") - End Sub + ckbManAnteilsermittlung.Checked = True + tbEUAnteil._value = 0 + tbNichtEUAnteil._value = 0 + txbGewicht._value = gewicht.ToString + txbFactor._value = 0.15 - Private Sub usrcntlFrachtkostenberechnung(sender As Object, e As EventArgs) Handles MyBase.Load + txtWare._value = ware + txtGesamtgewicht._value = gewichtInput - - - '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") - - 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 - - tbEUAnteil._value = 0 - tbNichtEUAnteil._value = 0 - txbGewicht._value = gewicht.ToString - txbFactor._value = 0.15 - checkInputFields() + checkInputFields() End Sub @@ -140,6 +132,12 @@ VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", duration, distance,, getValues) VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, durationEU, distanceEU,, getValues) + ElseIf cbxLandVon._value = "SRB" AndAlso cbxLandNach._value = "D" AndAlso (absenderID = "551038" Or absenderID = "722998") AndAlso ckbManAnteilsermittlung.Checked Then + twoRouteRequest = True + '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) + End If If twoRouteRequest = True AndAlso ckbManAnteilsermittlung.Checked Then @@ -312,14 +310,149 @@ 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 + 'tbEUAnteilberechnet2.Text = txbCalcDistanceNichtEU.Text + 'tbNichtEUAnteilberechnet22.Text = tbNichtEUAnteilberechnet.Text - tbEUAnteil2.Text = tbEUAnteil.Text - tbNichtEUAnteil2.Text = tbNichtEUAnteil.Text + 'tbEUAnteil2.Text = tbEUAnteil.Text + 'tbNichtEUAnteil2.Text = tbNichtEUAnteil.Text End Sub + + 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 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 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 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(txtGesamtfracht._value) Then + txtWarenanteilsumme._value = CDbl(txtGesamtfracht._value * anteil / 100) + End If + + Else + lblAnteil.Text = "" + + End If + End Sub + + 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 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, 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 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