diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 17ba59b..d4f7543 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -995,6 +995,12 @@ UserControl + + usrcntlFrachtkostenberechnung.vb + + + UserControl + usrcntlSendungDetailsAbrechnung.vb @@ -1356,6 +1362,9 @@ UsrCntlEssensbestellungen.vb + + usrcntlFrachtkostenberechnung.vb + usrcntlSendungDetailsAbrechnung.vb diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index ae94481..66dd162 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmATEZ_NCTS.Designer.vb b/Aviso/frmATEZ_NCTS.Designer.vb index f68a8a9..20530b2 100644 --- a/Aviso/frmATEZ_NCTS.Designer.vb +++ b/Aviso/frmATEZ_NCTS.Designer.vb @@ -24,28 +24,20 @@ Partial Class frmATEZ_NCTS Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATEZ_NCTS)) - Me.txtDyMandant = New System.Windows.Forms.Label() - Me.Label1 = New System.Windows.Forms.Label() - Me.txtDyNiederlassung = New System.Windows.Forms.Label() - Me.lblBezugsnummer = New System.Windows.Forms.Label() - Me.Label9 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() - Me.Label3 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() - Me.lklRoutenauswahl = New System.Windows.Forms.LinkLabel() - Me.Label14 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() - Me.lblC = New System.Windows.Forms.Label() - Me.cbxTemperatur = New System.Windows.Forms.CheckBox() - Me.Label7 = New System.Windows.Forms.Label() - Me.dtpDat = New System.Windows.Forms.DateTimePicker() - Me.Label8 = New System.Windows.Forms.Label() + Me.pnlHead = New System.Windows.Forms.Panel() + Me.lblInfo = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.usrCntl_Carrier = New SDL.usrCntlAdresse() Me.txtDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dtpDat = New System.Windows.Forms.DateTimePicker() + Me.Label7 = New System.Windows.Forms.Label() + Me.lblC = New System.Windows.Forms.Label() Me.txtTransporttemp = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxTemperatur = New System.Windows.Forms.CheckBox() Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.sbDurchgangszollstelle9 = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.sbDurchgangszollstelle8 = New VERAG_PROG_ALLGEMEIN.MySearchBox() @@ -55,6 +47,8 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.sbDurchgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.sbDurchgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.lklRoutenauswahl = New System.Windows.Forms.LinkLabel() Me.sbRoute5 = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.sbRoute9 = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.sbRoute8 = New VERAG_PROG_ALLGEMEIN.MySearchBox() @@ -64,64 +58,22 @@ Partial Class frmATEZ_NCTS Me.sbRoute3 = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.sbRoute2 = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.sbRoute1 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label3 = New System.Windows.Forms.Label() Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label9 = New System.Windows.Forms.Label() Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.lblInfo = New System.Windows.Forms.Label() + Me.txtDyMandant = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtDyNiederlassung = New System.Windows.Forms.Label() + Me.lblBezugsnummer = New System.Windows.Forms.Label() + Me.pnlHead.SuspendLayout() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'txtDyMandant - ' - Me.txtDyMandant.BackColor = System.Drawing.Color.White - Me.txtDyMandant.Location = New System.Drawing.Point(4, 7) - Me.txtDyMandant.Name = "txtDyMandant" - Me.txtDyMandant.Size = New System.Drawing.Size(44, 13) - Me.txtDyMandant.TabIndex = 23 - Me.txtDyMandant.Text = "VERG" - Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label1 - ' - Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label1.AutoSize = True - Me.Label1.BackColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(192, 7) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(82, 13) - Me.Label1.TabIndex = 20 - Me.Label1.Text = "Bezugsnummer:" - ' - 'txtDyNiederlassung - ' - Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White - Me.txtDyNiederlassung.Location = New System.Drawing.Point(54, 8) - Me.txtDyNiederlassung.Name = "txtDyNiederlassung" - Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12) - Me.txtDyNiederlassung.TabIndex = 22 - Me.txtDyNiederlassung.Text = "SUB" - ' - 'lblBezugsnummer - ' - Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblBezugsnummer.BackColor = System.Drawing.Color.White - Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBezugsnummer.Location = New System.Drawing.Point(280, 7) - Me.lblBezugsnummer.Name = "lblBezugsnummer" - Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23) - Me.lblBezugsnummer.TabIndex = 21 - Me.lblBezugsnummer.Text = "4800/000000/17 AAA" - Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'Label9 - ' - Me.Label9.Location = New System.Drawing.Point(12, 97) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(103, 17) - Me.Label9.TabIndex = 24 - Me.Label9.Text = "Abgangs-Zollstelle:" - ' 'Button1 ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -130,7 +82,7 @@ Partial Class frmATEZ_NCTS Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.Button1.Location = New System.Drawing.Point(153, 710) + Me.Button1.Location = New System.Drawing.Point(154, 716) Me.Button1.Margin = New System.Windows.Forms.Padding(2) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(159, 42) @@ -138,108 +90,85 @@ Partial Class frmATEZ_NCTS Me.Button1.Text = "An ATEZ senden -->" Me.Button1.UseVisualStyleBackColor = False ' - 'Label3 + 'pnlHead ' - Me.Label3.Location = New System.Drawing.Point(12, 71) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(103, 17) - Me.Label3.TabIndex = 42 - Me.Label3.Text = "LKW-KZ:" + Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.pnlHead.Controls.Add(Me.lblInfo) + Me.pnlHead.Controls.Add(Me.Label6) + Me.pnlHead.Controls.Add(Me.Label8) + Me.pnlHead.Controls.Add(Me.cboStammreferenz) + Me.pnlHead.Controls.Add(Me.txtLKWId) + Me.pnlHead.Controls.Add(Me.usrCntl_Carrier) + Me.pnlHead.Controls.Add(Me.txtDat) + Me.pnlHead.Controls.Add(Me.dtpDat) + Me.pnlHead.Controls.Add(Me.Label7) + Me.pnlHead.Controls.Add(Me.lblC) + Me.pnlHead.Controls.Add(Me.txtTransporttemp) + Me.pnlHead.Controls.Add(Me.cbxTemperatur) + Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle5) + Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle9) + Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle8) + Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle7) + Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle6) + Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle4) + Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle3) + Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle2) + Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle1) + Me.pnlHead.Controls.Add(Me.Label5) + Me.pnlHead.Controls.Add(Me.lklRoutenauswahl) + Me.pnlHead.Controls.Add(Me.sbRoute5) + Me.pnlHead.Controls.Add(Me.sbRoute9) + Me.pnlHead.Controls.Add(Me.sbRoute8) + Me.pnlHead.Controls.Add(Me.sbRoute7) + Me.pnlHead.Controls.Add(Me.sbRoute6) + Me.pnlHead.Controls.Add(Me.sbRoute4) + Me.pnlHead.Controls.Add(Me.sbRoute3) + Me.pnlHead.Controls.Add(Me.sbRoute2) + Me.pnlHead.Controls.Add(Me.sbRoute1) + Me.pnlHead.Controls.Add(Me.Label14) + Me.pnlHead.Controls.Add(Me.Label4) + Me.pnlHead.Controls.Add(Me.sbBestimmungsZollstelle) + Me.pnlHead.Controls.Add(Me.Label3) + Me.pnlHead.Controls.Add(Me.dgvAnhaenge) + Me.pnlHead.Controls.Add(Me.Label9) + Me.pnlHead.Controls.Add(Me.sbAbgangZollstelle) + Me.pnlHead.Controls.Add(Me.txtDyMandant) + Me.pnlHead.Controls.Add(Me.Label1) + Me.pnlHead.Controls.Add(Me.txtDyNiederlassung) + Me.pnlHead.Controls.Add(Me.lblBezugsnummer) + Me.pnlHead.Location = New System.Drawing.Point(3, 2) + Me.pnlHead.Name = "pnlHead" + Me.pnlHead.Size = New System.Drawing.Size(478, 706) + Me.pnlHead.TabIndex = 112 ' - 'Label4 + 'lblInfo ' - Me.Label4.Location = New System.Drawing.Point(12, 120) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(121, 17) - Me.Label4.TabIndex = 44 - Me.Label4.Text = "Bestimmungs-Zollstelle:" + Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblInfo.ForeColor = System.Drawing.Color.Red + Me.lblInfo.Location = New System.Drawing.Point(10, 27) + Me.lblInfo.Name = "lblInfo" + Me.lblInfo.Size = New System.Drawing.Size(460, 27) + Me.lblInfo.TabIndex = 148 ' - 'lklRoutenauswahl + 'Label6 ' - Me.lklRoutenauswahl.AutoSize = True - Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lklRoutenauswahl.Location = New System.Drawing.Point(394, 483) - Me.lklRoutenauswahl.Name = "lklRoutenauswahl" - Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13) - Me.lklRoutenauswahl.TabIndex = 54 - Me.lklRoutenauswahl.TabStop = True - Me.lklRoutenauswahl.Text = "Routenauswahl" - ' - 'Label14 - ' - Me.Label14.Location = New System.Drawing.Point(12, 483) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(135, 13) - Me.Label14.TabIndex = 53 - Me.Label14.Text = "Route:" - ' - 'Label5 - ' - Me.Label5.Location = New System.Drawing.Point(12, 388) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(135, 13) - Me.Label5.TabIndex = 64 - Me.Label5.Text = "Durchgangszollstellen:" - ' - 'lblC - ' - Me.lblC.AutoSize = True - Me.lblC.Location = New System.Drawing.Point(253, 173) - Me.lblC.Name = "lblC" - Me.lblC.Size = New System.Drawing.Size(18, 13) - Me.lblC.TabIndex = 78 - Me.lblC.Text = "°C" - ' - 'cbxTemperatur - ' - Me.cbxTemperatur.AutoSize = True - Me.cbxTemperatur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxTemperatur.Location = New System.Drawing.Point(15, 169) - Me.cbxTemperatur.Name = "cbxTemperatur" - Me.cbxTemperatur.Size = New System.Drawing.Size(125, 17) - Me.cbxTemperatur.TabIndex = 76 - Me.cbxTemperatur.TabStop = False - Me.cbxTemperatur.Text = "Trasport-Temperatur:" - Me.cbxTemperatur.UseVisualStyleBackColor = True - ' - 'Label7 - ' - Me.Label7.Location = New System.Drawing.Point(12, 142) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(103, 17) - Me.Label7.TabIndex = 79 - Me.Label7.Text = "Datumgrenze:" - ' - 'dtpDat - ' - Me.dtpDat.CustomFormat = "''" - Me.dtpDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dtpDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.dtpDat.Location = New System.Drawing.Point(153, 142) - Me.dtpDat.Margin = New System.Windows.Forms.Padding(0) - Me.dtpDat.Name = "dtpDat" - Me.dtpDat.Size = New System.Drawing.Size(110, 24) - Me.dtpDat.TabIndex = 81 + Me.Label6.Location = New System.Drawing.Point(10, 562) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(135, 13) + Me.Label6.TabIndex = 147 + Me.Label6.Text = "Dokumente:" ' 'Label8 ' Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(285, 70) + Me.Label8.Location = New System.Drawing.Point(283, 65) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(57, 13) - Me.Label8.TabIndex = 89 + Me.Label8.TabIndex = 146 Me.Label8.Text = "Stammref.:" Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'Label6 - ' - Me.Label6.Location = New System.Drawing.Point(12, 567) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(135, 13) - Me.Label6.TabIndex = 96 - Me.Label6.Text = "Dokumente:" - ' 'cboStammreferenz ' Me.cboStammreferenz._allowedValuesFreiText = Nothing @@ -249,10 +178,10 @@ Partial Class frmATEZ_NCTS Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboStammreferenz.FormattingEnabled = True - Me.cboStammreferenz.Location = New System.Drawing.Point(343, 67) + Me.cboStammreferenz.Location = New System.Drawing.Point(341, 62) Me.cboStammreferenz.Name = "cboStammreferenz" Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21) - Me.cboStammreferenz.TabIndex = 88 + Me.cboStammreferenz.TabIndex = 145 ' 'txtLKWId ' @@ -269,23 +198,23 @@ Partial Class frmATEZ_NCTS Me.txtLKWId._Waehrung = False Me.txtLKWId._WaehrungZeichen = True Me.txtLKWId.ForeColor = System.Drawing.Color.Black - Me.txtLKWId.Location = New System.Drawing.Point(153, 68) + Me.txtLKWId.Location = New System.Drawing.Point(151, 63) Me.txtLKWId.MaxLineLength = -1 Me.txtLKWId.MaxLines_Warning = "" Me.txtLKWId.MaxLines_Warning_Label = Nothing Me.txtLKWId.Name = "txtLKWId" Me.txtLKWId.Size = New System.Drawing.Size(100, 20) - Me.txtLKWId.TabIndex = 87 + Me.txtLKWId.TabIndex = 144 ' 'usrCntl_Carrier ' Me.usrCntl_Carrier._Titel = "Frächter:" Me.usrCntl_Carrier.BackColor = System.Drawing.Color.White Me.usrCntl_Carrier.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.usrCntl_Carrier.Location = New System.Drawing.Point(15, 223) + Me.usrCntl_Carrier.Location = New System.Drawing.Point(13, 218) Me.usrCntl_Carrier.Name = "usrCntl_Carrier" Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132) - Me.usrCntl_Carrier.TabIndex = 84 + Me.usrCntl_Carrier.TabIndex = 143 ' 'txtDat ' @@ -303,7 +232,7 @@ Partial Class frmATEZ_NCTS Me.txtDat._WaehrungZeichen = True Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtDat.ForeColor = System.Drawing.Color.Black - Me.txtDat.Location = New System.Drawing.Point(153, 142) + Me.txtDat.Location = New System.Drawing.Point(151, 137) Me.txtDat.MaxLength = 10 Me.txtDat.MaxLineLength = -1 Me.txtDat.MaxLines_Warning = "" @@ -311,7 +240,35 @@ Partial Class frmATEZ_NCTS Me.txtDat.Multiline = True Me.txtDat.Name = "txtDat" Me.txtDat.Size = New System.Drawing.Size(78, 24) - Me.txtDat.TabIndex = 80 + Me.txtDat.TabIndex = 141 + ' + 'dtpDat + ' + Me.dtpDat.CustomFormat = "''" + Me.dtpDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.dtpDat.Location = New System.Drawing.Point(151, 137) + Me.dtpDat.Margin = New System.Windows.Forms.Padding(0) + Me.dtpDat.Name = "dtpDat" + Me.dtpDat.Size = New System.Drawing.Size(110, 24) + Me.dtpDat.TabIndex = 142 + ' + 'Label7 + ' + Me.Label7.Location = New System.Drawing.Point(10, 137) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(103, 17) + Me.Label7.TabIndex = 140 + Me.Label7.Text = "Datumgrenze:" + ' + 'lblC + ' + Me.lblC.AutoSize = True + Me.lblC.Location = New System.Drawing.Point(251, 168) + Me.lblC.Name = "lblC" + Me.lblC.Size = New System.Drawing.Size(18, 13) + Me.lblC.TabIndex = 139 + Me.lblC.Text = "°C" ' 'txtTransporttemp ' @@ -328,13 +285,25 @@ Partial Class frmATEZ_NCTS Me.txtTransporttemp._Waehrung = False Me.txtTransporttemp._WaehrungZeichen = True Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black - Me.txtTransporttemp.Location = New System.Drawing.Point(153, 169) + Me.txtTransporttemp.Location = New System.Drawing.Point(151, 164) Me.txtTransporttemp.MaxLineLength = -1 Me.txtTransporttemp.MaxLines_Warning = "" Me.txtTransporttemp.MaxLines_Warning_Label = Nothing Me.txtTransporttemp.Name = "txtTransporttemp" Me.txtTransporttemp.Size = New System.Drawing.Size(100, 20) - Me.txtTransporttemp.TabIndex = 77 + Me.txtTransporttemp.TabIndex = 138 + ' + 'cbxTemperatur + ' + Me.cbxTemperatur.AutoSize = True + Me.cbxTemperatur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTemperatur.Location = New System.Drawing.Point(13, 164) + Me.cbxTemperatur.Name = "cbxTemperatur" + Me.cbxTemperatur.Size = New System.Drawing.Size(125, 17) + Me.cbxTemperatur.TabIndex = 137 + Me.cbxTemperatur.TabStop = False + Me.cbxTemperatur.Text = "Trasport-Temperatur:" + Me.cbxTemperatur.UseVisualStyleBackColor = True ' 'sbDurchgangszollstelle5 ' @@ -350,7 +319,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing Me.sbDurchgangszollstelle5.key_visible = False Me.sbDurchgangszollstelle5.KEYPARAM = Nothing - Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(168, 423) + Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(166, 418) Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5" Me.sbDurchgangszollstelle5.searchActive = True Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(154, 20) @@ -358,7 +327,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing - Me.sbDurchgangszollstelle5.TabIndex = 69 + Me.sbDurchgangszollstelle5.TabIndex = 132 Me.sbDurchgangszollstelle5.usrcntl = Nothing ' 'sbDurchgangszollstelle9 @@ -375,7 +344,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing Me.sbDurchgangszollstelle9.key_visible = False Me.sbDurchgangszollstelle9.KEYPARAM = Nothing - Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(321, 442) + Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(319, 437) Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9" Me.sbDurchgangszollstelle9.searchActive = True Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(154, 20) @@ -383,7 +352,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle9.SQL_SELECT = Nothing Me.sbDurchgangszollstelle9.SQL_WHERE = Nothing Me.sbDurchgangszollstelle9.SQL_WhereParamList = Nothing - Me.sbDurchgangszollstelle9.TabIndex = 73 + Me.sbDurchgangszollstelle9.TabIndex = 136 Me.sbDurchgangszollstelle9.usrcntl = Nothing ' 'sbDurchgangszollstelle8 @@ -400,7 +369,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing Me.sbDurchgangszollstelle8.key_visible = False Me.sbDurchgangszollstelle8.KEYPARAM = Nothing - Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(168, 442) + Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(166, 437) Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8" Me.sbDurchgangszollstelle8.searchActive = True Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(154, 20) @@ -408,7 +377,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle8.SQL_SELECT = Nothing Me.sbDurchgangszollstelle8.SQL_WHERE = Nothing Me.sbDurchgangszollstelle8.SQL_WhereParamList = Nothing - Me.sbDurchgangszollstelle8.TabIndex = 72 + Me.sbDurchgangszollstelle8.TabIndex = 135 Me.sbDurchgangszollstelle8.usrcntl = Nothing ' 'sbDurchgangszollstelle7 @@ -425,7 +394,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing Me.sbDurchgangszollstelle7.key_visible = False Me.sbDurchgangszollstelle7.KEYPARAM = Nothing - Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(15, 442) + Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 437) Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7" Me.sbDurchgangszollstelle7.searchActive = True Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(154, 20) @@ -433,7 +402,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle7.SQL_SELECT = Nothing Me.sbDurchgangszollstelle7.SQL_WHERE = Nothing Me.sbDurchgangszollstelle7.SQL_WhereParamList = Nothing - Me.sbDurchgangszollstelle7.TabIndex = 71 + Me.sbDurchgangszollstelle7.TabIndex = 134 Me.sbDurchgangszollstelle7.usrcntl = Nothing ' 'sbDurchgangszollstelle6 @@ -450,7 +419,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing Me.sbDurchgangszollstelle6.key_visible = False Me.sbDurchgangszollstelle6.KEYPARAM = Nothing - Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(321, 423) + Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(319, 418) Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6" Me.sbDurchgangszollstelle6.searchActive = True Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(154, 20) @@ -458,7 +427,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing - Me.sbDurchgangszollstelle6.TabIndex = 70 + Me.sbDurchgangszollstelle6.TabIndex = 133 Me.sbDurchgangszollstelle6.usrcntl = Nothing ' 'sbDurchgangszollstelle4 @@ -475,7 +444,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing Me.sbDurchgangszollstelle4.key_visible = False Me.sbDurchgangszollstelle4.KEYPARAM = Nothing - Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(15, 423) + Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 418) Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4" Me.sbDurchgangszollstelle4.searchActive = True Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(154, 20) @@ -483,7 +452,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing Me.sbDurchgangszollstelle4.SQL_WhereParamList = Nothing - Me.sbDurchgangszollstelle4.TabIndex = 68 + Me.sbDurchgangszollstelle4.TabIndex = 131 Me.sbDurchgangszollstelle4.usrcntl = Nothing ' 'sbDurchgangszollstelle3 @@ -500,7 +469,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing Me.sbDurchgangszollstelle3.key_visible = False Me.sbDurchgangszollstelle3.KEYPARAM = Nothing - Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(321, 404) + Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(319, 399) Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3" Me.sbDurchgangszollstelle3.searchActive = True Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(154, 20) @@ -508,7 +477,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle3.SQL_SELECT = Nothing Me.sbDurchgangszollstelle3.SQL_WHERE = Nothing Me.sbDurchgangszollstelle3.SQL_WhereParamList = Nothing - Me.sbDurchgangszollstelle3.TabIndex = 67 + Me.sbDurchgangszollstelle3.TabIndex = 130 Me.sbDurchgangszollstelle3.usrcntl = Nothing ' 'sbDurchgangszollstelle2 @@ -525,7 +494,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing Me.sbDurchgangszollstelle2.key_visible = False Me.sbDurchgangszollstelle2.KEYPARAM = Nothing - Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(168, 404) + Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(166, 399) Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2" Me.sbDurchgangszollstelle2.searchActive = True Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(154, 20) @@ -533,7 +502,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle2.SQL_SELECT = Nothing Me.sbDurchgangszollstelle2.SQL_WHERE = Nothing Me.sbDurchgangszollstelle2.SQL_WhereParamList = Nothing - Me.sbDurchgangszollstelle2.TabIndex = 66 + Me.sbDurchgangszollstelle2.TabIndex = 129 Me.sbDurchgangszollstelle2.usrcntl = Nothing ' 'sbDurchgangszollstelle1 @@ -550,7 +519,7 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing Me.sbDurchgangszollstelle1.key_visible = False Me.sbDurchgangszollstelle1.KEYPARAM = Nothing - Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(15, 404) + Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 399) Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1" Me.sbDurchgangszollstelle1.searchActive = True Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(154, 20) @@ -558,9 +527,28 @@ Partial Class frmATEZ_NCTS Me.sbDurchgangszollstelle1.SQL_SELECT = Nothing Me.sbDurchgangszollstelle1.SQL_WHERE = Nothing Me.sbDurchgangszollstelle1.SQL_WhereParamList = Nothing - Me.sbDurchgangszollstelle1.TabIndex = 65 + Me.sbDurchgangszollstelle1.TabIndex = 128 Me.sbDurchgangszollstelle1.usrcntl = Nothing ' + 'Label5 + ' + Me.Label5.Location = New System.Drawing.Point(10, 383) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(135, 13) + Me.Label5.TabIndex = 127 + Me.Label5.Text = "Durchgangszollstellen:" + ' + 'lklRoutenauswahl + ' + Me.lklRoutenauswahl.AutoSize = True + Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lklRoutenauswahl.Location = New System.Drawing.Point(392, 478) + Me.lklRoutenauswahl.Name = "lklRoutenauswahl" + Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13) + Me.lklRoutenauswahl.TabIndex = 117 + Me.lklRoutenauswahl.TabStop = True + Me.lklRoutenauswahl.Text = "Routenauswahl" + ' 'sbRoute5 ' Me.sbRoute5._allowFreitext = False @@ -575,7 +563,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute5.INVISIBLE_COLUMNS = Nothing Me.sbRoute5.key_visible = False Me.sbRoute5.KEYPARAM = Nothing - Me.sbRoute5.Location = New System.Drawing.Point(168, 518) + Me.sbRoute5.Location = New System.Drawing.Point(166, 513) Me.sbRoute5.Name = "sbRoute5" Me.sbRoute5.searchActive = True Me.sbRoute5.Size = New System.Drawing.Size(154, 20) @@ -583,7 +571,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute5.SQL_SELECT = Nothing Me.sbRoute5.SQL_WHERE = Nothing Me.sbRoute5.SQL_WhereParamList = Nothing - Me.sbRoute5.TabIndex = 59 + Me.sbRoute5.TabIndex = 122 Me.sbRoute5.usrcntl = Nothing ' 'sbRoute9 @@ -600,7 +588,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute9.INVISIBLE_COLUMNS = Nothing Me.sbRoute9.key_visible = False Me.sbRoute9.KEYPARAM = Nothing - Me.sbRoute9.Location = New System.Drawing.Point(321, 537) + Me.sbRoute9.Location = New System.Drawing.Point(319, 532) Me.sbRoute9.Name = "sbRoute9" Me.sbRoute9.searchActive = True Me.sbRoute9.Size = New System.Drawing.Size(154, 20) @@ -608,7 +596,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute9.SQL_SELECT = Nothing Me.sbRoute9.SQL_WHERE = Nothing Me.sbRoute9.SQL_WhereParamList = Nothing - Me.sbRoute9.TabIndex = 63 + Me.sbRoute9.TabIndex = 126 Me.sbRoute9.usrcntl = Nothing ' 'sbRoute8 @@ -625,7 +613,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute8.INVISIBLE_COLUMNS = Nothing Me.sbRoute8.key_visible = False Me.sbRoute8.KEYPARAM = Nothing - Me.sbRoute8.Location = New System.Drawing.Point(168, 537) + Me.sbRoute8.Location = New System.Drawing.Point(166, 532) Me.sbRoute8.Name = "sbRoute8" Me.sbRoute8.searchActive = True Me.sbRoute8.Size = New System.Drawing.Size(154, 20) @@ -633,7 +621,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute8.SQL_SELECT = Nothing Me.sbRoute8.SQL_WHERE = Nothing Me.sbRoute8.SQL_WhereParamList = Nothing - Me.sbRoute8.TabIndex = 62 + Me.sbRoute8.TabIndex = 125 Me.sbRoute8.usrcntl = Nothing ' 'sbRoute7 @@ -650,7 +638,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute7.INVISIBLE_COLUMNS = Nothing Me.sbRoute7.key_visible = False Me.sbRoute7.KEYPARAM = Nothing - Me.sbRoute7.Location = New System.Drawing.Point(15, 537) + Me.sbRoute7.Location = New System.Drawing.Point(13, 532) Me.sbRoute7.Name = "sbRoute7" Me.sbRoute7.searchActive = True Me.sbRoute7.Size = New System.Drawing.Size(154, 20) @@ -658,7 +646,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute7.SQL_SELECT = Nothing Me.sbRoute7.SQL_WHERE = Nothing Me.sbRoute7.SQL_WhereParamList = Nothing - Me.sbRoute7.TabIndex = 61 + Me.sbRoute7.TabIndex = 124 Me.sbRoute7.usrcntl = Nothing ' 'sbRoute6 @@ -675,7 +663,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute6.INVISIBLE_COLUMNS = Nothing Me.sbRoute6.key_visible = False Me.sbRoute6.KEYPARAM = Nothing - Me.sbRoute6.Location = New System.Drawing.Point(321, 518) + Me.sbRoute6.Location = New System.Drawing.Point(319, 513) Me.sbRoute6.Name = "sbRoute6" Me.sbRoute6.searchActive = True Me.sbRoute6.Size = New System.Drawing.Size(154, 20) @@ -683,7 +671,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute6.SQL_SELECT = Nothing Me.sbRoute6.SQL_WHERE = Nothing Me.sbRoute6.SQL_WhereParamList = Nothing - Me.sbRoute6.TabIndex = 60 + Me.sbRoute6.TabIndex = 123 Me.sbRoute6.usrcntl = Nothing ' 'sbRoute4 @@ -700,7 +688,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute4.INVISIBLE_COLUMNS = Nothing Me.sbRoute4.key_visible = False Me.sbRoute4.KEYPARAM = Nothing - Me.sbRoute4.Location = New System.Drawing.Point(15, 518) + Me.sbRoute4.Location = New System.Drawing.Point(13, 513) Me.sbRoute4.Name = "sbRoute4" Me.sbRoute4.searchActive = True Me.sbRoute4.Size = New System.Drawing.Size(154, 20) @@ -708,7 +696,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute4.SQL_SELECT = Nothing Me.sbRoute4.SQL_WHERE = Nothing Me.sbRoute4.SQL_WhereParamList = Nothing - Me.sbRoute4.TabIndex = 58 + Me.sbRoute4.TabIndex = 121 Me.sbRoute4.usrcntl = Nothing ' 'sbRoute3 @@ -725,7 +713,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute3.INVISIBLE_COLUMNS = Nothing Me.sbRoute3.key_visible = False Me.sbRoute3.KEYPARAM = Nothing - Me.sbRoute3.Location = New System.Drawing.Point(321, 499) + Me.sbRoute3.Location = New System.Drawing.Point(319, 494) Me.sbRoute3.Name = "sbRoute3" Me.sbRoute3.searchActive = True Me.sbRoute3.Size = New System.Drawing.Size(154, 20) @@ -733,7 +721,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute3.SQL_SELECT = Nothing Me.sbRoute3.SQL_WHERE = Nothing Me.sbRoute3.SQL_WhereParamList = Nothing - Me.sbRoute3.TabIndex = 57 + Me.sbRoute3.TabIndex = 120 Me.sbRoute3.usrcntl = Nothing ' 'sbRoute2 @@ -750,7 +738,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute2.INVISIBLE_COLUMNS = Nothing Me.sbRoute2.key_visible = False Me.sbRoute2.KEYPARAM = Nothing - Me.sbRoute2.Location = New System.Drawing.Point(168, 499) + Me.sbRoute2.Location = New System.Drawing.Point(166, 494) Me.sbRoute2.Name = "sbRoute2" Me.sbRoute2.searchActive = True Me.sbRoute2.Size = New System.Drawing.Size(154, 20) @@ -758,7 +746,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute2.SQL_SELECT = Nothing Me.sbRoute2.SQL_WHERE = Nothing Me.sbRoute2.SQL_WhereParamList = Nothing - Me.sbRoute2.TabIndex = 56 + Me.sbRoute2.TabIndex = 119 Me.sbRoute2.usrcntl = Nothing ' 'sbRoute1 @@ -775,7 +763,7 @@ Partial Class frmATEZ_NCTS Me.sbRoute1.INVISIBLE_COLUMNS = Nothing Me.sbRoute1.key_visible = False Me.sbRoute1.KEYPARAM = Nothing - Me.sbRoute1.Location = New System.Drawing.Point(15, 499) + Me.sbRoute1.Location = New System.Drawing.Point(13, 494) Me.sbRoute1.Name = "sbRoute1" Me.sbRoute1.searchActive = True Me.sbRoute1.Size = New System.Drawing.Size(154, 20) @@ -783,9 +771,25 @@ Partial Class frmATEZ_NCTS Me.sbRoute1.SQL_SELECT = Nothing Me.sbRoute1.SQL_WHERE = Nothing Me.sbRoute1.SQL_WhereParamList = Nothing - Me.sbRoute1.TabIndex = 55 + Me.sbRoute1.TabIndex = 118 Me.sbRoute1.usrcntl = Nothing ' + 'Label14 + ' + Me.Label14.Location = New System.Drawing.Point(10, 478) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(135, 13) + Me.Label14.TabIndex = 116 + Me.Label14.Text = "Route:" + ' + 'Label4 + ' + Me.Label4.Location = New System.Drawing.Point(10, 115) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(121, 17) + Me.Label4.TabIndex = 114 + Me.Label4.Text = "Bestimmungs-Zollstelle:" + ' 'sbBestimmungsZollstelle ' Me.sbBestimmungsZollstelle._allowFreitext = False @@ -800,7 +804,7 @@ Partial Class frmATEZ_NCTS Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing Me.sbBestimmungsZollstelle.key_visible = False Me.sbBestimmungsZollstelle.KEYPARAM = Nothing - Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(153, 120) + Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 115) Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle" Me.sbBestimmungsZollstelle.searchActive = True Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20) @@ -808,9 +812,17 @@ Partial Class frmATEZ_NCTS Me.sbBestimmungsZollstelle.SQL_SELECT = Nothing Me.sbBestimmungsZollstelle.SQL_WHERE = Nothing Me.sbBestimmungsZollstelle.SQL_WhereParamList = Nothing - Me.sbBestimmungsZollstelle.TabIndex = 45 + Me.sbBestimmungsZollstelle.TabIndex = 115 Me.sbBestimmungsZollstelle.usrcntl = Nothing ' + 'Label3 + ' + Me.Label3.Location = New System.Drawing.Point(10, 66) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(103, 17) + Me.Label3.TabIndex = 113 + Me.Label3.Text = "LKW-KZ:" + ' 'dgvAnhaenge ' Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 @@ -821,11 +833,11 @@ Partial Class frmATEZ_NCTS Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName}) - Me.dgvAnhaenge.Location = New System.Drawing.Point(15, 583) + Me.dgvAnhaenge.Location = New System.Drawing.Point(13, 578) Me.dgvAnhaenge.Name = "dgvAnhaenge" Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvAnhaenge.Size = New System.Drawing.Size(463, 122) - Me.dgvAnhaenge.TabIndex = 40 + Me.dgvAnhaenge.TabIndex = 112 ' 'columnName ' @@ -834,6 +846,14 @@ Partial Class frmATEZ_NCTS Me.columnName.Name = "columnName" Me.columnName.ReadOnly = True ' + 'Label9 + ' + Me.Label9.Location = New System.Drawing.Point(10, 92) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(103, 17) + Me.Label9.TabIndex = 110 + Me.Label9.Text = "Abgangs-Zollstelle:" + ' 'sbAbgangZollstelle ' Me.sbAbgangZollstelle._allowFreitext = False @@ -848,7 +868,7 @@ Partial Class frmATEZ_NCTS Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing Me.sbAbgangZollstelle.key_visible = False Me.sbAbgangZollstelle.KEYPARAM = Nothing - Me.sbAbgangZollstelle.Location = New System.Drawing.Point(153, 94) + Me.sbAbgangZollstelle.Location = New System.Drawing.Point(151, 89) Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle" Me.sbAbgangZollstelle.searchActive = True Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20) @@ -856,89 +876,93 @@ Partial Class frmATEZ_NCTS Me.sbAbgangZollstelle.SQL_SELECT = Nothing Me.sbAbgangZollstelle.SQL_WHERE = Nothing Me.sbAbgangZollstelle.SQL_WhereParamList = Nothing - Me.sbAbgangZollstelle.TabIndex = 25 + Me.sbAbgangZollstelle.TabIndex = 111 Me.sbAbgangZollstelle.usrcntl = Nothing ' - 'lblInfo + 'txtDyMandant ' - Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblInfo.ForeColor = System.Drawing.Color.Red - Me.lblInfo.Location = New System.Drawing.Point(12, 32) - Me.lblInfo.Name = "lblInfo" - Me.lblInfo.Size = New System.Drawing.Size(460, 27) - Me.lblInfo.TabIndex = 105 + Me.txtDyMandant.BackColor = System.Drawing.Color.White + Me.txtDyMandant.Location = New System.Drawing.Point(2, 2) + Me.txtDyMandant.Name = "txtDyMandant" + Me.txtDyMandant.Size = New System.Drawing.Size(44, 13) + Me.txtDyMandant.TabIndex = 109 + Me.txtDyMandant.Text = "VERG" + Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(190, 2) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 106 + Me.Label1.Text = "Bezugsnummer:" + ' + 'txtDyNiederlassung + ' + Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White + Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 3) + Me.txtDyNiederlassung.Name = "txtDyNiederlassung" + Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12) + Me.txtDyNiederlassung.TabIndex = 108 + Me.txtDyNiederlassung.Text = "SUB" + ' + 'lblBezugsnummer + ' + Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblBezugsnummer.BackColor = System.Drawing.Color.White + Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBezugsnummer.Location = New System.Drawing.Point(278, 2) + Me.lblBezugsnummer.Name = "lblBezugsnummer" + Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23) + Me.lblBezugsnummer.TabIndex = 107 + Me.lblBezugsnummer.Text = "4800/000000/17 AAA" + Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' 'frmATEZ_NCTS ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(484, 763) - Me.Controls.Add(Me.lblInfo) - Me.Controls.Add(Me.Label6) - Me.Controls.Add(Me.Label8) - Me.Controls.Add(Me.cboStammreferenz) - Me.Controls.Add(Me.txtLKWId) - Me.Controls.Add(Me.usrCntl_Carrier) - Me.Controls.Add(Me.txtDat) - Me.Controls.Add(Me.dtpDat) - Me.Controls.Add(Me.Label7) - Me.Controls.Add(Me.lblC) - Me.Controls.Add(Me.txtTransporttemp) - Me.Controls.Add(Me.cbxTemperatur) - Me.Controls.Add(Me.sbDurchgangszollstelle5) - Me.Controls.Add(Me.sbDurchgangszollstelle9) - Me.Controls.Add(Me.sbDurchgangszollstelle8) - Me.Controls.Add(Me.sbDurchgangszollstelle7) - Me.Controls.Add(Me.sbDurchgangszollstelle6) - Me.Controls.Add(Me.sbDurchgangszollstelle4) - Me.Controls.Add(Me.sbDurchgangszollstelle3) - Me.Controls.Add(Me.sbDurchgangszollstelle2) - Me.Controls.Add(Me.sbDurchgangszollstelle1) - Me.Controls.Add(Me.Label5) - Me.Controls.Add(Me.lklRoutenauswahl) - Me.Controls.Add(Me.sbRoute5) - Me.Controls.Add(Me.sbRoute9) - Me.Controls.Add(Me.sbRoute8) - Me.Controls.Add(Me.sbRoute7) - Me.Controls.Add(Me.sbRoute6) - Me.Controls.Add(Me.sbRoute4) - Me.Controls.Add(Me.sbRoute3) - Me.Controls.Add(Me.sbRoute2) - Me.Controls.Add(Me.sbRoute1) - Me.Controls.Add(Me.Label14) - Me.Controls.Add(Me.Label4) - Me.Controls.Add(Me.sbBestimmungsZollstelle) - Me.Controls.Add(Me.Label3) - Me.Controls.Add(Me.dgvAnhaenge) + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ClientSize = New System.Drawing.Size(484, 769) + Me.Controls.Add(Me.pnlHead) Me.Controls.Add(Me.Button1) - Me.Controls.Add(Me.Label9) - Me.Controls.Add(Me.sbAbgangZollstelle) - Me.Controls.Add(Me.txtDyMandant) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.txtDyNiederlassung) - Me.Controls.Add(Me.lblBezugsnummer) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmATEZ_NCTS" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "ATEZ NCTS" + Me.pnlHead.ResumeLayout(False) + Me.pnlHead.PerformLayout() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) - Me.PerformLayout() End Sub - - Friend WithEvents txtDyMandant As Label - Friend WithEvents Label1 As Label - Friend WithEvents txtDyNiederlassung As Label - Friend WithEvents lblBezugsnummer As Label - Friend WithEvents Label9 As Label - Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents Button1 As Button - Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview - Friend WithEvents columnName As DataGridViewTextBoxColumn - Friend WithEvents Label3 As Label - Friend WithEvents Label4 As Label - Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents pnlHead As Panel + Friend WithEvents lblInfo As Label + Friend WithEvents Label6 As Label + Friend WithEvents Label8 As Label + Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents usrCntl_Carrier As SDL.usrCntlAdresse + Friend WithEvents txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents dtpDat As DateTimePicker + Friend WithEvents Label7 As Label + Friend WithEvents lblC As Label + Friend WithEvents txtTransporttemp As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxTemperatur As CheckBox + Friend WithEvents sbDurchgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle9 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle8 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label5 As Label Friend WithEvents lklRoutenauswahl As LinkLabel Friend WithEvents sbRoute5 As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents sbRoute9 As VERAG_PROG_ALLGEMEIN.MySearchBox @@ -950,26 +974,15 @@ Partial Class frmATEZ_NCTS Friend WithEvents sbRoute2 As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents sbRoute1 As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents Label14 As Label - Friend WithEvents sbDurchgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents sbDurchgangszollstelle9 As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents sbDurchgangszollstelle8 As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents sbDurchgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents sbDurchgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents sbDurchgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents sbDurchgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents sbDurchgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents sbDurchgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents Label5 As Label - Friend WithEvents lblC As Label - Friend WithEvents txtTransporttemp As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents cbxTemperatur As CheckBox - Friend WithEvents Label7 As Label - Friend WithEvents txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents dtpDat As DateTimePicker - Friend WithEvents usrCntl_Carrier As SDL.usrCntlAdresse - Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label8 As Label - Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents Label6 As Label - Friend WithEvents lblInfo As Label + Friend WithEvents Label4 As Label + Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label3 As Label + Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents columnName As DataGridViewTextBoxColumn + Friend WithEvents Label9 As Label + Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents txtDyMandant As Label + Friend WithEvents Label1 As Label + Friend WithEvents txtDyNiederlassung As Label + Friend WithEvents lblBezugsnummer As Label End Class diff --git a/Aviso/frmATEZ_NCTS.vb b/Aviso/frmATEZ_NCTS.vb index c57fb25..514bf1a 100644 --- a/Aviso/frmATEZ_NCTS.vb +++ b/Aviso/frmATEZ_NCTS.vb @@ -1,4 +1,6 @@ -Imports SDL +Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers +Imports Newtonsoft.Json.Linq +Imports SDL Imports VERAG_PROG_ALLGEMEIN @@ -20,6 +22,8 @@ Public Class frmATEZ_NCTS Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1") Dim VermerkeDAL As New cVermerkeDAL Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing + Dim openExisting As Boolean = False + Dim id As Integer = -1 Property BezugsNr As String = "" Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen @@ -42,93 +46,121 @@ Public Class frmATEZ_NCTS End Sub + + Sub New(_id As Integer) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + openExisting = True + id = _id + + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - lblInfo.Text = "" - Dim failreDesc As String - Dim selectedDocuments As Boolean = False + If id > 0 Then - For Each Row In dgvAnhaenge.Rows - - selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value) - If selectedDocuments Then Exit For - Next - - If Not selectedDocuments Then - lblInfo.Text = "kein Anhang selektiert" - Cursor = Cursors.Default - Exit Sub - End If - - Dim atezData As New cATEZ_NCTS_DATA - Dim atez As New cATEZ_NCTS_IN - - With atezData - - .AvisoId = AVISO.AvisoID - .SendungsId = SENDUNG.tblSnd_SendungID - .VERAG_LRN = lblBezugsnummer.Text - .LicensePlateContainerNo = txtLKWId.Text - .DAKOSY_TemplateCode = cboStammreferenz._value - .DAKOSY_IOPartner = txtDyMandant.Text - .DAKOSY_Division3 = txtDyNiederlassung.Text - .DepartureCustomsOffice = sbAbgangZollstelle._value - .DestinationCustomsOffice = sbBestimmungsZollstelle._value - .DatDeterminationLimit = txtDat.Text - .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "") - .Carrier_Name = usrCntl_Carrier.kdFirma.Text - .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text - .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value - .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text - .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text - .Carrier_EORI = usrCntl_Carrier.txtEORI.Text - .Guarantee_GRN = "" 'leer - .SAVE() - - End With - - If sbDurchgangszollstelle1._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle1._value) - If sbDurchgangszollstelle2._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle2._value) - If sbDurchgangszollstelle3._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle3._value) - If sbDurchgangszollstelle4._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle4._value) - If sbDurchgangszollstelle5._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle5._value) - If sbDurchgangszollstelle6._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle6._value) - - - If sbRoute1._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute1._value) - If sbRoute2._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute2._value) - If sbRoute3._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute3._value) - If sbRoute4._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute4._value) - If sbRoute5._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute5._value) - If sbRoute6._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute6._value) - If sbRoute7._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute7._value) - If sbRoute8._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute8._value) - If sbRoute9._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute9._value) - - - Dim authResp = atez.authenticate() - If authResp <> "200" Then - failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!" - lblInfo.Text = failreDesc - Exit Sub - End If - - - If Not atez.setJson(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der Daten") - - Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc) - - If failreDesc <> "" Then - atezData.status = failreDesc - atezData.SAVE() - lblInfo.Text = failreDesc + 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) Else - atezData.status = "Sent" - atezData.atezId = IIf(azetId IsNot Nothing, azetId, "") - atezData.SAVE() - Me.Close() + + lblInfo.Text = "" + Dim failreDesc As String + + Dim selectedDocuments As Boolean = False + + For Each Row In dgvAnhaenge.Rows + + selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value) + If selectedDocuments Then Exit For + Next + + If Not selectedDocuments Then + lblInfo.Text = "kein Anhang selektiert" + Cursor = Cursors.Default + Exit Sub + End If + + Dim atezData As New cATEZ_NCTS_DATA + Dim atez As New cATEZ_NCTS_IN + + With atezData + + .AvisoId = AVISO.AvisoID + .SendungsId = SENDUNG.tblSnd_SendungID + .VERAG_LRN = lblBezugsnummer.Text + .LicensePlateContainerNo = txtLKWId.Text + .DAKOSY_TemplateCode = cboStammreferenz._value + .DAKOSY_IOPartner = txtDyMandant.Text + .DAKOSY_Division3 = txtDyNiederlassung.Text + .DepartureCustomsOffice = sbAbgangZollstelle._value + .DestinationCustomsOffice = sbBestimmungsZollstelle._value + .DatDeterminationLimit = txtDat.Text + .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "") + .Carrier_Name = usrCntl_Carrier.kdFirma.Text + .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text + .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value + .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text + .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text + .Carrier_EORI = usrCntl_Carrier.txtEORI.Text + .Guarantee_GRN = "" 'leer + .SAVE() + + End With + + If sbDurchgangszollstelle1._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle1._value) + If sbDurchgangszollstelle2._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle2._value) + If sbDurchgangszollstelle3._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle3._value) + If sbDurchgangszollstelle4._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle4._value) + If sbDurchgangszollstelle5._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle5._value) + If sbDurchgangszollstelle6._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle6._value) + If sbDurchgangszollstelle7._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle7._value) + If sbDurchgangszollstelle8._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle8._value) + If sbDurchgangszollstelle9._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle9._value) + + If sbRoute1._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute1._value) + If sbRoute2._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute2._value) + If sbRoute3._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute3._value) + If sbRoute4._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute4._value) + If sbRoute5._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute5._value) + If sbRoute6._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute6._value) + If sbRoute7._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute7._value) + If sbRoute8._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute8._value) + If sbRoute9._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute9._value) + + + Dim authResp = atez.authenticate() + If authResp <> "200" Then + failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!" + lblInfo.Text = failreDesc + Exit Sub + End If + + + If Not atez.setJson(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der Daten") + + Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc) + + If failreDesc <> "" Then + atezData.status = failreDesc + atezData.SAVE() + lblInfo.Text = "Fehler in der API" + + Else + atezData.status = "Sent" + atezData.atezId = IIf(azetId IsNot Nothing, azetId, "") + atezData.SAVE() + Me.Close() + End If + End If + + + End Sub Function getBezugsnr(ByRef BezugsNr) @@ -152,6 +184,7 @@ Public Class frmATEZ_NCTS Return BezugsNr End Function + Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load Select Case FIRMA_DY @@ -166,38 +199,115 @@ Public Class frmATEZ_NCTS initSeachboxes() initAttachment() - cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True) - cboStammreferenz.changeItem("") + If openExisting Then + Button1.Text = "JSON" - getBezugsnr(BezugsNr) - txtLKWId.Text = AVISO.LKW_Nr + If id > 0 Then + Dim atez_data = New cATEZ_NCTS_DATA(id) - cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False) - txtTransporttemp.Text = AVISO.TransportTemperatur + lblInfo.Text = "Atez-ID " & atez_data.atezId - If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then - usrCntl_Carrier.kdFirma.initKdBox(Me) - usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr - End If + lblBezugsnummer.Text = atez_data.VERAG_LRN + cboStammreferenz._value = atez_data.SendungsId + + txtLKWId.Text = atez_data.LicensePlateContainerNo + + sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice) + sbAbgangZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice) + + cbxTemperatur.Checked = IIf(atez_data.CoolingTemperature <> "", True, False) + txtTransporttemp.Text = atez_data.CoolingTemperature + + txtDat.Text = IIf(atez_data.DatDeterminationLimit IsNot DBNull.Value, atez_data.DatDeterminationLimit, "") + + usrCntl_Carrier.kdFirma.Text = atez_data.Carrier_Name + usrCntl_Carrier.txtStrasse.Text = atez_data.Carrier_Adress_Street + usrCntl_Carrier.txtPlz.Text = atez_data.Carrier_Adress_Postcode + usrCntl_Carrier.txtOrt.Text = atez_data.Carrier_Adress_City + usrCntl_Carrier.sbLand._value = atez_data.Carrier_Adress_Country + usrCntl_Carrier.txtEORI.Text = atez_data.Carrier_EORI + + + Dim TCO_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_TransitCustomsOffice) + VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_TransitCustomsOffice.LOAD_LIST_ByNCTS(TCO_LIST, id) + + Dim i As Integer = 0 + For Each tco In TCO_LIST + If i = 0 Then sbDurchgangszollstelle1.SET_VALUE(If(tco.TransitCustomsOffice, "")) + If i = 1 Then sbDurchgangszollstelle2.SET_VALUE(If(tco.TransitCustomsOffice, "")) + If i = 2 Then sbDurchgangszollstelle3.SET_VALUE(If(tco.TransitCustomsOffice, "")) + If i = 3 Then sbDurchgangszollstelle4.SET_VALUE(If(tco.TransitCustomsOffice, "")) + If i = 4 Then sbDurchgangszollstelle5.SET_VALUE(If(tco.TransitCustomsOffice, "")) + If i = 5 Then sbDurchgangszollstelle6.SET_VALUE(If(tco.TransitCustomsOffice, "")) + If i = 6 Then sbDurchgangszollstelle7.SET_VALUE(If(tco.TransitCustomsOffice, "")) + If i = 7 Then sbDurchgangszollstelle8.SET_VALUE(If(tco.TransitCustomsOffice, "")) + If i = 8 Then sbDurchgangszollstelle9.SET_VALUE(If(tco.TransitCustomsOffice, "")) + i = i + 1 + Next + + Dim Route_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen) + VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen.LOAD_LIST_ByNCTS(Route_LIST, id) + + i = 0 + For Each route In Route_LIST + If i = 0 Then sbRoute1.SET_VALUE(route.Route_Country) + If i = 1 Then sbRoute2.SET_VALUE(route.Route_Country) + If i = 2 Then sbRoute3.SET_VALUE(route.Route_Country) + If i = 3 Then sbRoute4.SET_VALUE(route.Route_Country) + If i = 4 Then sbRoute5.SET_VALUE(route.Route_Country) + If i = 5 Then sbRoute6.SET_VALUE(route.Route_Country) + If i = 6 Then sbRoute7.SET_VALUE(route.Route_Country) + If i = 7 Then sbRoute8.SET_VALUE(route.Route_Country) + If i = 8 Then sbRoute9.SET_VALUE(route.Route_Country) + i = i + 1 + Next + + pnlHead.Enabled = False + Button1.Enabled = True + Else + Button1.Enabled = False + End If - If AVISO.Grenzstelle.Replace("???", "") = "" Then - sbAbgangZollstelle.SET_VALUE(AVISO.Zollstelle) Else - Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle) - If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then - If GRZ.grz_ZollamtDST IsNot Nothing Then - sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST) + Button1.Text = "An ATEZ senden -->" + pnlHead.Enabled = True + + cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True) + cboStammreferenz.changeItem("") + + getBezugsnr(BezugsNr) + txtLKWId.Text = AVISO.LKW_Nr + + cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False) + txtTransporttemp.Text = AVISO.TransportTemperatur + + If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then + usrCntl_Carrier.kdFirma.initKdBox(Me) + usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr + End If + + If AVISO.Grenzstelle.Replace("???", "") = "" Then + sbAbgangZollstelle.SET_VALUE(AVISO.Zollstelle) + Else + + Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle) + If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then + If GRZ.grz_ZollamtDST IsNot Nothing Then + sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST) + End If End If End If + + sbDurchgangszollstelle1.SET_VALUE(If(AVISO.Durchgangszollstelle1, "")) + sbDurchgangszollstelle2.SET_VALUE(If(AVISO.Durchgangszollstelle2, "")) + sbDurchgangszollstelle3.SET_VALUE(If(AVISO.Durchgangszollstelle3, "")) + sbDurchgangszollstelle4.SET_VALUE(If(AVISO.Durchgangszollstelle4, "")) + sbDurchgangszollstelle5.SET_VALUE(If(AVISO.Durchgangszollstelle5, "")) + sbDurchgangszollstelle6.SET_VALUE(If(AVISO.Durchgangszollstelle6, "")) + End If - sbDurchgangszollstelle1.SET_VALUE(If(AVISO.Durchgangszollstelle1, "")) - sbDurchgangszollstelle2.SET_VALUE(If(AVISO.Durchgangszollstelle2, "")) - sbDurchgangszollstelle3.SET_VALUE(If(AVISO.Durchgangszollstelle3, "")) - sbDurchgangszollstelle4.SET_VALUE(If(AVISO.Durchgangszollstelle4, "")) - sbDurchgangszollstelle5.SET_VALUE(If(AVISO.Durchgangszollstelle5, "")) - sbDurchgangszollstelle6.SET_VALUE(If(AVISO.Durchgangszollstelle6, "")) End Sub @@ -325,7 +435,8 @@ CASE WHEN [anh_Art] = 'ATR-EUR1' then 'EUR' End If End Sub - Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpDat.ValueChanged + Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs) txtDat._value = CDate(sender.value).ToShortDateString End Sub + End Class \ No newline at end of file diff --git a/Aviso/frmFrachtkostenBerechnen.Designer.vb b/Aviso/frmFrachtkostenBerechnen.Designer.vb index fe095de..9875fa4 100644 --- a/Aviso/frmFrachtkostenBerechnen.Designer.vb +++ b/Aviso/frmFrachtkostenBerechnen.Designer.vb @@ -24,680 +24,30 @@ Partial Class frmFrachtkostenBerechnen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFrachtkostenBerechnen)) - Me.lblVon = New System.Windows.Forms.Label() - Me.lblNach = New System.Windows.Forms.Label() - Me.btnCancel = New System.Windows.Forms.Button() - Me.btnOK = New System.Windows.Forms.Button() - Me.lblEUAnteil = New System.Windows.Forms.Label() - Me.lblNichtEUAnteil = New System.Windows.Forms.Label() - Me.lblDistanzEU = New System.Windows.Forms.Label() - Me.lblGewicht = New System.Windows.Forms.Label() - Me.btnCalculate = New System.Windows.Forms.Button() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() - Me.lblGesamtfrachkosten = New System.Windows.Forms.Label() - Me.lblFaktor = New System.Windows.Forms.Label() - Me.lblWarningEUAnteil = New System.Windows.Forms.Label() - Me.lblWarningNichtEUAnteil = New System.Windows.Forms.Label() - Me.lblWarningAbgangort = New System.Windows.Forms.Label() - Me.lblWarningBestimmungsort = New System.Windows.Forms.Label() - Me.lblWarningFaktor = New System.Windows.Forms.Label() - Me.lblDistanzNichtEU = New System.Windows.Forms.Label() - Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox() Me.ToolTipAutomatischErmitteln = New System.Windows.Forms.ToolTip(Me.components) - Me.cbxLandNach = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cbxLandVon = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txbCalcDistanceNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.tbNichtEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.tbEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txbFactor = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.tbxGesamtfrachtkosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txbGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txbCalcDistanceEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txbNachOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txbVonOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txbNachPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txbVonPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.tbNichtEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.tbEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.UsrcntlFrachtkostenberechnung1 = New usrcntlFrachtkostenberechnung() Me.SuspendLayout() ' - 'lblVon + 'UsrcntlFrachtkostenberechnung1 ' - Me.lblVon.AutoSize = True - Me.lblVon.Location = New System.Drawing.Point(5, 9) - Me.lblVon.Name = "lblVon" - Me.lblVon.Size = New System.Drawing.Size(64, 13) - Me.lblVon.TabIndex = 0 - Me.lblVon.Text = "Abgangsort:" - ' - 'lblNach - ' - Me.lblNach.AutoSize = True - Me.lblNach.Location = New System.Drawing.Point(205, 9) - Me.lblNach.Name = "lblNach" - Me.lblNach.Size = New System.Drawing.Size(84, 13) - Me.lblNach.TabIndex = 1 - Me.lblNach.Text = "Bestimmungsort:" - ' - 'btnCancel - ' - Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.btnCancel.Location = New System.Drawing.Point(5, 270) - Me.btnCancel.Name = "btnCancel" - Me.btnCancel.Size = New System.Drawing.Size(75, 23) - Me.btnCancel.TabIndex = 35 - Me.btnCancel.Text = "Abbrechen" - Me.btnCancel.UseVisualStyleBackColor = True - ' - 'btnOK - ' - Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.Cursor - Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK - Me.btnOK.Location = New System.Drawing.Point(286, 270) - Me.btnOK.Name = "btnOK" - Me.btnOK.Size = New System.Drawing.Size(75, 23) - Me.btnOK.TabIndex = 36 - Me.btnOK.Text = "OK" - Me.btnOK.UseVisualStyleBackColor = True - ' - 'lblEUAnteil - ' - Me.lblEUAnteil.AutoSize = True - Me.lblEUAnteil.Location = New System.Drawing.Point(5, 195) - Me.lblEUAnteil.Name = "lblEUAnteil" - Me.lblEUAnteil.Size = New System.Drawing.Size(51, 13) - Me.lblEUAnteil.TabIndex = 23 - Me.lblEUAnteil.Text = "EU Anteil" - ' - 'lblNichtEUAnteil - ' - Me.lblNichtEUAnteil.AutoSize = True - Me.lblNichtEUAnteil.Location = New System.Drawing.Point(5, 230) - Me.lblNichtEUAnteil.Name = "lblNichtEUAnteil" - Me.lblNichtEUAnteil.Size = New System.Drawing.Size(79, 13) - Me.lblNichtEUAnteil.TabIndex = 29 - Me.lblNichtEUAnteil.Text = "Nicht EU Anteil" - ' - 'lblDistanzEU - ' - Me.lblDistanzEU.AutoSize = True - Me.lblDistanzEU.Location = New System.Drawing.Point(210, 195) - Me.lblDistanzEU.Name = "lblDistanzEU" - Me.lblDistanzEU.Size = New System.Drawing.Size(42, 13) - Me.lblDistanzEU.TabIndex = 26 - Me.lblDistanzEU.Text = "Distanz" - ' - 'lblGewicht - ' - Me.lblGewicht.AutoSize = True - Me.lblGewicht.Location = New System.Drawing.Point(5, 99) - Me.lblGewicht.Name = "lblGewicht" - Me.lblGewicht.Size = New System.Drawing.Size(46, 13) - Me.lblGewicht.TabIndex = 14 - Me.lblGewicht.Text = "Gewicht" - ' - 'btnCalculate - ' - Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox - Me.btnCalculate.Location = New System.Drawing.Point(5, 160) - Me.btnCalculate.Name = "btnCalculate" - Me.btnCalculate.Size = New System.Drawing.Size(75, 23) - Me.btnCalculate.TabIndex = 21 - Me.btnCalculate.Text = "Berechnen" - Me.btnCalculate.UseVisualStyleBackColor = True - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(5, 30) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(27, 13) - Me.Label1.TabIndex = 2 - Me.Label1.Text = "PLZ" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(5, 52) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(21, 13) - Me.Label2.TabIndex = 8 - Me.Label2.Text = "Ort" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(205, 56) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(21, 13) - Me.Label3.TabIndex = 10 - Me.Label3.Text = "Ort" - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(205, 30) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(27, 13) - Me.Label4.TabIndex = 5 - Me.Label4.Text = "PLZ" - ' - 'lblGesamtfrachkosten - ' - Me.lblGesamtfrachkosten.AutoSize = True - Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(205, 125) - Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten" - Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13) - Me.lblGesamtfrachkosten.TabIndex = 18 - Me.lblGesamtfrachkosten.Text = "Frachtkosten ges." - ' - 'lblFaktor - ' - Me.lblFaktor.AutoSize = True - Me.lblFaktor.Location = New System.Drawing.Point(5, 125) - Me.lblFaktor.Name = "lblFaktor" - Me.lblFaktor.Size = New System.Drawing.Size(37, 13) - Me.lblFaktor.TabIndex = 16 - Me.lblFaktor.Text = "Faktor" - ' - 'lblWarningEUAnteil - ' - Me.lblWarningEUAnteil.AutoSize = True - Me.lblWarningEUAnteil.ForeColor = System.Drawing.Color.Red - Me.lblWarningEUAnteil.Location = New System.Drawing.Point(5, 211) - Me.lblWarningEUAnteil.Name = "lblWarningEUAnteil" - Me.lblWarningEUAnteil.Size = New System.Drawing.Size(162, 13) - Me.lblWarningEUAnteil.TabIndex = 28 - Me.lblWarningEUAnteil.Text = "EU Anteil hinterlegen (in Prozent)" - Me.lblWarningEUAnteil.Visible = False - ' - 'lblWarningNichtEUAnteil - ' - Me.lblWarningNichtEUAnteil.AutoSize = True - Me.lblWarningNichtEUAnteil.ForeColor = System.Drawing.Color.Red - Me.lblWarningNichtEUAnteil.Location = New System.Drawing.Point(5, 249) - Me.lblWarningNichtEUAnteil.Name = "lblWarningNichtEUAnteil" - Me.lblWarningNichtEUAnteil.Size = New System.Drawing.Size(190, 13) - Me.lblWarningNichtEUAnteil.TabIndex = 34 - Me.lblWarningNichtEUAnteil.Text = "Nicht EU Anteil hinterlegen (in Prozent)" - Me.lblWarningNichtEUAnteil.Visible = False - ' - 'lblWarningAbgangort - ' - Me.lblWarningAbgangort.AutoSize = True - Me.lblWarningAbgangort.ForeColor = System.Drawing.Color.Red - Me.lblWarningAbgangort.Location = New System.Drawing.Point(5, 72) - Me.lblWarningAbgangort.Name = "lblWarningAbgangort" - Me.lblWarningAbgangort.Size = New System.Drawing.Size(147, 13) - Me.lblWarningAbgangort.TabIndex = 12 - Me.lblWarningAbgangort.Text = "PLZ/Ort von Abgangsort fehlt" - Me.lblWarningAbgangort.Visible = False - ' - 'lblWarningBestimmungsort - ' - Me.lblWarningBestimmungsort.AutoSize = True - Me.lblWarningBestimmungsort.ForeColor = System.Drawing.Color.Red - Me.lblWarningBestimmungsort.Location = New System.Drawing.Point(180, 72) - Me.lblWarningBestimmungsort.Name = "lblWarningBestimmungsort" - Me.lblWarningBestimmungsort.Size = New System.Drawing.Size(167, 13) - Me.lblWarningBestimmungsort.TabIndex = 13 - Me.lblWarningBestimmungsort.Text = "PLZ/Ort von Bestimmungsort fehlt" - Me.lblWarningBestimmungsort.Visible = False - ' - 'lblWarningFaktor - ' - Me.lblWarningFaktor.AutoSize = True - Me.lblWarningFaktor.ForeColor = System.Drawing.Color.Red - Me.lblWarningFaktor.Location = New System.Drawing.Point(5, 144) - Me.lblWarningFaktor.Name = "lblWarningFaktor" - Me.lblWarningFaktor.Size = New System.Drawing.Size(82, 13) - Me.lblWarningFaktor.TabIndex = 20 - Me.lblWarningFaktor.Text = "Faktor angeben" - Me.lblWarningFaktor.Visible = False - ' - 'lblDistanzNichtEU - ' - Me.lblDistanzNichtEU.AutoSize = True - Me.lblDistanzNichtEU.Location = New System.Drawing.Point(215, 237) - Me.lblDistanzNichtEU.Name = "lblDistanzNichtEU" - Me.lblDistanzNichtEU.Size = New System.Drawing.Size(42, 13) - Me.lblDistanzNichtEU.TabIndex = 33 - Me.lblDistanzNichtEU.Text = "Distanz" - Me.lblDistanzNichtEU.Visible = False - ' - 'ckbManAnteilsermittlung - ' - Me.ckbManAnteilsermittlung.AutoSize = True - Me.ckbManAnteilsermittlung.Location = New System.Drawing.Point(92, 160) - Me.ckbManAnteilsermittlung.Name = "ckbManAnteilsermittlung" - Me.ckbManAnteilsermittlung.Size = New System.Drawing.Size(160, 17) - Me.ckbManAnteilsermittlung.TabIndex = 22 - Me.ckbManAnteilsermittlung.Text = "Anteile automatisch ermitteln" - Me.ToolTipAutomatischErmitteln.SetToolTip(Me.ckbManAnteilsermittlung, "" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anteile werden automatisch ermittelt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Für TR (=Türkei) und SRB (=Serbien) wird" & - " der EU-Anteil des Streckenverlaufs ermittelt, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle weiteren werden mit 60% EU" & - " und 40% nicht EU berechnet." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)) - Me.ckbManAnteilsermittlung.UseVisualStyleBackColor = True - ' - 'cbxLandNach - ' - Me.cbxLandNach._allowedValuesFreiText = Nothing - Me.cbxLandNach._allowFreiText = False - Me.cbxLandNach._value = "" - Me.cbxLandNach.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append - Me.cbxLandNach.DropDownWidth = 250 - Me.cbxLandNach.FormattingEnabled = True - Me.cbxLandNach.Location = New System.Drawing.Point(255, 23) - Me.cbxLandNach.Name = "cbxLandNach" - Me.cbxLandNach.Size = New System.Drawing.Size(45, 21) - Me.cbxLandNach.TabIndex = 6 - ' - 'cbxLandVon - ' - Me.cbxLandVon._allowedValuesFreiText = Nothing - Me.cbxLandVon._allowFreiText = False - Me.cbxLandVon._value = "" - Me.cbxLandVon.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest - Me.cbxLandVon.DropDownWidth = 250 - Me.cbxLandVon.FormattingEnabled = True - Me.cbxLandVon.Location = New System.Drawing.Point(75, 22) - Me.cbxLandVon.Name = "cbxLandVon" - Me.cbxLandVon.Size = New System.Drawing.Size(45, 21) - Me.cbxLandVon.TabIndex = 3 - ' - 'txbCalcDistanceNichtEU - ' - Me.txbCalcDistanceNichtEU._DateTimeOnly = False - Me.txbCalcDistanceNichtEU._numbersOnly = False - Me.txbCalcDistanceNichtEU._numbersOnlyKommastellen = "" - Me.txbCalcDistanceNichtEU._numbersOnlyTrennzeichen = True - Me.txbCalcDistanceNichtEU._Prozent = False - Me.txbCalcDistanceNichtEU._ShortDateNew = False - Me.txbCalcDistanceNichtEU._ShortDateOnly = False - Me.txbCalcDistanceNichtEU._TimeOnly = False - Me.txbCalcDistanceNichtEU._TimeOnly_Seconds = False - Me.txbCalcDistanceNichtEU._value = "" - Me.txbCalcDistanceNichtEU._Waehrung = False - Me.txbCalcDistanceNichtEU._WaehrungZeichen = True - Me.txbCalcDistanceNichtEU.ForeColor = System.Drawing.Color.Black - Me.txbCalcDistanceNichtEU.Location = New System.Drawing.Point(277, 227) - Me.txbCalcDistanceNichtEU.MaxLineLength = -1 - Me.txbCalcDistanceNichtEU.MaxLines_Warning = "" - Me.txbCalcDistanceNichtEU.MaxLines_Warning_Label = Nothing - Me.txbCalcDistanceNichtEU.Name = "txbCalcDistanceNichtEU" - Me.txbCalcDistanceNichtEU.Size = New System.Drawing.Size(84, 20) - Me.txbCalcDistanceNichtEU.TabIndex = 32 - Me.txbCalcDistanceNichtEU.Visible = False - ' - 'tbNichtEUAnteilberechnet - ' - Me.tbNichtEUAnteilberechnet._DateTimeOnly = False - Me.tbNichtEUAnteilberechnet._numbersOnly = False - Me.tbNichtEUAnteilberechnet._numbersOnlyKommastellen = "" - Me.tbNichtEUAnteilberechnet._numbersOnlyTrennzeichen = True - Me.tbNichtEUAnteilberechnet._Prozent = False - Me.tbNichtEUAnteilberechnet._ShortDateNew = False - Me.tbNichtEUAnteilberechnet._ShortDateOnly = False - Me.tbNichtEUAnteilberechnet._TimeOnly = False - Me.tbNichtEUAnteilberechnet._TimeOnly_Seconds = False - Me.tbNichtEUAnteilberechnet._value = "" - Me.tbNichtEUAnteilberechnet._Waehrung = True - Me.tbNichtEUAnteilberechnet._WaehrungZeichen = True - Me.tbNichtEUAnteilberechnet.ForeColor = System.Drawing.Color.Black - Me.tbNichtEUAnteilberechnet.Location = New System.Drawing.Point(141, 227) - Me.tbNichtEUAnteilberechnet.MaxLineLength = -1 - Me.tbNichtEUAnteilberechnet.MaxLines_Warning = "" - Me.tbNichtEUAnteilberechnet.MaxLines_Warning_Label = Nothing - Me.tbNichtEUAnteilberechnet.Name = "tbNichtEUAnteilberechnet" - Me.tbNichtEUAnteilberechnet.ReadOnly = True - Me.tbNichtEUAnteilberechnet.Size = New System.Drawing.Size(60, 20) - Me.tbNichtEUAnteilberechnet.TabIndex = 31 - ' - 'tbEUAnteilberechnet - ' - Me.tbEUAnteilberechnet._DateTimeOnly = False - Me.tbEUAnteilberechnet._numbersOnly = False - Me.tbEUAnteilberechnet._numbersOnlyKommastellen = "" - Me.tbEUAnteilberechnet._numbersOnlyTrennzeichen = True - Me.tbEUAnteilberechnet._Prozent = False - Me.tbEUAnteilberechnet._ShortDateNew = False - Me.tbEUAnteilberechnet._ShortDateOnly = False - Me.tbEUAnteilberechnet._TimeOnly = False - Me.tbEUAnteilberechnet._TimeOnly_Seconds = False - Me.tbEUAnteilberechnet._value = "" - Me.tbEUAnteilberechnet._Waehrung = True - Me.tbEUAnteilberechnet._WaehrungZeichen = True - Me.tbEUAnteilberechnet.ForeColor = System.Drawing.Color.Black - Me.tbEUAnteilberechnet.Location = New System.Drawing.Point(141, 188) - Me.tbEUAnteilberechnet.MaxLineLength = -1 - Me.tbEUAnteilberechnet.MaxLines_Warning = "" - Me.tbEUAnteilberechnet.MaxLines_Warning_Label = Nothing - Me.tbEUAnteilberechnet.Name = "tbEUAnteilberechnet" - Me.tbEUAnteilberechnet.ReadOnly = True - Me.tbEUAnteilberechnet.Size = New System.Drawing.Size(60, 20) - Me.tbEUAnteilberechnet.TabIndex = 25 - ' - 'txbFactor - ' - Me.txbFactor._DateTimeOnly = False - Me.txbFactor._numbersOnly = True - Me.txbFactor._numbersOnlyKommastellen = "" - Me.txbFactor._numbersOnlyTrennzeichen = True - Me.txbFactor._Prozent = False - Me.txbFactor._ShortDateNew = False - Me.txbFactor._ShortDateOnly = False - Me.txbFactor._TimeOnly = False - Me.txbFactor._TimeOnly_Seconds = False - Me.txbFactor._value = "" - Me.txbFactor._Waehrung = True - Me.txbFactor._WaehrungZeichen = True - Me.txbFactor.ForeColor = System.Drawing.Color.Black - Me.txbFactor.Location = New System.Drawing.Point(75, 122) - Me.txbFactor.MaxLineLength = -1 - Me.txbFactor.MaxLines_Warning = "" - Me.txbFactor.MaxLines_Warning_Label = Nothing - Me.txbFactor.Name = "txbFactor" - Me.txbFactor.Size = New System.Drawing.Size(60, 20) - Me.txbFactor.TabIndex = 17 - ' - 'tbxGesamtfrachtkosten - ' - Me.tbxGesamtfrachtkosten._DateTimeOnly = False - Me.tbxGesamtfrachtkosten._numbersOnly = False - Me.tbxGesamtfrachtkosten._numbersOnlyKommastellen = "" - Me.tbxGesamtfrachtkosten._numbersOnlyTrennzeichen = True - Me.tbxGesamtfrachtkosten._Prozent = False - Me.tbxGesamtfrachtkosten._ShortDateNew = False - Me.tbxGesamtfrachtkosten._ShortDateOnly = False - Me.tbxGesamtfrachtkosten._TimeOnly = False - Me.tbxGesamtfrachtkosten._TimeOnly_Seconds = False - Me.tbxGesamtfrachtkosten._value = "" - Me.tbxGesamtfrachtkosten._Waehrung = True - Me.tbxGesamtfrachtkosten._WaehrungZeichen = True - Me.tbxGesamtfrachtkosten.ForeColor = System.Drawing.Color.Black - Me.tbxGesamtfrachtkosten.Location = New System.Drawing.Point(301, 122) - Me.tbxGesamtfrachtkosten.MaxLineLength = -1 - Me.tbxGesamtfrachtkosten.MaxLines_Warning = "" - Me.tbxGesamtfrachtkosten.MaxLines_Warning_Label = Nothing - Me.tbxGesamtfrachtkosten.Name = "tbxGesamtfrachtkosten" - Me.tbxGesamtfrachtkosten.ReadOnly = True - Me.tbxGesamtfrachtkosten.Size = New System.Drawing.Size(60, 20) - Me.tbxGesamtfrachtkosten.TabIndex = 19 - ' - 'txbGewicht - ' - Me.txbGewicht._DateTimeOnly = False - Me.txbGewicht._numbersOnly = False - Me.txbGewicht._numbersOnlyKommastellen = "" - Me.txbGewicht._numbersOnlyTrennzeichen = True - Me.txbGewicht._Prozent = False - Me.txbGewicht._ShortDateNew = False - Me.txbGewicht._ShortDateOnly = False - Me.txbGewicht._TimeOnly = False - Me.txbGewicht._TimeOnly_Seconds = False - Me.txbGewicht._value = "" - Me.txbGewicht._Waehrung = False - Me.txbGewicht._WaehrungZeichen = True - Me.txbGewicht.ForeColor = System.Drawing.Color.Black - Me.txbGewicht.Location = New System.Drawing.Point(75, 96) - Me.txbGewicht.MaxLineLength = -1 - Me.txbGewicht.MaxLines_Warning = "" - Me.txbGewicht.MaxLines_Warning_Label = Nothing - Me.txbGewicht.Name = "txbGewicht" - Me.txbGewicht.ReadOnly = True - Me.txbGewicht.Size = New System.Drawing.Size(84, 20) - Me.txbGewicht.TabIndex = 15 - ' - 'txbCalcDistanceEU - ' - Me.txbCalcDistanceEU._DateTimeOnly = False - Me.txbCalcDistanceEU._numbersOnly = False - Me.txbCalcDistanceEU._numbersOnlyKommastellen = "" - Me.txbCalcDistanceEU._numbersOnlyTrennzeichen = True - Me.txbCalcDistanceEU._Prozent = False - Me.txbCalcDistanceEU._ShortDateNew = False - Me.txbCalcDistanceEU._ShortDateOnly = False - Me.txbCalcDistanceEU._TimeOnly = False - Me.txbCalcDistanceEU._TimeOnly_Seconds = False - Me.txbCalcDistanceEU._value = "" - Me.txbCalcDistanceEU._Waehrung = False - Me.txbCalcDistanceEU._WaehrungZeichen = True - Me.txbCalcDistanceEU.ForeColor = System.Drawing.Color.Black - Me.txbCalcDistanceEU.Location = New System.Drawing.Point(277, 188) - Me.txbCalcDistanceEU.MaxLineLength = -1 - Me.txbCalcDistanceEU.MaxLines_Warning = "" - Me.txbCalcDistanceEU.MaxLines_Warning_Label = Nothing - Me.txbCalcDistanceEU.Name = "txbCalcDistanceEU" - Me.txbCalcDistanceEU.Size = New System.Drawing.Size(84, 20) - Me.txbCalcDistanceEU.TabIndex = 27 - ' - 'txbNachOrt - ' - Me.txbNachOrt._DateTimeOnly = False - Me.txbNachOrt._numbersOnly = False - Me.txbNachOrt._numbersOnlyKommastellen = "" - Me.txbNachOrt._numbersOnlyTrennzeichen = True - Me.txbNachOrt._Prozent = False - Me.txbNachOrt._ShortDateNew = False - Me.txbNachOrt._ShortDateOnly = False - Me.txbNachOrt._TimeOnly = False - Me.txbNachOrt._TimeOnly_Seconds = False - Me.txbNachOrt._value = "" - Me.txbNachOrt._Waehrung = False - Me.txbNachOrt._WaehrungZeichen = True - Me.txbNachOrt.ForeColor = System.Drawing.Color.Black - Me.txbNachOrt.Location = New System.Drawing.Point(255, 49) - Me.txbNachOrt.MaxLineLength = -1 - Me.txbNachOrt.MaxLines_Warning = "" - Me.txbNachOrt.MaxLines_Warning_Label = Nothing - Me.txbNachOrt.Name = "txbNachOrt" - Me.txbNachOrt.Size = New System.Drawing.Size(106, 20) - Me.txbNachOrt.TabIndex = 11 - ' - 'txbVonOrt - ' - Me.txbVonOrt._DateTimeOnly = False - Me.txbVonOrt._numbersOnly = False - Me.txbVonOrt._numbersOnlyKommastellen = "" - Me.txbVonOrt._numbersOnlyTrennzeichen = True - Me.txbVonOrt._Prozent = False - Me.txbVonOrt._ShortDateNew = False - Me.txbVonOrt._ShortDateOnly = False - Me.txbVonOrt._TimeOnly = False - Me.txbVonOrt._TimeOnly_Seconds = False - Me.txbVonOrt._value = "" - Me.txbVonOrt._Waehrung = False - Me.txbVonOrt._WaehrungZeichen = True - Me.txbVonOrt.ForeColor = System.Drawing.Color.Black - Me.txbVonOrt.Location = New System.Drawing.Point(75, 49) - Me.txbVonOrt.MaxLineLength = -1 - Me.txbVonOrt.MaxLines_Warning = "" - Me.txbVonOrt.MaxLines_Warning_Label = Nothing - Me.txbVonOrt.Name = "txbVonOrt" - Me.txbVonOrt.Size = New System.Drawing.Size(106, 20) - Me.txbVonOrt.TabIndex = 9 - ' - 'txbNachPLZ - ' - Me.txbNachPLZ._DateTimeOnly = False - Me.txbNachPLZ._numbersOnly = False - Me.txbNachPLZ._numbersOnlyKommastellen = "" - Me.txbNachPLZ._numbersOnlyTrennzeichen = True - Me.txbNachPLZ._Prozent = False - Me.txbNachPLZ._ShortDateNew = False - Me.txbNachPLZ._ShortDateOnly = False - Me.txbNachPLZ._TimeOnly = False - Me.txbNachPLZ._TimeOnly_Seconds = False - Me.txbNachPLZ._value = "" - Me.txbNachPLZ._Waehrung = False - Me.txbNachPLZ._WaehrungZeichen = True - Me.txbNachPLZ.ForeColor = System.Drawing.Color.Black - Me.txbNachPLZ.Location = New System.Drawing.Point(301, 23) - Me.txbNachPLZ.MaxLineLength = -1 - Me.txbNachPLZ.MaxLines_Warning = "" - Me.txbNachPLZ.MaxLines_Warning_Label = Nothing - Me.txbNachPLZ.Name = "txbNachPLZ" - Me.txbNachPLZ.Size = New System.Drawing.Size(60, 20) - Me.txbNachPLZ.TabIndex = 7 - ' - 'txbVonPLZ - ' - Me.txbVonPLZ._DateTimeOnly = False - Me.txbVonPLZ._numbersOnly = False - Me.txbVonPLZ._numbersOnlyKommastellen = "" - Me.txbVonPLZ._numbersOnlyTrennzeichen = True - Me.txbVonPLZ._Prozent = False - Me.txbVonPLZ._ShortDateNew = False - Me.txbVonPLZ._ShortDateOnly = False - Me.txbVonPLZ._TimeOnly = False - Me.txbVonPLZ._TimeOnly_Seconds = False - Me.txbVonPLZ._value = "" - Me.txbVonPLZ._Waehrung = False - Me.txbVonPLZ._WaehrungZeichen = True - Me.txbVonPLZ.ForeColor = System.Drawing.Color.Black - Me.txbVonPLZ.Location = New System.Drawing.Point(121, 23) - Me.txbVonPLZ.MaxLineLength = -1 - Me.txbVonPLZ.MaxLines_Warning = "" - Me.txbVonPLZ.MaxLines_Warning_Label = Nothing - Me.txbVonPLZ.Name = "txbVonPLZ" - Me.txbVonPLZ.Size = New System.Drawing.Size(60, 20) - Me.txbVonPLZ.TabIndex = 4 - ' - 'tbNichtEUAnteil - ' - Me.tbNichtEUAnteil._DateTimeOnly = False - Me.tbNichtEUAnteil._numbersOnly = False - Me.tbNichtEUAnteil._numbersOnlyKommastellen = "" - Me.tbNichtEUAnteil._numbersOnlyTrennzeichen = True - Me.tbNichtEUAnteil._Prozent = True - Me.tbNichtEUAnteil._ShortDateNew = False - Me.tbNichtEUAnteil._ShortDateOnly = False - Me.tbNichtEUAnteil._TimeOnly = False - Me.tbNichtEUAnteil._TimeOnly_Seconds = False - Me.tbNichtEUAnteil._value = Nothing - Me.tbNichtEUAnteil._Waehrung = False - Me.tbNichtEUAnteil._WaehrungZeichen = False - Me.tbNichtEUAnteil.ForeColor = System.Drawing.Color.Black - Me.tbNichtEUAnteil.Location = New System.Drawing.Point(86, 227) - Me.tbNichtEUAnteil.MaxLineLength = -1 - Me.tbNichtEUAnteil.MaxLines_Warning = "" - Me.tbNichtEUAnteil.MaxLines_Warning_Label = Nothing - Me.tbNichtEUAnteil.Name = "tbNichtEUAnteil" - Me.tbNichtEUAnteil.Size = New System.Drawing.Size(49, 20) - Me.tbNichtEUAnteil.TabIndex = 30 - ' - 'tbEUAnteil - ' - Me.tbEUAnteil._DateTimeOnly = False - Me.tbEUAnteil._numbersOnly = False - Me.tbEUAnteil._numbersOnlyKommastellen = "" - Me.tbEUAnteil._numbersOnlyTrennzeichen = False - Me.tbEUAnteil._Prozent = True - Me.tbEUAnteil._ShortDateNew = False - Me.tbEUAnteil._ShortDateOnly = False - Me.tbEUAnteil._TimeOnly = False - Me.tbEUAnteil._TimeOnly_Seconds = False - Me.tbEUAnteil._value = Nothing - Me.tbEUAnteil._Waehrung = False - Me.tbEUAnteil._WaehrungZeichen = False - Me.tbEUAnteil.ForeColor = System.Drawing.Color.Black - Me.tbEUAnteil.Location = New System.Drawing.Point(84, 188) - Me.tbEUAnteil.MaxLineLength = -1 - Me.tbEUAnteil.MaxLines_Warning = "" - Me.tbEUAnteil.MaxLines_Warning_Label = Nothing - Me.tbEUAnteil.Name = "tbEUAnteil" - Me.tbEUAnteil.Size = New System.Drawing.Size(51, 20) - Me.tbEUAnteil.TabIndex = 24 + Me.UsrcntlFrachtkostenberechnung1.Location = New System.Drawing.Point(12, 12) + Me.UsrcntlFrachtkostenberechnung1.Name = "UsrcntlFrachtkostenberechnung1" + Me.UsrcntlFrachtkostenberechnung1.Size = New System.Drawing.Size(386, 393) + 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(381, 305) - Me.Controls.Add(Me.cbxLandNach) - Me.Controls.Add(Me.cbxLandVon) - Me.Controls.Add(Me.ckbManAnteilsermittlung) - Me.Controls.Add(Me.txbCalcDistanceNichtEU) - Me.Controls.Add(Me.lblDistanzNichtEU) - Me.Controls.Add(Me.tbNichtEUAnteilberechnet) - Me.Controls.Add(Me.tbEUAnteilberechnet) - Me.Controls.Add(Me.lblWarningFaktor) - Me.Controls.Add(Me.lblWarningBestimmungsort) - Me.Controls.Add(Me.lblWarningAbgangort) - Me.Controls.Add(Me.lblWarningNichtEUAnteil) - Me.Controls.Add(Me.lblWarningEUAnteil) - Me.Controls.Add(Me.txbFactor) - Me.Controls.Add(Me.lblFaktor) - Me.Controls.Add(Me.tbxGesamtfrachtkosten) - Me.Controls.Add(Me.txbGewicht) - Me.Controls.Add(Me.txbCalcDistanceEU) - Me.Controls.Add(Me.Label4) - Me.Controls.Add(Me.Label3) - Me.Controls.Add(Me.Label2) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.txbNachOrt) - Me.Controls.Add(Me.txbVonOrt) - Me.Controls.Add(Me.btnCalculate) - Me.Controls.Add(Me.lblGesamtfrachkosten) - Me.Controls.Add(Me.lblGewicht) - Me.Controls.Add(Me.lblDistanzEU) - Me.Controls.Add(Me.txbNachPLZ) - Me.Controls.Add(Me.txbVonPLZ) - Me.Controls.Add(Me.lblNichtEUAnteil) - Me.Controls.Add(Me.lblEUAnteil) - Me.Controls.Add(Me.tbNichtEUAnteil) - Me.Controls.Add(Me.tbEUAnteil) - Me.Controls.Add(Me.btnOK) - Me.Controls.Add(Me.btnCancel) - Me.Controls.Add(Me.lblNach) - Me.Controls.Add(Me.lblVon) + Me.ClientSize = New System.Drawing.Size(405, 395) + Me.Controls.Add(Me.UsrcntlFrachtkostenberechnung1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmFrachtkostenBerechnen" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Frachtkosten berechnen" Me.ResumeLayout(False) - Me.PerformLayout() End Sub - - Friend WithEvents lblVon As Label - Friend WithEvents lblNach As Label - Friend WithEvents btnCancel As Button - Friend WithEvents btnOK As Button - Friend WithEvents tbEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents tbNichtEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents lblEUAnteil As Label - Friend WithEvents lblNichtEUAnteil As Label - Friend WithEvents txbVonPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txbNachPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents lblDistanzEU As Label - Friend WithEvents lblGewicht As Label - Friend WithEvents btnCalculate As Button - Friend WithEvents txbVonOrt As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txbNachOrt As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label1 As Label - Friend WithEvents Label2 As Label - Friend WithEvents Label3 As Label - Friend WithEvents Label4 As Label - Friend WithEvents txbCalcDistanceEU As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txbGewicht As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents lblGesamtfrachkosten As Label - Friend WithEvents tbxGesamtfrachtkosten As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txbFactor As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents lblFaktor As Label - Friend WithEvents lblWarningEUAnteil As Label - Friend WithEvents lblWarningNichtEUAnteil As Label - Friend WithEvents lblWarningAbgangort As Label - Friend WithEvents lblWarningBestimmungsort As Label - Friend WithEvents lblWarningFaktor As Label - Friend WithEvents tbEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents tbNichtEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txbCalcDistanceNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents lblDistanzNichtEU As Label - Friend WithEvents ckbManAnteilsermittlung As CheckBox Friend WithEvents ToolTipAutomatischErmitteln As ToolTip - Friend WithEvents cbxLandVon As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents cbxLandNach As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents UsrcntlFrachtkostenberechnung1 As usrcntlFrachtkostenberechnung End Class diff --git a/Aviso/frmFrachtkostenBerechnen.vb b/Aviso/frmFrachtkostenBerechnen.vb index d9d6542..ac3b522 100644 --- a/Aviso/frmFrachtkostenBerechnen.vb +++ b/Aviso/frmFrachtkostenBerechnen.vb @@ -6,51 +6,59 @@ Imports VERAG_PROG_ALLGEMEIN Public Class frmFrachtkostenBerechnen - Dim absenderID As Integer = -1 - Dim empfaengerID As Integer = -1 - Dim origin As String - Dim destination As String - Public EUAnteil As Double - Public nichtEUAnteil As Double - Dim gewicht As Double - Dim gesamtFrachtkosten As Double - Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + 'Dim absenderID As Integer = -1 + 'Dim empfaengerID As Integer = -1 + 'Dim origin As String + 'Dim destination As String + 'Public EUAnteil As Double + 'Public nichtEUAnteil As Double + 'Dim gewicht As Double + 'Dim gesamtFrachtkosten As Double + 'Dim sql As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput 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) + + 'If ustcntl = DialogResult.OK Then + ' txtFrachtkostenEU._value = frachkosten.EUAnteil + ' txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil + ' txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value + '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 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 + 'If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then - empfaengerID = Int(empfID) - Else - empfaengerID = -1 - End If + ' empfaengerID = Int(empfID) + 'Else + ' empfaengerID = -1 + 'End If Catch ex As Exception @@ -60,245 +68,245 @@ Public Class frmFrachtkostenBerechnen End Sub - Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load - 'cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [Adressen] order by LandKz asc", False, "FMZOLL", True, True) - cbxLandVon.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", True, "FMZOLL", True) + ' 'cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [Adressen] order by LandKz asc", False, "FMZOLL", True, True) + ' cbxLandVon.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", True, "FMZOLL", True) - cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", "")) - txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL") - txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL") + ' cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", "")) + ' txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL") + ' txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL") - cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) - cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", "")) - txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL") - txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL") + ' cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) + ' cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", "")) + ' txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL") + ' txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL") - ckbManAnteilsermittlung.Checked = True + ' ckbManAnteilsermittlung.Checked = True - tbEUAnteil._value = 0 - tbNichtEUAnteil._value = 0 - txbGewicht._value = gewicht.ToString - txbFactor._value = 0.15 - checkInputFields() + ' tbEUAnteil._value = 0 + ' tbNichtEUAnteil._value = 0 + ' txbGewicht._value = gewicht.ToString + ' txbFactor._value = 0.15 + ' checkInputFields() - End Sub + 'End Sub - Sub calculateFreight() + 'Sub calculateFreight() - 'resetInputFields() - setControlEUAnteile() + ' 'resetInputFields() + ' setControlEUAnteile() - origin = IIf(cbxLandVon._value <> "", cbxLandVon.Text.Replace(cbxLandVon._value & " -", "").Trim(), "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "") - destination = IIf(cbxLandNach._value <> "", cbxLandNach.Text.Replace(cbxLandNach._value & " -", "").Trim(), "") & " " & IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "") + ' origin = IIf(cbxLandVon._value <> "", cbxLandVon.Text.Replace(cbxLandVon._value & " -", "").Trim(), "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "") + ' destination = IIf(cbxLandNach._value <> "", cbxLandNach.Text.Replace(cbxLandNach._value & " -", "").Trim(), "") & " " & IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "") - Dim getValues = True - Dim twoRouteRequest As Boolean = False - Dim duration = "" - Dim distance = "" - Dim durationEU = "" - Dim distanceEU = "" + ' Dim getValues = True + ' Dim twoRouteRequest As Boolean = False + ' Dim duration = "" + ' Dim distance = "" + ' Dim durationEU = "" + ' Dim distanceEU = "" - If cbxLandVon._value = "TR" AndAlso ckbManAnteilsermittlung.Checked Then + ' If cbxLandVon._value = "TR" AndAlso ckbManAnteilsermittlung.Checked Then - twoRouteRequest = True - 'Kapitan Andreevo ist EU Grenze für Lieferungen aus der Türkei - VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Kapitan Andreevo", duration, distance,, getValues) - VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues) + ' twoRouteRequest = True + ' 'Kapitan Andreevo ist EU Grenze für Lieferungen aus der Türkei + ' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Kapitan Andreevo", duration, distance,, getValues) + ' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues) - ElseIf cbxLandVon._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then - twoRouteRequest = True - 'Horgoš ist EU Grenze für Lieferungen aus Serbien - VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues) - VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues) + ' ElseIf cbxLandVon._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then + ' twoRouteRequest = True + ' 'Horgoš ist EU Grenze für Lieferungen aus Serbien + ' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues) + ' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues) - ElseIf cbxLandNach._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then - twoRouteRequest = True - 'Dover ist EU Grenze für Lieferungen nach England - VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", durationEU, distanceEU,, getValues) - VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, duration, distance,, getValues) + ' ElseIf cbxLandNach._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then + ' twoRouteRequest = True + ' 'Dover ist EU Grenze für Lieferungen nach England + ' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", durationEU, distanceEU,, getValues) + ' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, duration, distance,, getValues) - ElseIf cbxLandVon._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then - twoRouteRequest = True - 'Dover ist EU Grenze für Lieferungen aus England - VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", duration, distance,, getValues) - VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, durationEU, distanceEU,, getValues) + ' ElseIf cbxLandVon._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then + ' twoRouteRequest = True + ' 'Dover ist EU Grenze für Lieferungen aus England + ' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", duration, distance,, getValues) + ' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, durationEU, distanceEU,, getValues) - End If + ' End If - If twoRouteRequest = True AndAlso ckbManAnteilsermittlung.Checked Then + ' If twoRouteRequest = True AndAlso ckbManAnteilsermittlung.Checked Then - lblDistanzEU.Text = "EU-Distanz" - lblDistanzNichtEU.Visible = True - txbCalcDistanceNichtEU.Visible = True + ' lblDistanzEU.Text = "EU-Distanz" + ' lblDistanzNichtEU.Visible = True + ' txbCalcDistanceNichtEU.Visible = True - Try + ' Try - If (IsNumeric(distanceEU)) Then - IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU) - txbCalcDistanceEU._value = IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU) - Else - distanceEU = "0" + ' If (IsNumeric(distanceEU)) Then + ' IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU) + ' txbCalcDistanceEU._value = IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU) + ' Else + ' distanceEU = "0" - MsgBox("Standort vom Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbNachPLZ._value & " " & txbNachOrt._value & " prüfen") - Exit Sub + ' MsgBox("Standort vom Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbNachPLZ._value & " " & txbNachOrt._value & " prüfen") + ' Exit Sub - End If + ' End If - If (IsNumeric(distance)) Then - txbCalcDistanceNichtEU._value = IIf(CInt(distance) > 1000, Math.Round(CInt(distance) / 1000, 0), CInt(distance)) - Else - distance = "0" - MsgBox("Standort vom Abgangsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbVonPLZ._value & " " & txbVonOrt._value & " prüfen") - Exit Sub - End If + ' If (IsNumeric(distance)) Then + ' txbCalcDistanceNichtEU._value = IIf(CInt(distance) > 1000, Math.Round(CInt(distance) / 1000, 0), CInt(distance)) + ' Else + ' distance = "0" + ' MsgBox("Standort vom Abgangsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbVonPLZ._value & " " & txbVonOrt._value & " prüfen") + ' Exit Sub + ' End If - Dim totalDistance = CDbl(distance) + CDbl(distanceEU) + ' Dim totalDistance = CDbl(distance) + CDbl(distanceEU) - Dim distanceNotEUpercent = CDbl(distance) * 100 / totalDistance - Dim distanceEUpercent = CDbl(distanceEU) * 100 / totalDistance + ' Dim distanceNotEUpercent = CDbl(distance) * 100 / totalDistance + ' Dim distanceEUpercent = CDbl(distanceEU) * 100 / totalDistance - Math.Round(distanceNotEUpercent, 2) - Math.Round(distanceEUpercent, 2) + ' Math.Round(distanceNotEUpercent, 2) + ' Math.Round(distanceEUpercent, 2) - tbEUAnteil._value = CDbl(distanceEUpercent) / 100 - tbNichtEUAnteil._value = CDbl(distanceNotEUpercent) / 100 + ' tbEUAnteil._value = CDbl(distanceEUpercent) / 100 + ' tbNichtEUAnteil._value = CDbl(distanceNotEUpercent) / 100 - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try - ElseIf ckbManAnteilsermittlung.Checked Then + ' ElseIf ckbManAnteilsermittlung.Checked Then - VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance) + ' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance) - tbEUAnteil._value = 0.6 - tbNichtEUAnteil._value = 0.4 - If distance = "0" Or distance = "" Then - MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen") - End If - lblDistanzEU.Text = "Distanz" - txbCalcDistanceEU._value = distance - lblDistanzNichtEU.Visible = False - txbCalcDistanceNichtEU.Visible = False + ' tbEUAnteil._value = 0.6 + ' tbNichtEUAnteil._value = 0.4 + ' If distance = "0" Or distance = "" Then + ' MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen") + ' End If + ' lblDistanzEU.Text = "Distanz" + ' txbCalcDistanceEU._value = distance + ' lblDistanzNichtEU.Visible = False + ' txbCalcDistanceNichtEU.Visible = False - Else + ' Else - lblDistanzEU.Text = "Distanz" - txbCalcDistanceEU._value = distance - lblDistanzNichtEU.Visible = False - txbCalcDistanceNichtEU.Visible = False + ' lblDistanzEU.Text = "Distanz" + ' txbCalcDistanceEU._value = distance + ' lblDistanzNichtEU.Visible = False + ' txbCalcDistanceNichtEU.Visible = False - End If + ' End If - End Sub + 'End Sub - Sub calculateFreightCosts() + 'Sub calculateFreightCosts() - Try + ' Try - If gesamtFrachtkosten = 0 Then + ' If gesamtFrachtkosten = 0 Then - gesamtFrachtkosten = gewicht * CDbl(txbFactor._value) - tbxGesamtfrachtkosten._value = gesamtFrachtkosten + ' gesamtFrachtkosten = gewicht * CDbl(txbFactor._value) + ' tbxGesamtfrachtkosten._value = gesamtFrachtkosten - End If + ' End If - tbxGesamtfrachtkosten._value = gesamtFrachtkosten - EUAnteil = gesamtFrachtkosten * tbEUAnteil._value - nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value) - tbEUAnteilberechnet._value = CStr(EUAnteil) - tbNichtEUAnteilberechnet._value = CStr(nichtEUAnteil) + ' tbxGesamtfrachtkosten._value = gesamtFrachtkosten + ' EUAnteil = gesamtFrachtkosten * tbEUAnteil._value + ' nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value) + ' tbEUAnteilberechnet._value = CStr(EUAnteil) + ' tbNichtEUAnteilberechnet._value = CStr(nichtEUAnteil) - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try - End Sub + 'End Sub - Function checkInputFields() As Boolean + 'Function checkInputFields() As Boolean - Dim isFilled As Boolean = True + ' Dim isFilled As Boolean = True - lblWarningAbgangort.Visible = False - lblWarningBestimmungsort.Visible = False - lblWarningEUAnteil.Visible = False - lblWarningNichtEUAnteil.Visible = False - btnOK.DialogResult = DialogResult.OK + ' lblWarningAbgangort.Visible = False + ' lblWarningBestimmungsort.Visible = False + ' lblWarningEUAnteil.Visible = False + ' lblWarningNichtEUAnteil.Visible = False + ' btnOK.DialogResult = DialogResult.OK - If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then - lblWarningEUAnteil.Visible = True - btnOK.DialogResult = DialogResult.OK - isFilled = False - End If + ' If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then + ' lblWarningEUAnteil.Visible = True + ' btnOK.DialogResult = DialogResult.OK + ' isFilled = False + ' End If - If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then - lblWarningNichtEUAnteil.Visible = True - btnOK.DialogResult = DialogResult.OK - isFilled = False - End If + ' If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then + ' lblWarningNichtEUAnteil.Visible = True + ' btnOK.DialogResult = DialogResult.OK + ' isFilled = False + ' End If - If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then - 'Hinweis INPUT false - End If + ' If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then + ' 'Hinweis INPUT false + ' End If - If (txbVonOrt._value = "" And txbVonPLZ._value = "") Then - lblWarningAbgangort.Visible = True - btnOK.DialogResult = DialogResult.OK - isFilled = False - End If + ' If (txbVonOrt._value = "" And txbVonPLZ._value = "") Then + ' lblWarningAbgangort.Visible = True + ' btnOK.DialogResult = DialogResult.OK + ' isFilled = False + ' End If - If (txbNachOrt._value = "" And txbNachPLZ._value = "") Then - lblWarningBestimmungsort.Visible = True - btnOK.DialogResult = DialogResult.OK - isFilled = False - End If + ' If (txbNachOrt._value = "" And txbNachPLZ._value = "") Then + ' lblWarningBestimmungsort.Visible = True + ' btnOK.DialogResult = DialogResult.OK + ' isFilled = False + ' End If - Return isFilled + ' Return isFilled - End Function + 'End Function - Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click + 'Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click - If (checkInputFields() = False) Then Exit Sub - calculateFreight() - If (checkInputFields() = False) Then Exit Sub - calculateFreightCosts() + ' If (checkInputFields() = False) Then Exit Sub + ' calculateFreight() + ' If (checkInputFields() = False) Then Exit Sub + ' calculateFreightCosts() - End Sub + 'End Sub - Private Sub resetInputFields() - txbCalcDistanceEU.Clear() - txbCalcDistanceNichtEU.Clear() - tbEUAnteilberechnet.Clear() - tbNichtEUAnteilberechnet.Clear() - If tbEUAnteil._value = "" Then tbEUAnteil._value = 0 - If tbNichtEUAnteil._value = "" Then tbNichtEUAnteil._value = 0 + 'Private Sub resetInputFields() + ' txbCalcDistanceEU.Clear() + ' txbCalcDistanceNichtEU.Clear() + ' tbEUAnteilberechnet.Clear() + ' tbNichtEUAnteilberechnet.Clear() + ' If tbEUAnteil._value = "" Then tbEUAnteil._value = 0 + ' If tbNichtEUAnteil._value = "" Then tbNichtEUAnteil._value = 0 - End Sub + 'End Sub - Private Sub setControlEUAnteile() - If ckbManAnteilsermittlung.Checked Then - tbEUAnteil.Enabled = False - tbNichtEUAnteil.Enabled = False - Else - tbEUAnteil.Enabled = True - tbNichtEUAnteil.Enabled = True - resetInputFields() - End If - End Sub + 'Private Sub setControlEUAnteile() + ' If ckbManAnteilsermittlung.Checked Then + ' tbEUAnteil.Enabled = False + ' tbNichtEUAnteil.Enabled = False + ' Else + ' tbEUAnteil.Enabled = True + ' tbNichtEUAnteil.Enabled = True + ' resetInputFields() + ' End If + 'End Sub - Private Sub ckbManAnteilsermittlung_CheckStateChanged(sender As Object, e As EventArgs) Handles ckbManAnteilsermittlung.CheckStateChanged - setControlEUAnteile() - End Sub + 'Private Sub ckbManAnteilsermittlung_CheckStateChanged(sender As Object, e As EventArgs) Handles ckbManAnteilsermittlung.CheckStateChanged + ' setControlEUAnteile() + 'End Sub End Class \ No newline at end of file diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 106f892..6a16770 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -5709,13 +5709,12 @@ Public Class frmSendungsdetailsNEU Sub calculateFreightCosts() - Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text) + Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text) - - If frachkosten.ShowDialog() = DialogResult.OK Then - txtFrachtkostenEU._value = frachkosten.EUAnteil - txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil - txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value + If frachkosten.ShowDialog = DialogResult.OK Then + 'txtFrachtkostenEU._value = frachkosten.usrcntlFrachtkostenberechnung.EUAnteil + 'txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil + 'txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value End If End Sub diff --git a/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb b/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb index f9d1af4..8a3c9ff 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb +++ b/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb @@ -54,6 +54,7 @@ Partial Class usrcntlAktDetailsATILLANeu Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbVermerke = New System.Windows.Forms.TabPage() + Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla() Me.tbZollanmeldungen = New System.Windows.Forms.TabPage() Me.Panel1 = New System.Windows.Forms.Panel() Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView() @@ -155,7 +156,6 @@ Partial Class usrcntlAktDetailsATILLANeu Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla() Me.pnlDetailsRechts.SuspendLayout() Me.Panel3.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -275,6 +275,17 @@ Partial Class usrcntlAktDetailsATILLANeu Me.tbVermerke.Text = "Vermerk eintragen" Me.tbVermerke.UseVisualStyleBackColor = True ' + 'UsrCntlVermerkeATilla1 + ' + Me.UsrCntlVermerkeATilla1.AutoScroll = True + Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control + Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1" + Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151) + Me.UsrCntlVermerkeATilla1.TabIndex = 0 + ' 'tbZollanmeldungen ' Me.tbZollanmeldungen.Controls.Add(Me.Panel1) @@ -1715,17 +1726,6 @@ Partial Class usrcntlAktDetailsATILLANeu Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30) Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)" ' - 'UsrCntlVermerkeATilla1 - ' - Me.UsrCntlVermerkeATilla1.AutoScroll = True - Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control - Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1" - Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151) - Me.UsrCntlVermerkeATilla1.TabIndex = 0 - ' 'usrcntlAktDetailsATILLANeu ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/Aviso/usrcntlAktDetailsATILLANeu.vb b/Aviso/usrcntlAktDetailsATILLANeu.vb index 1ead34b..f498ed0 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.vb +++ b/Aviso/usrcntlAktDetailsATILLANeu.vb @@ -219,9 +219,6 @@ Public Class usrcntlAktDetailsATILLANeu Try Me.Cursor = Cursors.WaitCursor - If dgvZollAnmeldungen.SelectedRows.Count = 0 Then Exit Sub - - Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADById(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_Id").Value) If DY IsNot Nothing Then @@ -1666,5 +1663,12 @@ Public Class usrcntlAktDetailsATILLANeu End Sub + Private Sub dgvATEZNCTS_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATEZNCTS.CellDoubleClick + If dgvATEZNCTS.Rows.Count = 0 Then Exit Sub + + Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value) + frmAttilaATEZNCTS.Show(Me) + + End Sub End Class diff --git a/Aviso/usrcntlFrachtkostenberechnung.Designer.vb b/Aviso/usrcntlFrachtkostenberechnung.Designer.vb new file mode 100644 index 0000000..2dd09d8 --- /dev/null +++ b/Aviso/usrcntlFrachtkostenberechnung.Designer.vb @@ -0,0 +1,1486 @@ + _ +Partial Class usrcntlFrachtkostenberechnung + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.cbxLandNach = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxLandVon = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox() + Me.txbCalcDistanceNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblDistanzNichtEU = New System.Windows.Forms.Label() + Me.tbNichtEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.tbEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblWarningFaktor = New System.Windows.Forms.Label() + Me.lblWarningBestimmungsort = New System.Windows.Forms.Label() + Me.lblWarningAbgangort = New System.Windows.Forms.Label() + Me.lblWarningNichtEUAnteil = New System.Windows.Forms.Label() + Me.lblWarningEUAnteil = New System.Windows.Forms.Label() + Me.txbFactor = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblFaktor = New System.Windows.Forms.Label() + Me.tbxGesamtfrachtkosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txbGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txbCalcDistanceEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txbNachOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txbVonOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnCalculate = New System.Windows.Forms.Button() + Me.lblGesamtfrachkosten = New System.Windows.Forms.Label() + Me.lblGewicht = New System.Windows.Forms.Label() + Me.lblDistanzEU = New System.Windows.Forms.Label() + Me.txbNachPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txbVonPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblNichtEUAnteil = New System.Windows.Forms.Label() + Me.lblEUAnteil = New System.Windows.Forms.Label() + Me.tbNichtEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.tbEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblNach = New System.Windows.Forms.Label() + Me.lblVon = New System.Windows.Forms.Label() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + 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.Label15 = New System.Windows.Forms.Label() + Me.tbNichtEUAnteil2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.tbNichtEUAnteilberechnet22 = 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.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.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.btnCancel = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.SuspendLayout() + ' + 'cbxLandNach + ' + Me.cbxLandNach._allowedValuesFreiText = Nothing + Me.cbxLandNach._allowFreiText = False + Me.cbxLandNach._value = "" + Me.cbxLandNach.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append + Me.cbxLandNach.DropDownWidth = 250 + Me.cbxLandNach.FormattingEnabled = True + Me.cbxLandNach.Location = New System.Drawing.Point(256, 26) + Me.cbxLandNach.Name = "cbxLandNach" + Me.cbxLandNach.Size = New System.Drawing.Size(45, 21) + Me.cbxLandNach.TabIndex = 43 + ' + 'cbxLandVon + ' + Me.cbxLandVon._allowedValuesFreiText = Nothing + Me.cbxLandVon._allowFreiText = False + Me.cbxLandVon._value = "" + Me.cbxLandVon.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest + Me.cbxLandVon.DropDownWidth = 250 + Me.cbxLandVon.FormattingEnabled = True + Me.cbxLandVon.Location = New System.Drawing.Point(76, 25) + Me.cbxLandVon.Name = "cbxLandVon" + Me.cbxLandVon.Size = New System.Drawing.Size(45, 21) + Me.cbxLandVon.TabIndex = 40 + ' + 'ckbManAnteilsermittlung + ' + Me.ckbManAnteilsermittlung.AutoSize = True + Me.ckbManAnteilsermittlung.Location = New System.Drawing.Point(93, 161) + Me.ckbManAnteilsermittlung.Name = "ckbManAnteilsermittlung" + Me.ckbManAnteilsermittlung.Size = New System.Drawing.Size(160, 17) + Me.ckbManAnteilsermittlung.TabIndex = 59 + Me.ckbManAnteilsermittlung.Text = "Anteile automatisch ermitteln" + Me.ckbManAnteilsermittlung.UseVisualStyleBackColor = True + ' + 'txbCalcDistanceNichtEU + ' + Me.txbCalcDistanceNichtEU._DateTimeOnly = False + Me.txbCalcDistanceNichtEU._numbersOnly = False + Me.txbCalcDistanceNichtEU._numbersOnlyKommastellen = "" + Me.txbCalcDistanceNichtEU._numbersOnlyTrennzeichen = True + Me.txbCalcDistanceNichtEU._Prozent = False + Me.txbCalcDistanceNichtEU._ShortDateNew = False + Me.txbCalcDistanceNichtEU._ShortDateOnly = False + Me.txbCalcDistanceNichtEU._TimeOnly = False + Me.txbCalcDistanceNichtEU._TimeOnly_Seconds = False + Me.txbCalcDistanceNichtEU._value = "" + Me.txbCalcDistanceNichtEU._Waehrung = False + Me.txbCalcDistanceNichtEU._WaehrungZeichen = True + Me.txbCalcDistanceNichtEU.ForeColor = System.Drawing.Color.Black + Me.txbCalcDistanceNichtEU.Location = New System.Drawing.Point(278, 228) + Me.txbCalcDistanceNichtEU.MaxLineLength = -1 + Me.txbCalcDistanceNichtEU.MaxLines_Warning = "" + Me.txbCalcDistanceNichtEU.MaxLines_Warning_Label = Nothing + Me.txbCalcDistanceNichtEU.Name = "txbCalcDistanceNichtEU" + Me.txbCalcDistanceNichtEU.Size = New System.Drawing.Size(84, 20) + Me.txbCalcDistanceNichtEU.TabIndex = 69 + Me.txbCalcDistanceNichtEU.Visible = False + ' + 'lblDistanzNichtEU + ' + Me.lblDistanzNichtEU.AutoSize = True + Me.lblDistanzNichtEU.Location = New System.Drawing.Point(216, 238) + Me.lblDistanzNichtEU.Name = "lblDistanzNichtEU" + Me.lblDistanzNichtEU.Size = New System.Drawing.Size(42, 13) + Me.lblDistanzNichtEU.TabIndex = 70 + Me.lblDistanzNichtEU.Text = "Distanz" + Me.lblDistanzNichtEU.Visible = False + ' + 'tbNichtEUAnteilberechnet + ' + Me.tbNichtEUAnteilberechnet._DateTimeOnly = False + Me.tbNichtEUAnteilberechnet._numbersOnly = False + Me.tbNichtEUAnteilberechnet._numbersOnlyKommastellen = "" + Me.tbNichtEUAnteilberechnet._numbersOnlyTrennzeichen = True + Me.tbNichtEUAnteilberechnet._Prozent = False + Me.tbNichtEUAnteilberechnet._ShortDateNew = False + Me.tbNichtEUAnteilberechnet._ShortDateOnly = False + Me.tbNichtEUAnteilberechnet._TimeOnly = False + Me.tbNichtEUAnteilberechnet._TimeOnly_Seconds = False + Me.tbNichtEUAnteilberechnet._value = "" + Me.tbNichtEUAnteilberechnet._Waehrung = True + Me.tbNichtEUAnteilberechnet._WaehrungZeichen = True + Me.tbNichtEUAnteilberechnet.ForeColor = System.Drawing.Color.Black + Me.tbNichtEUAnteilberechnet.Location = New System.Drawing.Point(142, 228) + Me.tbNichtEUAnteilberechnet.MaxLineLength = -1 + Me.tbNichtEUAnteilberechnet.MaxLines_Warning = "" + Me.tbNichtEUAnteilberechnet.MaxLines_Warning_Label = Nothing + Me.tbNichtEUAnteilberechnet.Name = "tbNichtEUAnteilberechnet" + Me.tbNichtEUAnteilberechnet.ReadOnly = True + Me.tbNichtEUAnteilberechnet.Size = New System.Drawing.Size(60, 20) + Me.tbNichtEUAnteilberechnet.TabIndex = 68 + ' + 'tbEUAnteilberechnet + ' + Me.tbEUAnteilberechnet._DateTimeOnly = False + Me.tbEUAnteilberechnet._numbersOnly = False + Me.tbEUAnteilberechnet._numbersOnlyKommastellen = "" + Me.tbEUAnteilberechnet._numbersOnlyTrennzeichen = True + Me.tbEUAnteilberechnet._Prozent = False + Me.tbEUAnteilberechnet._ShortDateNew = False + Me.tbEUAnteilberechnet._ShortDateOnly = False + Me.tbEUAnteilberechnet._TimeOnly = False + Me.tbEUAnteilberechnet._TimeOnly_Seconds = False + Me.tbEUAnteilberechnet._value = "" + Me.tbEUAnteilberechnet._Waehrung = True + Me.tbEUAnteilberechnet._WaehrungZeichen = True + Me.tbEUAnteilberechnet.ForeColor = System.Drawing.Color.Black + Me.tbEUAnteilberechnet.Location = New System.Drawing.Point(142, 189) + Me.tbEUAnteilberechnet.MaxLineLength = -1 + Me.tbEUAnteilberechnet.MaxLines_Warning = "" + Me.tbEUAnteilberechnet.MaxLines_Warning_Label = Nothing + Me.tbEUAnteilberechnet.Name = "tbEUAnteilberechnet" + Me.tbEUAnteilberechnet.ReadOnly = True + Me.tbEUAnteilberechnet.Size = New System.Drawing.Size(60, 20) + Me.tbEUAnteilberechnet.TabIndex = 62 + ' + 'lblWarningFaktor + ' + Me.lblWarningFaktor.AutoSize = True + Me.lblWarningFaktor.ForeColor = System.Drawing.Color.Red + Me.lblWarningFaktor.Location = New System.Drawing.Point(6, 145) + Me.lblWarningFaktor.Name = "lblWarningFaktor" + Me.lblWarningFaktor.Size = New System.Drawing.Size(82, 13) + Me.lblWarningFaktor.TabIndex = 57 + Me.lblWarningFaktor.Text = "Faktor angeben" + Me.lblWarningFaktor.Visible = False + ' + 'lblWarningBestimmungsort + ' + Me.lblWarningBestimmungsort.AutoSize = True + Me.lblWarningBestimmungsort.ForeColor = System.Drawing.Color.Red + Me.lblWarningBestimmungsort.Location = New System.Drawing.Point(181, 75) + Me.lblWarningBestimmungsort.Name = "lblWarningBestimmungsort" + Me.lblWarningBestimmungsort.Size = New System.Drawing.Size(167, 13) + Me.lblWarningBestimmungsort.TabIndex = 50 + Me.lblWarningBestimmungsort.Text = "PLZ/Ort von Bestimmungsort fehlt" + Me.lblWarningBestimmungsort.Visible = False + ' + 'lblWarningAbgangort + ' + Me.lblWarningAbgangort.AutoSize = True + Me.lblWarningAbgangort.ForeColor = System.Drawing.Color.Red + Me.lblWarningAbgangort.Location = New System.Drawing.Point(6, 75) + Me.lblWarningAbgangort.Name = "lblWarningAbgangort" + Me.lblWarningAbgangort.Size = New System.Drawing.Size(147, 13) + Me.lblWarningAbgangort.TabIndex = 49 + Me.lblWarningAbgangort.Text = "PLZ/Ort von Abgangsort fehlt" + Me.lblWarningAbgangort.Visible = False + ' + 'lblWarningNichtEUAnteil + ' + Me.lblWarningNichtEUAnteil.AutoSize = True + Me.lblWarningNichtEUAnteil.ForeColor = System.Drawing.Color.Red + Me.lblWarningNichtEUAnteil.Location = New System.Drawing.Point(6, 250) + Me.lblWarningNichtEUAnteil.Name = "lblWarningNichtEUAnteil" + Me.lblWarningNichtEUAnteil.Size = New System.Drawing.Size(190, 13) + Me.lblWarningNichtEUAnteil.TabIndex = 71 + Me.lblWarningNichtEUAnteil.Text = "Nicht EU Anteil hinterlegen (in Prozent)" + Me.lblWarningNichtEUAnteil.Visible = False + ' + 'lblWarningEUAnteil + ' + Me.lblWarningEUAnteil.AutoSize = True + Me.lblWarningEUAnteil.ForeColor = System.Drawing.Color.Red + Me.lblWarningEUAnteil.Location = New System.Drawing.Point(6, 212) + Me.lblWarningEUAnteil.Name = "lblWarningEUAnteil" + Me.lblWarningEUAnteil.Size = New System.Drawing.Size(162, 13) + Me.lblWarningEUAnteil.TabIndex = 65 + Me.lblWarningEUAnteil.Text = "EU Anteil hinterlegen (in Prozent)" + Me.lblWarningEUAnteil.Visible = False + ' + 'txbFactor + ' + Me.txbFactor._DateTimeOnly = False + Me.txbFactor._numbersOnly = True + Me.txbFactor._numbersOnlyKommastellen = "" + Me.txbFactor._numbersOnlyTrennzeichen = True + Me.txbFactor._Prozent = False + Me.txbFactor._ShortDateNew = False + Me.txbFactor._ShortDateOnly = False + Me.txbFactor._TimeOnly = False + Me.txbFactor._TimeOnly_Seconds = False + Me.txbFactor._value = "" + Me.txbFactor._Waehrung = True + Me.txbFactor._WaehrungZeichen = True + Me.txbFactor.ForeColor = System.Drawing.Color.Black + Me.txbFactor.Location = New System.Drawing.Point(76, 123) + Me.txbFactor.MaxLineLength = -1 + Me.txbFactor.MaxLines_Warning = "" + Me.txbFactor.MaxLines_Warning_Label = Nothing + Me.txbFactor.Name = "txbFactor" + Me.txbFactor.Size = New System.Drawing.Size(60, 20) + Me.txbFactor.TabIndex = 54 + ' + 'lblFaktor + ' + Me.lblFaktor.AutoSize = True + Me.lblFaktor.Location = New System.Drawing.Point(6, 126) + Me.lblFaktor.Name = "lblFaktor" + Me.lblFaktor.Size = New System.Drawing.Size(37, 13) + Me.lblFaktor.TabIndex = 53 + Me.lblFaktor.Text = "Faktor" + ' + 'tbxGesamtfrachtkosten + ' + Me.tbxGesamtfrachtkosten._DateTimeOnly = False + Me.tbxGesamtfrachtkosten._numbersOnly = False + Me.tbxGesamtfrachtkosten._numbersOnlyKommastellen = "" + Me.tbxGesamtfrachtkosten._numbersOnlyTrennzeichen = True + Me.tbxGesamtfrachtkosten._Prozent = False + Me.tbxGesamtfrachtkosten._ShortDateNew = False + Me.tbxGesamtfrachtkosten._ShortDateOnly = False + Me.tbxGesamtfrachtkosten._TimeOnly = False + Me.tbxGesamtfrachtkosten._TimeOnly_Seconds = False + Me.tbxGesamtfrachtkosten._value = "" + Me.tbxGesamtfrachtkosten._Waehrung = True + Me.tbxGesamtfrachtkosten._WaehrungZeichen = True + Me.tbxGesamtfrachtkosten.ForeColor = System.Drawing.Color.Black + Me.tbxGesamtfrachtkosten.Location = New System.Drawing.Point(302, 123) + Me.tbxGesamtfrachtkosten.MaxLineLength = -1 + Me.tbxGesamtfrachtkosten.MaxLines_Warning = "" + Me.tbxGesamtfrachtkosten.MaxLines_Warning_Label = Nothing + Me.tbxGesamtfrachtkosten.Name = "tbxGesamtfrachtkosten" + Me.tbxGesamtfrachtkosten.ReadOnly = True + Me.tbxGesamtfrachtkosten.Size = New System.Drawing.Size(60, 20) + Me.tbxGesamtfrachtkosten.TabIndex = 56 + ' + 'txbGewicht + ' + Me.txbGewicht._DateTimeOnly = False + Me.txbGewicht._numbersOnly = False + Me.txbGewicht._numbersOnlyKommastellen = "" + Me.txbGewicht._numbersOnlyTrennzeichen = True + Me.txbGewicht._Prozent = False + Me.txbGewicht._ShortDateNew = False + Me.txbGewicht._ShortDateOnly = False + Me.txbGewicht._TimeOnly = False + Me.txbGewicht._TimeOnly_Seconds = False + Me.txbGewicht._value = "" + Me.txbGewicht._Waehrung = False + Me.txbGewicht._WaehrungZeichen = True + Me.txbGewicht.ForeColor = System.Drawing.Color.Black + Me.txbGewicht.Location = New System.Drawing.Point(76, 97) + Me.txbGewicht.MaxLineLength = -1 + Me.txbGewicht.MaxLines_Warning = "" + Me.txbGewicht.MaxLines_Warning_Label = Nothing + Me.txbGewicht.Name = "txbGewicht" + Me.txbGewicht.ReadOnly = True + Me.txbGewicht.Size = New System.Drawing.Size(84, 20) + Me.txbGewicht.TabIndex = 52 + ' + 'txbCalcDistanceEU + ' + Me.txbCalcDistanceEU._DateTimeOnly = False + Me.txbCalcDistanceEU._numbersOnly = False + Me.txbCalcDistanceEU._numbersOnlyKommastellen = "" + Me.txbCalcDistanceEU._numbersOnlyTrennzeichen = True + Me.txbCalcDistanceEU._Prozent = False + Me.txbCalcDistanceEU._ShortDateNew = False + Me.txbCalcDistanceEU._ShortDateOnly = False + Me.txbCalcDistanceEU._TimeOnly = False + Me.txbCalcDistanceEU._TimeOnly_Seconds = False + Me.txbCalcDistanceEU._value = "" + Me.txbCalcDistanceEU._Waehrung = False + Me.txbCalcDistanceEU._WaehrungZeichen = True + Me.txbCalcDistanceEU.ForeColor = System.Drawing.Color.Black + Me.txbCalcDistanceEU.Location = New System.Drawing.Point(278, 189) + Me.txbCalcDistanceEU.MaxLineLength = -1 + Me.txbCalcDistanceEU.MaxLines_Warning = "" + Me.txbCalcDistanceEU.MaxLines_Warning_Label = Nothing + Me.txbCalcDistanceEU.Name = "txbCalcDistanceEU" + Me.txbCalcDistanceEU.Size = New System.Drawing.Size(84, 20) + Me.txbCalcDistanceEU.TabIndex = 64 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(206, 33) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(27, 13) + Me.Label4.TabIndex = 42 + Me.Label4.Text = "PLZ" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(206, 59) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(21, 13) + Me.Label3.TabIndex = 47 + Me.Label3.Text = "Ort" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 55) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(21, 13) + Me.Label2.TabIndex = 45 + Me.Label2.Text = "Ort" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(6, 33) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(27, 13) + Me.Label1.TabIndex = 39 + Me.Label1.Text = "PLZ" + ' + 'txbNachOrt + ' + Me.txbNachOrt._DateTimeOnly = False + Me.txbNachOrt._numbersOnly = False + Me.txbNachOrt._numbersOnlyKommastellen = "" + Me.txbNachOrt._numbersOnlyTrennzeichen = True + Me.txbNachOrt._Prozent = False + Me.txbNachOrt._ShortDateNew = False + Me.txbNachOrt._ShortDateOnly = False + Me.txbNachOrt._TimeOnly = False + Me.txbNachOrt._TimeOnly_Seconds = False + Me.txbNachOrt._value = "" + Me.txbNachOrt._Waehrung = False + Me.txbNachOrt._WaehrungZeichen = True + Me.txbNachOrt.ForeColor = System.Drawing.Color.Black + Me.txbNachOrt.Location = New System.Drawing.Point(256, 52) + Me.txbNachOrt.MaxLineLength = -1 + Me.txbNachOrt.MaxLines_Warning = "" + Me.txbNachOrt.MaxLines_Warning_Label = Nothing + Me.txbNachOrt.Name = "txbNachOrt" + Me.txbNachOrt.Size = New System.Drawing.Size(106, 20) + Me.txbNachOrt.TabIndex = 48 + ' + 'txbVonOrt + ' + Me.txbVonOrt._DateTimeOnly = False + Me.txbVonOrt._numbersOnly = False + Me.txbVonOrt._numbersOnlyKommastellen = "" + Me.txbVonOrt._numbersOnlyTrennzeichen = True + Me.txbVonOrt._Prozent = False + Me.txbVonOrt._ShortDateNew = False + Me.txbVonOrt._ShortDateOnly = False + Me.txbVonOrt._TimeOnly = False + Me.txbVonOrt._TimeOnly_Seconds = False + Me.txbVonOrt._value = "" + Me.txbVonOrt._Waehrung = False + Me.txbVonOrt._WaehrungZeichen = True + Me.txbVonOrt.ForeColor = System.Drawing.Color.Black + Me.txbVonOrt.Location = New System.Drawing.Point(76, 52) + Me.txbVonOrt.MaxLineLength = -1 + Me.txbVonOrt.MaxLines_Warning = "" + Me.txbVonOrt.MaxLines_Warning_Label = Nothing + Me.txbVonOrt.Name = "txbVonOrt" + Me.txbVonOrt.Size = New System.Drawing.Size(106, 20) + Me.txbVonOrt.TabIndex = 46 + ' + 'btnCalculate + ' + Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox + Me.btnCalculate.Location = New System.Drawing.Point(6, 161) + Me.btnCalculate.Name = "btnCalculate" + Me.btnCalculate.Size = New System.Drawing.Size(75, 23) + Me.btnCalculate.TabIndex = 58 + Me.btnCalculate.Text = "Berechnen" + Me.btnCalculate.UseVisualStyleBackColor = True + ' + 'lblGesamtfrachkosten + ' + Me.lblGesamtfrachkosten.AutoSize = True + Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(206, 126) + Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten" + Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13) + Me.lblGesamtfrachkosten.TabIndex = 55 + Me.lblGesamtfrachkosten.Text = "Frachtkosten ges." + ' + 'lblGewicht + ' + Me.lblGewicht.AutoSize = True + Me.lblGewicht.Location = New System.Drawing.Point(6, 100) + Me.lblGewicht.Name = "lblGewicht" + Me.lblGewicht.Size = New System.Drawing.Size(46, 13) + Me.lblGewicht.TabIndex = 51 + Me.lblGewicht.Text = "Gewicht" + ' + 'lblDistanzEU + ' + Me.lblDistanzEU.AutoSize = True + Me.lblDistanzEU.Location = New System.Drawing.Point(211, 196) + Me.lblDistanzEU.Name = "lblDistanzEU" + Me.lblDistanzEU.Size = New System.Drawing.Size(42, 13) + Me.lblDistanzEU.TabIndex = 63 + Me.lblDistanzEU.Text = "Distanz" + ' + 'txbNachPLZ + ' + Me.txbNachPLZ._DateTimeOnly = False + Me.txbNachPLZ._numbersOnly = False + Me.txbNachPLZ._numbersOnlyKommastellen = "" + Me.txbNachPLZ._numbersOnlyTrennzeichen = True + Me.txbNachPLZ._Prozent = False + Me.txbNachPLZ._ShortDateNew = False + Me.txbNachPLZ._ShortDateOnly = False + Me.txbNachPLZ._TimeOnly = False + Me.txbNachPLZ._TimeOnly_Seconds = False + Me.txbNachPLZ._value = "" + Me.txbNachPLZ._Waehrung = False + Me.txbNachPLZ._WaehrungZeichen = True + Me.txbNachPLZ.ForeColor = System.Drawing.Color.Black + Me.txbNachPLZ.Location = New System.Drawing.Point(302, 26) + Me.txbNachPLZ.MaxLineLength = -1 + Me.txbNachPLZ.MaxLines_Warning = "" + Me.txbNachPLZ.MaxLines_Warning_Label = Nothing + Me.txbNachPLZ.Name = "txbNachPLZ" + Me.txbNachPLZ.Size = New System.Drawing.Size(60, 20) + Me.txbNachPLZ.TabIndex = 44 + ' + 'txbVonPLZ + ' + Me.txbVonPLZ._DateTimeOnly = False + Me.txbVonPLZ._numbersOnly = False + Me.txbVonPLZ._numbersOnlyKommastellen = "" + Me.txbVonPLZ._numbersOnlyTrennzeichen = True + Me.txbVonPLZ._Prozent = False + Me.txbVonPLZ._ShortDateNew = False + Me.txbVonPLZ._ShortDateOnly = False + Me.txbVonPLZ._TimeOnly = False + Me.txbVonPLZ._TimeOnly_Seconds = False + Me.txbVonPLZ._value = "" + Me.txbVonPLZ._Waehrung = False + Me.txbVonPLZ._WaehrungZeichen = True + Me.txbVonPLZ.ForeColor = System.Drawing.Color.Black + Me.txbVonPLZ.Location = New System.Drawing.Point(122, 26) + Me.txbVonPLZ.MaxLineLength = -1 + Me.txbVonPLZ.MaxLines_Warning = "" + Me.txbVonPLZ.MaxLines_Warning_Label = Nothing + Me.txbVonPLZ.Name = "txbVonPLZ" + Me.txbVonPLZ.Size = New System.Drawing.Size(60, 20) + Me.txbVonPLZ.TabIndex = 41 + ' + 'lblNichtEUAnteil + ' + Me.lblNichtEUAnteil.AutoSize = True + Me.lblNichtEUAnteil.Location = New System.Drawing.Point(6, 231) + Me.lblNichtEUAnteil.Name = "lblNichtEUAnteil" + Me.lblNichtEUAnteil.Size = New System.Drawing.Size(79, 13) + Me.lblNichtEUAnteil.TabIndex = 66 + Me.lblNichtEUAnteil.Text = "Nicht EU Anteil" + ' + 'lblEUAnteil + ' + Me.lblEUAnteil.AutoSize = True + Me.lblEUAnteil.Location = New System.Drawing.Point(6, 196) + Me.lblEUAnteil.Name = "lblEUAnteil" + Me.lblEUAnteil.Size = New System.Drawing.Size(51, 13) + Me.lblEUAnteil.TabIndex = 60 + Me.lblEUAnteil.Text = "EU Anteil" + ' + 'tbNichtEUAnteil + ' + Me.tbNichtEUAnteil._DateTimeOnly = False + Me.tbNichtEUAnteil._numbersOnly = False + Me.tbNichtEUAnteil._numbersOnlyKommastellen = "" + Me.tbNichtEUAnteil._numbersOnlyTrennzeichen = True + Me.tbNichtEUAnteil._Prozent = True + Me.tbNichtEUAnteil._ShortDateNew = False + Me.tbNichtEUAnteil._ShortDateOnly = False + Me.tbNichtEUAnteil._TimeOnly = False + Me.tbNichtEUAnteil._TimeOnly_Seconds = False + Me.tbNichtEUAnteil._value = Nothing + Me.tbNichtEUAnteil._Waehrung = False + Me.tbNichtEUAnteil._WaehrungZeichen = False + Me.tbNichtEUAnteil.ForeColor = System.Drawing.Color.Black + Me.tbNichtEUAnteil.Location = New System.Drawing.Point(87, 228) + Me.tbNichtEUAnteil.MaxLineLength = -1 + Me.tbNichtEUAnteil.MaxLines_Warning = "" + Me.tbNichtEUAnteil.MaxLines_Warning_Label = Nothing + Me.tbNichtEUAnteil.Name = "tbNichtEUAnteil" + Me.tbNichtEUAnteil.Size = New System.Drawing.Size(49, 20) + Me.tbNichtEUAnteil.TabIndex = 67 + ' + 'tbEUAnteil + ' + Me.tbEUAnteil._DateTimeOnly = False + Me.tbEUAnteil._numbersOnly = False + Me.tbEUAnteil._numbersOnlyKommastellen = "" + Me.tbEUAnteil._numbersOnlyTrennzeichen = False + Me.tbEUAnteil._Prozent = True + Me.tbEUAnteil._ShortDateNew = False + Me.tbEUAnteil._ShortDateOnly = False + Me.tbEUAnteil._TimeOnly = False + Me.tbEUAnteil._TimeOnly_Seconds = False + Me.tbEUAnteil._value = Nothing + Me.tbEUAnteil._Waehrung = False + Me.tbEUAnteil._WaehrungZeichen = False + Me.tbEUAnteil.ForeColor = System.Drawing.Color.Black + Me.tbEUAnteil.Location = New System.Drawing.Point(85, 189) + Me.tbEUAnteil.MaxLineLength = -1 + Me.tbEUAnteil.MaxLines_Warning = "" + Me.tbEUAnteil.MaxLines_Warning_Label = Nothing + Me.tbEUAnteil.Name = "tbEUAnteil" + Me.tbEUAnteil.Size = New System.Drawing.Size(51, 20) + Me.tbEUAnteil.TabIndex = 61 + ' + 'lblNach + ' + Me.lblNach.AutoSize = True + Me.lblNach.Location = New System.Drawing.Point(206, 12) + Me.lblNach.Name = "lblNach" + Me.lblNach.Size = New System.Drawing.Size(84, 13) + Me.lblNach.TabIndex = 38 + Me.lblNach.Text = "Bestimmungsort:" + ' + 'lblVon + ' + Me.lblVon.AutoSize = True + Me.lblVon.Location = New System.Drawing.Point(6, 12) + Me.lblVon.Name = "lblVon" + Me.lblVon.Size = New System.Drawing.Size(64, 13) + Me.lblVon.TabIndex = 37 + Me.lblVon.Text = "Abgangsort:" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + 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.TabIndex = 74 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.Panel1) + 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.TabIndex = 0 + Me.TabPage1.Text = "Entfernung" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.lblVon) + Me.Panel1.Controls.Add(Me.cbxLandNach) + Me.Panel1.Controls.Add(Me.lblNach) + Me.Panel1.Controls.Add(Me.cbxLandVon) + Me.Panel1.Controls.Add(Me.ckbManAnteilsermittlung) + Me.Panel1.Controls.Add(Me.txbCalcDistanceNichtEU) + Me.Panel1.Controls.Add(Me.tbEUAnteil) + Me.Panel1.Controls.Add(Me.lblDistanzNichtEU) + Me.Panel1.Controls.Add(Me.tbNichtEUAnteil) + Me.Panel1.Controls.Add(Me.tbNichtEUAnteilberechnet) + Me.Panel1.Controls.Add(Me.lblEUAnteil) + Me.Panel1.Controls.Add(Me.tbEUAnteilberechnet) + Me.Panel1.Controls.Add(Me.lblNichtEUAnteil) + Me.Panel1.Controls.Add(Me.lblWarningFaktor) + Me.Panel1.Controls.Add(Me.txbVonPLZ) + Me.Panel1.Controls.Add(Me.lblWarningBestimmungsort) + Me.Panel1.Controls.Add(Me.txbNachPLZ) + Me.Panel1.Controls.Add(Me.lblWarningAbgangort) + Me.Panel1.Controls.Add(Me.lblDistanzEU) + Me.Panel1.Controls.Add(Me.lblWarningNichtEUAnteil) + Me.Panel1.Controls.Add(Me.lblGewicht) + Me.Panel1.Controls.Add(Me.lblWarningEUAnteil) + Me.Panel1.Controls.Add(Me.lblGesamtfrachkosten) + Me.Panel1.Controls.Add(Me.txbFactor) + Me.Panel1.Controls.Add(Me.btnCalculate) + Me.Panel1.Controls.Add(Me.lblFaktor) + Me.Panel1.Controls.Add(Me.txbVonOrt) + Me.Panel1.Controls.Add(Me.tbxGesamtfrachtkosten) + Me.Panel1.Controls.Add(Me.txbNachOrt) + Me.Panel1.Controls.Add(Me.txbGewicht) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.txbCalcDistanceEU) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.Label4) + 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.TabIndex = 0 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.Panel2) + 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.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.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.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.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.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(377, 375) + Me.Panel2.TabIndex = 0 + ' + 'Label28 + ' + 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" + ' + 'txbCalcDistanceNichtEU2 + ' + 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 + ' + '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.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.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 + 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 + ' + 'Panel5 + ' + Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel5.Location = New System.Drawing.Point(6, 148) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(350, 2) + Me.Panel5.TabIndex = 86 + ' + 'MyTextBox1 + ' + 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 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(61, 45) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(10, 13) + Me.Label5.TabIndex = 118 + Me.Label5.Text = "." + ' + 'Label6 + ' + 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.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 + Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.Location = New System.Drawing.Point(3, 3) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(108, 13) + Me.Label27.TabIndex = 78 + Me.Label27.Text = "Kostenaufstellung" + ' + 'txtATLAS + ' + 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 + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(3, 157) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(149, 13) + Me.Label21.TabIndex = 93 + Me.Label21.Text = "Berechnungsgrundlage EUST" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(3, 132) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(147, 13) + Me.Label22.TabIndex = 91 + Me.Label22.Text = "Berechnungsgrundlage ZOLL" + ' + 'txtWeitereTarifPos + ' + 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" + ' + 'txtVerzollungskosten + ' + Me.txtVerzollungskosten._DateTimeOnly = False + Me.txtVerzollungskosten._numbersOnly = False + Me.txtVerzollungskosten._numbersOnlyKommastellen = "" + Me.txtVerzollungskosten._numbersOnlyTrennzeichen = True + Me.txtVerzollungskosten._Prozent = False + Me.txtVerzollungskosten._ShortDateNew = False + Me.txtVerzollungskosten._ShortDateOnly = False + Me.txtVerzollungskosten._TimeOnly = False + Me.txtVerzollungskosten._TimeOnly_Seconds = False + Me.txtVerzollungskosten._value = "" + 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.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.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.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(51, 13) + Me.Label23.TabIndex = 89 + Me.Label23.Text = "enth. Zoll" + ' + 'Label13 + ' + 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" + ' + 'txtEust2 + ' + 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 + ' + 'txtClearing + ' + 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 + ' + '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.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.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.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(350, 2) + Me.Panel3.TabIndex = 85 + ' + 'Panel4 + ' + 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 + ' + 'btnCancel + ' + Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnCancel.Location = New System.Drawing.Point(7, 344) + Me.btnCancel.Name = "btnCancel" + Me.btnCancel.Size = New System.Drawing.Size(75, 23) + Me.btnCancel.TabIndex = 75 + Me.btnCancel.Text = "Abbrechen" + Me.btnCancel.UseVisualStyleBackColor = True + ' + 'btnOK + ' + 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.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(75, 23) + Me.btnOK.TabIndex = 76 + Me.btnOK.Text = "OK" + Me.btnOK.UseVisualStyleBackColor = True + ' + 'usrcntlFrachtkostenberechnung + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.btnCancel) + Me.Controls.Add(Me.btnOK) + Me.Controls.Add(Me.TabControl1) + Me.Name = "usrcntlFrachtkostenberechnung" + Me.Size = New System.Drawing.Size(386, 372) + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents cbxLandNach As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxLandVon As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents ckbManAnteilsermittlung As CheckBox + Friend WithEvents txbCalcDistanceNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblDistanzNichtEU As Label + Friend WithEvents tbNichtEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents tbEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblWarningFaktor As Label + Friend WithEvents lblWarningBestimmungsort As Label + Friend WithEvents lblWarningAbgangort As Label + Friend WithEvents lblWarningNichtEUAnteil As Label + Friend WithEvents lblWarningEUAnteil As Label + Friend WithEvents txbFactor As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblFaktor As Label + Friend WithEvents tbxGesamtfrachtkosten As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txbGewicht As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txbCalcDistanceEU As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents txbNachOrt As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txbVonOrt As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnCalculate As Button + Friend WithEvents lblGesamtfrachkosten As Label + Friend WithEvents lblGewicht As Label + Friend WithEvents lblDistanzEU As Label + Friend WithEvents txbNachPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txbVonPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblNichtEUAnteil As Label + Friend WithEvents lblEUAnteil As Label + Friend WithEvents tbNichtEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents tbEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblNach As Label + Friend WithEvents lblVon As Label + Friend WithEvents TabControl1 As TabControl + Friend WithEvents TabPage1 As TabPage + Friend WithEvents TabPage2 As TabPage + 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 + 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 + 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 + 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 +End Class diff --git a/Aviso/usrcntlFrachtkostenberechnung.resx b/Aviso/usrcntlFrachtkostenberechnung.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Aviso/usrcntlFrachtkostenberechnung.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Aviso/usrcntlFrachtkostenberechnung.vb b/Aviso/usrcntlFrachtkostenberechnung.vb new file mode 100644 index 0000000..81bf039 --- /dev/null +++ b/Aviso/usrcntlFrachtkostenberechnung.vb @@ -0,0 +1,325 @@ +Public Class usrcntlFrachtkostenberechnung + + + Dim absenderID As Integer = -1 + Dim empfaengerID As Integer = -1 + Dim origin As String + Dim destination As String + Dim ware As String + Public EUAnteil As Double + Public nichtEUAnteil As Double + Dim gewicht As Double + Dim gesamtFrachtkosten As Double + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + 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 + + + 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 + + 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 + + + + '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() + + + End Sub + + Sub calculateFreight() + + 'resetInputFields() + setControlEUAnteile() + + origin = IIf(cbxLandVon._value <> "", cbxLandVon.Text.Replace(cbxLandVon._value & " -", "").Trim(), "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "") + destination = IIf(cbxLandNach._value <> "", cbxLandNach.Text.Replace(cbxLandNach._value & " -", "").Trim(), "") & " " & IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "") + + Dim getValues = True + Dim twoRouteRequest As Boolean = False + Dim duration = "" + Dim distance = "" + Dim durationEU = "" + Dim distanceEU = "" + + + If cbxLandVon._value = "TR" AndAlso ckbManAnteilsermittlung.Checked Then + + twoRouteRequest = True + 'Kapitan Andreevo ist EU Grenze für Lieferungen aus der Türkei + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Kapitan Andreevo", duration, distance,, getValues) + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues) + + ElseIf cbxLandVon._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then + twoRouteRequest = True + 'Horgoš ist EU Grenze für Lieferungen von Serbien + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues) + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues) + + + ElseIf cbxLandNach._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then + twoRouteRequest = True + 'Horgoš ist EU Grenze für Lieferungen aus Serbien + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues) + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues) + + + + ElseIf cbxLandNach._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then + twoRouteRequest = True + 'Dover ist EU Grenze für Lieferungen nach England + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", durationEU, distanceEU,, getValues) + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, duration, distance,, getValues) + + ElseIf cbxLandVon._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then + twoRouteRequest = True + 'Dover ist EU Grenze für Lieferungen aus England + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", duration, distance,, getValues) + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, durationEU, distanceEU,, getValues) + + End If + + If twoRouteRequest = True AndAlso ckbManAnteilsermittlung.Checked Then + + lblDistanzEU.Text = "EU-Distanz" + lblDistanzNichtEU.Visible = True + txbCalcDistanceNichtEU.Visible = True + + Try + + If (IsNumeric(distanceEU)) Then + IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU) + txbCalcDistanceEU._value = IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU) + Else + distanceEU = "0" + + MsgBox("Standort vom Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbNachPLZ._value & " " & txbNachOrt._value & " prüfen") + Exit Sub + + End If + + If (IsNumeric(distance)) Then + txbCalcDistanceNichtEU._value = IIf(CInt(distance) > 1000, Math.Round(CInt(distance) / 1000, 0), CInt(distance)) + Else + distance = "0" + MsgBox("Standort vom Abgangsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbVonPLZ._value & " " & txbVonOrt._value & " prüfen") + Exit Sub + End If + + Dim totalDistance = CDbl(distance) + CDbl(distanceEU) + + Dim distanceNotEUpercent = CDbl(distance) * 100 / totalDistance + Dim distanceEUpercent = CDbl(distanceEU) * 100 / totalDistance + + Math.Round(distanceNotEUpercent, 2) + Math.Round(distanceEUpercent, 2) + + tbEUAnteil._value = CDbl(distanceEUpercent) / 100 + tbNichtEUAnteil._value = CDbl(distanceNotEUpercent) / 100 + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + ElseIf ckbManAnteilsermittlung.Checked Then + + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance) + + tbEUAnteil._value = 0.6 + tbNichtEUAnteil._value = 0.4 + If distance = "0" Or distance = "" Then + MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen") + End If + lblDistanzEU.Text = "Distanz" + txbCalcDistanceEU._value = distance + lblDistanzNichtEU.Visible = False + txbCalcDistanceNichtEU.Visible = False + + Else + + lblDistanzEU.Text = "Distanz" + txbCalcDistanceEU._value = distance + lblDistanzNichtEU.Visible = False + txbCalcDistanceNichtEU.Visible = False + + End If + + + End Sub + + Sub calculateFreightCosts() + + Try + + If gesamtFrachtkosten = 0 Then + + gesamtFrachtkosten = gewicht * CDbl(txbFactor._value) + tbxGesamtfrachtkosten._value = gesamtFrachtkosten + + End If + + + tbxGesamtfrachtkosten._value = gesamtFrachtkosten + EUAnteil = gesamtFrachtkosten * tbEUAnteil._value + nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value) + tbEUAnteilberechnet._value = CStr(EUAnteil) + tbNichtEUAnteilberechnet._value = CStr(nichtEUAnteil) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Function checkInputFields() As Boolean + + Dim isFilled As Boolean = True + + lblWarningAbgangort.Visible = False + lblWarningBestimmungsort.Visible = False + lblWarningEUAnteil.Visible = False + lblWarningNichtEUAnteil.Visible = False + btnOK.DialogResult = DialogResult.OK + + If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then + lblWarningEUAnteil.Visible = True + btnOK.DialogResult = DialogResult.OK + isFilled = False + End If + + If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then + lblWarningNichtEUAnteil.Visible = True + btnOK.DialogResult = DialogResult.OK + isFilled = False + End If + + If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then + 'Hinweis INPUT false + End If + + If (txbVonOrt._value = "" And txbVonPLZ._value = "") Then + lblWarningAbgangort.Visible = True + btnOK.DialogResult = DialogResult.OK + isFilled = False + End If + + If (txbNachOrt._value = "" And txbNachPLZ._value = "") Then + lblWarningBestimmungsort.Visible = True + btnOK.DialogResult = DialogResult.OK + isFilled = False + End If + + Return isFilled + + End Function + + + Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click + + If (checkInputFields() = False) Then Exit Sub + calculateFreight() + If (checkInputFields() = False) Then Exit Sub + calculateFreightCosts() + + End Sub + + + + Private Sub resetInputFields() + txbCalcDistanceEU.Clear() + txbCalcDistanceNichtEU.Clear() + tbEUAnteilberechnet.Clear() + tbNichtEUAnteilberechnet.Clear() + If tbEUAnteil._value = "" Then tbEUAnteil._value = 0 + If tbNichtEUAnteil._value = "" Then tbNichtEUAnteil._value = 0 + + End Sub + + Private Sub setControlEUAnteile() + If ckbManAnteilsermittlung.Checked Then + tbEUAnteil.Enabled = False + tbNichtEUAnteil.Enabled = False + Else + tbEUAnteil.Enabled = True + tbNichtEUAnteil.Enabled = True + resetInputFields() + End If + + 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 + + tbEUAnteilberechnet2.Text = txbCalcDistanceNichtEU.Text + tbNichtEUAnteilberechnet22.Text = tbNichtEUAnteilberechnet.Text + + tbEUAnteil2.Text = tbEUAnteil.Text + tbNichtEUAnteil2.Text = tbNichtEUAnteil.Text + + End Sub +End Class