Frachtkostenberechnung und ATEZ-API

2023-08-21 16:12:01 +02:00
parent a784a66b57
commit 0fc4063b19
12 changed files with 2706 additions and 1281 deletions
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -995,6 +995,12 @@
    <Compile Include="UsrCntlEssensbestellungen.vb">
      <SubType>UserControl</SubType>
    </Compile>
    <Compile Include="usrcntlFrachtkostenberechnung.Designer.vb">
      <DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
    </Compile>
    <Compile Include="usrcntlFrachtkostenberechnung.vb">
      <SubType>UserControl</SubType>
    </Compile>
    <Compile Include="usrcntlSendungDetailsAbrechnung.Designer.vb">
      <DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
    </Compile>
@@ -1356,6 +1362,9 @@
    <EmbeddedResource Include="UsrCntlEssensbestellungen.resx">
      <DependentUpon>UsrCntlEssensbestellungen.vb</DependentUpon>
    </EmbeddedResource>
    <EmbeddedResource Include="usrcntlFrachtkostenberechnung.resx">
      <DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
    </EmbeddedResource>
    <EmbeddedResource Include="usrcntlSendungDetailsAbrechnung.resx">
      <DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
    </EmbeddedResource>
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
-<Assembly: AssemblyVersion("3.8.9.9")>
+<Assembly: AssemblyVersion("3.9.0.7")>
-<Assembly: AssemblyFileVersion("3.8.9.9")>
+<Assembly: AssemblyFileVersion("3.9.0.7")>
--- 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.pnlHead = New System.Windows.Forms.Panel()
-        Me.Label4 = New System.Windows.Forms.Label()
+        Me.lblInfo = 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.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.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.Label3.Name = "Label3"
+        Me.pnlHead.Controls.Add(Me.lblInfo)
-        Me.Label3.Size = New System.Drawing.Size(103, 17)
+        Me.pnlHead.Controls.Add(Me.Label6)
-        Me.Label3.TabIndex = 42
+        Me.pnlHead.Controls.Add(Me.Label8)
-        Me.Label3.Text = "LKW-KZ:"
+        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.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Name = "Label4"
+        Me.lblInfo.ForeColor = System.Drawing.Color.Red
-        Me.Label4.Size = New System.Drawing.Size(121, 17)
+        Me.lblInfo.Location = New System.Drawing.Point(10, 27)
-        Me.Label4.TabIndex = 44
+        Me.lblInfo.Name = "lblInfo"
-        Me.Label4.Text = "Bestimmungs-Zollstelle:"
+        Me.lblInfo.Size = New System.Drawing.Size(460, 27)
        Me.lblInfo.TabIndex = 148
        '
-        'lklRoutenauswahl
+        'Label6
        '
-        Me.lklRoutenauswahl.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(10, 562)
-        Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label6.Name = "Label6"
-        Me.lklRoutenauswahl.Location = New System.Drawing.Point(394, 483)
+        Me.Label6.Size = New System.Drawing.Size(135, 13)
-        Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
+        Me.Label6.TabIndex = 147
-        Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
+        Me.Label6.Text = "Dokumente:"
        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
        '
        '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.txtDyMandant.BackColor = System.Drawing.Color.White
-        Me.lblInfo.ForeColor = System.Drawing.Color.Red
+        Me.txtDyMandant.Location = New System.Drawing.Point(2, 2)
-        Me.lblInfo.Location = New System.Drawing.Point(12, 32)
+        Me.txtDyMandant.Name = "txtDyMandant"
-        Me.lblInfo.Name = "lblInfo"
+        Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
-        Me.lblInfo.Size = New System.Drawing.Size(460, 27)
+        Me.txtDyMandant.TabIndex = 109
-        Me.lblInfo.TabIndex = 105
+        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.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.Controls.Add(Me.lblInfo)
+        Me.ClientSize = New System.Drawing.Size(484, 769)
-        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.pnlHead)
        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.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 pnlHead As Panel
