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.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..614a921 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(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..2659a2c 100644 --- a/Aviso/usrcntlFrachtkostenberechnung.Designer.vb +++ b/Aviso/usrcntlFrachtkostenberechnung.Designer.vb @@ -62,43 +62,51 @@ 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.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.txtDistanzGes = 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.Label10 = New System.Windows.Forms.Label() + Me.txtWarengewicht = 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.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.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.Panel5 = New System.Windows.Forms.Panel() Me.MyTextBox1 = 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.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.txtPreis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEUST = 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.txtFrachtanteil = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnCancel = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.TabControl1.SuspendLayout() @@ -638,7 +646,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, 365) Me.TabControl1.TabIndex = 74 ' 'TabPage1 @@ -647,7 +655,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, 339) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Entfernung" Me.TabPage1.UseVisualStyleBackColor = True @@ -700,64 +708,405 @@ 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, 339) 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.Label17) Me.Panel2.Controls.Add(Me.Label15) - Me.Panel2.Controls.Add(Me.tbNichtEUAnteil2) - Me.Panel2.Controls.Add(Me.tbNichtEUAnteilberechnet22) + Me.Panel2.Controls.Add(Me.txtDistanzGes) + 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.Label10) + Me.Panel2.Controls.Add(Me.txtWarengewicht) + 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.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.Label16) - Me.Panel2.Controls.Add(Me.tbEUAnteilberechnet2) Me.Panel2.Controls.Add(Me.Label18) - Me.Panel2.Controls.Add(Me.Label19) Me.Panel2.Controls.Add(Me.txbCalcDistanceEU2) Me.Panel2.Controls.Add(Me.Panel5) Me.Panel2.Controls.Add(Me.MyTextBox1) 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.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.txtPreis) + Me.Panel2.Controls.Add(Me.txtEUST) + 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.txtFrachtanteil) Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(377, 375) Me.Panel2.TabIndex = 0 ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(227, 315) + 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.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.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(23, 13) + Me.Label15.TabIndex = 173 + Me.Label15.Text = "km" + ' + 'txtDistanzGes + ' + 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 + ' + '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.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, 292) + 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(219, 48) + 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 + ' + 'MyTextBox6 + ' + 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 + ' + '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" + ' + 'txtWarengewicht + ' + 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 + ' + '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(4, 254) + 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 = 146 + Me.Label28.TabIndex = 162 Me.Label28.Text = "Gesamtgewicht" ' + 'lblWaehrung + ' + Me.lblWaehrung.AutoSize = True + Me.lblWaehrung.Location = New System.Drawing.Point(240, 70) + 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(7, 70) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(70, 13) + Me.Label13.TabIndex = 159 + Me.Label13.Text = "Gesamtfracht" + ' + 'txtWarenanteil + ' + 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 + ' + '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(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 + ' + '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(195, 142) + 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(111, 142) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(13, 13) + Me.Label7.TabIndex = 149 + Me.Label7.Text = "x" + ' + 'MyTextBox3 + ' + 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 + ' + 'MyTextBox2 + ' + 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 + ' 'txbCalcDistanceNichtEU2 ' Me.txbCalcDistanceNichtEU2._DateTimeOnly = False @@ -773,7 +1122,7 @@ Partial Class usrcntlFrachtkostenberechnung 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.Location = New System.Drawing.Point(104, 308) Me.txbCalcDistanceNichtEU2.MaxLineLength = -1 Me.txbCalcDistanceNichtEU2.MaxLines_Warning = "" Me.txbCalcDistanceNichtEU2.MaxLines_Warning_Label = Nothing @@ -781,136 +1130,24 @@ Partial Class usrcntlFrachtkostenberechnung 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 - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(225, 214) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(42, 13) - Me.Label15.TabIndex = 144 - Me.Label15.Text = "Distanz" - ' - 'tbNichtEUAnteil2 - ' - 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 - ' - 'tbNichtEUAnteilberechnet22 - ' - 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 - ' 'Label16 ' Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(3, 191) + Me.Label16.Location = New System.Drawing.Point(7, 288) 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, 311) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(79, 13) Me.Label18.TabIndex = 140 Me.Label18.Text = "Nicht EU Anteil" ' - 'Label19 - ' - 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 @@ -926,7 +1163,7 @@ Partial Class usrcntlFrachtkostenberechnung 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.Location = New System.Drawing.Point(104, 285) Me.txbCalcDistanceEU2.MaxLineLength = -1 Me.txbCalcDistanceEU2.MaxLines_Warning = "" Me.txbCalcDistanceEU2.MaxLines_Warning_Label = Nothing @@ -937,7 +1174,7 @@ Partial Class usrcntlFrachtkostenberechnung '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, 245) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(350, 2) Me.Panel5.TabIndex = 86 @@ -957,20 +1194,20 @@ Partial Class usrcntlFrachtkostenberechnung 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.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 = 119 + Me.MyTextBox1.TabIndex = 88 Me.MyTextBox1.Text = "20,00 %" Me.MyTextBox1.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, 142) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(10, 13) Me.Label5.TabIndex = 118 @@ -980,21 +1217,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, 165) 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 +1233,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(235, 226) + 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.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, 254) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(149, 13) Me.Label21.TabIndex = 93 @@ -1042,7 +1272,7 @@ 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, 229) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(147, 13) Me.Label22.TabIndex = 91 @@ -1063,25 +1293,18 @@ Partial Class usrcntlFrachtkostenberechnung 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.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 ' - '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" - ' 'txtVerzollungskosten ' Me.txtVerzollungskosten._DateTimeOnly = False @@ -1097,7 +1320,7 @@ 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(235, 188) Me.txtVerzollungskosten.MaxLineLength = -1 Me.txtVerzollungskosten.MaxLines_Warning = "" Me.txtVerzollungskosten.MaxLines_Warning_Label = Nothing @@ -1107,266 +1330,149 @@ Partial Class usrcntlFrachtkostenberechnung 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, 210) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(51, 13) Me.Label23.TabIndex = 89 Me.Label23.Text = "enth. Zoll" ' - 'Label13 + 'txtPreis ' - 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.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 ' - 'txtEust2 + 'txtEUST ' - 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.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 ' - '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, 117) + 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, 142) 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, 120) 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, 181) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(350, 2) Me.Panel3.TabIndex = 85 ' - 'Panel4 + 'txtFrachtanteil ' - 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.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 ' '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(7, 397) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(75, 23) Me.btnCancel.TabIndex = 75 @@ -1377,7 +1483,7 @@ 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(306, 397) Me.btnOK.Name = "btnOK" Me.btnOK.Size = New System.Drawing.Size(75, 23) Me.btnOK.TabIndex = 76 @@ -1392,7 +1498,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, 433) Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.Panel1.ResumeLayout(False) @@ -1445,42 +1551,50 @@ 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 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 txtPreis As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents txtEUST 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 txtFrachtanteil As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Panel5 As Panel Public WithEvents MyTextBox1 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 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 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 + Friend WithEvents Label8 As Label + Public WithEvents MyTextBox6 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label + Public WithEvents txtWarengewicht 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 + 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 Label12 As Label + Friend WithEvents Label11 As Label End Class diff --git a/Aviso/usrcntlFrachtkostenberechnung.vb b/Aviso/usrcntlFrachtkostenberechnung.vb index 81bf039..32778ee 100644 --- a/Aviso/usrcntlFrachtkostenberechnung.vb +++ b/Aviso/usrcntlFrachtkostenberechnung.vb @@ -1,4 +1,6 @@ -Public Class usrcntlFrachtkostenberechnung +Imports DocumentFormat.OpenXml.Drawing.Diagrams + +Public Class usrcntlFrachtkostenberechnung Dim absenderID As Integer = -1 @@ -11,61 +13,42 @@ Dim gewicht As Double Dim gesamtFrachtkosten As Double Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim warenbez As String Sub New() InitializeComponent() - ware = "Test" End Sub - - Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String) - - InitializeComponent() - Try + Public Sub init(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String, warenwert As String) - If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then - gesamtFrachtkosten = CDbl(gesamtfrachtkostenInput) - tbxGesamtfrachtkosten._value = gesamtFrachtkosten - Else - gesamtFrachtkosten = 0 - End If + 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 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 - - empfaengerID = Int(empfID) - Else - empfaengerID = -1 - End If - - txtZoll2._value = ware.ToString - Label5.Text = gewicht.ToString - - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - - End Sub - - - Private Sub usrcntlFrachtkostenberechnung(sender As Object, e As EventArgs) Handles MyBase.Load - + If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then + 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) @@ -85,6 +68,10 @@ tbNichtEUAnteil._value = 0 txbGewicht._value = gewicht.ToString txbFactor._value = 0.15 + + txtWare._value = ware + txtGesamtgewicht._value = gewichtInput + checkInputFields() @@ -140,6 +127,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 Lukow-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 @@ -315,11 +308,74 @@ txbCalcDistanceEU2.Text = txbCalcDistanceEU.Text txbCalcDistanceNichtEU2.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 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))) + 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 + 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) + 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) + lblAnteil.Text = anteil & " %" + If IsNumeric(MyTextBox6._value) Then + txtWarenanteil._value = CDbl(MyTextBox6._value * anteil / 100) + End If + + Else + lblAnteil.Text = "" + + 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) + 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 + 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) + End If + End Sub + + Private Sub txtPreis_ValueChanged() Handles txtPreis.ValueChanged + If IsNumeric(txtPreis._value) Then + txtEUST._value = txtPreis._value + End If + End Sub + + End Class