-    Friend WithEvents columnName As DataGridViewTextBoxColumn
+    Friend WithEvents lblInfo As Label
-    Friend WithEvents Label3 As Label
+    Friend WithEvents Label6 As Label
-    Friend WithEvents Label4 As Label
+    Friend WithEvents Label8 As Label
-    Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    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 Label4 As Label
-    Friend WithEvents sbDurchgangszollstelle9 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
-    Friend WithEvents sbDurchgangszollstelle8 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label3 As Label
-    Friend WithEvents sbDurchgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
-    Friend WithEvents sbDurchgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents columnName As DataGridViewTextBoxColumn
-    Friend WithEvents sbDurchgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label9 As Label
-    Friend WithEvents sbDurchgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
-    Friend WithEvents sbDurchgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents txtDyMandant As Label
-    Friend WithEvents sbDurchgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label1 As Label
-    Friend WithEvents Label5 As Label
+    Friend WithEvents txtDyNiederlassung As Label
-    Friend WithEvents lblC As Label
+    Friend WithEvents lblBezugsnummer 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
 End Class
--- 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
+            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)
            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
        Else
-            atezData.status = "Sent"
+
-            atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
+            lblInfo.Text = ""
-            atezData.SAVE()
+            Dim failreDesc As String
-            Me.Close()
+
            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)
+        If openExisting Then
-        cboStammreferenz.changeItem("")
+            Button1.Text = "JSON"
-        getBezugsnr(BezugsNr)
+            If id > 0 Then
-        txtLKWId.Text = AVISO.LKW_Nr
+                Dim atez_data = New cATEZ_NCTS_DATA(id)
-        cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
+                lblInfo.Text = "Atez-ID " & atez_data.atezId
        txtTransporttemp.Text = AVISO.TransportTemperatur
-        If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
+                lblBezugsnummer.Text = atez_data.VERAG_LRN
-            usrCntl_Carrier.kdFirma.initKdBox(Me)
+                cboStammreferenz._value = atez_data.SendungsId
-            usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr
+
-        End If
+                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)
+            Button1.Text = "An ATEZ senden -->"
-            If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+            pnlHead.Enabled = True
-                If GRZ.grz_ZollamtDST IsNot Nothing Then
+
-                    sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
+            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
--- 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.UsrcntlFrachtkostenberechnung1 = New usrcntlFrachtkostenberechnung()
        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.SuspendLayout()
        '
-        'lblVon
+        'UsrcntlFrachtkostenberechnung1
        '
-        Me.lblVon.AutoSize = True
+        Me.UsrcntlFrachtkostenberechnung1.Location = New System.Drawing.Point(12, 12)
-        Me.lblVon.Location = New System.Drawing.Point(5, 9)
+        Me.UsrcntlFrachtkostenberechnung1.Name = "UsrcntlFrachtkostenberechnung1"
-        Me.lblVon.Name = "lblVon"
+        Me.UsrcntlFrachtkostenberechnung1.Size = New System.Drawing.Size(386, 393)
-        Me.lblVon.Size = New System.Drawing.Size(64, 13)
+        Me.UsrcntlFrachtkostenberechnung1.TabIndex = 37
        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
        '
        '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.ClientSize = New System.Drawing.Size(405, 395)
-        Me.Controls.Add(Me.cbxLandNach)
+        Me.Controls.Add(Me.UsrcntlFrachtkostenberechnung1)
        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.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 UsrcntlFrachtkostenberechnung1 As usrcntlFrachtkostenberechnung
    Friend WithEvents cbxLandNach As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class
--- 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 absenderID As Integer = -1
-    Dim empfaengerID As Integer = -1
+    'Dim empfaengerID As Integer = -1
-    Dim origin As String
+    'Dim origin As String
-    Dim destination As String
+    'Dim destination As String
-    Public EUAnteil As Double
+    'Public EUAnteil As Double
-    Public nichtEUAnteil As Double
+    'Public nichtEUAnteil As Double
-    Dim gewicht As Double
+    'Dim gewicht As Double
-    Dim gesamtFrachtkosten As Double
+    'Dim gesamtFrachtkosten As Double
-    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+    '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)
+            'If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then
-                tbxGesamtfrachtkosten._value = gesamtFrachtkosten
+            '    gesamtFrachtkosten = CDbl(gesamtfrachtkostenInput)
-            Else
+            '    tbxGesamtfrachtkosten._value = gesamtFrachtkosten
-                gesamtFrachtkosten = 0
+            'Else
-            End If
+            '    gesamtFrachtkosten = 0
            'End If
-            If gewichtInput IsNot Nothing AndAlso gewichtInput.ToString <> "" AndAlso IsNumeric(gewichtInput) Then
+            'If gewichtInput IsNot Nothing AndAlso gewichtInput.ToString <> "" AndAlso IsNumeric(gewichtInput) Then
-                gewicht = CDbl(gewichtInput)
+            '    gewicht = CDbl(gewichtInput)
-            Else
+            'Else
-                gewicht = 0
+            '    gewicht = 0
-            End If
+            'End If
-            If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then
+            'If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then
-                absenderID = CInt(absID)
+            '    absenderID = CInt(absID)
-            Else
+            'Else
-                absenderID = -1
+            '    absenderID = -1
-            End If
+            '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)
+            '    empfaengerID = Int(empfID)
-            Else
+            'Else
-                empfaengerID = -1
+            '    empfaengerID = -1
-            End If
+            '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(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 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", ""))
+    '    cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", ""))
-        txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'')  FROM [Adressen] where 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")
+    '    txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL")
-        cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
+    '    cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
-        cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", ""))
+    '    cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", ""))
-        txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [Adressen] where 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")
+    '    txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL")
-        ckbManAnteilsermittlung.Checked = True
+    '    ckbManAnteilsermittlung.Checked = True
-        tbEUAnteil._value = 0
+    '    tbEUAnteil._value = 0
-        tbNichtEUAnteil._value = 0
+    '    tbNichtEUAnteil._value = 0
-        txbGewicht._value = gewicht.ToString
+    '    txbGewicht._value = gewicht.ToString
-        txbFactor._value = 0.15
+    '    txbFactor._value = 0.15
-        checkInputFields()
+    '    checkInputFields()
-    End Sub
+    'End Sub
-    Sub calculateFreight()
+    'Sub calculateFreight()
-        'resetInputFields()
+    '    'resetInputFields()
-        setControlEUAnteile()
+    '    setControlEUAnteile()
-        origin = IIf(cbxLandVon._value <> "", cbxLandVon.Text.Replace(cbxLandVon._value & " -", "").Trim(), "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._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, "")
+    '    destination = IIf(cbxLandNach._value <> "", cbxLandNach.Text.Replace(cbxLandNach._value & " -", "").Trim(), "") & " " & IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
-        Dim getValues = True
+    '    Dim getValues = True
-        Dim twoRouteRequest As Boolean = False
+    '    Dim twoRouteRequest As Boolean = False
-        Dim duration = ""
+    '    Dim duration = ""
-        Dim distance = ""
+    '    Dim distance = ""
-        Dim durationEU = ""
+    '    Dim durationEU = ""
-        Dim distanceEU = ""
+    '    Dim distanceEU = ""
-        If cbxLandVon._value = "TR" AndAlso ckbManAnteilsermittlung.Checked Then
+    '    If cbxLandVon._value = "TR" AndAlso ckbManAnteilsermittlung.Checked Then
-            twoRouteRequest = True
+    '        twoRouteRequest = True
-            'Kapitan Andreevo ist EU Grenze für Lieferungen aus der Türkei
+    '        '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(origin, "Kapitan Andreevo", duration, distance,, getValues)
-            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues)
+    '        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues)
-        ElseIf cbxLandVon._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then
+    '    ElseIf cbxLandVon._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then
-            twoRouteRequest = True
+    '        twoRouteRequest = True
-            'Horgoš ist EU Grenze für Lieferungen aus Serbien
+    '        'Horgoš ist EU Grenze für Lieferungen aus Serbien
-            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues)
+    '        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues)
-            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues)
+    '        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues)
-        ElseIf cbxLandNach._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
+    '    ElseIf cbxLandNach._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
-            twoRouteRequest = True
+    '        twoRouteRequest = True
-            'Dover ist EU Grenze für Lieferungen nach England
+    '        'Dover ist EU Grenze für Lieferungen nach England
-            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", durationEU, distanceEU,, getValues)
+    '        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", durationEU, distanceEU,, getValues)
-            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, duration, distance,, getValues)
+    '        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, duration, distance,, getValues)
-        ElseIf cbxLandVon._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
+    '    ElseIf cbxLandVon._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
-            twoRouteRequest = True
+    '        twoRouteRequest = True
-            'Dover ist EU Grenze für Lieferungen aus England
+    '        'Dover ist EU Grenze für Lieferungen aus England
-            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", duration, distance,, getValues)
+    '        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", duration, distance,, getValues)
-            VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, durationEU, distanceEU,, 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"
+    '        lblDistanzEU.Text = "EU-Distanz"
-            lblDistanzNichtEU.Visible = True
+    '        lblDistanzNichtEU.Visible = True
-            txbCalcDistanceNichtEU.Visible = True
+    '        txbCalcDistanceNichtEU.Visible = True
-            Try
+    '        Try
-                If (IsNumeric(distanceEU)) Then
+    '            If (IsNumeric(distanceEU)) Then
-                    IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
+    '                IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
-                    txbCalcDistanceEU._value = IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
+    '                txbCalcDistanceEU._value = IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
-                Else
+    '            Else
-                    distanceEU = "0"
+    '                distanceEU = "0"
-                    MsgBox("Standort vom Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbNachPLZ._value & " " & txbNachOrt._value & " prüfen")
+    '                MsgBox("Standort vom Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbNachPLZ._value & " " & txbNachOrt._value & " prüfen")
-                    Exit Sub
+    '                Exit Sub
-                End If
+    '            End If
-                If (IsNumeric(distance)) Then
+    '            If (IsNumeric(distance)) Then
-                    txbCalcDistanceNichtEU._value = IIf(CInt(distance) > 1000, Math.Round(CInt(distance) / 1000, 0), CInt(distance))
+    '                txbCalcDistanceNichtEU._value = IIf(CInt(distance) > 1000, Math.Round(CInt(distance) / 1000, 0), CInt(distance))
-                Else
+    '            Else
-                    distance = "0"
+    '                distance = "0"
-                    MsgBox("Standort vom Abgangsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbVonPLZ._value & " " & txbVonOrt._value & " prüfen")
+    '                MsgBox("Standort vom Abgangsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbVonPLZ._value & " " & txbVonOrt._value & " prüfen")
-                    Exit Sub
+    '                Exit Sub
-                End If
+    '            End If
-                Dim totalDistance = CDbl(distance) + CDbl(distanceEU)
+    '            Dim totalDistance = CDbl(distance) + CDbl(distanceEU)
-                Dim distanceNotEUpercent = CDbl(distance) * 100 / totalDistance
+    '            Dim distanceNotEUpercent = CDbl(distance) * 100 / totalDistance
-                Dim distanceEUpercent = CDbl(distanceEU) * 100 / totalDistance
+    '            Dim distanceEUpercent = CDbl(distanceEU) * 100 / totalDistance
-                Math.Round(distanceNotEUpercent, 2)
+    '            Math.Round(distanceNotEUpercent, 2)
-                Math.Round(distanceEUpercent, 2)
+    '            Math.Round(distanceEUpercent, 2)
-                tbEUAnteil._value = CDbl(distanceEUpercent) / 100
+    '            tbEUAnteil._value = CDbl(distanceEUpercent) / 100
-                tbNichtEUAnteil._value = CDbl(distanceNotEUpercent) / 100
+    '            tbNichtEUAnteil._value = CDbl(distanceNotEUpercent) / 100
-            Catch ex As Exception
+    '        Catch ex As Exception
-                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+    '            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-            End Try
+    '        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
+    '        tbEUAnteil._value = 0.6
-            tbNichtEUAnteil._value = 0.4
+    '        tbNichtEUAnteil._value = 0.4
-            If distance = "0" Or distance = "" Then
+    '        If distance = "0" Or distance = "" Then
-                MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen")
+    '            MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen")
-            End If
+    '        End If
-            lblDistanzEU.Text = "Distanz"
+    '        lblDistanzEU.Text = "Distanz"
-                txbCalcDistanceEU._value = distance
+    '            txbCalcDistanceEU._value = distance
-                lblDistanzNichtEU.Visible = False
+    '            lblDistanzNichtEU.Visible = False
-                txbCalcDistanceNichtEU.Visible = False
+    '            txbCalcDistanceNichtEU.Visible = False
-            Else
+    '        Else
-                lblDistanzEU.Text = "Distanz"
+    '            lblDistanzEU.Text = "Distanz"
-            txbCalcDistanceEU._value = distance
+    '        txbCalcDistanceEU._value = distance
-            lblDistanzNichtEU.Visible = False
+    '        lblDistanzNichtEU.Visible = False
-            txbCalcDistanceNichtEU.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)
+    '            gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
-                tbxGesamtfrachtkosten._value = gesamtFrachtkosten
+    '            tbxGesamtfrachtkosten._value = gesamtFrachtkosten
-            End If
+    '        End If
-            tbxGesamtfrachtkosten._value = gesamtFrachtkosten
+    '        tbxGesamtfrachtkosten._value = gesamtFrachtkosten
-            EUAnteil = gesamtFrachtkosten * tbEUAnteil._value
+    '        EUAnteil = gesamtFrachtkosten * tbEUAnteil._value
-            nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value)
+    '        nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value)
-            tbEUAnteilberechnet._value = CStr(EUAnteil)
+    '        tbEUAnteilberechnet._value = CStr(EUAnteil)
-            tbNichtEUAnteilberechnet._value = CStr(nichtEUAnteil)
+    '        tbNichtEUAnteilberechnet._value = CStr(nichtEUAnteil)
-        Catch ex As Exception
+    '    Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+    '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-        End Try
+    '    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
+    '    lblWarningAbgangort.Visible = False
-        lblWarningBestimmungsort.Visible = False
+    '    lblWarningBestimmungsort.Visible = False
-        lblWarningEUAnteil.Visible = False
+    '    lblWarningEUAnteil.Visible = False
-        lblWarningNichtEUAnteil.Visible = False
+    '    lblWarningNichtEUAnteil.Visible = False
-        btnOK.DialogResult = DialogResult.OK
+    '    btnOK.DialogResult = DialogResult.OK
-        If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then
+    '    If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then
-            lblWarningEUAnteil.Visible = True
+    '        lblWarningEUAnteil.Visible = True
-            btnOK.DialogResult = DialogResult.OK
+    '        btnOK.DialogResult = DialogResult.OK
-            isFilled = False
+    '        isFilled = False
-        End If
+    '    End If
-        If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then
+    '    If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then
-            lblWarningNichtEUAnteil.Visible = True
+    '        lblWarningNichtEUAnteil.Visible = True
-            btnOK.DialogResult = DialogResult.OK
+    '        btnOK.DialogResult = DialogResult.OK
-            isFilled = False
+    '        isFilled = False
-        End If
+    '    End If
-        If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then
+    '    If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then
-            'Hinweis INPUT false
+    '        'Hinweis INPUT false
-        End If
+    '    End If
-        If (txbVonOrt._value = "" And txbVonPLZ._value = "") Then
+    '    If (txbVonOrt._value = "" And txbVonPLZ._value = "") Then
-            lblWarningAbgangort.Visible = True
+    '        lblWarningAbgangort.Visible = True
-            btnOK.DialogResult = DialogResult.OK
+    '        btnOK.DialogResult = DialogResult.OK
-            isFilled = False
+    '        isFilled = False
-        End If
+    '    End If
-        If (txbNachOrt._value = "" And txbNachPLZ._value = "") Then
+    '    If (txbNachOrt._value = "" And txbNachPLZ._value = "") Then
-            lblWarningBestimmungsort.Visible = True
+    '        lblWarningBestimmungsort.Visible = True
-            btnOK.DialogResult = DialogResult.OK
+    '        btnOK.DialogResult = DialogResult.OK
-            isFilled = False
+    '        isFilled = False
-        End If
+    '    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
+    '    If (checkInputFields() = False) Then Exit Sub
-        calculateFreight()
+    '    calculateFreight()
-        If (checkInputFields() = False) Then Exit Sub
+    '    If (checkInputFields() = False) Then Exit Sub
-        calculateFreightCosts()
+    '    calculateFreightCosts()
-    End Sub
+    'End Sub
-    Private Sub resetInputFields()
+    'Private Sub resetInputFields()
-        txbCalcDistanceEU.Clear()
+    '    txbCalcDistanceEU.Clear()
-        txbCalcDistanceNichtEU.Clear()
+    '    txbCalcDistanceNichtEU.Clear()
-        tbEUAnteilberechnet.Clear()
+    '    tbEUAnteilberechnet.Clear()
-        tbNichtEUAnteilberechnet.Clear()
+    '    tbNichtEUAnteilberechnet.Clear()
-        If tbEUAnteil._value = "" Then tbEUAnteil._value = 0
+    '    If tbEUAnteil._value = "" Then tbEUAnteil._value = 0
-        If tbNichtEUAnteil._value = "" Then tbNichtEUAnteil._value = 0
+    '    If tbNichtEUAnteil._value = "" Then tbNichtEUAnteil._value = 0
-    End Sub
+    'End Sub
-    Private Sub setControlEUAnteile()
+    'Private Sub setControlEUAnteile()
-        If ckbManAnteilsermittlung.Checked Then
+    '    If ckbManAnteilsermittlung.Checked Then
-            tbEUAnteil.Enabled = False
+    '        tbEUAnteil.Enabled = False
-            tbNichtEUAnteil.Enabled = False
+    '        tbNichtEUAnteil.Enabled = False
-        Else
+    '    Else
-            tbEUAnteil.Enabled = True
+    '        tbEUAnteil.Enabled = True
-            tbNichtEUAnteil.Enabled = True
+    '        tbNichtEUAnteil.Enabled = True
-            resetInputFields()
+    '        resetInputFields()
-        End If
+    '    End If
-    End Sub
+    'End Sub
-    Private Sub ckbManAnteilsermittlung_CheckStateChanged(sender As Object, e As EventArgs) Handles ckbManAnteilsermittlung.CheckStateChanged
+    'Private Sub ckbManAnteilsermittlung_CheckStateChanged(sender As Object, e As EventArgs) Handles ckbManAnteilsermittlung.CheckStateChanged
-        setControlEUAnteile()
+    '    setControlEUAnteile()
-    End Sub
+    'End Sub
 End Class
--- 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
-        If frachkosten.ShowDialog() = DialogResult.OK Then
+            'txtFrachtkostenEU._value = frachkosten.usrcntlFrachtkostenberechnung.EUAnteil
-            txtFrachtkostenEU._value = frachkosten.EUAnteil
+            'txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
-            txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
+            'txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value
            txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value
        End If
    End Sub
--- 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!)
--- 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
--- a/Aviso/usrcntlFrachtkostenberechnung.Designer.vb
+++ b/Aviso/usrcntlFrachtkostenberechnung.Designer.vb
--- a/Aviso/usrcntlFrachtkostenberechnung.resx
+++ b/Aviso/usrcntlFrachtkostenberechnung.resx
@@ -0,0 +1,120 @@
 <?xml version="1.0" encoding="utf-8"?>
 <root>
  <!-- 
    Microsoft ResX Schema 
    Version 2.0
    The primary goals of this format is to allow a simple XML format 
    that is mostly human readable. The generation and parsing of the 
    various data types are done through the TypeConverter classes 
    associated with the data types.
    Example:
    ... ado.net/XML headers & schema ...
    <resheader name="resmimetype">text/microsoft-resx</resheader>
    <resheader name="version">2.0</resheader>
    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
        <value>[base64 mime encoded serialized .NET Framework object]</value>
    </data>
    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
        <comment>This is a comment</comment>
    </data>
    There are any number of "resheader" rows that contain simple 
    name/value pairs.
    Each data row contains a name, and value. The row also contains a 
    type or mimetype. Type corresponds to a .NET class that support 
    text/value conversion through the TypeConverter architecture. 
    Classes that don't support this are serialized and stored with the 
    mimetype set.
    The mimetype is used for serialized objects, and tells the 
    ResXResourceReader how to depersist the object. This is currently not 
    extensible. For a given mimetype the value must be set accordingly:
    Note - application/x-microsoft.net.object.binary.base64 is the format 
    that the ResXResourceWriter will generate, however the reader can 
    read any of the formats listed below.
    mimetype: application/x-microsoft.net.object.binary.base64
    value   : The object must be serialized with 
            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            : and then encoded with base64 encoding.
    mimetype: application/x-microsoft.net.object.soap.base64
    value   : The object must be serialized with 
            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
            : and then encoded with base64 encoding.
    mimetype: application/x-microsoft.net.object.bytearray.base64
    value   : The object must be serialized into a byte array 
            : using a System.ComponentModel.TypeConverter
            : and then encoded with base64 encoding.
    -->
  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
    <xsd:element name="root" msdata:IsDataSet="true">
      <xsd:complexType>
        <xsd:choice maxOccurs="unbounded">
          <xsd:element name="metadata">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" />
              </xsd:sequence>
              <xsd:attribute name="name" use="required" type="xsd:string" />
              <xsd:attribute name="type" type="xsd:string" />
              <xsd:attribute name="mimetype" type="xsd:string" />
              <xsd:attribute ref="xml:space" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="assembly">
            <xsd:complexType>
              <xsd:attribute name="alias" type="xsd:string" />
              <xsd:attribute name="name" type="xsd:string" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="data">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
              <xsd:attribute ref="xml:space" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="resheader">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" use="required" />
            </xsd:complexType>
          </xsd:element>
        </xsd:choice>
      </xsd:complexType>
    </xsd:element>
  </xsd:schema>
  <resheader name="resmimetype">
    <value>text/microsoft-resx</value>
  </resheader>
  <resheader name="version">
    <value>2.0</value>
  </resheader>
  <resheader name="reader">
    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
 </root>
--- a/Aviso/usrcntlFrachtkostenberechnung.vb
+++ 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