diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index 2a52dbbd..e5585df6 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -964,6 +964,36 @@
     <Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\frmRoutenAuswahlDetails.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_EXIM_Allg.Designer.vb">
+      <DependentUpon>usrCntlModaltrans_EXIM_Allg.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_EXIM_Allg.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Position.Designer.vb">
+      <DependentUpon>usrCntlModaltrans_NCTS_Position.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Position.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Positionen.Designer.vb">
+      <DependentUpon>usrCntlModaltrans_NCTS_Positionen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Positionen.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Allg.Designer.vb">
+      <DependentUpon>usrCntlModaltrans_NCTS_Allg.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Allg.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Adressen.Designer.vb">
+      <DependentUpon>usrCntlModaltrans_NCTS_Adressen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Adressen.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\usrCntlATLAS_NCTS_Verschluesse.Designer.vb">
       <DependentUpon>usrCntlATLAS_NCTS_Verschluesse.vb</DependentUpon>
     </Compile>
@@ -1018,6 +1048,12 @@
     <Compile Include="ZOLLSYSTEM\DAKOSY\frmDakosy_SelFirma.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmModaltransStammreferenz.Designer.vb">
+      <DependentUpon>frmModaltransStammreferenz.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmModaltransStammreferenz.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmStammreferenzPopup.Designer.vb">
       <DependentUpon>frmStammreferenzPopup.vb</DependentUpon>
     </Compile>
@@ -3127,6 +3163,21 @@
     <EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\frmRoutenAuswahlDetails.resx">
       <DependentUpon>frmRoutenAuswahlDetails.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_EXIM_Allg.resx">
+      <DependentUpon>usrCntlModaltrans_EXIM_Allg.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Position.resx">
+      <DependentUpon>usrCntlModaltrans_NCTS_Position.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Positionen.resx">
+      <DependentUpon>usrCntlModaltrans_NCTS_Positionen.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Allg.resx">
+      <DependentUpon>usrCntlModaltrans_NCTS_Allg.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Adressen.resx">
+      <DependentUpon>usrCntlModaltrans_NCTS_Adressen.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\usrCntlATLAS_NCTS_Verschluesse.resx">
       <DependentUpon>usrCntlATLAS_NCTS_Verschluesse.vb</DependentUpon>
     </EmbeddedResource>
@@ -3154,6 +3205,9 @@
     <EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\frmDakosy_SelFirma.resx">
       <DependentUpon>frmDakosy_SelFirma.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmModaltransStammreferenz.resx">
+      <DependentUpon>frmModaltransStammreferenz.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmStammreferenzPopup.resx">
       <DependentUpon>frmStammreferenzPopup.vb</DependentUpon>
     </EmbeddedResource>
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.Designer.vb
new file mode 100644
index 00000000..4b5df6d2
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.Designer.vb
@@ -0,0 +1,271 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmModaltransStammreferenz
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmModaltransStammreferenz))
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.cboVerfahren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.lblVerfahren = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.dgvStammref = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.txtDyNiederlassung = New System.Windows.Forms.Label()
+        Me.txtDyMandant = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtSearch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        CType(Me.dgvStammref, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btnOK
+        '
+        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOK.Image = Global.SDL.My.Resources.Resources.android_note12
+        Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnOK.Location = New System.Drawing.Point(386, 581)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Padding = New System.Windows.Forms.Padding(0, 8, 0, 0)
+        Me.btnOK.Size = New System.Drawing.Size(197, 61)
+        Me.btnOK.TabIndex = 0
+        Me.btnOK.Text = "Antrag bearbeiten..."
+        Me.btnOK.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'cboVerfahren
+        '
+        Me.cboVerfahren._allowedValuesFreiText = Nothing
+        Me.cboVerfahren._allowFreiText = False
+        Me.cboVerfahren._value = ""
+        Me.cboVerfahren.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cboVerfahren.FormattingEnabled = True
+        Me.cboVerfahren.Location = New System.Drawing.Point(67, 31)
+        Me.cboVerfahren.Name = "cboVerfahren"
+        Me.cboVerfahren.Size = New System.Drawing.Size(718, 28)
+        Me.cboVerfahren.TabIndex = 2
+        '
+        'lblVerfahren
+        '
+        Me.lblVerfahren.AutoSize = True
+        Me.lblVerfahren.Location = New System.Drawing.Point(64, 15)
+        Me.lblVerfahren.Name = "lblVerfahren"
+        Me.lblVerfahren.Size = New System.Drawing.Size(56, 13)
+        Me.lblVerfahren.TabIndex = 3
+        Me.lblVerfahren.Text = "Verfahren:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 62)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(158, 13)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Modal-Stammreferenz (optional):"
+        '
+        'cboLand
+        '
+        Me.cboLand._allowedValuesFreiText = Nothing
+        Me.cboLand._allowFreiText = False
+        Me.cboLand._value = ""
+        Me.cboLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cboLand.FormattingEnabled = True
+        Me.cboLand.Location = New System.Drawing.Point(15, 31)
+        Me.cboLand.Name = "cboLand"
+        Me.cboLand.Size = New System.Drawing.Size(53, 28)
+        Me.cboLand.TabIndex = 4
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(12, 15)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(34, 13)
+        Me.Label2.TabIndex = 3
+        Me.Label2.Text = "Land:"
+        '
+        'dgvStammref
+        '
+        Me.dgvStammref.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvStammref.AllowUserToAddRows = False
+        Me.dgvStammref.AllowUserToDeleteRows = False
+        Me.dgvStammref.AllowUserToOrderColumns = True
+        Me.dgvStammref.AllowUserToResizeColumns = False
+        Me.dgvStammref.AllowUserToResizeRows = False
+        Me.dgvStammref.BackgroundColor = System.Drawing.Color.White
+        Me.dgvStammref.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvStammref.Location = New System.Drawing.Point(12, 78)
+        Me.dgvStammref.MultiSelect = False
+        Me.dgvStammref.Name = "dgvStammref"
+        Me.dgvStammref.ReadOnly = True
+        Me.dgvStammref.RowHeadersVisible = False
+        Me.dgvStammref.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvStammref.Size = New System.Drawing.Size(773, 263)
+        Me.dgvStammref.TabIndex = 13
+        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(9, 624)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(226, 13)
+        Me.Label3.TabIndex = 14
+        Me.Label3.Text = "-"
+        '
+        'Button1
+        '
+        Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.modaltrans_original
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button1.Location = New System.Drawing.Point(588, 581)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Padding = New System.Windows.Forms.Padding(0, 8, 0, 0)
+        Me.Button1.Size = New System.Drawing.Size(197, 61)
+        Me.Button1.TabIndex = 15
+        Me.Button1.Text = "Sofort senden -->"
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.Button1.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'txtDyNiederlassung
+        '
+        Me.txtDyNiederlassung.Location = New System.Drawing.Point(743, 9)
+        Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
+        Me.txtDyNiederlassung.Size = New System.Drawing.Size(42, 13)
+        Me.txtDyNiederlassung.TabIndex = 16
+        Me.txtDyNiederlassung.Text = "SUB"
+        '
+        'txtDyMandant
+        '
+        Me.txtDyMandant.Location = New System.Drawing.Point(689, 9)
+        Me.txtDyMandant.Name = "txtDyMandant"
+        Me.txtDyMandant.Size = New System.Drawing.Size(48, 13)
+        Me.txtDyMandant.TabIndex = 17
+        Me.txtDyMandant.Text = "VERG"
+        Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(12, 356)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(158, 13)
+        Me.Label5.TabIndex = 26
+        Me.Label5.Text = "Modal-Stammreferenz (optional):"
+        '
+        'txtSearch
+        '
+        Me.txtSearch._DateTimeOnly = False
+        Me.txtSearch._numbersOnly = False
+        Me.txtSearch._numbersOnlyKommastellen = ""
+        Me.txtSearch._numbersOnlyTrennzeichen = True
+        Me.txtSearch._Prozent = False
+        Me.txtSearch._ShortDateNew = False
+        Me.txtSearch._ShortDateOnly = False
+        Me.txtSearch._TimeOnly = False
+        Me.txtSearch._TimeOnly_Seconds = False
+        Me.txtSearch._value = ""
+        Me.txtSearch._Waehrung = False
+        Me.txtSearch._WaehrungZeichen = True
+        Me.txtSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtSearch.BackColor = System.Drawing.SystemColors.Info
+        Me.txtSearch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSearch.ForeColor = System.Drawing.Color.Black
+        Me.txtSearch.Location = New System.Drawing.Point(211, 347)
+        Me.txtSearch.MaxLineLength = -1
+        Me.txtSearch.MaxLines_Warning = ""
+        Me.txtSearch.MaxLines_Warning_Label = Nothing
+        Me.txtSearch.Name = "txtSearch"
+        Me.txtSearch.Size = New System.Drawing.Size(574, 26)
+        Me.txtSearch.TabIndex = 25
+        '
+        'MyDatagridview1
+        '
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.AllowUserToAddRows = False
+        Me.MyDatagridview1.AllowUserToDeleteRows = False
+        Me.MyDatagridview1.AllowUserToOrderColumns = True
+        Me.MyDatagridview1.AllowUserToResizeColumns = False
+        Me.MyDatagridview1.AllowUserToResizeRows = False
+        Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.Location = New System.Drawing.Point(12, 379)
+        Me.MyDatagridview1.MultiSelect = False
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.ReadOnly = True
+        Me.MyDatagridview1.RowHeadersVisible = False
+        Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.MyDatagridview1.Size = New System.Drawing.Size(773, 196)
+        Me.MyDatagridview1.TabIndex = 27
+        '
+        'frmModaltransStammreferenz
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(797, 654)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.MyDatagridview1)
+        Me.Controls.Add(Me.txtSearch)
+        Me.Controls.Add(Me.txtDyMandant)
+        Me.Controls.Add(Me.txtDyNiederlassung)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.cboLand)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.lblVerfahren)
+        Me.Controls.Add(Me.cboVerfahren)
+        Me.Controls.Add(Me.btnOK)
+        Me.Controls.Add(Me.dgvStammref)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmModaltransStammreferenz"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Stammreferenz"
+        CType(Me.dgvStammref, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents cboVerfahren As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents lblVerfahren As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents cboLand As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents dgvStammref As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label
+    Friend WithEvents txtDyMandant As System.Windows.Forms.Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents txtSearch As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+End Class
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.resx b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.resx
new file mode 100644
index 00000000..d584bd9e
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.resx
@@ -0,0 +1,980 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
+        AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
+        OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
+        //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
+        MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
+        v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
+        jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
+        mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
+        ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
+        y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
+        4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
+        p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
+        SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
+        y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
+        MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
+        //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
+        9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
+        ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
+        MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
+        //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
+        ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
+        1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
+        mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
+        MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
+        //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
+        9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
+        mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
+        //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
+        MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
+        MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
+        6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
+        ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
+        //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
+        MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
+        mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
+        //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
+        ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
+        ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
+        jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
+        ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
+        s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
+        ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
+        ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
+        //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
+        ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
+        ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
+        XUL/////////////////////////////////////////////////////////////////////////////
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
+        //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        ///////////////////////////////////////////////////////////////////////////d1tFm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
+        //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
+        1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
+        ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
+        ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
+        //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
+        //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
+        SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
+        6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
+        fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////Uy8XB
+        s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
+        //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
+        ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
+        mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
+        //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
+        //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
+        //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
+        v7j/////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////+Mblhm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
+        ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
+        ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
+        ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
+        ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
+        //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
+        //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
+        //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
+        ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3/////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////39fRmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
+        ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
+        ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
+        ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
+        ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT/////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////////L
+        v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
+        s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
+        ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
+        ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
+        //////////////////////////////////////////////////////////////////////////////+A
+        XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>
\ No newline at end of file
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.vb b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.vb
new file mode 100644
index 00000000..a2a50496
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.vb
@@ -0,0 +1,224 @@
+Public Class frmModaltransStammreferenz
+
+    Property STAMMREF = Nothing
+    Property STAMMREF_DYID As Integer = -1
+    Dim verfahren As String
+    Dim land As String
+    Public nl As String
+    Dim Kdnr As Object = Nothing
+    Property sentToDakosy As Boolean = False
+    Dim freetoselect = False
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Dim SelectNL = False
+    Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+    Sub New(land, verfahren, freetoselect, Optional Kdnr = Nothing, Optional nl = Nothing, Optional FIRMA_DY = "")
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.verfahren = verfahren
+        Me.land = land
+        Me.freetoselect = freetoselect
+        Me.Kdnr = Kdnr
+        Me.nl = nl
+
+        If FIRMA_DY <> "" Then Me.FIRMA_DY = FIRMA_DY
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub frmDakosyStammreferenz_Load(sender As Object, e As EventArgs) Handles Me.Load
+        SelectNL = False
+        Select Case FIRMA_DY
+            Case "VERAG" : txtDyMandant.Text = "VERG"
+                txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+            Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+            Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = If(nl <> "", nl, "IME")
+            Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSP"
+            Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" : SelectNL = True
+        End Select
+
+        cboVerfahren.Items.Clear()
+        cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NCTS - Declaration", "ncts"))
+        cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT - Declaration", "export"))
+        cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT - Declaration", "import"))
+        cboVerfahren.changeItem(verfahren)
+
+        cboLand.Items.Clear()
+        cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UK", "UK"))
+        cboLand.changeItem(land)
+
+
+        'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_ModaltransZA_Senden", "AVISO") Then
+        '    Button1.Enabled = False
+        'End If
+        'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Modaltrans_AVISO_Edit", "AVISO") Then
+        '    btnOK.Enabled = False
+        'End If
+
+        If Not freetoselect Then
+            cboVerfahren.Enabled = False
+            cboLand.Enabled = False
+        End If
+
+        If Kdnr IsNot Nothing AndAlso IsNumeric(Kdnr) Then
+            txtSearch.Text = Kdnr
+        End If
+    End Sub
+
+    Private Sub cboVerfahren_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVerfahren.SelectedIndexChanged, cboLand.SelectedIndexChanged
+        initDGV()
+    End Sub
+
+    Sub initDGV()
+        With dgvStammref
+            .Columns.Clear()
+            If cboLand._value <> "" And cboVerfahren._value <> "" Then
+
+                Dim where = " AND kdNr is null"
+
+                .RowTemplate.Height = 30
+                .RowTemplate.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, 10)
+                .DataSource = SQL.loadDgvBySql("SELECT * FROM [tblOregonNCTS_ReferenceTemplate]  LEFT JOIN Adressen ON AdressenNr=kdNr  WHERE country='" & cboLand._value & "' AND declaration='" & cboVerfahren._value & "' and mandant='" & txtDyMandant.Text & "' " & If(SelectNL, " AND niederlassung='" & txtDyNiederlassung.Text & "' ", "") & "  and visible=1 " & where & " order by descr ", "FMZOLL")
+                .Columns("Id").Visible = False
+                .Columns("reference").Visible = False
+                .Columns("standard").Visible = False
+                .Columns("niederlassung").Visible = False
+                .Columns("mandant").Visible = False
+                .Columns("reference").HeaderText = "Stammreferenz"
+                .Columns("reference").Width = 200
+                .Columns("descr").HeaderText = "Bezeichnung"
+                .Columns("descr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .ClearSelection()
+
+
+            End If
+        End With
+        With MyDatagridview1
+            .Columns.Clear()
+            If cboLand._value <> "" And cboVerfahren._value <> "" Then
+
+                Dim where = " AND  kdNr is not null "
+                If txtSearch.Text <> "" Then
+                    where &= " and (kdNr LIKE '" & txtSearch.Text & "%' OR Ordnungsbegriff LIKE '" & txtSearch.Text & "%') "
+                End If
+
+                .RowTemplate.Height = 30
+                .RowTemplate.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, 10)
+                .DataSource = SQL.loadDgvBySql("SELECT * FROM [tblOregonNCTS_ReferenceTemplate]  LEFT JOIN Adressen ON AdressenNr=KdNr  WHERE country='" & cboLand._value & "' AND declaration='" & cboVerfahren._value & "' and mandant='" & txtDyMandant.Text & "'  " & If(SelectNL, " AND niederlassung='" & txtDyNiederlassung.Text & "' ", "") & " and visible=1 " & where & " order by KdNr,descr ", "FMZOLL")
+                .Columns("Id").Visible = False
+                .Columns("reference").Visible = False
+                .Columns("standard").Visible = False
+                .Columns("reference").HeaderText = "Stammreferenz"
+                .Columns("reference").Width = 200
+                .Columns("descr").HeaderText = "Bezeichnung"
+                .Columns("descr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+                .Columns("kdNr").HeaderText = "KundenNr"
+                .Columns("kdNr").Width = 60
+                .Columns("Ordnungsbegriff").HeaderText = "Firma"
+                .Columns("Ordnungsbegriff").Width = 200
+                .Columns("niederlassung").HeaderText = "NL"
+                .Columns("niederlassung").Width = 50
+                .ClearSelection()
+
+
+            End If
+        End With
+    End Sub
+
+
+
+    Sub openDY(sentToModaltrans As Boolean)
+
+        If dgvStammref.SelectedRows.Count > 0 Or MyDatagridview1.SelectedRows.Count > 0 Then
+            Dim dgv As DataGridView = Nothing
+            If dgvStammref.SelectedRows.Count > 0 Then dgv = dgvStammref
+            If MyDatagridview1.SelectedRows.Count > 0 Then dgv = MyDatagridview1
+
+            If dgv.SelectedRows(0).Cells("reference").Value <> "" Then
+                STAMMREF = dgv.SelectedRows(0).Cells("reference").Value
+                STAMMREF_DYID = dgv.SelectedRows(0).Cells("Id").Value
+                Me.sentToDakosy = sentToDakosy
+                Me.nl = dgv.SelectedRows(0).Cells("niederlassung").Value
+                '  Me.txtDyMandant = dgv.SelectedRows(0).Cells("dySr_dy_Mandant").Value
+                'STAMMREF_DYID = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull([dySr_dyId],-1)  FROM [tblDakosy_Stammreferenzen] WHERE dySr_Stammreferenz='" & MyDatagridview1.SelectedRows(0).Cells("dySr_Stammreferenz").Value & "' ", "FMZOLL")
+                Exit Sub
+            End If
+        Else
+            For Each r As DataGridViewRow In dgvStammref.Rows
+                If r.Cells("standard").Value = True Then
+                    STAMMREF = r.Cells("reference").Value
+                    STAMMREF_DYID = r.Cells("Id").Value
+                    Me.sentToDakosy = sentToDakosy
+                    Exit Sub
+                End If
+            Next
+        End If
+        Me.sentToDakosy = sentToDakosy 'Falls keine STAMMREF
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        openDY(False)
+    End Sub
+
+    Private Sub btnOK_Click2(sender As Object, e As EventArgs) Handles Button1.Click
+
+        If vbYes = MsgBox("Sollen die Daten abgeschickt werden?", vbYesNoCancel) Then
+            openDY(True)
+        End If
+    End Sub
+
+
+
+    Private Sub dgvStammref_SelectionChanged(sender As Object, e As EventArgs) Handles dgvStammref.SelectionChanged
+        If dgvStammref.SelectedRows.Count > 0 Then
+            Label3.Text = dgvStammref.SelectedRows(0).Cells("reference").Value
+        Else
+            Label3.Text = ""
+        End If
+        MyDatagridview1.ClearSelection()
+    End Sub
+
+
+
+    Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            Label3.Text = MyDatagridview1.SelectedRows(0).Cells("reference").Value
+        Else
+            Label3.Text = ""
+        End If
+        dgvStammref.ClearSelection()
+    End Sub
+
+
+    Private Sub dgvStammref_DoubleClick(sender As Object, e As Object) Handles dgvStammref.CellDoubleClick, dgvStammref.CellContentDoubleClick
+        If btnOK.Enabled Then
+            btnOK.PerformClick()
+        Else
+            Button1.PerformClick()
+        End If
+    End Sub
+
+    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
+        initDGV()
+    End Sub
+
+    Private Sub MyDatagridview1_DoubleClick(sender As Object, e As EventArgs) Handles MyDatagridview1.CellDoubleClick, MyDatagridview1.CellContentDoubleClick
+        If btnOK.Enabled Then
+            btnOK.PerformClick()
+        Else
+            Button1.PerformClick()
+        End If
+    End Sub
+
+
+    Private Sub frmDakosyStammreferenz_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        txtSearch.Focus()
+    End Sub
+
+    Private Sub MyDatagridview1_DoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick, MyDatagridview1.CellContentDoubleClick
+
+    End Sub
+End Class
\ No newline at end of file
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
index d440c572..9314f7ae 100644
--- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
@@ -146,7 +146,7 @@
 
             Case "MODALTRANS"
                 Select Case ART
-                    Case "Export", "Import" ', "NCTS", "ÜT"
+                    Case "T1", "T2", "NCTS", "ÜT"
 
                         If ART = "ÜT" Then
                             ART = "T1"
@@ -160,6 +160,7 @@
                             Me.pnl.Controls.Add(usrcntl)
 
                         Else
+                            MsgBox("Funktíon nicht implementiert")
                             'Dim usrcntl As New usrCntlModaltrans_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
                             'usrcntl.Dock = DockStyle.Fill
                             'Me.pnl.Controls.Add(usrcntl)
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.Designer.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.Designer.vb
new file mode 100644
index 00000000..ce745ba5
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.Designer.vb
@@ -0,0 +1,2186 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlModaltrans_EXIM_Allg
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.cbxWegStrecke = New System.Windows.Forms.CheckBox()
+        Me.lblWegstreckeVonNach = New System.Windows.Forms.Label()
+        Me.lblWegstrecke = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
+        Me.txtKennnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.cboZahlungsweiseBefKosten = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.cboBesondereUmstaende = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.cboArtGrenzUeberschreitung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.cboVerkehrszweig = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label16 = 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()
+        Me.sbRoute7 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbRoute6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbRoute4 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        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.pic = New System.Windows.Forms.PictureBox()
+        Me.txtArtDetail = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.btnIMZ = New System.Windows.Forms.Button()
+        Me.btnIMD = New System.Windows.Forms.Button()
+        Me.btnIMA = New System.Windows.Forms.Button()
+        Me.btnEXD = New System.Windows.Forms.Button()
+        Me.btnEXA = New System.Windows.Forms.Button()
+        Me.txtBeladungsort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtWiedergestellungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.sbBestimmungsland = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.sbVersendungsLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.sbKennzeichenGrenzeLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.txtKennzeichenAbgang = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.sbKennzeichenAbgangLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.txtKennzeichenGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtLadeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtEntladeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtComRef = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.txtGoodsLocation = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.lblWegZeit = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.Label25 = New System.Windows.Forms.Label()
+        Me.Label26 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.LinkLabel2 = New System.Windows.Forms.LinkLabel()
+        Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label29 = New System.Windows.Forms.Label()
+        Me.MyComboBox4 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.Label31 = New System.Windows.Forms.Label()
+        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label33 = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label34 = New System.Windows.Forms.Label()
+        Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label35 = New System.Windows.Forms.Label()
+        Me.MySearchBox10 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label36 = New System.Windows.Forms.Label()
+        Me.Label37 = New System.Windows.Forms.Label()
+        Me.MySearchBox11 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label38 = New System.Windows.Forms.Label()
+        Me.Label39 = New System.Windows.Forms.Label()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.MySearchBox12 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.MyTextBox6 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MySearchBox13 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.MyTextBox7 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.PictureBox4 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
+        Me.Label40 = New System.Windows.Forms.Label()
+        Me.Label41 = New System.Windows.Forms.Label()
+        Me.Label42 = New System.Windows.Forms.Label()
+        Me.Label43 = New System.Windows.Forms.Label()
+        Me.MyTextBox8 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyTextBox9 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxIncoterms = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label44 = New System.Windows.Forms.Label()
+        Me.txtUCR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label45 = New System.Windows.Forms.Label()
+        Me.txtducrPart = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label46 = New System.Windows.Forms.Label()
+        Me.txtMucr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label47 = New System.Windows.Forms.Label()
+        Me.pnl.SuspendLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel3.SuspendLayout()
+        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.Controls.Add(Me.Panel2)
+        Me.pnl.Controls.Add(Me.txtGoodsLocation)
+        Me.pnl.Controls.Add(Me.Label9)
+        Me.pnl.Controls.Add(Me.txtComRef)
+        Me.pnl.Controls.Add(Me.Label22)
+        Me.pnl.Controls.Add(Me.cbxWegStrecke)
+        Me.pnl.Controls.Add(Me.lblWegstreckeVonNach)
+        Me.pnl.Controls.Add(Me.lblWegZeit)
+        Me.pnl.Controls.Add(Me.lblWegstrecke)
+        Me.pnl.Controls.Add(Me.Button1)
+        Me.pnl.Controls.Add(Me.LinkLabel1)
+        Me.pnl.Controls.Add(Me.txtKennnummer)
+        Me.pnl.Controls.Add(Me.Label21)
+        Me.pnl.Controls.Add(Me.cboZahlungsweiseBefKosten)
+        Me.pnl.Controls.Add(Me.Label20)
+        Me.pnl.Controls.Add(Me.cboBesondereUmstaende)
+        Me.pnl.Controls.Add(Me.Label19)
+        Me.pnl.Controls.Add(Me.cboArtGrenzUeberschreitung)
+        Me.pnl.Controls.Add(Me.Label17)
+        Me.pnl.Controls.Add(Me.cboVerkehrszweig)
+        Me.pnl.Controls.Add(Me.Label15)
+        Me.pnl.Controls.Add(Me.Label16)
+        Me.pnl.Controls.Add(Me.lklRoutenauswahl)
+        Me.pnl.Controls.Add(Me.sbRoute5)
+        Me.pnl.Controls.Add(Me.sbRoute9)
+        Me.pnl.Controls.Add(Me.sbRoute8)
+        Me.pnl.Controls.Add(Me.sbRoute7)
+        Me.pnl.Controls.Add(Me.sbRoute6)
+        Me.pnl.Controls.Add(Me.sbRoute4)
+        Me.pnl.Controls.Add(Me.sbRoute3)
+        Me.pnl.Controls.Add(Me.sbRoute2)
+        Me.pnl.Controls.Add(Me.sbRoute1)
+        Me.pnl.Controls.Add(Me.Label14)
+        Me.pnl.Controls.Add(Me.pic)
+        Me.pnl.Controls.Add(Me.txtArtDetail)
+        Me.pnl.Controls.Add(Me.Label13)
+        Me.pnl.Controls.Add(Me.btnIMZ)
+        Me.pnl.Controls.Add(Me.btnIMD)
+        Me.pnl.Controls.Add(Me.btnIMA)
+        Me.pnl.Controls.Add(Me.btnEXD)
+        Me.pnl.Controls.Add(Me.btnEXA)
+        Me.pnl.Controls.Add(Me.txtBeladungsort)
+        Me.pnl.Controls.Add(Me.Label3)
+        Me.pnl.Controls.Add(Me.txtWiedergestellungsdatum)
+        Me.pnl.Controls.Add(Me.Label2)
+        Me.pnl.Controls.Add(Me.sbBestimmungsland)
+        Me.pnl.Controls.Add(Me.Label11)
+        Me.pnl.Controls.Add(Me.Label12)
+        Me.pnl.Controls.Add(Me.sbVersendungsLand)
+        Me.pnl.Controls.Add(Me.Label8)
+        Me.pnl.Controls.Add(Me.Label18)
+        Me.pnl.Controls.Add(Me.Panel1)
+        Me.pnl.Controls.Add(Me.txtLadeort)
+        Me.pnl.Controls.Add(Me.txtEntladeort)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(930, 503)
+        Me.pnl.TabIndex = 0
+        '
+        'cbxWegStrecke
+        '
+        Me.cbxWegStrecke.AutoSize = True
+        Me.cbxWegStrecke.Checked = True
+        Me.cbxWegStrecke.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxWegStrecke.Location = New System.Drawing.Point(865, 205)
+        Me.cbxWegStrecke.Name = "cbxWegStrecke"
+        Me.cbxWegStrecke.Size = New System.Drawing.Size(50, 17)
+        Me.cbxWegStrecke.TabIndex = 63
+        Me.cbxWegStrecke.Text = "LKW"
+        Me.cbxWegStrecke.UseVisualStyleBackColor = True
+        '
+        'lblWegstreckeVonNach
+        '
+        Me.lblWegstreckeVonNach.Location = New System.Drawing.Point(719, 47)
+        Me.lblWegstreckeVonNach.Name = "lblWegstreckeVonNach"
+        Me.lblWegstreckeVonNach.Size = New System.Drawing.Size(119, 29)
+        Me.lblWegstreckeVonNach.TabIndex = 62
+        Me.lblWegstreckeVonNach.Visible = False
+        '
+        'lblWegstrecke
+        '
+        Me.lblWegstrecke.AutoSize = True
+        Me.lblWegstrecke.Location = New System.Drawing.Point(719, 226)
+        Me.lblWegstrecke.Name = "lblWegstrecke"
+        Me.lblWegstrecke.Size = New System.Drawing.Size(10, 13)
+        Me.lblWegstrecke.TabIndex = 60
+        Me.lblWegstrecke.Text = "-"
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(722, 202)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(137, 21)
+        Me.Button1.TabIndex = 59
+        Me.Button1.Text = "Strecke berechnen"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'LinkLabel1
+        '
+        Me.LinkLabel1.AutoSize = True
+        Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel1.Location = New System.Drawing.Point(719, 327)
+        Me.LinkLabel1.Name = "LinkLabel1"
+        Me.LinkLabel1.Size = New System.Drawing.Size(115, 13)
+        Me.LinkLabel1.TabIndex = 37
+        Me.LinkLabel1.TabStop = True
+        Me.LinkLabel1.Text = "=Abgang Kennz./Land"
+        '
+        'txtKennnummer
+        '
+        Me.txtKennnummer._DateTimeOnly = False
+        Me.txtKennnummer._numbersOnly = False
+        Me.txtKennnummer._numbersOnlyKommastellen = ""
+        Me.txtKennnummer._numbersOnlyTrennzeichen = True
+        Me.txtKennnummer._Prozent = False
+        Me.txtKennnummer._ShortDateNew = False
+        Me.txtKennnummer._ShortDateOnly = False
+        Me.txtKennnummer._TimeOnly = False
+        Me.txtKennnummer._TimeOnly_Seconds = False
+        Me.txtKennnummer._value = Nothing
+        Me.txtKennnummer._Waehrung = False
+        Me.txtKennnummer._WaehrungZeichen = True
+        Me.txtKennnummer.ForeColor = System.Drawing.Color.Black
+        Me.txtKennnummer.Location = New System.Drawing.Point(694, 460)
+        Me.txtKennnummer.MaxLength = 70
+        Me.txtKennnummer.MaxLineLength = -1
+        Me.txtKennnummer.MaxLines_Warning = ""
+        Me.txtKennnummer.MaxLines_Warning_Label = Nothing
+        Me.txtKennnummer.Name = "txtKennnummer"
+        Me.txtKennnummer.Size = New System.Drawing.Size(214, 20)
+        Me.txtKennnummer.TabIndex = 56
+        '
+        'Label21
+        '
+        Me.Label21.Location = New System.Drawing.Point(553, 463)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(135, 13)
+        Me.Label21.TabIndex = 55
+        Me.Label21.Text = "SumA Kennummer"
+        Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboZahlungsweiseBefKosten
+        '
+        Me.cboZahlungsweiseBefKosten._allowedValuesFreiText = Nothing
+        Me.cboZahlungsweiseBefKosten._allowFreiText = False
+        Me.cboZahlungsweiseBefKosten._value = ""
+        Me.cboZahlungsweiseBefKosten.DropDownWidth = 350
+        Me.cboZahlungsweiseBefKosten.FormattingEnabled = True
+        Me.cboZahlungsweiseBefKosten.Location = New System.Drawing.Point(145, 479)
+        Me.cboZahlungsweiseBefKosten.Name = "cboZahlungsweiseBefKosten"
+        Me.cboZahlungsweiseBefKosten.Size = New System.Drawing.Size(211, 21)
+        Me.cboZahlungsweiseBefKosten.TabIndex = 58
+        '
+        'Label20
+        '
+        Me.Label20.Location = New System.Drawing.Point(-28, 482)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(167, 13)
+        Me.Label20.TabIndex = 57
+        Me.Label20.Text = "Zahlungsw. Befd.Kosten:"
+        Me.Label20.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboBesondereUmstaende
+        '
+        Me.cboBesondereUmstaende._allowedValuesFreiText = Nothing
+        Me.cboBesondereUmstaende._allowFreiText = False
+        Me.cboBesondereUmstaende._value = ""
+        Me.cboBesondereUmstaende.DropDownWidth = 350
+        Me.cboBesondereUmstaende.FormattingEnabled = True
+        Me.cboBesondereUmstaende.Location = New System.Drawing.Point(145, 460)
+        Me.cboBesondereUmstaende.Name = "cboBesondereUmstaende"
+        Me.cboBesondereUmstaende.Size = New System.Drawing.Size(211, 21)
+        Me.cboBesondereUmstaende.TabIndex = 54
+        '
+        'Label19
+        '
+        Me.Label19.Location = New System.Drawing.Point(4, 463)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(135, 13)
+        Me.Label19.TabIndex = 53
+        Me.Label19.Text = "Besondere Umstände:"
+        Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboArtGrenzUeberschreitung
+        '
+        Me.cboArtGrenzUeberschreitung._allowedValuesFreiText = Nothing
+        Me.cboArtGrenzUeberschreitung._allowFreiText = False
+        Me.cboArtGrenzUeberschreitung._value = ""
+        Me.cboArtGrenzUeberschreitung.DropDownWidth = 350
+        Me.cboArtGrenzUeberschreitung.FormattingEnabled = True
+        Me.cboArtGrenzUeberschreitung.Location = New System.Drawing.Point(315, 325)
+        Me.cboArtGrenzUeberschreitung.Name = "cboArtGrenzUeberschreitung"
+        Me.cboArtGrenzUeberschreitung.Size = New System.Drawing.Size(41, 21)
+        Me.cboArtGrenzUeberschreitung.TabIndex = 41
+        '
+        'Label17
+        '
+        Me.Label17.Location = New System.Drawing.Point(1, 328)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(135, 13)
+        Me.Label17.TabIndex = 38
+        Me.Label17.Text = "Verkehrszweig:"
+        Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboVerkehrszweig
+        '
+        Me.cboVerkehrszweig._allowedValuesFreiText = Nothing
+        Me.cboVerkehrszweig._allowFreiText = False
+        Me.cboVerkehrszweig._value = ""
+        Me.cboVerkehrszweig.DropDownWidth = 350
+        Me.cboVerkehrszweig.FormattingEnabled = True
+        Me.cboVerkehrszweig.Location = New System.Drawing.Point(142, 325)
+        Me.cboVerkehrszweig.Name = "cboVerkehrszweig"
+        Me.cboVerkehrszweig.Size = New System.Drawing.Size(140, 21)
+        Me.cboVerkehrszweig.TabIndex = 39
+        '
+        'Label15
+        '
+        Me.Label15.Location = New System.Drawing.Point(553, 290)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(135, 13)
+        Me.Label15.TabIndex = 34
+        Me.Label15.Text = "Entladeort:"
+        Me.Label15.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label16
+        '
+        Me.Label16.Location = New System.Drawing.Point(1, 290)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(135, 13)
+        Me.Label16.TabIndex = 32
+        Me.Label16.Text = "Ladeort:"
+        Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        '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(625, 372)
+        Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
+        Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
+        Me.lklRoutenauswahl.TabIndex = 43
+        Me.lklRoutenauswahl.TabStop = True
+        Me.lklRoutenauswahl.Text = "Routenauswahl"
+        '
+        'sbRoute5
+        '
+        Me.sbRoute5._allowFreitext = False
+        Me.sbRoute5._AllowSetValue = False
+        Me.sbRoute5._allowSpaceAsSplitter = False
+        Me.sbRoute5._autoSizeGross = False
+        Me.sbRoute5._hideIfListEmpty = True
+        Me.sbRoute5._value = ""
+        Me.sbRoute5.conn_art = "FMZOLL"
+        Me.sbRoute5.dgvpos = "LEFT"
+        Me.sbRoute5.DISPLAY_PARAM = Nothing
+        Me.sbRoute5.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute5.key_visible = False
+        Me.sbRoute5.KEYPARAM = Nothing
+        Me.sbRoute5.Location = New System.Drawing.Point(399, 407)
+        Me.sbRoute5.Name = "sbRoute5"
+        Me.sbRoute5.searchActive = True
+        Me.sbRoute5.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute5.SQL_ORDER_BY = Nothing
+        Me.sbRoute5.SQL_SELECT = Nothing
+        Me.sbRoute5.SQL_WHERE = Nothing
+        Me.sbRoute5.SQL_WhereParamList = Nothing
+        Me.sbRoute5.TabIndex = 48
+        Me.sbRoute5.usrcntl = Nothing
+        '
+        'sbRoute9
+        '
+        Me.sbRoute9._allowFreitext = False
+        Me.sbRoute9._AllowSetValue = False
+        Me.sbRoute9._allowSpaceAsSplitter = False
+        Me.sbRoute9._autoSizeGross = False
+        Me.sbRoute9._hideIfListEmpty = True
+        Me.sbRoute9._value = ""
+        Me.sbRoute9.conn_art = "FMZOLL"
+        Me.sbRoute9.dgvpos = "LEFT"
+        Me.sbRoute9.DISPLAY_PARAM = Nothing
+        Me.sbRoute9.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute9.key_visible = False
+        Me.sbRoute9.KEYPARAM = Nothing
+        Me.sbRoute9.Location = New System.Drawing.Point(552, 426)
+        Me.sbRoute9.Name = "sbRoute9"
+        Me.sbRoute9.searchActive = True
+        Me.sbRoute9.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute9.SQL_ORDER_BY = Nothing
+        Me.sbRoute9.SQL_SELECT = Nothing
+        Me.sbRoute9.SQL_WHERE = Nothing
+        Me.sbRoute9.SQL_WhereParamList = Nothing
+        Me.sbRoute9.TabIndex = 52
+        Me.sbRoute9.usrcntl = Nothing
+        '
+        'sbRoute8
+        '
+        Me.sbRoute8._allowFreitext = False
+        Me.sbRoute8._AllowSetValue = False
+        Me.sbRoute8._allowSpaceAsSplitter = False
+        Me.sbRoute8._autoSizeGross = False
+        Me.sbRoute8._hideIfListEmpty = True
+        Me.sbRoute8._value = ""
+        Me.sbRoute8.conn_art = "FMZOLL"
+        Me.sbRoute8.dgvpos = "LEFT"
+        Me.sbRoute8.DISPLAY_PARAM = Nothing
+        Me.sbRoute8.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute8.key_visible = False
+        Me.sbRoute8.KEYPARAM = Nothing
+        Me.sbRoute8.Location = New System.Drawing.Point(399, 426)
+        Me.sbRoute8.Name = "sbRoute8"
+        Me.sbRoute8.searchActive = True
+        Me.sbRoute8.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute8.SQL_ORDER_BY = Nothing
+        Me.sbRoute8.SQL_SELECT = Nothing
+        Me.sbRoute8.SQL_WHERE = Nothing
+        Me.sbRoute8.SQL_WhereParamList = Nothing
+        Me.sbRoute8.TabIndex = 51
+        Me.sbRoute8.usrcntl = Nothing
+        '
+        'sbRoute7
+        '
+        Me.sbRoute7._allowFreitext = False
+        Me.sbRoute7._AllowSetValue = False
+        Me.sbRoute7._allowSpaceAsSplitter = False
+        Me.sbRoute7._autoSizeGross = False
+        Me.sbRoute7._hideIfListEmpty = True
+        Me.sbRoute7._value = ""
+        Me.sbRoute7.conn_art = "FMZOLL"
+        Me.sbRoute7.dgvpos = "LEFT"
+        Me.sbRoute7.DISPLAY_PARAM = Nothing
+        Me.sbRoute7.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute7.key_visible = False
+        Me.sbRoute7.KEYPARAM = Nothing
+        Me.sbRoute7.Location = New System.Drawing.Point(246, 426)
+        Me.sbRoute7.Name = "sbRoute7"
+        Me.sbRoute7.searchActive = True
+        Me.sbRoute7.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute7.SQL_ORDER_BY = Nothing
+        Me.sbRoute7.SQL_SELECT = Nothing
+        Me.sbRoute7.SQL_WHERE = Nothing
+        Me.sbRoute7.SQL_WhereParamList = Nothing
+        Me.sbRoute7.TabIndex = 50
+        Me.sbRoute7.usrcntl = Nothing
+        '
+        'sbRoute6
+        '
+        Me.sbRoute6._allowFreitext = False
+        Me.sbRoute6._AllowSetValue = False
+        Me.sbRoute6._allowSpaceAsSplitter = False
+        Me.sbRoute6._autoSizeGross = False
+        Me.sbRoute6._hideIfListEmpty = True
+        Me.sbRoute6._value = ""
+        Me.sbRoute6.conn_art = "FMZOLL"
+        Me.sbRoute6.dgvpos = "LEFT"
+        Me.sbRoute6.DISPLAY_PARAM = Nothing
+        Me.sbRoute6.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute6.key_visible = False
+        Me.sbRoute6.KEYPARAM = Nothing
+        Me.sbRoute6.Location = New System.Drawing.Point(552, 407)
+        Me.sbRoute6.Name = "sbRoute6"
+        Me.sbRoute6.searchActive = True
+        Me.sbRoute6.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute6.SQL_ORDER_BY = Nothing
+        Me.sbRoute6.SQL_SELECT = Nothing
+        Me.sbRoute6.SQL_WHERE = Nothing
+        Me.sbRoute6.SQL_WhereParamList = Nothing
+        Me.sbRoute6.TabIndex = 49
+        Me.sbRoute6.usrcntl = Nothing
+        '
+        'sbRoute4
+        '
+        Me.sbRoute4._allowFreitext = False
+        Me.sbRoute4._AllowSetValue = False
+        Me.sbRoute4._allowSpaceAsSplitter = False
+        Me.sbRoute4._autoSizeGross = False
+        Me.sbRoute4._hideIfListEmpty = True
+        Me.sbRoute4._value = ""
+        Me.sbRoute4.conn_art = "FMZOLL"
+        Me.sbRoute4.dgvpos = "LEFT"
+        Me.sbRoute4.DISPLAY_PARAM = Nothing
+        Me.sbRoute4.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute4.key_visible = False
+        Me.sbRoute4.KEYPARAM = Nothing
+        Me.sbRoute4.Location = New System.Drawing.Point(246, 407)
+        Me.sbRoute4.Name = "sbRoute4"
+        Me.sbRoute4.searchActive = True
+        Me.sbRoute4.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute4.SQL_ORDER_BY = Nothing
+        Me.sbRoute4.SQL_SELECT = Nothing
+        Me.sbRoute4.SQL_WHERE = Nothing
+        Me.sbRoute4.SQL_WhereParamList = Nothing
+        Me.sbRoute4.TabIndex = 47
+        Me.sbRoute4.usrcntl = Nothing
+        '
+        'sbRoute3
+        '
+        Me.sbRoute3._allowFreitext = False
+        Me.sbRoute3._AllowSetValue = False
+        Me.sbRoute3._allowSpaceAsSplitter = False
+        Me.sbRoute3._autoSizeGross = False
+        Me.sbRoute3._hideIfListEmpty = True
+        Me.sbRoute3._value = ""
+        Me.sbRoute3.conn_art = "FMZOLL"
+        Me.sbRoute3.dgvpos = "LEFT"
+        Me.sbRoute3.DISPLAY_PARAM = Nothing
+        Me.sbRoute3.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute3.key_visible = False
+        Me.sbRoute3.KEYPARAM = Nothing
+        Me.sbRoute3.Location = New System.Drawing.Point(552, 388)
+        Me.sbRoute3.Name = "sbRoute3"
+        Me.sbRoute3.searchActive = True
+        Me.sbRoute3.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute3.SQL_ORDER_BY = Nothing
+        Me.sbRoute3.SQL_SELECT = Nothing
+        Me.sbRoute3.SQL_WHERE = Nothing
+        Me.sbRoute3.SQL_WhereParamList = Nothing
+        Me.sbRoute3.TabIndex = 46
+        Me.sbRoute3.usrcntl = Nothing
+        '
+        'sbRoute2
+        '
+        Me.sbRoute2._allowFreitext = False
+        Me.sbRoute2._AllowSetValue = False
+        Me.sbRoute2._allowSpaceAsSplitter = False
+        Me.sbRoute2._autoSizeGross = False
+        Me.sbRoute2._hideIfListEmpty = True
+        Me.sbRoute2._value = ""
+        Me.sbRoute2.conn_art = "FMZOLL"
+        Me.sbRoute2.dgvpos = "LEFT"
+        Me.sbRoute2.DISPLAY_PARAM = Nothing
+        Me.sbRoute2.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute2.key_visible = False
+        Me.sbRoute2.KEYPARAM = Nothing
+        Me.sbRoute2.Location = New System.Drawing.Point(399, 388)
+        Me.sbRoute2.Name = "sbRoute2"
+        Me.sbRoute2.searchActive = True
+        Me.sbRoute2.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute2.SQL_ORDER_BY = Nothing
+        Me.sbRoute2.SQL_SELECT = Nothing
+        Me.sbRoute2.SQL_WHERE = Nothing
+        Me.sbRoute2.SQL_WhereParamList = Nothing
+        Me.sbRoute2.TabIndex = 45
+        Me.sbRoute2.usrcntl = Nothing
+        '
+        'sbRoute1
+        '
+        Me.sbRoute1._allowFreitext = False
+        Me.sbRoute1._AllowSetValue = False
+        Me.sbRoute1._allowSpaceAsSplitter = False
+        Me.sbRoute1._autoSizeGross = False
+        Me.sbRoute1._hideIfListEmpty = True
+        Me.sbRoute1._value = ""
+        Me.sbRoute1.conn_art = "FMZOLL"
+        Me.sbRoute1.dgvpos = "LEFT"
+        Me.sbRoute1.DISPLAY_PARAM = Nothing
+        Me.sbRoute1.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute1.key_visible = False
+        Me.sbRoute1.KEYPARAM = Nothing
+        Me.sbRoute1.Location = New System.Drawing.Point(246, 388)
+        Me.sbRoute1.Name = "sbRoute1"
+        Me.sbRoute1.searchActive = True
+        Me.sbRoute1.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute1.SQL_ORDER_BY = Nothing
+        Me.sbRoute1.SQL_SELECT = Nothing
+        Me.sbRoute1.SQL_WHERE = Nothing
+        Me.sbRoute1.SQL_WhereParamList = Nothing
+        Me.sbRoute1.TabIndex = 44
+        Me.sbRoute1.usrcntl = Nothing
+        '
+        'Label14
+        '
+        Me.Label14.Location = New System.Drawing.Point(243, 372)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(135, 13)
+        Me.Label14.TabIndex = 42
+        Me.Label14.Text = "Route:"
+        '
+        'pic
+        '
+        Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pic.Location = New System.Drawing.Point(754, 107)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(154, 50)
+        Me.pic.TabIndex = 47
+        Me.pic.TabStop = False
+        '
+        'txtArtDetail
+        '
+        Me.txtArtDetail.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.txtArtDetail.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.txtArtDetail.Location = New System.Drawing.Point(310, 39)
+        Me.txtArtDetail.Multiline = True
+        Me.txtArtDetail.Name = "txtArtDetail"
+        Me.txtArtDetail.Size = New System.Drawing.Size(598, 59)
+        Me.txtArtDetail.TabIndex = 8
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label13.Location = New System.Drawing.Point(307, 24)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(50, 13)
+        Me.Label13.TabIndex = 1
+        Me.Label13.Text = "Details:"
+        '
+        'btnIMZ
+        '
+        Me.btnIMZ.BackColor = System.Drawing.Color.White
+        Me.btnIMZ.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnIMZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnIMZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnIMZ.ForeColor = System.Drawing.Color.Black
+        Me.btnIMZ.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnIMZ.Location = New System.Drawing.Point(243, 39)
+        Me.btnIMZ.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnIMZ.Name = "btnIMZ"
+        Me.btnIMZ.Size = New System.Drawing.Size(62, 37)
+        Me.btnIMZ.TabIndex = 6
+        Me.btnIMZ.Text = "IMZ"
+        Me.btnIMZ.UseVisualStyleBackColor = False
+        '
+        'btnIMD
+        '
+        Me.btnIMD.BackColor = System.Drawing.Color.White
+        Me.btnIMD.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnIMD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnIMD.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnIMD.ForeColor = System.Drawing.Color.Black
+        Me.btnIMD.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnIMD.Location = New System.Drawing.Point(177, 39)
+        Me.btnIMD.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnIMD.Name = "btnIMD"
+        Me.btnIMD.Size = New System.Drawing.Size(62, 37)
+        Me.btnIMD.TabIndex = 5
+        Me.btnIMD.Text = "IMD"
+        Me.btnIMD.UseVisualStyleBackColor = False
+        '
+        'btnIMA
+        '
+        Me.btnIMA.BackColor = System.Drawing.Color.White
+        Me.btnIMA.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnIMA.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnIMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnIMA.ForeColor = System.Drawing.Color.Black
+        Me.btnIMA.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnIMA.Location = New System.Drawing.Point(123, 39)
+        Me.btnIMA.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnIMA.Name = "btnIMA"
+        Me.btnIMA.Size = New System.Drawing.Size(50, 37)
+        Me.btnIMA.TabIndex = 4
+        Me.btnIMA.Text = "IMA"
+        Me.btnIMA.UseVisualStyleBackColor = False
+        '
+        'btnEXD
+        '
+        Me.btnEXD.BackColor = System.Drawing.Color.White
+        Me.btnEXD.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnEXD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnEXD.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnEXD.ForeColor = System.Drawing.Color.Black
+        Me.btnEXD.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnEXD.Location = New System.Drawing.Point(69, 39)
+        Me.btnEXD.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnEXD.Name = "btnEXD"
+        Me.btnEXD.Size = New System.Drawing.Size(50, 37)
+        Me.btnEXD.TabIndex = 3
+        Me.btnEXD.Text = "EXD"
+        Me.btnEXD.UseVisualStyleBackColor = False
+        '
+        'btnEXA
+        '
+        Me.btnEXA.BackColor = System.Drawing.Color.OrangeRed
+        Me.btnEXA.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnEXA.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnEXA.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnEXA.ForeColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btnEXA.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnEXA.Location = New System.Drawing.Point(15, 39)
+        Me.btnEXA.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnEXA.Name = "btnEXA"
+        Me.btnEXA.Size = New System.Drawing.Size(50, 37)
+        Me.btnEXA.TabIndex = 2
+        Me.btnEXA.Text = "EXA"
+        Me.btnEXA.UseVisualStyleBackColor = False
+        '
+        'txtBeladungsort
+        '
+        Me.txtBeladungsort._DateTimeOnly = False
+        Me.txtBeladungsort._numbersOnly = False
+        Me.txtBeladungsort._numbersOnlyKommastellen = ""
+        Me.txtBeladungsort._numbersOnlyTrennzeichen = True
+        Me.txtBeladungsort._Prozent = False
+        Me.txtBeladungsort._ShortDateNew = False
+        Me.txtBeladungsort._ShortDateOnly = False
+        Me.txtBeladungsort._TimeOnly = False
+        Me.txtBeladungsort._TimeOnly_Seconds = False
+        Me.txtBeladungsort._value = Nothing
+        Me.txtBeladungsort._Waehrung = False
+        Me.txtBeladungsort._WaehrungZeichen = True
+        Me.txtBeladungsort.Enabled = False
+        Me.txtBeladungsort.ForeColor = System.Drawing.Color.Black
+        Me.txtBeladungsort.Location = New System.Drawing.Point(142, 268)
+        Me.txtBeladungsort.MaxLength = 4
+        Me.txtBeladungsort.MaxLineLength = -1
+        Me.txtBeladungsort.MaxLines_Warning = ""
+        Me.txtBeladungsort.MaxLines_Warning_Label = Nothing
+        Me.txtBeladungsort.Name = "txtBeladungsort"
+        Me.txtBeladungsort.Size = New System.Drawing.Size(214, 20)
+        Me.txtBeladungsort.TabIndex = 29
+        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(553, 271)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(135, 13)
+        Me.Label3.TabIndex = 30
+        Me.Label3.Text = "Wiedergestellungsdatum:"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtWiedergestellungsdatum
+        '
+        Me.txtWiedergestellungsdatum._DateTimeOnly = False
+        Me.txtWiedergestellungsdatum._numbersOnly = False
+        Me.txtWiedergestellungsdatum._numbersOnlyKommastellen = ""
+        Me.txtWiedergestellungsdatum._numbersOnlyTrennzeichen = True
+        Me.txtWiedergestellungsdatum._Prozent = False
+        Me.txtWiedergestellungsdatum._ShortDateNew = True
+        Me.txtWiedergestellungsdatum._ShortDateOnly = False
+        Me.txtWiedergestellungsdatum._TimeOnly = False
+        Me.txtWiedergestellungsdatum._TimeOnly_Seconds = False
+        Me.txtWiedergestellungsdatum._value = ""
+        Me.txtWiedergestellungsdatum._Waehrung = False
+        Me.txtWiedergestellungsdatum._WaehrungZeichen = True
+        Me.txtWiedergestellungsdatum.Enabled = False
+        Me.txtWiedergestellungsdatum.ForeColor = System.Drawing.Color.Black
+        Me.txtWiedergestellungsdatum.Location = New System.Drawing.Point(694, 268)
+        Me.txtWiedergestellungsdatum.MaxLength = 10
+        Me.txtWiedergestellungsdatum.MaxLineLength = -1
+        Me.txtWiedergestellungsdatum.MaxLines_Warning = ""
+        Me.txtWiedergestellungsdatum.MaxLines_Warning_Label = Nothing
+        Me.txtWiedergestellungsdatum.Name = "txtWiedergestellungsdatum"
+        Me.txtWiedergestellungsdatum.Size = New System.Drawing.Size(214, 20)
+        Me.txtWiedergestellungsdatum.TabIndex = 31
+        '
+        'Label2
+        '
+        Me.Label2.Location = New System.Drawing.Point(1, 271)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(135, 13)
+        Me.Label2.TabIndex = 28
+        Me.Label2.Text = "Beladungsort:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'sbBestimmungsland
+        '
+        Me.sbBestimmungsland._allowFreitext = False
+        Me.sbBestimmungsland._AllowSetValue = False
+        Me.sbBestimmungsland._allowSpaceAsSplitter = False
+        Me.sbBestimmungsland._autoSizeGross = False
+        Me.sbBestimmungsland._hideIfListEmpty = True
+        Me.sbBestimmungsland._value = ""
+        Me.sbBestimmungsland.conn_art = "FMZOLL"
+        Me.sbBestimmungsland.dgvpos = "RIGHT"
+        Me.sbBestimmungsland.DISPLAY_PARAM = Nothing
+        Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing
+        Me.sbBestimmungsland.key_visible = False
+        Me.sbBestimmungsland.KEYPARAM = Nothing
+        Me.sbBestimmungsland.Location = New System.Drawing.Point(142, 195)
+        Me.sbBestimmungsland.Name = "sbBestimmungsland"
+        Me.sbBestimmungsland.searchActive = True
+        Me.sbBestimmungsland.Size = New System.Drawing.Size(214, 20)
+        Me.sbBestimmungsland.SQL_ORDER_BY = Nothing
+        Me.sbBestimmungsland.SQL_SELECT = Nothing
+        Me.sbBestimmungsland.SQL_WHERE = Nothing
+        Me.sbBestimmungsland.SQL_WhereParamList = Nothing
+        Me.sbBestimmungsland.TabIndex = 15
+        Me.sbBestimmungsland.usrcntl = Nothing
+        '
+        'Label11
+        '
+        Me.Label11.Location = New System.Drawing.Point(20, 198)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(116, 13)
+        Me.Label11.TabIndex = 17
+        Me.Label11.Text = "Destination-Country"
+        Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label12
+        '
+        Me.Label12.Location = New System.Drawing.Point(1, 172)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(135, 13)
+        Me.Label12.TabIndex = 13
+        Me.Label12.Text = "Dispatch Country:"
+        Me.Label12.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'sbVersendungsLand
+        '
+        Me.sbVersendungsLand._allowFreitext = False
+        Me.sbVersendungsLand._AllowSetValue = False
+        Me.sbVersendungsLand._allowSpaceAsSplitter = False
+        Me.sbVersendungsLand._autoSizeGross = False
+        Me.sbVersendungsLand._hideIfListEmpty = True
+        Me.sbVersendungsLand._value = ""
+        Me.sbVersendungsLand.conn_art = "FMZOLL"
+        Me.sbVersendungsLand.dgvpos = "LEFT"
+        Me.sbVersendungsLand.DISPLAY_PARAM = Nothing
+        Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing
+        Me.sbVersendungsLand.key_visible = False
+        Me.sbVersendungsLand.KEYPARAM = Nothing
+        Me.sbVersendungsLand.Location = New System.Drawing.Point(142, 169)
+        Me.sbVersendungsLand.Name = "sbVersendungsLand"
+        Me.sbVersendungsLand.searchActive = True
+        Me.sbVersendungsLand.Size = New System.Drawing.Size(214, 20)
+        Me.sbVersendungsLand.SQL_ORDER_BY = Nothing
+        Me.sbVersendungsLand.SQL_SELECT = Nothing
+        Me.sbVersendungsLand.SQL_WHERE = Nothing
+        Me.sbVersendungsLand.SQL_WhereParamList = Nothing
+        Me.sbVersendungsLand.TabIndex = 14
+        Me.sbVersendungsLand.usrcntl = Nothing
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.Location = New System.Drawing.Point(12, 24)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(115, 13)
+        Me.Label8.TabIndex = 0
+        Me.Label8.Text = "Art der Anmeldung:"
+        '
+        'Label18
+        '
+        Me.Label18.Location = New System.Drawing.Point(269, 328)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(36, 13)
+        Me.Label18.TabIndex = 40
+        Me.Label18.Text = "Art:"
+        Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel1.Controls.Add(Me.sbKennzeichenGrenzeLand)
+        Me.Panel1.Controls.Add(Me.txtKennzeichenAbgang)
+        Me.Panel1.Controls.Add(Me.sbKennzeichenAbgangLand)
+        Me.Panel1.Controls.Add(Me.txtKennzeichenGrenze)
+        Me.Panel1.Controls.Add(Me.PictureBox2)
+        Me.Panel1.Controls.Add(Me.PictureBox1)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Controls.Add(Me.Label7)
+        Me.Panel1.Location = New System.Drawing.Point(0, 306)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(930, 20)
+        Me.Panel1.TabIndex = 36
+        '
+        'sbKennzeichenGrenzeLand
+        '
+        Me.sbKennzeichenGrenzeLand._allowFreitext = False
+        Me.sbKennzeichenGrenzeLand._AllowSetValue = False
+        Me.sbKennzeichenGrenzeLand._allowSpaceAsSplitter = False
+        Me.sbKennzeichenGrenzeLand._autoSizeGross = False
+        Me.sbKennzeichenGrenzeLand._hideIfListEmpty = True
+        Me.sbKennzeichenGrenzeLand._value = ""
+        Me.sbKennzeichenGrenzeLand.conn_art = "FMZOLL"
+        Me.sbKennzeichenGrenzeLand.dgvpos = "RIGHT"
+        Me.sbKennzeichenGrenzeLand.DISPLAY_PARAM = Nothing
+        Me.sbKennzeichenGrenzeLand.INVISIBLE_COLUMNS = Nothing
+        Me.sbKennzeichenGrenzeLand.key_visible = False
+        Me.sbKennzeichenGrenzeLand.KEYPARAM = Nothing
+        Me.sbKennzeichenGrenzeLand.Location = New System.Drawing.Point(867, 0)
+        Me.sbKennzeichenGrenzeLand.Name = "sbKennzeichenGrenzeLand"
+        Me.sbKennzeichenGrenzeLand.searchActive = True
+        Me.sbKennzeichenGrenzeLand.Size = New System.Drawing.Size(41, 20)
+        Me.sbKennzeichenGrenzeLand.SQL_ORDER_BY = Nothing
+        Me.sbKennzeichenGrenzeLand.SQL_SELECT = Nothing
+        Me.sbKennzeichenGrenzeLand.SQL_WHERE = Nothing
+        Me.sbKennzeichenGrenzeLand.SQL_WhereParamList = Nothing
+        Me.sbKennzeichenGrenzeLand.TabIndex = 6
+        Me.sbKennzeichenGrenzeLand.usrcntl = Nothing
+        '
+        'txtKennzeichenAbgang
+        '
+        Me.txtKennzeichenAbgang._DateTimeOnly = False
+        Me.txtKennzeichenAbgang._numbersOnly = False
+        Me.txtKennzeichenAbgang._numbersOnlyKommastellen = ""
+        Me.txtKennzeichenAbgang._numbersOnlyTrennzeichen = True
+        Me.txtKennzeichenAbgang._Prozent = False
+        Me.txtKennzeichenAbgang._ShortDateNew = False
+        Me.txtKennzeichenAbgang._ShortDateOnly = False
+        Me.txtKennzeichenAbgang._TimeOnly = False
+        Me.txtKennzeichenAbgang._TimeOnly_Seconds = False
+        Me.txtKennzeichenAbgang._value = ""
+        Me.txtKennzeichenAbgang._Waehrung = False
+        Me.txtKennzeichenAbgang._WaehrungZeichen = True
+        Me.txtKennzeichenAbgang.Location = New System.Drawing.Point(142, 0)
+        Me.txtKennzeichenAbgang.MaxLength = 27
+        Me.txtKennzeichenAbgang.MaxLineLength = -1
+        Me.txtKennzeichenAbgang.MaxLines_Warning = ""
+        Me.txtKennzeichenAbgang.MaxLines_Warning_Label = Nothing
+        Me.txtKennzeichenAbgang.Name = "txtKennzeichenAbgang"
+        Me.txtKennzeichenAbgang.Size = New System.Drawing.Size(140, 20)
+        Me.txtKennzeichenAbgang.TabIndex = 1
+        '
+        'sbKennzeichenAbgangLand
+        '
+        Me.sbKennzeichenAbgangLand._allowFreitext = False
+        Me.sbKennzeichenAbgangLand._AllowSetValue = False
+        Me.sbKennzeichenAbgangLand._allowSpaceAsSplitter = False
+        Me.sbKennzeichenAbgangLand._autoSizeGross = False
+        Me.sbKennzeichenAbgangLand._hideIfListEmpty = True
+        Me.sbKennzeichenAbgangLand._value = ""
+        Me.sbKennzeichenAbgangLand.conn_art = "FMZOLL"
+        Me.sbKennzeichenAbgangLand.dgvpos = "LEFT"
+        Me.sbKennzeichenAbgangLand.DISPLAY_PARAM = Nothing
+        Me.sbKennzeichenAbgangLand.INVISIBLE_COLUMNS = Nothing
+        Me.sbKennzeichenAbgangLand.key_visible = False
+        Me.sbKennzeichenAbgangLand.KEYPARAM = Nothing
+        Me.sbKennzeichenAbgangLand.Location = New System.Drawing.Point(315, 0)
+        Me.sbKennzeichenAbgangLand.Name = "sbKennzeichenAbgangLand"
+        Me.sbKennzeichenAbgangLand.searchActive = True
+        Me.sbKennzeichenAbgangLand.Size = New System.Drawing.Size(41, 20)
+        Me.sbKennzeichenAbgangLand.SQL_ORDER_BY = Nothing
+        Me.sbKennzeichenAbgangLand.SQL_SELECT = Nothing
+        Me.sbKennzeichenAbgangLand.SQL_WHERE = Nothing
+        Me.sbKennzeichenAbgangLand.SQL_WhereParamList = Nothing
+        Me.sbKennzeichenAbgangLand.TabIndex = 2
+        Me.sbKennzeichenAbgangLand.usrcntl = Nothing
+        '
+        'txtKennzeichenGrenze
+        '
+        Me.txtKennzeichenGrenze._DateTimeOnly = False
+        Me.txtKennzeichenGrenze._numbersOnly = False
+        Me.txtKennzeichenGrenze._numbersOnlyKommastellen = ""
+        Me.txtKennzeichenGrenze._numbersOnlyTrennzeichen = True
+        Me.txtKennzeichenGrenze._Prozent = False
+        Me.txtKennzeichenGrenze._ShortDateNew = False
+        Me.txtKennzeichenGrenze._ShortDateOnly = False
+        Me.txtKennzeichenGrenze._TimeOnly = False
+        Me.txtKennzeichenGrenze._TimeOnly_Seconds = False
+        Me.txtKennzeichenGrenze._value = ""
+        Me.txtKennzeichenGrenze._Waehrung = False
+        Me.txtKennzeichenGrenze._WaehrungZeichen = True
+        Me.txtKennzeichenGrenze.Location = New System.Drawing.Point(694, 0)
+        Me.txtKennzeichenGrenze.MaxLength = 27
+        Me.txtKennzeichenGrenze.MaxLineLength = -1
+        Me.txtKennzeichenGrenze.MaxLines_Warning = ""
+        Me.txtKennzeichenGrenze.MaxLines_Warning_Label = Nothing
+        Me.txtKennzeichenGrenze.Name = "txtKennzeichenGrenze"
+        Me.txtKennzeichenGrenze.Size = New System.Drawing.Size(140, 20)
+        Me.txtKennzeichenGrenze.TabIndex = 5
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.lorry
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.Location = New System.Drawing.Point(556, 0)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(24, 20)
+        Me.PictureBox2.TabIndex = 69
+        Me.PictureBox2.TabStop = False
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(24, 20)
+        Me.PictureBox1.TabIndex = 68
+        Me.PictureBox1.TabStop = False
+        '
+        'Label4
+        '
+        Me.Label4.Location = New System.Drawing.Point(4, 3)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(135, 13)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "Kennzeichen Abgang:"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label5
+        '
+        Me.Label5.Location = New System.Drawing.Point(556, 4)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(132, 13)
+        Me.Label5.TabIndex = 4
+        Me.Label5.Text = "Kennzeichen Grenze:"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label6
+        '
+        Me.Label6.Location = New System.Drawing.Point(280, 3)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(36, 13)
+        Me.Label6.TabIndex = 3
+        Me.Label6.Text = "Land:"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label7
+        '
+        Me.Label7.Location = New System.Drawing.Point(832, 4)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(36, 13)
+        Me.Label7.TabIndex = 7
+        Me.Label7.Text = "Land:"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtLadeort
+        '
+        Me.txtLadeort._DateTimeOnly = False
+        Me.txtLadeort._numbersOnly = False
+        Me.txtLadeort._numbersOnlyKommastellen = ""
+        Me.txtLadeort._numbersOnlyTrennzeichen = True
+        Me.txtLadeort._Prozent = False
+        Me.txtLadeort._ShortDateNew = False
+        Me.txtLadeort._ShortDateOnly = False
+        Me.txtLadeort._TimeOnly = False
+        Me.txtLadeort._TimeOnly_Seconds = False
+        Me.txtLadeort._value = Nothing
+        Me.txtLadeort._Waehrung = False
+        Me.txtLadeort._WaehrungZeichen = True
+        Me.txtLadeort.ForeColor = System.Drawing.Color.Black
+        Me.txtLadeort.Location = New System.Drawing.Point(142, 287)
+        Me.txtLadeort.MaxLength = 17
+        Me.txtLadeort.MaxLineLength = -1
+        Me.txtLadeort.MaxLines_Warning = ""
+        Me.txtLadeort.MaxLines_Warning_Label = Nothing
+        Me.txtLadeort.Name = "txtLadeort"
+        Me.txtLadeort.Size = New System.Drawing.Size(214, 20)
+        Me.txtLadeort.TabIndex = 33
+        '
+        'txtEntladeort
+        '
+        Me.txtEntladeort._DateTimeOnly = False
+        Me.txtEntladeort._numbersOnly = False
+        Me.txtEntladeort._numbersOnlyKommastellen = ""
+        Me.txtEntladeort._numbersOnlyTrennzeichen = True
+        Me.txtEntladeort._Prozent = False
+        Me.txtEntladeort._ShortDateNew = False
+        Me.txtEntladeort._ShortDateOnly = False
+        Me.txtEntladeort._TimeOnly = False
+        Me.txtEntladeort._TimeOnly_Seconds = False
+        Me.txtEntladeort._value = ""
+        Me.txtEntladeort._Waehrung = False
+        Me.txtEntladeort._WaehrungZeichen = True
+        Me.txtEntladeort.ForeColor = System.Drawing.Color.Black
+        Me.txtEntladeort.Location = New System.Drawing.Point(694, 287)
+        Me.txtEntladeort.MaxLength = 35
+        Me.txtEntladeort.MaxLineLength = -1
+        Me.txtEntladeort.MaxLines_Warning = ""
+        Me.txtEntladeort.MaxLines_Warning_Label = Nothing
+        Me.txtEntladeort.Name = "txtEntladeort"
+        Me.txtEntladeort.Size = New System.Drawing.Size(214, 20)
+        Me.txtEntladeort.TabIndex = 35
+        '
+        'txtComRef
+        '
+        Me.txtComRef._DateTimeOnly = False
+        Me.txtComRef._numbersOnly = False
+        Me.txtComRef._numbersOnlyKommastellen = ""
+        Me.txtComRef._numbersOnlyTrennzeichen = True
+        Me.txtComRef._Prozent = False
+        Me.txtComRef._ShortDateNew = False
+        Me.txtComRef._ShortDateOnly = False
+        Me.txtComRef._TimeOnly = False
+        Me.txtComRef._TimeOnly_Seconds = False
+        Me.txtComRef._value = Nothing
+        Me.txtComRef._Waehrung = False
+        Me.txtComRef._WaehrungZeichen = True
+        Me.txtComRef.Enabled = False
+        Me.txtComRef.ForeColor = System.Drawing.Color.Black
+        Me.txtComRef.Location = New System.Drawing.Point(142, 120)
+        Me.txtComRef.MaxLength = 4
+        Me.txtComRef.MaxLineLength = -1
+        Me.txtComRef.MaxLines_Warning = ""
+        Me.txtComRef.MaxLines_Warning_Label = Nothing
+        Me.txtComRef.Name = "txtComRef"
+        Me.txtComRef.Size = New System.Drawing.Size(214, 20)
+        Me.txtComRef.TabIndex = 65
+        '
+        'Label22
+        '
+        Me.Label22.Location = New System.Drawing.Point(1, 123)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(135, 13)
+        Me.Label22.TabIndex = 64
+        Me.Label22.Text = "Commercial-Ref"
+        Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtGoodsLocation
+        '
+        Me.txtGoodsLocation._DateTimeOnly = False
+        Me.txtGoodsLocation._numbersOnly = False
+        Me.txtGoodsLocation._numbersOnlyKommastellen = ""
+        Me.txtGoodsLocation._numbersOnlyTrennzeichen = True
+        Me.txtGoodsLocation._Prozent = False
+        Me.txtGoodsLocation._ShortDateNew = False
+        Me.txtGoodsLocation._ShortDateOnly = False
+        Me.txtGoodsLocation._TimeOnly = False
+        Me.txtGoodsLocation._TimeOnly_Seconds = False
+        Me.txtGoodsLocation._value = Nothing
+        Me.txtGoodsLocation._Waehrung = False
+        Me.txtGoodsLocation._WaehrungZeichen = True
+        Me.txtGoodsLocation.Enabled = False
+        Me.txtGoodsLocation.ForeColor = System.Drawing.Color.Black
+        Me.txtGoodsLocation.Location = New System.Drawing.Point(142, 143)
+        Me.txtGoodsLocation.MaxLength = 4
+        Me.txtGoodsLocation.MaxLineLength = -1
+        Me.txtGoodsLocation.MaxLines_Warning = ""
+        Me.txtGoodsLocation.MaxLines_Warning_Label = Nothing
+        Me.txtGoodsLocation.Name = "txtGoodsLocation"
+        Me.txtGoodsLocation.Size = New System.Drawing.Size(214, 20)
+        Me.txtGoodsLocation.TabIndex = 67
+        '
+        'Label9
+        '
+        Me.Label9.Location = New System.Drawing.Point(1, 146)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(135, 13)
+        Me.Label9.TabIndex = 66
+        Me.Label9.Text = "Goods Location"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblWegZeit
+        '
+        Me.lblWegZeit.AutoSize = True
+        Me.lblWegZeit.Location = New System.Drawing.Point(719, 241)
+        Me.lblWegZeit.Name = "lblWegZeit"
+        Me.lblWegZeit.Size = New System.Drawing.Size(10, 13)
+        Me.lblWegZeit.TabIndex = 61
+        Me.lblWegZeit.Text = "-"
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.txtMucr)
+        Me.Panel2.Controls.Add(Me.Label47)
+        Me.Panel2.Controls.Add(Me.txtducrPart)
+        Me.Panel2.Controls.Add(Me.Label46)
+        Me.Panel2.Controls.Add(Me.txtUCR)
+        Me.Panel2.Controls.Add(Me.Label45)
+        Me.Panel2.Controls.Add(Me.cbxIncoterms)
+        Me.Panel2.Controls.Add(Me.Label44)
+        Me.Panel2.Controls.Add(Me.MyTextBox1)
+        Me.Panel2.Controls.Add(Me.Label10)
+        Me.Panel2.Controls.Add(Me.MyTextBox2)
+        Me.Panel2.Controls.Add(Me.Label23)
+        Me.Panel2.Controls.Add(Me.CheckBox1)
+        Me.Panel2.Controls.Add(Me.Label24)
+        Me.Panel2.Controls.Add(Me.Label25)
+        Me.Panel2.Controls.Add(Me.Label26)
+        Me.Panel2.Controls.Add(Me.Button2)
+        Me.Panel2.Controls.Add(Me.LinkLabel2)
+        Me.Panel2.Controls.Add(Me.MyComboBox3)
+        Me.Panel2.Controls.Add(Me.Label29)
+        Me.Panel2.Controls.Add(Me.MyComboBox4)
+        Me.Panel2.Controls.Add(Me.Label30)
+        Me.Panel2.Controls.Add(Me.Label31)
+        Me.Panel2.Controls.Add(Me.PictureBox3)
+        Me.Panel2.Controls.Add(Me.TextBox1)
+        Me.Panel2.Controls.Add(Me.Label33)
+        Me.Panel2.Controls.Add(Me.Button3)
+        Me.Panel2.Controls.Add(Me.Button4)
+        Me.Panel2.Controls.Add(Me.Button5)
+        Me.Panel2.Controls.Add(Me.Button6)
+        Me.Panel2.Controls.Add(Me.Button7)
+        Me.Panel2.Controls.Add(Me.MyTextBox4)
+        Me.Panel2.Controls.Add(Me.Label34)
+        Me.Panel2.Controls.Add(Me.MyTextBox5)
+        Me.Panel2.Controls.Add(Me.Label35)
+        Me.Panel2.Controls.Add(Me.MySearchBox10)
+        Me.Panel2.Controls.Add(Me.Label36)
+        Me.Panel2.Controls.Add(Me.Label37)
+        Me.Panel2.Controls.Add(Me.MySearchBox11)
+        Me.Panel2.Controls.Add(Me.Label38)
+        Me.Panel2.Controls.Add(Me.Label39)
+        Me.Panel2.Controls.Add(Me.Panel3)
+        Me.Panel2.Controls.Add(Me.MyTextBox8)
+        Me.Panel2.Controls.Add(Me.MyTextBox9)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(930, 503)
+        Me.Panel2.TabIndex = 68
+        '
+        'MyTextBox1
+        '
+        Me.MyTextBox1._DateTimeOnly = False
+        Me.MyTextBox1._numbersOnly = False
+        Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._numbersOnlyTrennzeichen = True
+        Me.MyTextBox1._Prozent = False
+        Me.MyTextBox1._ShortDateNew = False
+        Me.MyTextBox1._ShortDateOnly = False
+        Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._TimeOnly_Seconds = False
+        Me.MyTextBox1._value = Nothing
+        Me.MyTextBox1._Waehrung = False
+        Me.MyTextBox1._WaehrungZeichen = True
+        Me.MyTextBox1.Enabled = False
+        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox1.Location = New System.Drawing.Point(142, 143)
+        Me.MyTextBox1.MaxLength = 4
+        Me.MyTextBox1.MaxLineLength = -1
+        Me.MyTextBox1.MaxLines_Warning = ""
+        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox1.Name = "MyTextBox1"
+        Me.MyTextBox1.Size = New System.Drawing.Size(214, 20)
+        Me.MyTextBox1.TabIndex = 67
+        '
+        'Label10
+        '
+        Me.Label10.Location = New System.Drawing.Point(1, 146)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(135, 13)
+        Me.Label10.TabIndex = 66
+        Me.Label10.Text = "Goods Location"
+        Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'MyTextBox2
+        '
+        Me.MyTextBox2._DateTimeOnly = False
+        Me.MyTextBox2._numbersOnly = False
+        Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._numbersOnlyTrennzeichen = True
+        Me.MyTextBox2._Prozent = False
+        Me.MyTextBox2._ShortDateNew = False
+        Me.MyTextBox2._ShortDateOnly = False
+        Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
+        Me.MyTextBox2._value = Nothing
+        Me.MyTextBox2._Waehrung = False
+        Me.MyTextBox2._WaehrungZeichen = True
+        Me.MyTextBox2.Enabled = False
+        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox2.Location = New System.Drawing.Point(142, 120)
+        Me.MyTextBox2.MaxLength = 4
+        Me.MyTextBox2.MaxLineLength = -1
+        Me.MyTextBox2.MaxLines_Warning = ""
+        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox2.Name = "MyTextBox2"
+        Me.MyTextBox2.Size = New System.Drawing.Size(214, 20)
+        Me.MyTextBox2.TabIndex = 65
+        '
+        'Label23
+        '
+        Me.Label23.Location = New System.Drawing.Point(1, 123)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(135, 13)
+        Me.Label23.TabIndex = 64
+        Me.Label23.Text = "Commercial-Ref"
+        Me.Label23.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Checked = True
+        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox1.Location = New System.Drawing.Point(865, 205)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(50, 17)
+        Me.CheckBox1.TabIndex = 63
+        Me.CheckBox1.Text = "LKW"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'Label24
+        '
+        Me.Label24.Location = New System.Drawing.Point(719, 47)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(119, 29)
+        Me.Label24.TabIndex = 62
+        Me.Label24.Visible = False
+        '
+        'Label25
+        '
+        Me.Label25.AutoSize = True
+        Me.Label25.Location = New System.Drawing.Point(719, 241)
+        Me.Label25.Name = "Label25"
+        Me.Label25.Size = New System.Drawing.Size(10, 13)
+        Me.Label25.TabIndex = 61
+        Me.Label25.Text = "-"
+        '
+        'Label26
+        '
+        Me.Label26.AutoSize = True
+        Me.Label26.Location = New System.Drawing.Point(719, 226)
+        Me.Label26.Name = "Label26"
+        Me.Label26.Size = New System.Drawing.Size(10, 13)
+        Me.Label26.TabIndex = 60
+        Me.Label26.Text = "-"
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(722, 202)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(137, 21)
+        Me.Button2.TabIndex = 59
+        Me.Button2.Text = "Strecke berechnen"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'LinkLabel2
+        '
+        Me.LinkLabel2.AutoSize = True
+        Me.LinkLabel2.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel2.Location = New System.Drawing.Point(719, 327)
+        Me.LinkLabel2.Name = "LinkLabel2"
+        Me.LinkLabel2.Size = New System.Drawing.Size(115, 13)
+        Me.LinkLabel2.TabIndex = 37
+        Me.LinkLabel2.TabStop = True
+        Me.LinkLabel2.Text = "=Abgang Kennz./Land"
+        '
+        'MyComboBox3
+        '
+        Me.MyComboBox3._allowedValuesFreiText = Nothing
+        Me.MyComboBox3._allowFreiText = False
+        Me.MyComboBox3._value = ""
+        Me.MyComboBox3.DropDownWidth = 350
+        Me.MyComboBox3.FormattingEnabled = True
+        Me.MyComboBox3.Location = New System.Drawing.Point(315, 325)
+        Me.MyComboBox3.Name = "MyComboBox3"
+        Me.MyComboBox3.Size = New System.Drawing.Size(41, 21)
+        Me.MyComboBox3.TabIndex = 41
+        '
+        'Label29
+        '
+        Me.Label29.Location = New System.Drawing.Point(1, 328)
+        Me.Label29.Name = "Label29"
+        Me.Label29.Size = New System.Drawing.Size(135, 13)
+        Me.Label29.TabIndex = 38
+        Me.Label29.Text = "Verkehrszweig:"
+        Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'MyComboBox4
+        '
+        Me.MyComboBox4._allowedValuesFreiText = Nothing
+        Me.MyComboBox4._allowFreiText = False
+        Me.MyComboBox4._value = ""
+        Me.MyComboBox4.DropDownWidth = 350
+        Me.MyComboBox4.FormattingEnabled = True
+        Me.MyComboBox4.Location = New System.Drawing.Point(142, 325)
+        Me.MyComboBox4.Name = "MyComboBox4"
+        Me.MyComboBox4.Size = New System.Drawing.Size(140, 21)
+        Me.MyComboBox4.TabIndex = 39
+        '
+        'Label30
+        '
+        Me.Label30.Location = New System.Drawing.Point(553, 290)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(135, 13)
+        Me.Label30.TabIndex = 34
+        Me.Label30.Text = "Entladeort:"
+        Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label31
+        '
+        Me.Label31.Location = New System.Drawing.Point(1, 290)
+        Me.Label31.Name = "Label31"
+        Me.Label31.Size = New System.Drawing.Size(135, 13)
+        Me.Label31.TabIndex = 32
+        Me.Label31.Text = "Ladeort:"
+        Me.Label31.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'PictureBox3
+        '
+        Me.PictureBox3.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
+        Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox3.Location = New System.Drawing.Point(754, 107)
+        Me.PictureBox3.Name = "PictureBox3"
+        Me.PictureBox3.Size = New System.Drawing.Size(154, 50)
+        Me.PictureBox3.TabIndex = 47
+        Me.PictureBox3.TabStop = False
+        '
+        'TextBox1
+        '
+        Me.TextBox1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBox1.Location = New System.Drawing.Point(310, 39)
+        Me.TextBox1.Multiline = True
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(598, 59)
+        Me.TextBox1.TabIndex = 8
+        '
+        'Label33
+        '
+        Me.Label33.AutoSize = True
+        Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label33.Location = New System.Drawing.Point(307, 24)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(50, 13)
+        Me.Label33.TabIndex = 1
+        Me.Label33.Text = "Details:"
+        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.White
+        Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button3.ForeColor = System.Drawing.Color.Black
+        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button3.Location = New System.Drawing.Point(243, 39)
+        Me.Button3.Margin = New System.Windows.Forms.Padding(2)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(62, 37)
+        Me.Button3.TabIndex = 6
+        Me.Button3.Text = "IMZ"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'Button4
+        '
+        Me.Button4.BackColor = System.Drawing.Color.White
+        Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button4.ForeColor = System.Drawing.Color.Black
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button4.Location = New System.Drawing.Point(177, 39)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(2)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(62, 37)
+        Me.Button4.TabIndex = 5
+        Me.Button4.Text = "IMD"
+        Me.Button4.UseVisualStyleBackColor = False
+        '
+        'Button5
+        '
+        Me.Button5.BackColor = System.Drawing.Color.White
+        Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button5.ForeColor = System.Drawing.Color.Black
+        Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button5.Location = New System.Drawing.Point(123, 39)
+        Me.Button5.Margin = New System.Windows.Forms.Padding(2)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(50, 37)
+        Me.Button5.TabIndex = 4
+        Me.Button5.Text = "IMA"
+        Me.Button5.UseVisualStyleBackColor = False
+        '
+        'Button6
+        '
+        Me.Button6.BackColor = System.Drawing.Color.White
+        Me.Button6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button6.ForeColor = System.Drawing.Color.Black
+        Me.Button6.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button6.Location = New System.Drawing.Point(69, 39)
+        Me.Button6.Margin = New System.Windows.Forms.Padding(2)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(50, 37)
+        Me.Button6.TabIndex = 3
+        Me.Button6.Text = "EXD"
+        Me.Button6.UseVisualStyleBackColor = False
+        '
+        'Button7
+        '
+        Me.Button7.BackColor = System.Drawing.Color.OrangeRed
+        Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button7.ForeColor = System.Drawing.SystemColors.ControlLightLight
+        Me.Button7.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button7.Location = New System.Drawing.Point(15, 39)
+        Me.Button7.Margin = New System.Windows.Forms.Padding(2)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(50, 37)
+        Me.Button7.TabIndex = 2
+        Me.Button7.Text = "EXA"
+        Me.Button7.UseVisualStyleBackColor = False
+        '
+        'MyTextBox4
+        '
+        Me.MyTextBox4._DateTimeOnly = False
+        Me.MyTextBox4._numbersOnly = False
+        Me.MyTextBox4._numbersOnlyKommastellen = ""
+        Me.MyTextBox4._numbersOnlyTrennzeichen = True
+        Me.MyTextBox4._Prozent = False
+        Me.MyTextBox4._ShortDateNew = False
+        Me.MyTextBox4._ShortDateOnly = False
+        Me.MyTextBox4._TimeOnly = False
+        Me.MyTextBox4._TimeOnly_Seconds = False
+        Me.MyTextBox4._value = Nothing
+        Me.MyTextBox4._Waehrung = False
+        Me.MyTextBox4._WaehrungZeichen = True
+        Me.MyTextBox4.Enabled = False
+        Me.MyTextBox4.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox4.Location = New System.Drawing.Point(142, 268)
+        Me.MyTextBox4.MaxLength = 4
+        Me.MyTextBox4.MaxLineLength = -1
+        Me.MyTextBox4.MaxLines_Warning = ""
+        Me.MyTextBox4.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox4.Name = "MyTextBox4"
+        Me.MyTextBox4.Size = New System.Drawing.Size(214, 20)
+        Me.MyTextBox4.TabIndex = 29
+        '
+        'Label34
+        '
+        Me.Label34.Location = New System.Drawing.Point(553, 271)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(135, 13)
+        Me.Label34.TabIndex = 30
+        Me.Label34.Text = "Wiedergestellungsdatum:"
+        Me.Label34.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'MyTextBox5
+        '
+        Me.MyTextBox5._DateTimeOnly = False
+        Me.MyTextBox5._numbersOnly = False
+        Me.MyTextBox5._numbersOnlyKommastellen = ""
+        Me.MyTextBox5._numbersOnlyTrennzeichen = True
+        Me.MyTextBox5._Prozent = False
+        Me.MyTextBox5._ShortDateNew = True
+        Me.MyTextBox5._ShortDateOnly = False
+        Me.MyTextBox5._TimeOnly = False
+        Me.MyTextBox5._TimeOnly_Seconds = False
+        Me.MyTextBox5._value = ""
+        Me.MyTextBox5._Waehrung = False
+        Me.MyTextBox5._WaehrungZeichen = True
+        Me.MyTextBox5.Enabled = False
+        Me.MyTextBox5.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox5.Location = New System.Drawing.Point(694, 268)
+        Me.MyTextBox5.MaxLength = 10
+        Me.MyTextBox5.MaxLineLength = -1
+        Me.MyTextBox5.MaxLines_Warning = ""
+        Me.MyTextBox5.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox5.Name = "MyTextBox5"
+        Me.MyTextBox5.Size = New System.Drawing.Size(214, 20)
+        Me.MyTextBox5.TabIndex = 31
+        '
+        'Label35
+        '
+        Me.Label35.Location = New System.Drawing.Point(1, 271)
+        Me.Label35.Name = "Label35"
+        Me.Label35.Size = New System.Drawing.Size(135, 13)
+        Me.Label35.TabIndex = 28
+        Me.Label35.Text = "Beladungsort:"
+        Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'MySearchBox10
+        '
+        Me.MySearchBox10._allowFreitext = False
+        Me.MySearchBox10._AllowSetValue = False
+        Me.MySearchBox10._allowSpaceAsSplitter = False
+        Me.MySearchBox10._autoSizeGross = False
+        Me.MySearchBox10._hideIfListEmpty = True
+        Me.MySearchBox10._value = ""
+        Me.MySearchBox10.conn_art = "FMZOLL"
+        Me.MySearchBox10.dgvpos = "RIGHT"
+        Me.MySearchBox10.DISPLAY_PARAM = Nothing
+        Me.MySearchBox10.INVISIBLE_COLUMNS = Nothing
+        Me.MySearchBox10.key_visible = False
+        Me.MySearchBox10.KEYPARAM = Nothing
+        Me.MySearchBox10.Location = New System.Drawing.Point(142, 195)
+        Me.MySearchBox10.Name = "MySearchBox10"
+        Me.MySearchBox10.searchActive = True
+        Me.MySearchBox10.Size = New System.Drawing.Size(214, 20)
+        Me.MySearchBox10.SQL_ORDER_BY = Nothing
+        Me.MySearchBox10.SQL_SELECT = Nothing
+        Me.MySearchBox10.SQL_WHERE = Nothing
+        Me.MySearchBox10.SQL_WhereParamList = Nothing
+        Me.MySearchBox10.TabIndex = 15
+        Me.MySearchBox10.usrcntl = Nothing
+        '
+        'Label36
+        '
+        Me.Label36.Location = New System.Drawing.Point(20, 198)
+        Me.Label36.Name = "Label36"
+        Me.Label36.Size = New System.Drawing.Size(116, 13)
+        Me.Label36.TabIndex = 17
+        Me.Label36.Text = "Destination-Country"
+        Me.Label36.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label37
+        '
+        Me.Label37.Location = New System.Drawing.Point(1, 172)
+        Me.Label37.Name = "Label37"
+        Me.Label37.Size = New System.Drawing.Size(135, 13)
+        Me.Label37.TabIndex = 13
+        Me.Label37.Text = "Dispatch Country:"
+        Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'MySearchBox11
+        '
+        Me.MySearchBox11._allowFreitext = False
+        Me.MySearchBox11._AllowSetValue = False
+        Me.MySearchBox11._allowSpaceAsSplitter = False
+        Me.MySearchBox11._autoSizeGross = False
+        Me.MySearchBox11._hideIfListEmpty = True
+        Me.MySearchBox11._value = ""
+        Me.MySearchBox11.conn_art = "FMZOLL"
+        Me.MySearchBox11.dgvpos = "LEFT"
+        Me.MySearchBox11.DISPLAY_PARAM = Nothing
+        Me.MySearchBox11.INVISIBLE_COLUMNS = Nothing
+        Me.MySearchBox11.key_visible = False
+        Me.MySearchBox11.KEYPARAM = Nothing
+        Me.MySearchBox11.Location = New System.Drawing.Point(142, 169)
+        Me.MySearchBox11.Name = "MySearchBox11"
+        Me.MySearchBox11.searchActive = True
+        Me.MySearchBox11.Size = New System.Drawing.Size(214, 20)
+        Me.MySearchBox11.SQL_ORDER_BY = Nothing
+        Me.MySearchBox11.SQL_SELECT = Nothing
+        Me.MySearchBox11.SQL_WHERE = Nothing
+        Me.MySearchBox11.SQL_WhereParamList = Nothing
+        Me.MySearchBox11.TabIndex = 14
+        Me.MySearchBox11.usrcntl = Nothing
+        '
+        'Label38
+        '
+        Me.Label38.AutoSize = True
+        Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label38.Location = New System.Drawing.Point(12, 24)
+        Me.Label38.Name = "Label38"
+        Me.Label38.Size = New System.Drawing.Size(115, 13)
+        Me.Label38.TabIndex = 0
+        Me.Label38.Text = "Art der Anmeldung:"
+        '
+        'Label39
+        '
+        Me.Label39.Location = New System.Drawing.Point(269, 328)
+        Me.Label39.Name = "Label39"
+        Me.Label39.Size = New System.Drawing.Size(36, 13)
+        Me.Label39.TabIndex = 40
+        Me.Label39.Text = "Art:"
+        Me.Label39.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Panel3
+        '
+        Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel3.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel3.Controls.Add(Me.MySearchBox12)
+        Me.Panel3.Controls.Add(Me.MyTextBox6)
+        Me.Panel3.Controls.Add(Me.MySearchBox13)
+        Me.Panel3.Controls.Add(Me.MyTextBox7)
+        Me.Panel3.Controls.Add(Me.PictureBox4)
+        Me.Panel3.Controls.Add(Me.PictureBox5)
+        Me.Panel3.Controls.Add(Me.Label40)
+        Me.Panel3.Controls.Add(Me.Label41)
+        Me.Panel3.Controls.Add(Me.Label42)
+        Me.Panel3.Controls.Add(Me.Label43)
+        Me.Panel3.Location = New System.Drawing.Point(0, 306)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(930, 20)
+        Me.Panel3.TabIndex = 36
+        '
+        'MySearchBox12
+        '
+        Me.MySearchBox12._allowFreitext = False
+        Me.MySearchBox12._AllowSetValue = False
+        Me.MySearchBox12._allowSpaceAsSplitter = False
+        Me.MySearchBox12._autoSizeGross = False
+        Me.MySearchBox12._hideIfListEmpty = True
+        Me.MySearchBox12._value = ""
+        Me.MySearchBox12.conn_art = "FMZOLL"
+        Me.MySearchBox12.dgvpos = "RIGHT"
+        Me.MySearchBox12.DISPLAY_PARAM = Nothing
+        Me.MySearchBox12.INVISIBLE_COLUMNS = Nothing
+        Me.MySearchBox12.key_visible = False
+        Me.MySearchBox12.KEYPARAM = Nothing
+        Me.MySearchBox12.Location = New System.Drawing.Point(867, 0)
+        Me.MySearchBox12.Name = "MySearchBox12"
+        Me.MySearchBox12.searchActive = True
+        Me.MySearchBox12.Size = New System.Drawing.Size(41, 20)
+        Me.MySearchBox12.SQL_ORDER_BY = Nothing
+        Me.MySearchBox12.SQL_SELECT = Nothing
+        Me.MySearchBox12.SQL_WHERE = Nothing
+        Me.MySearchBox12.SQL_WhereParamList = Nothing
+        Me.MySearchBox12.TabIndex = 6
+        Me.MySearchBox12.usrcntl = Nothing
+        '
+        'MyTextBox6
+        '
+        Me.MyTextBox6._DateTimeOnly = False
+        Me.MyTextBox6._numbersOnly = False
+        Me.MyTextBox6._numbersOnlyKommastellen = ""
+        Me.MyTextBox6._numbersOnlyTrennzeichen = True
+        Me.MyTextBox6._Prozent = False
+        Me.MyTextBox6._ShortDateNew = False
+        Me.MyTextBox6._ShortDateOnly = False
+        Me.MyTextBox6._TimeOnly = False
+        Me.MyTextBox6._TimeOnly_Seconds = False
+        Me.MyTextBox6._value = ""
+        Me.MyTextBox6._Waehrung = False
+        Me.MyTextBox6._WaehrungZeichen = True
+        Me.MyTextBox6.Location = New System.Drawing.Point(142, 0)
+        Me.MyTextBox6.MaxLength = 27
+        Me.MyTextBox6.MaxLineLength = -1
+        Me.MyTextBox6.MaxLines_Warning = ""
+        Me.MyTextBox6.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox6.Name = "MyTextBox6"
+        Me.MyTextBox6.Size = New System.Drawing.Size(140, 20)
+        Me.MyTextBox6.TabIndex = 1
+        '
+        'MySearchBox13
+        '
+        Me.MySearchBox13._allowFreitext = False
+        Me.MySearchBox13._AllowSetValue = False
+        Me.MySearchBox13._allowSpaceAsSplitter = False
+        Me.MySearchBox13._autoSizeGross = False
+        Me.MySearchBox13._hideIfListEmpty = True
+        Me.MySearchBox13._value = ""
+        Me.MySearchBox13.conn_art = "FMZOLL"
+        Me.MySearchBox13.dgvpos = "LEFT"
+        Me.MySearchBox13.DISPLAY_PARAM = Nothing
+        Me.MySearchBox13.INVISIBLE_COLUMNS = Nothing
+        Me.MySearchBox13.key_visible = False
+        Me.MySearchBox13.KEYPARAM = Nothing
+        Me.MySearchBox13.Location = New System.Drawing.Point(315, 0)
+        Me.MySearchBox13.Name = "MySearchBox13"
+        Me.MySearchBox13.searchActive = True
+        Me.MySearchBox13.Size = New System.Drawing.Size(41, 20)
+        Me.MySearchBox13.SQL_ORDER_BY = Nothing
+        Me.MySearchBox13.SQL_SELECT = Nothing
+        Me.MySearchBox13.SQL_WHERE = Nothing
+        Me.MySearchBox13.SQL_WhereParamList = Nothing
+        Me.MySearchBox13.TabIndex = 2
+        Me.MySearchBox13.usrcntl = Nothing
+        '
+        'MyTextBox7
+        '
+        Me.MyTextBox7._DateTimeOnly = False
+        Me.MyTextBox7._numbersOnly = False
+        Me.MyTextBox7._numbersOnlyKommastellen = ""
+        Me.MyTextBox7._numbersOnlyTrennzeichen = True
+        Me.MyTextBox7._Prozent = False
+        Me.MyTextBox7._ShortDateNew = False
+        Me.MyTextBox7._ShortDateOnly = False
+        Me.MyTextBox7._TimeOnly = False
+        Me.MyTextBox7._TimeOnly_Seconds = False
+        Me.MyTextBox7._value = ""
+        Me.MyTextBox7._Waehrung = False
+        Me.MyTextBox7._WaehrungZeichen = True
+        Me.MyTextBox7.Location = New System.Drawing.Point(694, 0)
+        Me.MyTextBox7.MaxLength = 27
+        Me.MyTextBox7.MaxLineLength = -1
+        Me.MyTextBox7.MaxLines_Warning = ""
+        Me.MyTextBox7.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox7.Name = "MyTextBox7"
+        Me.MyTextBox7.Size = New System.Drawing.Size(140, 20)
+        Me.MyTextBox7.TabIndex = 5
+        '
+        'PictureBox4
+        '
+        Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.PictureBox4.BackgroundImage = Global.SDL.My.Resources.Resources.lorry
+        Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox4.Location = New System.Drawing.Point(556, 0)
+        Me.PictureBox4.Name = "PictureBox4"
+        Me.PictureBox4.Size = New System.Drawing.Size(24, 20)
+        Me.PictureBox4.TabIndex = 69
+        Me.PictureBox4.TabStop = False
+        '
+        'PictureBox5
+        '
+        Me.PictureBox5.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.lorry
+        Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox5.Location = New System.Drawing.Point(0, 0)
+        Me.PictureBox5.Name = "PictureBox5"
+        Me.PictureBox5.Size = New System.Drawing.Size(24, 20)
+        Me.PictureBox5.TabIndex = 68
+        Me.PictureBox5.TabStop = False
+        '
+        'Label40
+        '
+        Me.Label40.Location = New System.Drawing.Point(4, 3)
+        Me.Label40.Name = "Label40"
+        Me.Label40.Size = New System.Drawing.Size(135, 13)
+        Me.Label40.TabIndex = 0
+        Me.Label40.Text = "Kennzeichen Abgang:"
+        Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label41
+        '
+        Me.Label41.Location = New System.Drawing.Point(556, 4)
+        Me.Label41.Name = "Label41"
+        Me.Label41.Size = New System.Drawing.Size(132, 13)
+        Me.Label41.TabIndex = 4
+        Me.Label41.Text = "Kennzeichen Grenze:"
+        Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label42
+        '
+        Me.Label42.Location = New System.Drawing.Point(280, 3)
+        Me.Label42.Name = "Label42"
+        Me.Label42.Size = New System.Drawing.Size(36, 13)
+        Me.Label42.TabIndex = 3
+        Me.Label42.Text = "Land:"
+        Me.Label42.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label43
+        '
+        Me.Label43.Location = New System.Drawing.Point(832, 4)
+        Me.Label43.Name = "Label43"
+        Me.Label43.Size = New System.Drawing.Size(36, 13)
+        Me.Label43.TabIndex = 7
+        Me.Label43.Text = "Land:"
+        Me.Label43.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'MyTextBox8
+        '
+        Me.MyTextBox8._DateTimeOnly = False
+        Me.MyTextBox8._numbersOnly = False
+        Me.MyTextBox8._numbersOnlyKommastellen = ""
+        Me.MyTextBox8._numbersOnlyTrennzeichen = True
+        Me.MyTextBox8._Prozent = False
+        Me.MyTextBox8._ShortDateNew = False
+        Me.MyTextBox8._ShortDateOnly = False
+        Me.MyTextBox8._TimeOnly = False
+        Me.MyTextBox8._TimeOnly_Seconds = False
+        Me.MyTextBox8._value = Nothing
+        Me.MyTextBox8._Waehrung = False
+        Me.MyTextBox8._WaehrungZeichen = True
+        Me.MyTextBox8.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox8.Location = New System.Drawing.Point(142, 287)
+        Me.MyTextBox8.MaxLength = 17
+        Me.MyTextBox8.MaxLineLength = -1
+        Me.MyTextBox8.MaxLines_Warning = ""
+        Me.MyTextBox8.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox8.Name = "MyTextBox8"
+        Me.MyTextBox8.Size = New System.Drawing.Size(214, 20)
+        Me.MyTextBox8.TabIndex = 33
+        '
+        'MyTextBox9
+        '
+        Me.MyTextBox9._DateTimeOnly = False
+        Me.MyTextBox9._numbersOnly = False
+        Me.MyTextBox9._numbersOnlyKommastellen = ""
+        Me.MyTextBox9._numbersOnlyTrennzeichen = True
+        Me.MyTextBox9._Prozent = False
+        Me.MyTextBox9._ShortDateNew = False
+        Me.MyTextBox9._ShortDateOnly = False
+        Me.MyTextBox9._TimeOnly = False
+        Me.MyTextBox9._TimeOnly_Seconds = False
+        Me.MyTextBox9._value = ""
+        Me.MyTextBox9._Waehrung = False
+        Me.MyTextBox9._WaehrungZeichen = True
+        Me.MyTextBox9.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox9.Location = New System.Drawing.Point(694, 287)
+        Me.MyTextBox9.MaxLength = 35
+        Me.MyTextBox9.MaxLineLength = -1
+        Me.MyTextBox9.MaxLines_Warning = ""
+        Me.MyTextBox9.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox9.Name = "MyTextBox9"
+        Me.MyTextBox9.Size = New System.Drawing.Size(214, 20)
+        Me.MyTextBox9.TabIndex = 35
+        '
+        'cbxIncoterms
+        '
+        Me.cbxIncoterms._allowedValuesFreiText = Nothing
+        Me.cbxIncoterms._allowFreiText = False
+        Me.cbxIncoterms._value = ""
+        Me.cbxIncoterms.DropDownWidth = 350
+        Me.cbxIncoterms.FormattingEnabled = True
+        Me.cbxIncoterms.Location = New System.Drawing.Point(518, 120)
+        Me.cbxIncoterms.Name = "cbxIncoterms"
+        Me.cbxIncoterms.Size = New System.Drawing.Size(93, 21)
+        Me.cbxIncoterms.TabIndex = 69
+        '
+        'Label44
+        '
+        Me.Label44.Location = New System.Drawing.Point(377, 123)
+        Me.Label44.Name = "Label44"
+        Me.Label44.Size = New System.Drawing.Size(135, 13)
+        Me.Label44.TabIndex = 68
+        Me.Label44.Text = "Incoterms:"
+        Me.Label44.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtUCR
+        '
+        Me.txtUCR._DateTimeOnly = False
+        Me.txtUCR._numbersOnly = False
+        Me.txtUCR._numbersOnlyKommastellen = ""
+        Me.txtUCR._numbersOnlyTrennzeichen = True
+        Me.txtUCR._Prozent = False
+        Me.txtUCR._ShortDateNew = False
+        Me.txtUCR._ShortDateOnly = False
+        Me.txtUCR._TimeOnly = False
+        Me.txtUCR._TimeOnly_Seconds = False
+        Me.txtUCR._value = Nothing
+        Me.txtUCR._Waehrung = False
+        Me.txtUCR._WaehrungZeichen = True
+        Me.txtUCR.Enabled = False
+        Me.txtUCR.ForeColor = System.Drawing.Color.Black
+        Me.txtUCR.Location = New System.Drawing.Point(518, 146)
+        Me.txtUCR.MaxLength = 4
+        Me.txtUCR.MaxLineLength = -1
+        Me.txtUCR.MaxLines_Warning = ""
+        Me.txtUCR.MaxLines_Warning_Label = Nothing
+        Me.txtUCR.Name = "txtUCR"
+        Me.txtUCR.Size = New System.Drawing.Size(93, 20)
+        Me.txtUCR.TabIndex = 71
+        '
+        'Label45
+        '
+        Me.Label45.Location = New System.Drawing.Point(377, 149)
+        Me.Label45.Name = "Label45"
+        Me.Label45.Size = New System.Drawing.Size(109, 13)
+        Me.Label45.TabIndex = 70
+        Me.Label45.Text = "Declaration UCR"
+        Me.Label45.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtducrPart
+        '
+        Me.txtducrPart._DateTimeOnly = False
+        Me.txtducrPart._numbersOnly = False
+        Me.txtducrPart._numbersOnlyKommastellen = ""
+        Me.txtducrPart._numbersOnlyTrennzeichen = True
+        Me.txtducrPart._Prozent = False
+        Me.txtducrPart._ShortDateNew = False
+        Me.txtducrPart._ShortDateOnly = False
+        Me.txtducrPart._TimeOnly = False
+        Me.txtducrPart._TimeOnly_Seconds = False
+        Me.txtducrPart._value = Nothing
+        Me.txtducrPart._Waehrung = False
+        Me.txtducrPart._WaehrungZeichen = True
+        Me.txtducrPart.Enabled = False
+        Me.txtducrPart.ForeColor = System.Drawing.Color.Black
+        Me.txtducrPart.Location = New System.Drawing.Point(518, 172)
+        Me.txtducrPart.MaxLength = 4
+        Me.txtducrPart.MaxLineLength = -1
+        Me.txtducrPart.MaxLines_Warning = ""
+        Me.txtducrPart.MaxLines_Warning_Label = Nothing
+        Me.txtducrPart.Name = "txtducrPart"
+        Me.txtducrPart.Size = New System.Drawing.Size(93, 20)
+        Me.txtducrPart.TabIndex = 73
+        '
+        'Label46
+        '
+        Me.Label46.Location = New System.Drawing.Point(377, 175)
+        Me.Label46.Name = "Label46"
+        Me.Label46.Size = New System.Drawing.Size(109, 13)
+        Me.Label46.TabIndex = 72
+        Me.Label46.Text = "Ducr part"
+        Me.Label46.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtMucr
+        '
+        Me.txtMucr._DateTimeOnly = False
+        Me.txtMucr._numbersOnly = False
+        Me.txtMucr._numbersOnlyKommastellen = ""
+        Me.txtMucr._numbersOnlyTrennzeichen = True
+        Me.txtMucr._Prozent = False
+        Me.txtMucr._ShortDateNew = False
+        Me.txtMucr._ShortDateOnly = False
+        Me.txtMucr._TimeOnly = False
+        Me.txtMucr._TimeOnly_Seconds = False
+        Me.txtMucr._value = Nothing
+        Me.txtMucr._Waehrung = False
+        Me.txtMucr._WaehrungZeichen = True
+        Me.txtMucr.Enabled = False
+        Me.txtMucr.ForeColor = System.Drawing.Color.Black
+        Me.txtMucr.Location = New System.Drawing.Point(518, 195)
+        Me.txtMucr.MaxLength = 4
+        Me.txtMucr.MaxLineLength = -1
+        Me.txtMucr.MaxLines_Warning = ""
+        Me.txtMucr.MaxLines_Warning_Label = Nothing
+        Me.txtMucr.Name = "txtMucr"
+        Me.txtMucr.Size = New System.Drawing.Size(93, 20)
+        Me.txtMucr.TabIndex = 75
+        '
+        'Label47
+        '
+        Me.Label47.Location = New System.Drawing.Point(377, 198)
+        Me.Label47.Name = "Label47"
+        Me.Label47.Size = New System.Drawing.Size(109, 13)
+        Me.Label47.TabIndex = 74
+        Me.Label47.Text = "MUCR"
+        Me.Label47.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'usrCntlModaltrans_EXIM_Allg
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.pnl)
+        Me.Name = "usrCntlModaltrans_EXIM_Allg"
+        Me.Size = New System.Drawing.Size(930, 503)
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents sbBestimmungsland As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents sbVersendungsLand As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtWiedergestellungsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents sbKennzeichenGrenzeLand As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbKennzeichenAbgangLand As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents txtKennzeichenGrenze As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents txtKennzeichenAbgang As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents txtBeladungsort As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btnIMZ As System.Windows.Forms.Button
+    Friend WithEvents btnIMD As System.Windows.Forms.Button
+    Friend WithEvents btnIMA As System.Windows.Forms.Button
+    Friend WithEvents btnEXD As System.Windows.Forms.Button
+    Friend WithEvents btnEXA As System.Windows.Forms.Button
+    Friend WithEvents Label13 As System.Windows.Forms.Label
+    Friend WithEvents txtArtDetail As System.Windows.Forms.TextBox
+    Friend WithEvents pic As System.Windows.Forms.PictureBox
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents sbRoute5 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute9 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute8 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute7 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute6 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute4 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute3 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute2 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute1 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents lklRoutenauswahl As System.Windows.Forms.LinkLabel
+    Friend WithEvents txtLadeort As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label15 As System.Windows.Forms.Label
+    Friend WithEvents txtEntladeort As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label16 As System.Windows.Forms.Label
+    Friend WithEvents cboVerkehrszweig As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cboArtGrenzUeberschreitung As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label17 As System.Windows.Forms.Label
+    Friend WithEvents Label18 As System.Windows.Forms.Label
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
+    Friend WithEvents Label20 As System.Windows.Forms.Label
+    Friend WithEvents cboBesondereUmstaende As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label19 As System.Windows.Forms.Label
+    Friend WithEvents cboZahlungsweiseBefKosten As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtKennnummer As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label21 As System.Windows.Forms.Label
+    Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
+    Friend WithEvents lblWegstreckeVonNach As Label
+    Friend WithEvents lblWegstrecke As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents cbxWegStrecke As CheckBox
+    Friend WithEvents txtComRef As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label22 As Label
+    Friend WithEvents txtGoodsLocation As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents txtUCR As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label45 As Label
+    Friend WithEvents cbxIncoterms As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label44 As Label
+    Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label23 As Label
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents Label24 As Label
+    Friend WithEvents Label25 As Label
+    Friend WithEvents Label26 As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents LinkLabel2 As LinkLabel
+    Friend WithEvents MyComboBox3 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label29 As Label
+    Friend WithEvents MyComboBox4 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label30 As Label
+    Friend WithEvents Label31 As Label
+    Friend WithEvents PictureBox3 As PictureBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label33 As Label
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Button7 As Button
+    Friend WithEvents MyTextBox4 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label34 As Label
+    Friend WithEvents MyTextBox5 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label35 As Label
+    Friend WithEvents MySearchBox10 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label36 As Label
+    Friend WithEvents Label37 As Label
+    Friend WithEvents MySearchBox11 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label38 As Label
+    Friend WithEvents Label39 As Label
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents MySearchBox12 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents MyTextBox6 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents MySearchBox13 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents MyTextBox7 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents PictureBox4 As PictureBox
+    Friend WithEvents PictureBox5 As PictureBox
+    Friend WithEvents Label40 As Label
+    Friend WithEvents Label41 As Label
+    Friend WithEvents Label42 As Label
+    Friend WithEvents Label43 As Label
+    Friend WithEvents MyTextBox8 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents MyTextBox9 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblWegZeit As Label
+    Friend WithEvents txtMucr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label47 As Label
+    Friend WithEvents txtducrPart As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label46 As Label
+End Class
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.resx b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.resx
new file mode 100644
index 00000000..1af7de15
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.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>
\ No newline at end of file
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.vb
new file mode 100644
index 00000000..ad12e13a
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.vb
@@ -0,0 +1,263 @@
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrCntlModaltrans_EXIM_Allg
+    Property NCTS_ART = "T-"
+
+    'Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+    Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
+
+
+
+    Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.NCTS_TR = NCTS_TR
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Private Sub usrCntlModaltrans_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+
+        sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display   FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbVersendungsLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display   FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbKennzeichenGrenzeLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
+        sbKennzeichenAbgangLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
+
+
+
+        cboVerkehrszweig.Items.Clear()
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
+        cboVerkehrszweig.changeItem("3")
+
+
+        cboArtGrenzUeberschreitung.Items.Clear()
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
+        cboArtGrenzUeberschreitung.changeItem("35")
+
+
+        cboBesondereUmstaende.Items.Clear()
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Express-Sendungen", "A"))
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Straßentransport", "C"))
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - Bahntransport", "D"))
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugel. Wirtschaftsbeteiligte", "E"))
+        cboBesondereUmstaende.changeItem("C")
+
+
+        cboZahlungsweiseBefKosten.Items.Clear()
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Barzahlung", "A"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B - Kreditkartenzahlung", "B"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Zahlung mit Scheck", "C"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - andere", "D"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("H - Elektr.Geldtransfer", "H"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y - Kontoinhaber = Beförderer", "Y"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - nicht vorausbezahlt", "Z"))
+        cboZahlungsweiseBefKosten.changeItem("D")
+
+        'btnAllgemein_Click(btnT2, New EventArgs)
+
+        ' setValues(NCTS)
+    End Sub
+
+
+
+
+
+    Public Sub getValues(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
+        NCTS.declaration_type = cProgramFunctions.isLeerNothing(NCTS_ART)
+
+
+        NCTS.export_country_id = cProgramFunctions.isLeerNothing(sbVersendungsLand._value)
+        NCTS.import_country_id = cProgramFunctions.isLeerNothing(sbBestimmungsland._value)
+
+        'NCTS.ncts_SumA_KennnummerSendung = cProgramFunctions.isLeerNothing(txtKennnummer.Text)
+
+
+        ''  NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text)
+        'NCTS.ncts_SumA_Ladeort = cProgramFunctions.isLeerNothing(txtLadeort.Text)
+        'NCTS.ncts_SumA_Entladeort = cProgramFunctions.isLeerNothing(txtEntladeort.Text)
+        '' NCTS.ncts_Wiedergestellungsdatum = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value)
+
+        'NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = cProgramFunctions.isLeerNothing(txtKennzeichenAbgang._value)
+        'NCTS.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = cProgramFunctions.isLeerNothing(sbKennzeichenAbgangLand._value)
+        'NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = cProgramFunctions.isLeerNothing(txtKennzeichenGrenze._value)
+        'NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = cProgramFunctions.isLeerNothing(sbKennzeichenGrenzeLand._value)
+
+        'NCTS.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
+        'NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value)
+        'NCTS.ncts_SumA_BesondereUmstaende = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
+        'NCTS.ncts_SumA_BefoerderungskostenZahlungsweise = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
+
+
+    End Sub
+
+
+    Public Sub setValues(NCTS As cOregonNCTs_DeclarationData) 'As DAKOSY_Worker.cDakosyNCTSOut)
+        If NCTS Is Nothing Then Exit Sub
+
+
+        sbVersendungsLand.SET_VALUE(If(NCTS.export_country_id, ""))
+        sbBestimmungsland.SET_VALUE(If(NCTS.import_country_id, ""))
+
+
+
+        Select Case NCTS_ART
+            Case "EXA" : initButton(btnEXA)
+            Case "EXD" : initButton(btnEXD)
+            Case "IMA" : initButton(btnIMA)
+            Case "IMA" : initButton(btnIMD)
+        End Select
+
+
+    End Sub
+    Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnEXA.Click, btnIMZ.Click, btnIMD.Click, btnIMA.Click, btnEXD.Click
+        initButton(sender)
+    End Sub
+
+    Sub initButton(sender As Button)
+        setBtn(btnEXA, False)
+        setBtn(btnEXD, False)
+        setBtn(btnIMA, False)
+        setBtn(btnIMD, False)
+        setBtn(btnIMZ, False)
+
+        If sender Is btnEXA Then
+            NCTS_ART = "EXA" : txtArtDetail.Text = "EXA - Export Full Declaration (Arrived)"
+        ElseIf sender Is btnEXD Then
+            NCTS_ART = "EXD" : txtArtDetail.Text = "EXD - Export Full Declaration (Pre-Loged)"
+        ElseIf sender Is btnIMA Then
+            NCTS_ART = "IMA" : txtArtDetail.Text = "IMA - Full/WRD Declaratoins (Arrived)"
+        ElseIf sender Is btnIMD Then
+            NCTS_ART = "IMD" : txtArtDetail.Text = "IMD - Full/WRD Declaration (Pre-Loged)"
+        ElseIf sender Is btnIMD Then
+            NCTS_ART = "IMZ" : txtArtDetail.Text = "IMZ-LCP(import or warehouse removal) supplementary declaration(SDI/SDW)"
+        End If
+        setBtn(sender, True)
+    End Sub
+
+    Sub setBtn(btn As Button, value As Boolean)
+        If value Then
+            btn.BackColor = Color.OrangeRed
+            btn.ForeColor = Color.White
+        Else
+            btn.BackColor = Color.White
+            btn.ForeColor = Color.Black
+        End If
+
+    End Sub
+
+    Private Sub lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked
+        Dim frmRoutenauswahl As New frmRoutenauswahl
+        If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then
+            If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("")
+
+
+            If frmRoutenauswahl.BESTIMMUNGSLAND <> "" Then sbBestimmungsland.SET_VALUE(frmRoutenauswahl.BESTIMMUNGSLAND)
+        End If
+    End Sub
+
+
+
+    Private Sub cbxSumASicherheit_CheckedChanged(sender As Object, e As EventArgs)
+
+        If Not txtLadeort.Enabled Then txtLadeort.Text = ""
+        If Not txtEntladeort.Enabled Then txtEntladeort.Text = ""
+    End Sub
+
+    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
+        txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
+    End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        txtKennzeichenAbgang.Text = txtKennzeichenGrenze.Text
+
+    End Sub
+
+
+    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
+        txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
+        sbKennzeichenGrenzeLand.SET_VALUE(sbKennzeichenAbgangLand._value)
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim origin = ""
+        Dim destination = ""
+
+        'If sbAbgangZollstelle._value <> "" Then
+        '    origin = sbAbgangZollstelle._value.Substring(0, 2) & " " & sbAbgangZollstelle.Text
+        'Else Exit Sub
+        'End If
+
+        'If sbBestimmungZollstelle._value <> "" Then
+        '    destination = sbBestimmungZollstelle._value.Substring(0, 2) & " " & sbBestimmungZollstelle.Text
+        'Else Exit Sub
+        'End If
+
+        Dim duration = ""
+        Dim distance = ""
+        Dim distanceSek = ""
+        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance, cbxWegStrecke.Checked)
+
+        'lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine
+        'lblWegstreckeVonNach.Text &= "nach: " & destination
+
+
+        lblWegstrecke.Text = "Wegstrecke: " & distance
+        lblWegZeit.Text = "Fahrzeit: " & duration
+
+
+    End Sub
+End Class
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.vb
index e720ddc8..84fceac9 100644
--- a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.vb
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.vb
@@ -1,14 +1,10 @@
-Imports DAKOSY_Worker
-Imports VERAG_PROG_ALLGEMEIN
-Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
-Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat
-
+Imports VERAG_PROG_ALLGEMEIN
 Public Class usrCntlModaltrans_NCTS
 
-    Property ALLG As usrCntlATLAS_NCTS_Allg
-    Property ADRESSEN As usrCntlATLAS_ncts_Adressen
+    Property ALLG As usrCntlModaltrans_EXIM_Allg
+    Property ADRESSEN As usrCntlModaltrans_NCTS_Adressen
     'Property SICHERHEIT As usrCntlATLAS_NCTS_Sicherheit
-    Property POSITIONEN As usrCntlATLAS_NCTS_Positionen
+    Property POSITIONEN As usrCntlModaltrans_NCTS_Positionen
     'Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse
     Property Jahr2Stellig As Integer
     Property zusatz As String
@@ -23,7 +19,7 @@ Public Class usrCntlModaltrans_NCTS
 
     Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
 
-    Dim ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
+    Dim ncts_OUT As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
     'Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
 
     Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
@@ -50,7 +46,7 @@ Public Class usrCntlModaltrans_NCTS
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
-        Me.cDy_ART = If(ART = "NCTS", "T1", ART)
+        Me.cDy_ART = ART
 
         Me.AVISO = Aviso
         Me.SENDUNG = SENDUNG
@@ -93,7 +89,7 @@ Public Class usrCntlModaltrans_NCTS
         Return BezugsNr
     End Function
 
-    Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Private Sub usrCntlModaltrans_Load(sender As Object, e As EventArgs) Handles Me.Load
         'MsgBox("LOAD")
 
         cboDakosyAction.Items.Clear()
@@ -113,26 +109,26 @@ Public Class usrCntlModaltrans_NCTS
         End Select
 
 
-        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.fillWithSQL("SELECT [reference],[descr] FROM [tblOregonNCTS_ReferenceTemplate] WHERE country='UK' AND declaration='import'  and mandant='" & txtDyMandant.Text & "'  and niederlassung IN ('','" & txtDyNiederlassung.Text & "')  and visible=1", False, "FMZOLL", True)
         cboStammreferenz.changeItem("")
 
         'SICHERHEIT = New usrCntlATLAS_NCTS_Sicherheit(ncts_OUT, FIRMA_DY)
         'VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT)
-        ADRESSEN = New usrCntlATLAS_ncts_Adressen(ncts_OUT, FIRMA_DY) ')
-        ALLG = New usrCntlATLAS_NCTS_Allg(ncts_OUT)
-        POSITIONEN = New usrCntlATLAS_NCTS_Positionen(ncts_OUT)
+        ADRESSEN = New usrCntlModaltrans_NCTS_Adressen() ')
+        ALLG = New usrCntlModaltrans_EXIM_Allg(ncts_OUT)
+        POSITIONEN = New usrCntlModaltrans_NCTS_Positionen(ncts_OUT)
 
         If isSTAMMREF Then
             Me.BezugsNr = "STAMMREFERENZ"
-            If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
-            ncts_OUT.ncts_ObjectName = BezugsNr
+            If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData()
+            ncts_OUT.commercial_ref = BezugsNr
         Else
             If ncts_OUT Is Nothing Then ' NEUE ZOLLANMELDUNG
-                'Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY)
+                Dim f As New frmModaltransStammreferenz("UK", "T1", True,,, FIRMA_DY)
                 Dim Stammreferenz = Nothing
-                'If f.ShowDialog(Me) Then
-                'Stammreferenz = f.STAMMREF
-                'End If
+                If f.ShowDialog(Me) Then
+                    Stammreferenz = f.STAMMREF
+                End If
                 Try
 
                     BezugsNr = getBezugsnr(BezugsNr)
@@ -140,7 +136,7 @@ Public Class usrCntlModaltrans_NCTS
                 Catch ex As Exception
                     MsgBox(ex.Message & ex.StackTrace)
                 End Try
-                ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(BezugsNr, True)
+                ncts_OUT = VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData.LOADByBezugsNr(BezugsNr, True)
                 If ncts_OUT Is Nothing Then
                     'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
                     'ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist!
@@ -148,14 +144,14 @@ Public Class usrCntlModaltrans_NCTS
 
                     If ncts_OUT IsNot Nothing Then
                         'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben
-                        ncts_OUT.ncts_dyaAnmID = -1
-                        ncts_OUT.ncts_Id = -1
+                        ncts_OUT.status = -1
+                        ncts_OUT.aviso_id = AVISO.AvisoID
                     Else
-                        ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
+                        ncts_OUT = New VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData()
                     End If
 
 
-                    'loaddataFromAVISO(ncts_OUT)
+                    loaddataFromAVISO(ncts_OUT)
                     cboStammreferenz.changeItem(Stammreferenz)
 
 
@@ -164,50 +160,23 @@ Public Class usrCntlModaltrans_NCTS
 
             Else
                 ' ncts_OUT is  ot nothing
-                Me.BezugsNr = ncts_OUT.ncts_ObjectName
+                Me.BezugsNr = ncts_OUT.commercial_ref
+
                 'MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
 
             End If
         End If
-        If If(ncts_OUT.ncts_firma, "") = "" Then If FIRMA_DY <> "" Then ncts_OUT.ncts_firma = FIRMA_DY
 
-        If If(Me.cDy_ART, "") <> "" Then
-            'Muss noch überschrieben werdne, da sonst Art von Stammref hergenommen wird...
-            ncts_OUT.ncts_ArtAnmeldung = Me.cDy_ART
-        Else
-            'Wenn keine Art --> T1
-            If ncts_OUT.ncts_ArtAnmeldung Is Nothing Or ncts_OUT.ncts_ArtAnmeldung = "" Then
-                ncts_OUT.ncts_ArtAnmeldung = "T1"
-            End If
-        End If
-
-
-        'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s
-        'Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT)
-        'Me.SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
         Me.SplitContainer.Panel2.Controls.Add(ALLG)
         Me.SplitContainer.Panel2.Controls.Add(POSITIONEN)
         Me.SplitContainer.Panel2.Controls.Add(ADRESSEN)
 
-        ' MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
-        'Werte setzen:
-        'SICHERHEIT.setValues_TR(ncts_OUT.ncts_SICHERHEITSANGABEN)
-        'VERSCHLUESSE.setValues_TR(ncts_OUT)
         ADRESSEN.setValues_TR(ncts_OUT)
         ALLG.setValues(ncts_OUT)
         POSITIONEN.setValues_TR(ncts_OUT)
 
-        If If(ncts_OUT.ncts_Stammreferenz, "") <> "" Then cboStammreferenz.changeItem(ncts_OUT.ncts_Stammreferenz)
-
-        'Controls wieder entfernen:
         Me.SplitContainer.Panel2.Controls.Clear()
 
-
-        '    If ALLG.txtKennnummer.Text = "" Then ALLG.txtKennnummer.Text = BezugsNr
-
-
-
-        ' ADRESSEN.CreateControl()
         For Each c In MyFlowLayoutPanel1.Controls
             If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
                 AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick
@@ -223,11 +192,7 @@ Public Class usrCntlModaltrans_NCTS
         ALLG.Dock = DockStyle.Fill
         ADRESSEN.Dock = DockStyle.Fill
         POSITIONEN.Dock = DockStyle.Fill
-        'SICHERHEIT.Dock = DockStyle.Fill
-        'VERSCHLUESSE.Dock = DockStyle.Fill
 
-        '   
-        '
         AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse, packstuecke)
                                                    Label5.Text = packstuecke.ToString("N0") & " Pk"
                                                    Label7.Text = rohmasse.ToString("N2") & " kg"
@@ -254,9 +219,9 @@ Public Class usrCntlModaltrans_NCTS
             End Try
         End If
         Try
-            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then
-                Me.FindForm.Close()
-            End If
+            'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Modaltrans_AVISO_Edit", "AVISO") Then
+            '    Me.FindForm.Close()
+            'End If
         Catch
         End Try
     End Sub
@@ -281,10 +246,7 @@ Public Class usrCntlModaltrans_NCTS
             SplitContainer.Panel2.Controls.Add(ALLG)
         ElseIf btn Is btnAdressen Then
             SplitContainer.Panel2.Controls.Add(ADRESSEN)
-            'ElseIf btn Is btnSicherheit Then
-            '     SplitContainer.Panel2.Controls.Add(SICHERHEIT)
-            ' ElseIf btn Is btnVerschlüsse Then
-            '    SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
+
         ElseIf btn Is btnPositionen Then
             SplitContainer.Panel2.Controls.Add(POSITIONEN)
         End If
@@ -298,7 +260,7 @@ Public Class usrCntlModaltrans_NCTS
 
             cdy.auto_send = False 'If the declaration is created correctly, and if it is desired to be sent directly to the customs system after this process, it should be set as "true".
 
-            cdy.service_code = "" 'Options:  - "chief"  - "cds"
+            cdy.service_code = "cds" 'Options:  - "chief"  - "cds"
             cdy.doc_type = "" 'EXA, EXD, IMA, IMD declaration type code
             cdy.declaration_type = cDy_ART
             cdy.commercial_ref = BezugsNr
@@ -312,7 +274,7 @@ Public Class usrCntlModaltrans_NCTS
 
             cdy.export_country_id = ""
 
-            cdy.multiple_consignor = ""
+            cdy.multiple_consignor = False
 
             cdy.invoice_amount = ""
             cdy.invoice_curr = ""
@@ -322,11 +284,11 @@ Public Class usrCntlModaltrans_NCTS
             cdy.border_vehicle_coun = ""
             cdy.inland_transport_type = ""
             cdy.container_no = ""
-            cdy.gvms_interested = ""
+            cdy.gvms_interested = False
             cdy.freight_amount = ""
             cdy.freight_curr = ""
             cdy.payment_method = ""
-            cdy.total_packages = ""
+            cdy.total_packages = 0
             cdy.nature_of_transaction = ""
             cdy.premises_code = ""
             cdy.first_dan_no = ""
@@ -348,15 +310,12 @@ Public Class usrCntlModaltrans_NCTS
             cdy.incoterm_location = ""
             cdy.trader_ref = ""
             cdy.arrival_transport_type = ""
-            cdy.guarantee_code = ""
+            cdy.guarantee_code = 0
             cdy.guarantee_reference = ""
 
 
             If AVISO IsNot Nothing Then
-                'cdy.ncts_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
-                'cdy.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = AVISO.LKW_Nationalitaet
-                'cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr
-                'cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet
+
 
             End If
 
@@ -385,13 +344,15 @@ Public Class usrCntlModaltrans_NCTS
 
 
 
+
+
             If SENDUNG IsNot Nothing Then
 
                 Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG.FilialenNr,, "")
 
 
                 cdy.declarant_eori = FilialeAktFirma
-                cdy.declarant_name = ""
+                cdy.declarant_name = FilialeAktFirma
                 cdy.declarant_address = ""
                 cdy.declarant_city_name = ""
                 cdy.declarant_country_id = ""
@@ -399,58 +360,62 @@ Public Class usrCntlModaltrans_NCTS
                 cdy.declarant_rep = ""
 
 
+                If SENDUNG IsNot Nothing Then
 
-                Dim p As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute = Nothing
-                If SENDUNG.tblSnd_anzahlPOS > 0 Then
-                    p = Nothing 'cdy.ncts_WARENPOS(0)
-                Else
-                    p = New VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute
-                    p.declarationDataID = cdy.id
-                    p.SAVE()
-                End If
-                p.commodity = SENDUNG.tblSnd_Warenbezeichnung
-                If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
-                    Dim pk As New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute
-                    pk.pack_count = SENDUNG.tblSnd_Colli
-                    pk.pack_type = "PKG"
-                    pk.goods_attribute_id = p.id
-                    pk.SAVE()
-                End If
-                p.net_wg = SENDUNG.tblSnd_Gewicht
-                p.invoice_amount = SENDUNG.tblSnd_Warenwert
-                p.invoice_curr = SENDUNG.tblSnd_WarenwertWaehrung
+                    Dim p As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute = Nothing
+                    If cdy.goods.Count > 0 Then
+                        p = cdy.goods(0)
+                    Else
+                        p = New VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute
+                        cdy.goods.Add(p) ' schon wieder...'nciht mehr anfügen
+                    End If
+                    p.commodity = SENDUNG.tblSnd_Warenbezeichnung
+
+                    If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
+                        Dim pk As New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute
+                        pk.pack_count = SENDUNG.tblSnd_Colli
+                        pk.pack_type = "PK"
+                        pk.goods_attribute_id = p.id
+                        p.decl_PAckattributes.Add(pk)
+                        'pk.SAVE()
+                    End If
+                    p.net_wg = IIf(IsNumeric(SENDUNG.tblSnd_Gewicht), CDbl(SENDUNG.tblSnd_Gewicht), 0)
+                    p.invoice_amount = SENDUNG.tblSnd_Warenwert
+                    p.invoice_curr = SENDUNG.tblSnd_WarenwertWaehrung
 
 
-                If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
-                    Dim adVERSENDER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
-                    Dim kdVERSENDER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
-                    p.sender_eori_code = kdVERSENDER.EORITIN
-                    p.sender_name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "")
-                    p.sender_address = adVERSENDER.Straße
-                    p.sender_postcode = adVERSENDER.PLZ
-                    p.sender_city_name = adVERSENDER.Ort
-                    If adVERSENDER.LandKz IsNot Nothing Then
-                        p.sender_country_id = cProgramFunctions.getISO2Land(adVERSENDER.LandKz)
+                    If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
+                        Dim adVERSENDER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
+                        Dim kdVERSENDER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
+                        p.sender_eori_code = kdVERSENDER.EORITIN
+                        p.sender_name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "")
+                        p.sender_address = adVERSENDER.Straße
+                        p.sender_postcode = adVERSENDER.PLZ
+                        p.sender_city_name = adVERSENDER.Ort
+                        If adVERSENDER.LandKz IsNot Nothing Then
+                            p.sender_country_id = cProgramFunctions.getISO2Land(adVERSENDER.LandKz)
+                        End If
+
+                    End If
+
+                    If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
+                        Dim adEMPFAENGER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
+                        Dim kdEMPFAENGER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
+                        p.consignee_eori_code = kdEMPFAENGER.EORITIN
+                        p.consignee_name = If(adEMPFAENGER.Name_1, "") & If(adEMPFAENGER.Name_2, "")
+                        p.consignee_address = adEMPFAENGER.Straße
+                        p.consignee_postcode = adEMPFAENGER.PLZ
+                        p.consignee_city_name = adEMPFAENGER.Ort
+                        If adEMPFAENGER.LandKz IsNot Nothing Then
+                            p.consignee_country_id = cProgramFunctions.getISO2Land(adEMPFAENGER.LandKz)
+                        End If
+
                     End If
 
                 End If
-
-                If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
-                    Dim adEMPFAENGER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
-                    Dim kdEMPFAENGER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
-                    p.consignee_eori_code = kdEMPFAENGER.EORITIN
-                    p.consignee_name = If(adEMPFAENGER.Name_1, "") & If(adEMPFAENGER.Name_2, "")
-                    p.consignee_address = adEMPFAENGER.Straße
-                    p.consignee_postcode = adEMPFAENGER.PLZ
-                    p.consignee_city_name = adEMPFAENGER.Ort
-                    If adEMPFAENGER.LandKz IsNot Nothing Then
-                        p.consignee_country_id = cProgramFunctions.getISO2Land(adEMPFAENGER.LandKz)
-                    End If
-
-                End If
-
             End If
 
+
         Catch ex As Exception
             MsgBox(ex.StackTrace)
         End Try
@@ -458,7 +423,7 @@ Public Class usrCntlModaltrans_NCTS
 
 
     Sub setValue(ncts_OUT)
-        BezugsNr = ncts_OUT.ncts_ObjectName
+        BezugsNr = ncts_OUT.commercial_ref
 
     End Sub
 
@@ -487,47 +452,21 @@ Public Class usrCntlModaltrans_NCTS
             loadDYZollanmeldungen()
 
             If ncts_OUT IsNot Nothing Then
-                'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
-                'ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
-                'ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
-                ncts_OUT.ncts_LetzteBearbeitung = Now
-                'ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
-                ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem
-                ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
-                ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
+
+
                 loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
 
 
                 If Not ncts_OUT.SAVE_ALL() Then Exit Sub '---> DANN SCHON
 
-                Dim saveFile = ""
-                If VERAG_PROG_ALLGEMEIN.cMIC.generateNCTS(ncts_OUT, saveFile, BezugsNr) Then
-                    If saveFile <> "" Then
-                        Process.Start(saveFile)
-                        '  VERAG_PROG_ALLGEMEIN.cMIC.send_Data_To_Dakosy_FTP()
-                        'If Not send_Data_To_Dakosy_FTP(saveFile, BezugsNr, Nothing, Nothing) Then
-                        '    MsgBox("Sendefehler!")
-                        'End If
-                    End If
-                End If
-
-                '---> DANN SCHON:::
-                'Dim saveFile = ""
-                'If VERAG_PROG_ALLGEMEIN.cMICInterface.generateVersandanmeldungNCTS(ncts_OUT, saveFile, cboDakosyAction._value) Then
-                '    If saveFile <> "" Then
-                '        If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
-                '            DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
-                '        Else
-                '            DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
-                '            MsgBox("Sendefehler!")
-                '        End If
-                '    End If
-                'End If
             End If
 
+
+        End If
+
             'DY_ANM.UPDATE_DATA()
             Me.FindForm.Close()
-        End If
+
         Me.Cursor = Cursors.Default
     End Sub
 
@@ -535,20 +474,10 @@ Public Class usrCntlModaltrans_NCTS
     Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
 
         Me.Refresh()
-
-        ' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID))
         loadDYZollanmeldungen()
 
         If ncts_OUT IsNot Nothing Then
 
-            'ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
-            'ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
-            ncts_OUT.ncts_LetzteBearbeitung = Now
-            'ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
-            ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem
-            ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_00
-            ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_00
-
             loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
 
             If Not ncts_OUT.SAVE_ALL() Then
@@ -565,38 +494,20 @@ Public Class usrCntlModaltrans_NCTS
         BezugsNr = getBezugsnr(BezugsNr)
     End Sub
 
-    Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR, USRCNTL As usrCntlModaltrans_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cNCTS_TR
+    Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData, USRCNTL As usrCntlModaltrans_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData
         Try
 
-            Select Case FIRMA_DY
-                Case "UNISPED"
-                    NCTS.ncts_Trans_Partner = "UNAT"
-                Case Else
-                    NCTS.ncts_Trans_Partner = "VERA"
-            End Select
 
 
-            NCTS.ncts_Trans_DatumZeit = Now
-            NCTS.ncts_Gestellt = False
-            NCTS.ncts_Status = "00"
-            NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
-            NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
-            NCTS.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
-            NCTS.ncts_Trans_Version = "003"
-            NCTS.ncts_Trans_Div1 = "ATILLA"
-            'NCTS.ncts_Trans_Div1 = "ATILLA"
-            'NCTS.ncts_Trans_Div1 = "ATILLA"
+            NCTS.status = "00"
+            NCTS.created = DateTime.Now()
+            NCTS.aviso_id = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
 
-            NCTS.ncts_Stammreferenz = If(USRCNTL.cboStammreferenz._value = "", Nothing, USRCNTL.cboStammreferenz._value)
-            NCTS.ncts_BezugsnummerVorblendung = NCTS.ncts_Stammreferenz
-
-            NCTS.ncts_ObjectName = USRCNTL.BezugsNr
-            'NCTS.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID
+            NCTS.commercial_ref = USRCNTL.BezugsNr
             USRCNTL.ALLG.getValues(NCTS)
             USRCNTL.ADRESSEN.getValues_TR(NCTS)
             USRCNTL.POSITIONEN.getValues_TR(NCTS)
-            'NCTS.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues_TR()
-            'USRCNTL.VERSCHLUESSE.getValues_TR(NCTS)
+
             'NCTS.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues()
             '--------------------------------
 
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.Designer.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.Designer.vb
new file mode 100644
index 00000000..47cfae61
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.Designer.vb
@@ -0,0 +1,285 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlModaltrans_NCTS_Adressen
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.lblWegstreckeVonNach = New System.Windows.Forms.Label()
+        Me.lblWegZeit = New System.Windows.Forms.Label()
+        Me.lblWegstrecke = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.lblBefullen = New System.Windows.Forms.Label()
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.grp = New System.Windows.Forms.GroupBox()
+        Me.usrCntlSumA_Versender = New SDL.usrCntlAdresse()
+        Me.cbxSumABeforderer = New System.Windows.Forms.CheckBox()
+        Me.usrCntlSumA_Empfaenger = New SDL.usrCntlAdresse()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.usrCntlSumA_Befoerderer = New SDL.usrCntlAdresse()
+        Me.usrCntlZugelEmpfaenger = New SDL.usrCntlAdresse()
+        Me.usrCntlEmpfaenger = New SDL.usrCntlAdresse()
+        Me.usrCntlVersender = New SDL.usrCntlAdresse()
+        Me.usrCntlHauptverpflichteter = New SDL.usrCntlAdresse()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.pnl.SuspendLayout()
+        Me.grp.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.Controls.Add(Me.lblWegstreckeVonNach)
+        Me.pnl.Controls.Add(Me.lblWegZeit)
+        Me.pnl.Controls.Add(Me.lblWegstrecke)
+        Me.pnl.Controls.Add(Me.Button1)
+        Me.pnl.Controls.Add(Me.lblBefullen)
+        Me.pnl.Controls.Add(Me.MyComboBox1)
+        Me.pnl.Controls.Add(Me.grp)
+        Me.pnl.Controls.Add(Me.usrCntlSumA_Befoerderer)
+        Me.pnl.Controls.Add(Me.usrCntlZugelEmpfaenger)
+        Me.pnl.Controls.Add(Me.usrCntlEmpfaenger)
+        Me.pnl.Controls.Add(Me.usrCntlVersender)
+        Me.pnl.Controls.Add(Me.usrCntlHauptverpflichteter)
+        Me.pnl.Controls.Add(Me.PictureBox2)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(907, 628)
+        Me.pnl.TabIndex = 0
+        '
+        'lblWegstreckeVonNach
+        '
+        Me.lblWegstreckeVonNach.Location = New System.Drawing.Point(160, 324)
+        Me.lblWegstreckeVonNach.Name = "lblWegstreckeVonNach"
+        Me.lblWegstreckeVonNach.Size = New System.Drawing.Size(265, 29)
+        Me.lblWegstreckeVonNach.TabIndex = 55
+        '
+        'lblWegZeit
+        '
+        Me.lblWegZeit.AutoSize = True
+        Me.lblWegZeit.Location = New System.Drawing.Point(20, 375)
+        Me.lblWegZeit.Name = "lblWegZeit"
+        Me.lblWegZeit.Size = New System.Drawing.Size(19, 13)
+        Me.lblWegZeit.TabIndex = 54
+        Me.lblWegZeit.Text = "----"
+        Me.lblWegZeit.Visible = False
+        '
+        'lblWegstrecke
+        '
+        Me.lblWegstrecke.AutoSize = True
+        Me.lblWegstrecke.Location = New System.Drawing.Point(20, 360)
+        Me.lblWegstrecke.Name = "lblWegstrecke"
+        Me.lblWegstrecke.Size = New System.Drawing.Size(19, 13)
+        Me.lblWegstrecke.TabIndex = 53
+        Me.lblWegstrecke.Text = "----"
+        Me.lblWegstrecke.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(17, 324)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(137, 29)
+        Me.Button1.TabIndex = 52
+        Me.Button1.Text = "Strecke berechnen"
+        Me.Button1.UseVisualStyleBackColor = True
+        Me.Button1.Visible = False
+        '
+        'lblBefullen
+        '
+        Me.lblBefullen.AutoSize = True
+        Me.lblBefullen.Location = New System.Drawing.Point(569, 8)
+        Me.lblBefullen.Name = "lblBefullen"
+        Me.lblBefullen.Size = New System.Drawing.Size(48, 13)
+        Me.lblBefullen.TabIndex = 51
+        Me.lblBefullen.Text = "Befüllen:"
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(623, 5)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(267, 21)
+        Me.MyComboBox1.TabIndex = 50
+        '
+        'grp
+        '
+        Me.grp.Controls.Add(Me.usrCntlSumA_Versender)
+        Me.grp.Controls.Add(Me.cbxSumABeforderer)
+        Me.grp.Controls.Add(Me.usrCntlSumA_Empfaenger)
+        Me.grp.Controls.Add(Me.PictureBox1)
+        Me.grp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.grp.Location = New System.Drawing.Point(3, 443)
+        Me.grp.Name = "grp"
+        Me.grp.Size = New System.Drawing.Size(897, 182)
+        Me.grp.TabIndex = 10
+        Me.grp.TabStop = False
+        Me.grp.Text = "SumA - Sicherheit"
+        '
+        'usrCntlSumA_Versender
+        '
+        Me.usrCntlSumA_Versender._Titel = "SumA Versender:"
+        Me.usrCntlSumA_Versender.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.usrCntlSumA_Versender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrCntlSumA_Versender.Enabled = False
+        Me.usrCntlSumA_Versender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.usrCntlSumA_Versender.Location = New System.Drawing.Point(14, 40)
+        Me.usrCntlSumA_Versender.Name = "usrCntlSumA_Versender"
+        Me.usrCntlSumA_Versender.Size = New System.Drawing.Size(408, 132)
+        Me.usrCntlSumA_Versender.TabIndex = 6
+        '
+        'cbxSumABeforderer
+        '
+        Me.cbxSumABeforderer.AutoSize = True
+        Me.cbxSumABeforderer.Checked = True
+        Me.cbxSumABeforderer.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxSumABeforderer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxSumABeforderer.Location = New System.Drawing.Point(14, 25)
+        Me.cbxSumABeforderer.Name = "cbxSumABeforderer"
+        Me.cbxSumABeforderer.Size = New System.Drawing.Size(115, 17)
+        Me.cbxSumABeforderer.TabIndex = 9
+        Me.cbxSumABeforderer.Text = "SumA = Beförderer"
+        Me.cbxSumABeforderer.UseVisualStyleBackColor = True
+        '
+        'usrCntlSumA_Empfaenger
+        '
+        Me.usrCntlSumA_Empfaenger._Titel = "SumA Empfänger:"
+        Me.usrCntlSumA_Empfaenger.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.usrCntlSumA_Empfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrCntlSumA_Empfaenger.Enabled = False
+        Me.usrCntlSumA_Empfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.usrCntlSumA_Empfaenger.Location = New System.Drawing.Point(479, 40)
+        Me.usrCntlSumA_Empfaenger.Name = "usrCntlSumA_Empfaenger"
+        Me.usrCntlSumA_Empfaenger.Size = New System.Drawing.Size(408, 132)
+        Me.usrCntlSumA_Empfaenger.TabIndex = 7
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(418, 83)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(58, 34)
+        Me.PictureBox1.TabIndex = 49
+        Me.PictureBox1.TabStop = False
+        Me.PictureBox1.Visible = False
+        '
+        'usrCntlSumA_Befoerderer
+        '
+        Me.usrCntlSumA_Befoerderer._Titel = "Beförderer:"
+        Me.usrCntlSumA_Befoerderer.BackColor = System.Drawing.Color.PapayaWhip
+        Me.usrCntlSumA_Befoerderer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrCntlSumA_Befoerderer.Location = New System.Drawing.Point(17, 29)
+        Me.usrCntlSumA_Befoerderer.Name = "usrCntlSumA_Befoerderer"
+        Me.usrCntlSumA_Befoerderer.Size = New System.Drawing.Size(408, 132)
+        Me.usrCntlSumA_Befoerderer.TabIndex = 5
+        '
+        'usrCntlZugelEmpfaenger
+        '
+        Me.usrCntlZugelEmpfaenger._Titel = "Zugelassener Empfänger:"
+        Me.usrCntlZugelEmpfaenger.BackColor = System.Drawing.Color.PapayaWhip
+        Me.usrCntlZugelEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrCntlZugelEmpfaenger.Location = New System.Drawing.Point(482, 307)
+        Me.usrCntlZugelEmpfaenger.Name = "usrCntlZugelEmpfaenger"
+        Me.usrCntlZugelEmpfaenger.Size = New System.Drawing.Size(408, 132)
+        Me.usrCntlZugelEmpfaenger.TabIndex = 4
+        '
+        'usrCntlEmpfaenger
+        '
+        Me.usrCntlEmpfaenger._Titel = "Empfänger:"
+        Me.usrCntlEmpfaenger.BackColor = System.Drawing.Color.PapayaWhip
+        Me.usrCntlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrCntlEmpfaenger.Location = New System.Drawing.Point(482, 176)
+        Me.usrCntlEmpfaenger.Name = "usrCntlEmpfaenger"
+        Me.usrCntlEmpfaenger.Size = New System.Drawing.Size(408, 132)
+        Me.usrCntlEmpfaenger.TabIndex = 3
+        '
+        'usrCntlVersender
+        '
+        Me.usrCntlVersender._Titel = "Versender:"
+        Me.usrCntlVersender.BackColor = System.Drawing.Color.PapayaWhip
+        Me.usrCntlVersender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrCntlVersender.Location = New System.Drawing.Point(17, 176)
+        Me.usrCntlVersender.Name = "usrCntlVersender"
+        Me.usrCntlVersender.Size = New System.Drawing.Size(408, 132)
+        Me.usrCntlVersender.TabIndex = 2
+        '
+        'usrCntlHauptverpflichteter
+        '
+        Me.usrCntlHauptverpflichteter._Titel = "Hauptverpflichteter:"
+        Me.usrCntlHauptverpflichteter.BackColor = System.Drawing.Color.PapayaWhip
+        Me.usrCntlHauptverpflichteter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrCntlHauptverpflichteter.Location = New System.Drawing.Point(482, 29)
+        Me.usrCntlHauptverpflichteter.Name = "usrCntlHauptverpflichteter"
+        Me.usrCntlHauptverpflichteter.Size = New System.Drawing.Size(408, 132)
+        Me.usrCntlHauptverpflichteter.TabIndex = 1
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.Location = New System.Drawing.Point(421, 221)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(58, 34)
+        Me.PictureBox2.TabIndex = 49
+        Me.PictureBox2.TabStop = False
+        '
+        'usrCntlATLAS_ncts_Adressen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.pnl)
+        Me.Name = "usrCntlATLAS_ncts_Adressen"
+        Me.Size = New System.Drawing.Size(907, 628)
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        Me.grp.ResumeLayout(False)
+        Me.grp.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents usrCntlVersender As SDL.usrCntlAdresse
+    Friend WithEvents usrCntlHauptverpflichteter As SDL.usrCntlAdresse
+    Friend WithEvents usrCntlZugelEmpfaenger As SDL.usrCntlAdresse
+    Friend WithEvents usrCntlEmpfaenger As SDL.usrCntlAdresse
+    Friend WithEvents usrCntlSumA_Befoerderer As SDL.usrCntlAdresse
+    Friend WithEvents grp As System.Windows.Forms.GroupBox
+    Friend WithEvents usrCntlSumA_Versender As SDL.usrCntlAdresse
+    Friend WithEvents cbxSumABeforderer As System.Windows.Forms.CheckBox
+    Friend WithEvents usrCntlSumA_Empfaenger As SDL.usrCntlAdresse
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
+    Friend WithEvents lblBefullen As System.Windows.Forms.Label
+    Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents lblWegZeit As Label
+    Friend WithEvents lblWegstrecke As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents lblWegstreckeVonNach As Label
+End Class
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.resx b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.resx
new file mode 100644
index 00000000..1af7de15
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.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>
\ No newline at end of file
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.vb
new file mode 100644
index 00000000..961bca6e
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.vb
@@ -0,0 +1,328 @@
+Public Class usrCntlModaltrans_NCTS_Adressen
+
+    Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
+    Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+    Sub New()
+
+        InitializeComponent()
+
+    End Sub
+
+    Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData, FIRMA_DY As String)
+        InitializeComponent()
+        'Me.OWNER = OWNER
+        Me.NCTS_TR = NCTS_TR
+        Me.FIRMA_DY = FIRMA_DY
+    End Sub
+
+    Public Sub usrCntlATLAS_ncts_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        '    usrCntlSumA_Befoerderer.initME()
+        MyComboBox1.Items.Clear()
+        Select Case FIRMA_DY
+            Case "UNISPED"
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unisped Speditions GMBH (AT)", "UNISPED_AT"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unisped Speditions GMBH (DE)", "UNISPED_DE"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL Sultanbeyli -Istanbul", "EKOL"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS Istanbul", "MARS"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS Hamburg", "SGS"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB Ankara", "TOBB"))
+            Case Else
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition GMBH", "VERAG_GMBH"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "VERAG_AG"))
+                ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL Sultanbeyli -Istanbul", "EKOL"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS Istanbul", "MARS"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS Hamburg", "SGS"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB Ankara", "TOBB"))
+        End Select
+
+    End Sub
+
+
+    Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut)
+
+        NCTS.ncts_Hauptverpflichteter_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text)
+        NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text)
+        NCTS.ncts_Hauptverpflichteter_PLZ = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text)
+        NCTS.ncts_Hauptverpflichteter_Ort = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text)
+        NCTS.ncts_Hauptverpflichteter_Land = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value)
+        NCTS.ncts_Hauptverpflichteter_EORI = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text)
+        NCTS.ncts_Hauptverpflichteter_NLNR = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORINL.Text)
+
+
+        NCTS.ncts_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text)
+        NCTS.ncts_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text)
+        NCTS.ncts_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text)
+        NCTS.ncts_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text)
+        NCTS.ncts_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value)
+        NCTS.ncts_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text)
+        NCTS.ncts_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORINL.Text)
+        'NCTS.ncts_Versender_TIN = cProgramFunctions.isLeerNothing(usrCntlVersender..Text)
+
+
+        NCTS.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text)
+        NCTS.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text)
+        NCTS.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text)
+        NCTS.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text)
+        NCTS.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value)
+        NCTS.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text)
+        NCTS.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text)
+        NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text)
+
+        'SumA:  Beförderer
+        '--------------------------------
+
+        NCTS.ncts_SumA_Befoerderer_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
+        NCTS.ncts_SumA_Befoerderer_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
+        NCTS.ncts_SumA_Befoerderer_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
+        NCTS.ncts_SumA_Befoerderer_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
+        NCTS.ncts_SumA_Befoerderer_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
+        NCTS.ncts_SumA_Befoerderer_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
+        NCTS.ncts_SumA_Befoerderer_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
+
+        If cbxSumABeforderer.Checked Then
+            NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
+            NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
+            NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
+            NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
+            NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
+            NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
+            NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
+
+            NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
+            NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
+            NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
+            NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
+            NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
+            NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
+            NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
+        Else
+            NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.kdFirma.Text)
+            NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtStrasse.Text)
+            NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtPlz.Text)
+            NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtOrt.Text)
+            NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.sbLand._value)
+            NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORI.Text)
+            NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORINL.Text)
+
+            NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.kdFirma.Text)
+            NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtStrasse.Text)
+            NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtPlz.Text)
+            NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtOrt.Text)
+            NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.sbLand._value)
+            NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORI.Text)
+            NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORINL.Text)
+
+        End If
+    End Sub
+
+
+    Public Sub setValues(NCTS) ' As DAKOSY_Worker.cDakosyNCTSOut)
+
+        'usrCntlSumA_Befoerderer.initME()
+        If NCTS Is Nothing Then Exit Sub
+
+        usrCntlHauptverpflichteter.kdFirma.Text = NCTS.declarant_name
+        usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.declarant_address
+        usrCntlHauptverpflichteter.txtPlz.Text = NCTS.declarant_postcode
+        usrCntlHauptverpflichteter.txtOrt.Text = NCTS.declarant_city_name
+        usrCntlHauptverpflichteter.txtEORI.Text = NCTS.declarant_eori
+        usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.declarant_country_id)
+
+        usrCntlVersender.kdFirma.Text = NCTS.consignor_name
+        usrCntlVersender.txtStrasse.Text = NCTS.consignor_address
+        usrCntlVersender.txtPlz.Text = NCTS.consignor_postcode
+        usrCntlVersender.txtOrt.Text = NCTS.consignor_city_name
+        usrCntlVersender.txtEORI.Text = NCTS.consignor_eori
+        usrCntlVersender.sbLand.SET_VALUE(NCTS.consignor_country_id)
+
+
+        usrCntlEmpfaenger.kdFirma.Text = NCTS.consignee_name
+        usrCntlEmpfaenger.txtStrasse.Text = NCTS.consignee_address
+        usrCntlEmpfaenger.txtPlz.Text = NCTS.consignee_postcode
+        usrCntlEmpfaenger.txtOrt.Text = NCTS.consignee_city_name
+        usrCntlEmpfaenger.txtEORI.Text = NCTS.consignee_eori
+        usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.consignee_country_id)
+
+
+        usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.carrier_name
+        usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.carrier_address
+        usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.carrier_postcode
+        usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.carrier_city_name
+        usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.carrier_eori
+        usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.carrier_eori)
+
+
+    End Sub
+
+    Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
+
+        NCTS.declarant_name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text)
+        NCTS.declarant_address = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text)
+        NCTS.declarant_postcode = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text)
+        NCTS.declarant_city_name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text)
+        NCTS.declarant_country_id = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value)
+        NCTS.declarant_eori = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text)
+
+
+        NCTS.consignor_name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text)
+        NCTS.consignor_address = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text)
+        NCTS.consignor_postcode = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text)
+        NCTS.consignor_city_name = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text)
+        NCTS.consignor_country_id = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value)
+        NCTS.consignor_eori = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text)
+
+        NCTS.consignee_name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text)
+        NCTS.consignee_address = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text)
+        NCTS.consignee_postcode = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text)
+        NCTS.consignee_city_name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text)
+        NCTS.consignee_country_id = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value)
+        NCTS.consignee_eori = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text)
+
+        NCTS.carrier_name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
+        NCTS.carrier_address = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
+        NCTS.carrier_postcode = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
+        NCTS.carrier_city_name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
+        NCTS.carrier_country_id = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
+        NCTS.carrier_eori = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
+    End Sub
+
+
+    Public Sub setValues_TR(NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
+
+        If NCTS Is Nothing Then Exit Sub
+
+
+        usrCntlHauptverpflichteter.kdFirma.Text = NCTS.declarant_name
+        usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.declarant_address
+        usrCntlHauptverpflichteter.txtPlz.Text = NCTS.declarant_postcode
+        usrCntlHauptverpflichteter.txtOrt.Text = NCTS.declarant_city_name
+        usrCntlHauptverpflichteter.txtEORI.Text = NCTS.declarant_eori
+        usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.declarant_country_id)
+
+        usrCntlVersender.kdFirma.Text = NCTS.consignor_name
+        usrCntlVersender.txtStrasse.Text = NCTS.consignor_address
+        usrCntlVersender.txtPlz.Text = NCTS.consignor_postcode
+        usrCntlVersender.txtOrt.Text = NCTS.consignor_city_name
+        usrCntlVersender.txtEORI.Text = NCTS.consignor_eori
+        usrCntlVersender.sbLand.SET_VALUE(NCTS.consignor_country_id)
+
+
+        usrCntlEmpfaenger.kdFirma.Text = NCTS.consignee_name
+        usrCntlEmpfaenger.txtStrasse.Text = NCTS.consignee_address
+        usrCntlEmpfaenger.txtPlz.Text = NCTS.consignee_postcode
+        usrCntlEmpfaenger.txtOrt.Text = NCTS.consignee_city_name
+        usrCntlEmpfaenger.txtEORI.Text = NCTS.consignee_eori
+        usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.consignee_country_id)
+
+
+        usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.carrier_name
+        usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.carrier_address
+        usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.carrier_postcode
+        usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.carrier_city_name
+        usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.carrier_eori
+        usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.carrier_eori)
+
+    End Sub
+
+    Private Sub cbxSumABeforderer_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSumABeforderer.CheckedChanged
+        usrCntlSumA_Versender.Enabled = Not cbxSumABeforderer.Checked
+        usrCntlSumA_Empfaenger.Enabled = Not cbxSumABeforderer.Checked
+        If cbxSumABeforderer.Checked Then
+            usrCntlSumA_Versender.BackColor = Color.WhiteSmoke
+            usrCntlSumA_Empfaenger.BackColor = Color.WhiteSmoke
+            PictureBox1.Visible = False
+        Else
+            usrCntlSumA_Versender.BackColor = Color.PapayaWhip
+            usrCntlSumA_Empfaenger.BackColor = Color.PapayaWhip
+            PictureBox1.Visible = True
+        End If
+    End Sub
+
+    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
+        Select Case MyComboBox1._value
+            Case "VERAG_AG"
+                usrCntlHauptverpflichteter.txtEORI.Text = "ATEOS1000000199"
+                usrCntlHauptverpflichteter.txtEORINL.Text = "0001"
+                usrCntlHauptverpflichteter.kdFirma.Text = "VERAG SPEDITION AG"
+                usrCntlHauptverpflichteter.txtStrasse.Text = "SUBEN 14-15"
+                usrCntlHauptverpflichteter.txtPlz.Text = "4975"
+                usrCntlHauptverpflichteter.txtOrt.Text = "Suben"
+                usrCntlHauptverpflichteter.sbLand.SET_VALUE("AT")
+            Case "VERAG_GMBH"
+                Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(712255) ' VERAG Neuhaus
+                Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(712255) ' VERAG Neuhaus
+                usrCntlHauptverpflichteter.txtEORI.Text = "DE4824105" ' KD.EORITIN
+                usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
+                usrCntlHauptverpflichteter.kdFirma.Text = (If(AD.Name_1, "") & " " & If(AD.Name_2, "")).trim
+                usrCntlHauptverpflichteter.txtStrasse.Text = AD.Straße
+                usrCntlHauptverpflichteter.txtPlz.Text = AD.PLZ
+                usrCntlHauptverpflichteter.txtOrt.Text = AD.Ort
+                usrCntlHauptverpflichteter.sbLand.SET_VALUE(cProgramFunctions.getISO2Land(AD.LandKz))
+
+
+            Case "UNISPED_AT"
+                usrCntlHauptverpflichteter.txtEORI.Text = "ATEOS1000000088"
+                usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
+                usrCntlHauptverpflichteter.kdFirma.Text = "UNISPED Speditions GmbH"
+                usrCntlHauptverpflichteter.txtStrasse.Text = "SUBEN 15"
+                usrCntlHauptverpflichteter.txtPlz.Text = "4975"
+                usrCntlHauptverpflichteter.txtOrt.Text = "Suben"
+                usrCntlHauptverpflichteter.sbLand.SET_VALUE("AT")
+            Case "UNISPED_DE"
+                usrCntlHauptverpflichteter.txtEORI.Text = "DE7467540" ' KD.EORITIN
+                usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
+                usrCntlHauptverpflichteter.kdFirma.Text = "UNISPED Deutschland Speditions GmbH"
+                usrCntlHauptverpflichteter.txtStrasse.Text = "HARTHAM 6"
+                usrCntlHauptverpflichteter.txtPlz.Text = "94152"
+                usrCntlHauptverpflichteter.txtOrt.Text = "NEUHAUS AM INN"
+                usrCntlHauptverpflichteter.sbLand.SET_VALUE("DE")
+
+
+            Case "TOBB"
+                usrCntlHauptverpflichteter.txtEORI.Text = "ITTR0000000000152"
+                usrCntlHauptverpflichteter.txtEORINL.Text = ""
+                usrCntlHauptverpflichteter.kdFirma.Text = "TOBB UND Lojistik A.S."
+                usrCntlHauptverpflichteter.txtStrasse.Text = "Bumlupmar Bulvan Nr. 252"
+                usrCntlHauptverpflichteter.txtPlz.Text = "6530"
+                usrCntlHauptverpflichteter.txtOrt.Text = "Ankara"
+                usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR")
+            Case "EKOL"
+                usrCntlHauptverpflichteter.txtEORI.Text = "ITTR0000000000152"
+                usrCntlHauptverpflichteter.txtEORINL.Text = ""
+                usrCntlHauptverpflichteter.kdFirma.Text = "EKOL Lojistik AS."
+                usrCntlHauptverpflichteter.txtStrasse.Text = "Ekol Cad. No 2"
+                usrCntlHauptverpflichteter.txtPlz.Text = "34935"
+                usrCntlHauptverpflichteter.txtOrt.Text = "Sultanbeyli -Istanbul"
+                usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR")
+            Case "SGS"
+                usrCntlHauptverpflichteter.txtEORI.Text = "DE3331326"
+                usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
+                usrCntlHauptverpflichteter.kdFirma.Text = "SGS GERMANY GmbH"
+                usrCntlHauptverpflichteter.txtStrasse.Text = "Rödingsmarkt 16"
+                usrCntlHauptverpflichteter.txtPlz.Text = "20459"
+                usrCntlHauptverpflichteter.txtOrt.Text = "Hamburg"
+                usrCntlHauptverpflichteter.sbLand.SET_VALUE("DE")
+            Case "MARS"
+                usrCntlHauptverpflichteter.txtEORI.Text = "BGKTR6120538808Z8"
+                usrCntlHauptverpflichteter.txtEORINL.Text = ""
+                usrCntlHauptverpflichteter.kdFirma.Text = "MARS LOJISTIK ULUS.TAS.DEP.DAGITIM VE TIC A.S."
+                usrCntlHauptverpflichteter.txtStrasse.Text = "Yenibosna Merkez Nr.21"
+                usrCntlHauptverpflichteter.txtPlz.Text = "00000"
+                usrCntlHauptverpflichteter.txtOrt.Text = "ISTANBUL"
+                usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR")
+            Case Else
+                usrCntlHauptverpflichteter.txtEORI.Text = ""
+                usrCntlHauptverpflichteter.txtEORINL.Text = ""
+                usrCntlHauptverpflichteter.kdFirma.Text = ""
+                usrCntlHauptverpflichteter.txtStrasse.Text = ""
+                usrCntlHauptverpflichteter.txtPlz.Text = ""
+                usrCntlHauptverpflichteter.txtOrt.Text = ""
+                usrCntlHauptverpflichteter.sbLand.SET_VALUE("")
+
+        End Select
+    End Sub
+
+
+End Class
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.Designer.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.Designer.vb
new file mode 100644
index 00000000..d4872b69
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.Designer.vb
@@ -0,0 +1,1500 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlModaltrans_NCTS_Allg
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
+        Me.txtKennnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.cboZahlungsweiseBefKosten = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.cboBesondereUmstaende = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.cbxSumASicherheit = New System.Windows.Forms.CheckBox()
+        Me.cboArtGrenzUeberschreitung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.cboVerkehrszweig = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label16 = 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()
+        Me.sbRoute7 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbRoute6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbRoute4 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        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.pic = New System.Windows.Forms.PictureBox()
+        Me.txtArtDetail = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.btnTIR = New System.Windows.Forms.Button()
+        Me.btnT2F = New System.Windows.Forms.Button()
+        Me.btnT2 = New System.Windows.Forms.Button()
+        Me.btnT1 = New System.Windows.Forms.Button()
+        Me.btnTMinus = New System.Windows.Forms.Button()
+        Me.txtBeladungsort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtWiedergestellungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle9 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle8 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.sbBestimmungsland = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.sbVersendungsLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbBestimmungZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.cbxVereinfachtesVerfahren = New System.Windows.Forms.CheckBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.sbKennzeichenGrenzeLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.txtKennzeichenAbgang = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.sbKennzeichenAbgangLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.txtKennzeichenGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtLadeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtEntladeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblWegstreckeVonNach = New System.Windows.Forms.Label()
+        Me.lblWegZeit = New System.Windows.Forms.Label()
+        Me.lblWegstrecke = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.cbxWegStrecke = New System.Windows.Forms.CheckBox()
+        Me.pnl.SuspendLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.Controls.Add(Me.cbxWegStrecke)
+        Me.pnl.Controls.Add(Me.lblWegstreckeVonNach)
+        Me.pnl.Controls.Add(Me.lblWegZeit)
+        Me.pnl.Controls.Add(Me.lblWegstrecke)
+        Me.pnl.Controls.Add(Me.Button1)
+        Me.pnl.Controls.Add(Me.LinkLabel1)
+        Me.pnl.Controls.Add(Me.txtKennnummer)
+        Me.pnl.Controls.Add(Me.Label21)
+        Me.pnl.Controls.Add(Me.cboZahlungsweiseBefKosten)
+        Me.pnl.Controls.Add(Me.Label20)
+        Me.pnl.Controls.Add(Me.cboBesondereUmstaende)
+        Me.pnl.Controls.Add(Me.Label19)
+        Me.pnl.Controls.Add(Me.cbxSumASicherheit)
+        Me.pnl.Controls.Add(Me.cboArtGrenzUeberschreitung)
+        Me.pnl.Controls.Add(Me.Label17)
+        Me.pnl.Controls.Add(Me.cboVerkehrszweig)
+        Me.pnl.Controls.Add(Me.Label15)
+        Me.pnl.Controls.Add(Me.Label16)
+        Me.pnl.Controls.Add(Me.lklRoutenauswahl)
+        Me.pnl.Controls.Add(Me.sbRoute5)
+        Me.pnl.Controls.Add(Me.sbRoute9)
+        Me.pnl.Controls.Add(Me.sbRoute8)
+        Me.pnl.Controls.Add(Me.sbRoute7)
+        Me.pnl.Controls.Add(Me.sbRoute6)
+        Me.pnl.Controls.Add(Me.sbRoute4)
+        Me.pnl.Controls.Add(Me.sbRoute3)
+        Me.pnl.Controls.Add(Me.sbRoute2)
+        Me.pnl.Controls.Add(Me.sbRoute1)
+        Me.pnl.Controls.Add(Me.Label14)
+        Me.pnl.Controls.Add(Me.pic)
+        Me.pnl.Controls.Add(Me.txtArtDetail)
+        Me.pnl.Controls.Add(Me.Label13)
+        Me.pnl.Controls.Add(Me.btnTIR)
+        Me.pnl.Controls.Add(Me.btnT2F)
+        Me.pnl.Controls.Add(Me.btnT2)
+        Me.pnl.Controls.Add(Me.btnT1)
+        Me.pnl.Controls.Add(Me.btnTMinus)
+        Me.pnl.Controls.Add(Me.txtBeladungsort)
+        Me.pnl.Controls.Add(Me.Label3)
+        Me.pnl.Controls.Add(Me.txtWiedergestellungsdatum)
+        Me.pnl.Controls.Add(Me.Label2)
+        Me.pnl.Controls.Add(Me.sbDurchgangszollstelle5)
+        Me.pnl.Controls.Add(Me.sbDurchgangszollstelle9)
+        Me.pnl.Controls.Add(Me.sbDurchgangszollstelle8)
+        Me.pnl.Controls.Add(Me.sbDurchgangszollstelle7)
+        Me.pnl.Controls.Add(Me.sbDurchgangszollstelle6)
+        Me.pnl.Controls.Add(Me.sbDurchgangszollstelle4)
+        Me.pnl.Controls.Add(Me.sbDurchgangszollstelle3)
+        Me.pnl.Controls.Add(Me.sbDurchgangszollstelle2)
+        Me.pnl.Controls.Add(Me.sbDurchgangszollstelle1)
+        Me.pnl.Controls.Add(Me.Label1)
+        Me.pnl.Controls.Add(Me.sbBestimmungsland)
+        Me.pnl.Controls.Add(Me.Label11)
+        Me.pnl.Controls.Add(Me.Label12)
+        Me.pnl.Controls.Add(Me.sbVersendungsLand)
+        Me.pnl.Controls.Add(Me.sbBestimmungZollstelle)
+        Me.pnl.Controls.Add(Me.Label10)
+        Me.pnl.Controls.Add(Me.Label9)
+        Me.pnl.Controls.Add(Me.sbAbgangZollstelle)
+        Me.pnl.Controls.Add(Me.cbxVereinfachtesVerfahren)
+        Me.pnl.Controls.Add(Me.Label8)
+        Me.pnl.Controls.Add(Me.Label18)
+        Me.pnl.Controls.Add(Me.Panel1)
+        Me.pnl.Controls.Add(Me.txtLadeort)
+        Me.pnl.Controls.Add(Me.txtEntladeort)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(930, 503)
+        Me.pnl.TabIndex = 0
+        '
+        'LinkLabel1
+        '
+        Me.LinkLabel1.AutoSize = True
+        Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel1.Location = New System.Drawing.Point(719, 327)
+        Me.LinkLabel1.Name = "LinkLabel1"
+        Me.LinkLabel1.Size = New System.Drawing.Size(115, 13)
+        Me.LinkLabel1.TabIndex = 37
+        Me.LinkLabel1.TabStop = True
+        Me.LinkLabel1.Text = "=Abgang Kennz./Land"
+        '
+        'txtKennnummer
+        '
+        Me.txtKennnummer._DateTimeOnly = False
+        Me.txtKennnummer._numbersOnly = False
+        Me.txtKennnummer._numbersOnlyKommastellen = ""
+        Me.txtKennnummer._Prozent = False
+        Me.txtKennnummer._ShortDateNew = False
+        Me.txtKennnummer._ShortDateOnly = False
+        Me.txtKennnummer._TimeOnly = False
+        Me.txtKennnummer._value = Nothing
+        Me.txtKennnummer._Waehrung = False
+        Me.txtKennnummer._WaehrungZeichen = True
+        Me.txtKennnummer.ForeColor = System.Drawing.Color.Black
+        Me.txtKennnummer.Location = New System.Drawing.Point(694, 460)
+        Me.txtKennnummer.MaxLength = 70
+        Me.txtKennnummer.MaxLineLength = -1
+        Me.txtKennnummer.MaxLines_Warning = ""
+        Me.txtKennnummer.MaxLines_Warning_Label = Nothing
+        Me.txtKennnummer.Name = "txtKennnummer"
+        Me.txtKennnummer.Size = New System.Drawing.Size(214, 20)
+        Me.txtKennnummer.TabIndex = 56
+        '
+        'Label21
+        '
+        Me.Label21.Location = New System.Drawing.Point(553, 463)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(135, 13)
+        Me.Label21.TabIndex = 55
+        Me.Label21.Text = "SumA Kennummer"
+        Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboZahlungsweiseBefKosten
+        '
+        Me.cboZahlungsweiseBefKosten._allowedValuesFreiText = Nothing
+        Me.cboZahlungsweiseBefKosten._allowFreiText = False
+        Me.cboZahlungsweiseBefKosten._value = ""
+        Me.cboZahlungsweiseBefKosten.DropDownWidth = 350
+        Me.cboZahlungsweiseBefKosten.FormattingEnabled = True
+        Me.cboZahlungsweiseBefKosten.Location = New System.Drawing.Point(145, 479)
+        Me.cboZahlungsweiseBefKosten.Name = "cboZahlungsweiseBefKosten"
+        Me.cboZahlungsweiseBefKosten.Size = New System.Drawing.Size(211, 21)
+        Me.cboZahlungsweiseBefKosten.TabIndex = 58
+        '
+        'Label20
+        '
+        Me.Label20.Location = New System.Drawing.Point(-28, 482)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(167, 13)
+        Me.Label20.TabIndex = 57
+        Me.Label20.Text = "Zahlungsw. Befd.Kosten:"
+        Me.Label20.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboBesondereUmstaende
+        '
+        Me.cboBesondereUmstaende._allowedValuesFreiText = Nothing
+        Me.cboBesondereUmstaende._allowFreiText = False
+        Me.cboBesondereUmstaende._value = ""
+        Me.cboBesondereUmstaende.DropDownWidth = 350
+        Me.cboBesondereUmstaende.FormattingEnabled = True
+        Me.cboBesondereUmstaende.Location = New System.Drawing.Point(145, 460)
+        Me.cboBesondereUmstaende.Name = "cboBesondereUmstaende"
+        Me.cboBesondereUmstaende.Size = New System.Drawing.Size(211, 21)
+        Me.cboBesondereUmstaende.TabIndex = 54
+        '
+        'Label19
+        '
+        Me.Label19.Location = New System.Drawing.Point(4, 463)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(135, 13)
+        Me.Label19.TabIndex = 53
+        Me.Label19.Text = "Besondere Umstände:"
+        Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cbxSumASicherheit
+        '
+        Me.cbxSumASicherheit.AutoSize = True
+        Me.cbxSumASicherheit.Checked = True
+        Me.cbxSumASicherheit.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxSumASicherheit.Location = New System.Drawing.Point(15, 105)
+        Me.cbxSumASicherheit.Name = "cbxSumASicherheit"
+        Me.cbxSumASicherheit.Size = New System.Drawing.Size(104, 17)
+        Me.cbxSumASicherheit.TabIndex = 9
+        Me.cbxSumASicherheit.Text = "SumA Sicherheit"
+        Me.cbxSumASicherheit.UseVisualStyleBackColor = True
+        '
+        'cboArtGrenzUeberschreitung
+        '
+        Me.cboArtGrenzUeberschreitung._allowedValuesFreiText = Nothing
+        Me.cboArtGrenzUeberschreitung._allowFreiText = False
+        Me.cboArtGrenzUeberschreitung._value = ""
+        Me.cboArtGrenzUeberschreitung.DropDownWidth = 350
+        Me.cboArtGrenzUeberschreitung.FormattingEnabled = True
+        Me.cboArtGrenzUeberschreitung.Location = New System.Drawing.Point(315, 325)
+        Me.cboArtGrenzUeberschreitung.Name = "cboArtGrenzUeberschreitung"
+        Me.cboArtGrenzUeberschreitung.Size = New System.Drawing.Size(41, 21)
+        Me.cboArtGrenzUeberschreitung.TabIndex = 41
+        '
+        'Label17
+        '
+        Me.Label17.Location = New System.Drawing.Point(1, 328)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(135, 13)
+        Me.Label17.TabIndex = 38
+        Me.Label17.Text = "Verkehrszweig:"
+        Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboVerkehrszweig
+        '
+        Me.cboVerkehrszweig._allowedValuesFreiText = Nothing
+        Me.cboVerkehrszweig._allowFreiText = False
+        Me.cboVerkehrszweig._value = ""
+        Me.cboVerkehrszweig.DropDownWidth = 350
+        Me.cboVerkehrszweig.FormattingEnabled = True
+        Me.cboVerkehrszweig.Location = New System.Drawing.Point(142, 325)
+        Me.cboVerkehrszweig.Name = "cboVerkehrszweig"
+        Me.cboVerkehrszweig.Size = New System.Drawing.Size(140, 21)
+        Me.cboVerkehrszweig.TabIndex = 39
+        '
+        'Label15
+        '
+        Me.Label15.Location = New System.Drawing.Point(553, 290)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(135, 13)
+        Me.Label15.TabIndex = 34
+        Me.Label15.Text = "Entladeort:"
+        Me.Label15.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label16
+        '
+        Me.Label16.Location = New System.Drawing.Point(1, 290)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(135, 13)
+        Me.Label16.TabIndex = 32
+        Me.Label16.Text = "Ladeort:"
+        Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        '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(625, 372)
+        Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
+        Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
+        Me.lklRoutenauswahl.TabIndex = 43
+        Me.lklRoutenauswahl.TabStop = True
+        Me.lklRoutenauswahl.Text = "Routenauswahl"
+        '
+        'sbRoute5
+        '
+        Me.sbRoute5._allowFreitext = False
+        Me.sbRoute5._AllowSetValue = False
+        Me.sbRoute5._allowSpaceAsSplitter = False
+        Me.sbRoute5._autoSizeGross = False
+        Me.sbRoute5._hideIfListEmpty = True
+        Me.sbRoute5._value = ""
+        Me.sbRoute5.conn_art = "FMZOLL"
+        Me.sbRoute5.dgvpos = "LEFT"
+        Me.sbRoute5.DISPLAY_PARAM = Nothing
+        Me.sbRoute5.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute5.key_visible = False
+        Me.sbRoute5.KEYPARAM = Nothing
+        Me.sbRoute5.Location = New System.Drawing.Point(399, 407)
+        Me.sbRoute5.Name = "sbRoute5"
+        Me.sbRoute5.searchActive = True
+        Me.sbRoute5.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute5.SQL_ORDER_BY = Nothing
+        Me.sbRoute5.SQL_SELECT = Nothing
+        Me.sbRoute5.SQL_WHERE = Nothing
+        Me.sbRoute5.SQL_WhereParamList = Nothing
+        Me.sbRoute5.TabIndex = 48
+        Me.sbRoute5.usrcntl = Nothing
+        '
+        'sbRoute9
+        '
+        Me.sbRoute9._allowFreitext = False
+        Me.sbRoute9._AllowSetValue = False
+        Me.sbRoute9._allowSpaceAsSplitter = False
+        Me.sbRoute9._autoSizeGross = False
+        Me.sbRoute9._hideIfListEmpty = True
+        Me.sbRoute9._value = ""
+        Me.sbRoute9.conn_art = "FMZOLL"
+        Me.sbRoute9.dgvpos = "LEFT"
+        Me.sbRoute9.DISPLAY_PARAM = Nothing
+        Me.sbRoute9.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute9.key_visible = False
+        Me.sbRoute9.KEYPARAM = Nothing
+        Me.sbRoute9.Location = New System.Drawing.Point(552, 426)
+        Me.sbRoute9.Name = "sbRoute9"
+        Me.sbRoute9.searchActive = True
+        Me.sbRoute9.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute9.SQL_ORDER_BY = Nothing
+        Me.sbRoute9.SQL_SELECT = Nothing
+        Me.sbRoute9.SQL_WHERE = Nothing
+        Me.sbRoute9.SQL_WhereParamList = Nothing
+        Me.sbRoute9.TabIndex = 52
+        Me.sbRoute9.usrcntl = Nothing
+        '
+        'sbRoute8
+        '
+        Me.sbRoute8._allowFreitext = False
+        Me.sbRoute8._AllowSetValue = False
+        Me.sbRoute8._allowSpaceAsSplitter = False
+        Me.sbRoute8._autoSizeGross = False
+        Me.sbRoute8._hideIfListEmpty = True
+        Me.sbRoute8._value = ""
+        Me.sbRoute8.conn_art = "FMZOLL"
+        Me.sbRoute8.dgvpos = "LEFT"
+        Me.sbRoute8.DISPLAY_PARAM = Nothing
+        Me.sbRoute8.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute8.key_visible = False
+        Me.sbRoute8.KEYPARAM = Nothing
+        Me.sbRoute8.Location = New System.Drawing.Point(399, 426)
+        Me.sbRoute8.Name = "sbRoute8"
+        Me.sbRoute8.searchActive = True
+        Me.sbRoute8.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute8.SQL_ORDER_BY = Nothing
+        Me.sbRoute8.SQL_SELECT = Nothing
+        Me.sbRoute8.SQL_WHERE = Nothing
+        Me.sbRoute8.SQL_WhereParamList = Nothing
+        Me.sbRoute8.TabIndex = 51
+        Me.sbRoute8.usrcntl = Nothing
+        '
+        'sbRoute7
+        '
+        Me.sbRoute7._allowFreitext = False
+        Me.sbRoute7._AllowSetValue = False
+        Me.sbRoute7._allowSpaceAsSplitter = False
+        Me.sbRoute7._autoSizeGross = False
+        Me.sbRoute7._hideIfListEmpty = True
+        Me.sbRoute7._value = ""
+        Me.sbRoute7.conn_art = "FMZOLL"
+        Me.sbRoute7.dgvpos = "LEFT"
+        Me.sbRoute7.DISPLAY_PARAM = Nothing
+        Me.sbRoute7.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute7.key_visible = False
+        Me.sbRoute7.KEYPARAM = Nothing
+        Me.sbRoute7.Location = New System.Drawing.Point(246, 426)
+        Me.sbRoute7.Name = "sbRoute7"
+        Me.sbRoute7.searchActive = True
+        Me.sbRoute7.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute7.SQL_ORDER_BY = Nothing
+        Me.sbRoute7.SQL_SELECT = Nothing
+        Me.sbRoute7.SQL_WHERE = Nothing
+        Me.sbRoute7.SQL_WhereParamList = Nothing
+        Me.sbRoute7.TabIndex = 50
+        Me.sbRoute7.usrcntl = Nothing
+        '
+        'sbRoute6
+        '
+        Me.sbRoute6._allowFreitext = False
+        Me.sbRoute6._AllowSetValue = False
+        Me.sbRoute6._allowSpaceAsSplitter = False
+        Me.sbRoute6._autoSizeGross = False
+        Me.sbRoute6._hideIfListEmpty = True
+        Me.sbRoute6._value = ""
+        Me.sbRoute6.conn_art = "FMZOLL"
+        Me.sbRoute6.dgvpos = "LEFT"
+        Me.sbRoute6.DISPLAY_PARAM = Nothing
+        Me.sbRoute6.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute6.key_visible = False
+        Me.sbRoute6.KEYPARAM = Nothing
+        Me.sbRoute6.Location = New System.Drawing.Point(552, 407)
+        Me.sbRoute6.Name = "sbRoute6"
+        Me.sbRoute6.searchActive = True
+        Me.sbRoute6.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute6.SQL_ORDER_BY = Nothing
+        Me.sbRoute6.SQL_SELECT = Nothing
+        Me.sbRoute6.SQL_WHERE = Nothing
+        Me.sbRoute6.SQL_WhereParamList = Nothing
+        Me.sbRoute6.TabIndex = 49
+        Me.sbRoute6.usrcntl = Nothing
+        '
+        'sbRoute4
+        '
+        Me.sbRoute4._allowFreitext = False
+        Me.sbRoute4._AllowSetValue = False
+        Me.sbRoute4._allowSpaceAsSplitter = False
+        Me.sbRoute4._autoSizeGross = False
+        Me.sbRoute4._hideIfListEmpty = True
+        Me.sbRoute4._value = ""
+        Me.sbRoute4.conn_art = "FMZOLL"
+        Me.sbRoute4.dgvpos = "LEFT"
+        Me.sbRoute4.DISPLAY_PARAM = Nothing
+        Me.sbRoute4.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute4.key_visible = False
+        Me.sbRoute4.KEYPARAM = Nothing
+        Me.sbRoute4.Location = New System.Drawing.Point(246, 407)
+        Me.sbRoute4.Name = "sbRoute4"
+        Me.sbRoute4.searchActive = True
+        Me.sbRoute4.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute4.SQL_ORDER_BY = Nothing
+        Me.sbRoute4.SQL_SELECT = Nothing
+        Me.sbRoute4.SQL_WHERE = Nothing
+        Me.sbRoute4.SQL_WhereParamList = Nothing
+        Me.sbRoute4.TabIndex = 47
+        Me.sbRoute4.usrcntl = Nothing
+        '
+        'sbRoute3
+        '
+        Me.sbRoute3._allowFreitext = False
+        Me.sbRoute3._AllowSetValue = False
+        Me.sbRoute3._allowSpaceAsSplitter = False
+        Me.sbRoute3._autoSizeGross = False
+        Me.sbRoute3._hideIfListEmpty = True
+        Me.sbRoute3._value = ""
+        Me.sbRoute3.conn_art = "FMZOLL"
+        Me.sbRoute3.dgvpos = "LEFT"
+        Me.sbRoute3.DISPLAY_PARAM = Nothing
+        Me.sbRoute3.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute3.key_visible = False
+        Me.sbRoute3.KEYPARAM = Nothing
+        Me.sbRoute3.Location = New System.Drawing.Point(552, 388)
+        Me.sbRoute3.Name = "sbRoute3"
+        Me.sbRoute3.searchActive = True
+        Me.sbRoute3.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute3.SQL_ORDER_BY = Nothing
+        Me.sbRoute3.SQL_SELECT = Nothing
+        Me.sbRoute3.SQL_WHERE = Nothing
+        Me.sbRoute3.SQL_WhereParamList = Nothing
+        Me.sbRoute3.TabIndex = 46
+        Me.sbRoute3.usrcntl = Nothing
+        '
+        'sbRoute2
+        '
+        Me.sbRoute2._allowFreitext = False
+        Me.sbRoute2._AllowSetValue = False
+        Me.sbRoute2._allowSpaceAsSplitter = False
+        Me.sbRoute2._autoSizeGross = False
+        Me.sbRoute2._hideIfListEmpty = True
+        Me.sbRoute2._value = ""
+        Me.sbRoute2.conn_art = "FMZOLL"
+        Me.sbRoute2.dgvpos = "LEFT"
+        Me.sbRoute2.DISPLAY_PARAM = Nothing
+        Me.sbRoute2.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute2.key_visible = False
+        Me.sbRoute2.KEYPARAM = Nothing
+        Me.sbRoute2.Location = New System.Drawing.Point(399, 388)
+        Me.sbRoute2.Name = "sbRoute2"
+        Me.sbRoute2.searchActive = True
+        Me.sbRoute2.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute2.SQL_ORDER_BY = Nothing
+        Me.sbRoute2.SQL_SELECT = Nothing
+        Me.sbRoute2.SQL_WHERE = Nothing
+        Me.sbRoute2.SQL_WhereParamList = Nothing
+        Me.sbRoute2.TabIndex = 45
+        Me.sbRoute2.usrcntl = Nothing
+        '
+        'sbRoute1
+        '
+        Me.sbRoute1._allowFreitext = False
+        Me.sbRoute1._AllowSetValue = False
+        Me.sbRoute1._allowSpaceAsSplitter = False
+        Me.sbRoute1._autoSizeGross = False
+        Me.sbRoute1._hideIfListEmpty = True
+        Me.sbRoute1._value = ""
+        Me.sbRoute1.conn_art = "FMZOLL"
+        Me.sbRoute1.dgvpos = "LEFT"
+        Me.sbRoute1.DISPLAY_PARAM = Nothing
+        Me.sbRoute1.INVISIBLE_COLUMNS = Nothing
+        Me.sbRoute1.key_visible = False
+        Me.sbRoute1.KEYPARAM = Nothing
+        Me.sbRoute1.Location = New System.Drawing.Point(246, 388)
+        Me.sbRoute1.Name = "sbRoute1"
+        Me.sbRoute1.searchActive = True
+        Me.sbRoute1.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute1.SQL_ORDER_BY = Nothing
+        Me.sbRoute1.SQL_SELECT = Nothing
+        Me.sbRoute1.SQL_WHERE = Nothing
+        Me.sbRoute1.SQL_WhereParamList = Nothing
+        Me.sbRoute1.TabIndex = 44
+        Me.sbRoute1.usrcntl = Nothing
+        '
+        'Label14
+        '
+        Me.Label14.Location = New System.Drawing.Point(243, 372)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(135, 13)
+        Me.Label14.TabIndex = 42
+        Me.Label14.Text = "Route:"
+        '
+        'pic
+        '
+        Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pic.Location = New System.Drawing.Point(399, 123)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(154, 50)
+        Me.pic.TabIndex = 47
+        Me.pic.TabStop = False
+        '
+        'txtArtDetail
+        '
+        Me.txtArtDetail.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.txtArtDetail.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.txtArtDetail.Location = New System.Drawing.Point(310, 39)
+        Me.txtArtDetail.Multiline = True
+        Me.txtArtDetail.Name = "txtArtDetail"
+        Me.txtArtDetail.Size = New System.Drawing.Size(598, 59)
+        Me.txtArtDetail.TabIndex = 8
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label13.Location = New System.Drawing.Point(307, 24)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(50, 13)
+        Me.Label13.TabIndex = 1
+        Me.Label13.Text = "Details:"
+        '
+        'btnTIR
+        '
+        Me.btnTIR.BackColor = System.Drawing.Color.White
+        Me.btnTIR.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnTIR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnTIR.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold)
+        Me.btnTIR.ForeColor = System.Drawing.Color.Black
+        Me.btnTIR.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnTIR.Location = New System.Drawing.Point(243, 39)
+        Me.btnTIR.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnTIR.Name = "btnTIR"
+        Me.btnTIR.Size = New System.Drawing.Size(62, 37)
+        Me.btnTIR.TabIndex = 6
+        Me.btnTIR.Text = "TIR"
+        Me.btnTIR.UseVisualStyleBackColor = False
+        '
+        'btnT2F
+        '
+        Me.btnT2F.BackColor = System.Drawing.Color.White
+        Me.btnT2F.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnT2F.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnT2F.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold)
+        Me.btnT2F.ForeColor = System.Drawing.Color.Black
+        Me.btnT2F.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnT2F.Location = New System.Drawing.Point(177, 39)
+        Me.btnT2F.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnT2F.Name = "btnT2F"
+        Me.btnT2F.Size = New System.Drawing.Size(62, 37)
+        Me.btnT2F.TabIndex = 5
+        Me.btnT2F.Text = "T2F"
+        Me.btnT2F.UseVisualStyleBackColor = False
+        '
+        'btnT2
+        '
+        Me.btnT2.BackColor = System.Drawing.Color.White
+        Me.btnT2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnT2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnT2.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold)
+        Me.btnT2.ForeColor = System.Drawing.Color.Black
+        Me.btnT2.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnT2.Location = New System.Drawing.Point(123, 39)
+        Me.btnT2.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnT2.Name = "btnT2"
+        Me.btnT2.Size = New System.Drawing.Size(50, 37)
+        Me.btnT2.TabIndex = 4
+        Me.btnT2.Text = "T2"
+        Me.btnT2.UseVisualStyleBackColor = False
+        '
+        'btnT1
+        '
+        Me.btnT1.BackColor = System.Drawing.Color.White
+        Me.btnT1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnT1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold)
+        Me.btnT1.ForeColor = System.Drawing.Color.Black
+        Me.btnT1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnT1.Location = New System.Drawing.Point(69, 39)
+        Me.btnT1.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnT1.Name = "btnT1"
+        Me.btnT1.Size = New System.Drawing.Size(50, 37)
+        Me.btnT1.TabIndex = 3
+        Me.btnT1.Text = "T1"
+        Me.btnT1.UseVisualStyleBackColor = False
+        '
+        'btnTMinus
+        '
+        Me.btnTMinus.BackColor = System.Drawing.Color.OrangeRed
+        Me.btnTMinus.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnTMinus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnTMinus.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold)
+        Me.btnTMinus.ForeColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btnTMinus.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnTMinus.Location = New System.Drawing.Point(15, 39)
+        Me.btnTMinus.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnTMinus.Name = "btnTMinus"
+        Me.btnTMinus.Size = New System.Drawing.Size(50, 37)
+        Me.btnTMinus.TabIndex = 2
+        Me.btnTMinus.Text = "T-"
+        Me.btnTMinus.UseVisualStyleBackColor = False
+        '
+        'txtBeladungsort
+        '
+        Me.txtBeladungsort._DateTimeOnly = False
+        Me.txtBeladungsort._numbersOnly = False
+        Me.txtBeladungsort._numbersOnlyKommastellen = ""
+        Me.txtBeladungsort._Prozent = False
+        Me.txtBeladungsort._ShortDateNew = False
+        Me.txtBeladungsort._ShortDateOnly = False
+        Me.txtBeladungsort._TimeOnly = False
+        Me.txtBeladungsort._value = Nothing
+        Me.txtBeladungsort._Waehrung = False
+        Me.txtBeladungsort._WaehrungZeichen = True
+        Me.txtBeladungsort.Enabled = False
+        Me.txtBeladungsort.ForeColor = System.Drawing.Color.Black
+        Me.txtBeladungsort.Location = New System.Drawing.Point(142, 268)
+        Me.txtBeladungsort.MaxLength = 4
+        Me.txtBeladungsort.MaxLineLength = -1
+        Me.txtBeladungsort.MaxLines_Warning = ""
+        Me.txtBeladungsort.MaxLines_Warning_Label = Nothing
+        Me.txtBeladungsort.Name = "txtBeladungsort"
+        Me.txtBeladungsort.Size = New System.Drawing.Size(214, 20)
+        Me.txtBeladungsort.TabIndex = 29
+        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(553, 271)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(135, 13)
+        Me.Label3.TabIndex = 30
+        Me.Label3.Text = "Wiedergestellungsdatum:"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtWiedergestellungsdatum
+        '
+        Me.txtWiedergestellungsdatum._DateTimeOnly = False
+        Me.txtWiedergestellungsdatum._numbersOnly = False
+        Me.txtWiedergestellungsdatum._numbersOnlyKommastellen = ""
+        Me.txtWiedergestellungsdatum._Prozent = False
+        Me.txtWiedergestellungsdatum._ShortDateNew = True
+        Me.txtWiedergestellungsdatum._ShortDateOnly = False
+        Me.txtWiedergestellungsdatum._TimeOnly = False
+        Me.txtWiedergestellungsdatum._value = ""
+        Me.txtWiedergestellungsdatum._Waehrung = False
+        Me.txtWiedergestellungsdatum._WaehrungZeichen = True
+        Me.txtWiedergestellungsdatum.Enabled = False
+        Me.txtWiedergestellungsdatum.ForeColor = System.Drawing.Color.Black
+        Me.txtWiedergestellungsdatum.Location = New System.Drawing.Point(694, 268)
+        Me.txtWiedergestellungsdatum.MaxLength = 10
+        Me.txtWiedergestellungsdatum.MaxLineLength = -1
+        Me.txtWiedergestellungsdatum.MaxLines_Warning = ""
+        Me.txtWiedergestellungsdatum.MaxLines_Warning_Label = Nothing
+        Me.txtWiedergestellungsdatum.Name = "txtWiedergestellungsdatum"
+        Me.txtWiedergestellungsdatum.Size = New System.Drawing.Size(214, 20)
+        Me.txtWiedergestellungsdatum.TabIndex = 31
+        '
+        'Label2
+        '
+        Me.Label2.Location = New System.Drawing.Point(1, 271)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(135, 13)
+        Me.Label2.TabIndex = 28
+        Me.Label2.Text = "Beladungsort:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'sbDurchgangszollstelle5
+        '
+        Me.sbDurchgangszollstelle5._allowFreitext = False
+        Me.sbDurchgangszollstelle5._AllowSetValue = False
+        Me.sbDurchgangszollstelle5._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle5._autoSizeGross = False
+        Me.sbDurchgangszollstelle5._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle5._value = ""
+        Me.sbDurchgangszollstelle5.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle5.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle5.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle5.key_visible = False
+        Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(399, 217)
+        Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
+        Me.sbDurchgangszollstelle5.searchActive = True
+        Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle5.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle5.TabIndex = 23
+        Me.sbDurchgangszollstelle5.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle9
+        '
+        Me.sbDurchgangszollstelle9._allowFreitext = False
+        Me.sbDurchgangszollstelle9._AllowSetValue = False
+        Me.sbDurchgangszollstelle9._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle9._autoSizeGross = False
+        Me.sbDurchgangszollstelle9._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle9._value = ""
+        Me.sbDurchgangszollstelle9.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle9.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle9.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle9.key_visible = False
+        Me.sbDurchgangszollstelle9.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(552, 236)
+        Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9"
+        Me.sbDurchgangszollstelle9.searchActive = True
+        Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle9.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle9.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle9.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle9.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle9.TabIndex = 27
+        Me.sbDurchgangszollstelle9.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle8
+        '
+        Me.sbDurchgangszollstelle8._allowFreitext = False
+        Me.sbDurchgangszollstelle8._AllowSetValue = False
+        Me.sbDurchgangszollstelle8._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle8._autoSizeGross = False
+        Me.sbDurchgangszollstelle8._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle8._value = ""
+        Me.sbDurchgangszollstelle8.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle8.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle8.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle8.key_visible = False
+        Me.sbDurchgangszollstelle8.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(399, 236)
+        Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8"
+        Me.sbDurchgangszollstelle8.searchActive = True
+        Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle8.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle8.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle8.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle8.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle8.TabIndex = 26
+        Me.sbDurchgangszollstelle8.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle7
+        '
+        Me.sbDurchgangszollstelle7._allowFreitext = False
+        Me.sbDurchgangszollstelle7._AllowSetValue = False
+        Me.sbDurchgangszollstelle7._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle7._autoSizeGross = False
+        Me.sbDurchgangszollstelle7._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle7._value = ""
+        Me.sbDurchgangszollstelle7.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle7.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle7.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle7.key_visible = False
+        Me.sbDurchgangszollstelle7.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(246, 236)
+        Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7"
+        Me.sbDurchgangszollstelle7.searchActive = True
+        Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle7.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle7.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle7.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle7.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle7.TabIndex = 25
+        Me.sbDurchgangszollstelle7.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle6
+        '
+        Me.sbDurchgangszollstelle6._allowFreitext = False
+        Me.sbDurchgangszollstelle6._AllowSetValue = False
+        Me.sbDurchgangszollstelle6._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle6._autoSizeGross = False
+        Me.sbDurchgangszollstelle6._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle6._value = ""
+        Me.sbDurchgangszollstelle6.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle6.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle6.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle6.key_visible = False
+        Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(552, 217)
+        Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
+        Me.sbDurchgangszollstelle6.searchActive = True
+        Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle6.TabIndex = 24
+        Me.sbDurchgangszollstelle6.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle4
+        '
+        Me.sbDurchgangszollstelle4._allowFreitext = False
+        Me.sbDurchgangszollstelle4._AllowSetValue = False
+        Me.sbDurchgangszollstelle4._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle4._autoSizeGross = False
+        Me.sbDurchgangszollstelle4._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle4._value = ""
+        Me.sbDurchgangszollstelle4.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle4.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle4.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle4.key_visible = False
+        Me.sbDurchgangszollstelle4.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(246, 217)
+        Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4"
+        Me.sbDurchgangszollstelle4.searchActive = True
+        Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle4.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle4.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle4.TabIndex = 22
+        Me.sbDurchgangszollstelle4.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle3
+        '
+        Me.sbDurchgangszollstelle3._allowFreitext = False
+        Me.sbDurchgangszollstelle3._AllowSetValue = False
+        Me.sbDurchgangszollstelle3._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle3._autoSizeGross = False
+        Me.sbDurchgangszollstelle3._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle3._value = ""
+        Me.sbDurchgangszollstelle3.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle3.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle3.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle3.key_visible = False
+        Me.sbDurchgangszollstelle3.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(552, 198)
+        Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3"
+        Me.sbDurchgangszollstelle3.searchActive = True
+        Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle3.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle3.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle3.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle3.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle3.TabIndex = 21
+        Me.sbDurchgangszollstelle3.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle2
+        '
+        Me.sbDurchgangszollstelle2._allowFreitext = False
+        Me.sbDurchgangszollstelle2._AllowSetValue = False
+        Me.sbDurchgangszollstelle2._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle2._autoSizeGross = False
+        Me.sbDurchgangszollstelle2._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle2._value = ""
+        Me.sbDurchgangszollstelle2.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle2.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle2.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle2.key_visible = False
+        Me.sbDurchgangszollstelle2.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(399, 198)
+        Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2"
+        Me.sbDurchgangszollstelle2.searchActive = True
+        Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle2.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle2.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle2.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle2.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle2.TabIndex = 20
+        Me.sbDurchgangszollstelle2.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle1
+        '
+        Me.sbDurchgangszollstelle1._allowFreitext = False
+        Me.sbDurchgangszollstelle1._AllowSetValue = False
+        Me.sbDurchgangszollstelle1._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle1._autoSizeGross = False
+        Me.sbDurchgangszollstelle1._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle1._value = ""
+        Me.sbDurchgangszollstelle1.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle1.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle1.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle1.key_visible = False
+        Me.sbDurchgangszollstelle1.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(246, 198)
+        Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1"
+        Me.sbDurchgangszollstelle1.searchActive = True
+        Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle1.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle1.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle1.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle1.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle1.TabIndex = 19
+        Me.sbDurchgangszollstelle1.usrcntl = Nothing
+        '
+        'Label1
+        '
+        Me.Label1.Location = New System.Drawing.Point(243, 182)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(135, 13)
+        Me.Label1.TabIndex = 18
+        Me.Label1.Text = "Durchgangszollstellen:"
+        '
+        'sbBestimmungsland
+        '
+        Me.sbBestimmungsland._allowFreitext = False
+        Me.sbBestimmungsland._AllowSetValue = False
+        Me.sbBestimmungsland._allowSpaceAsSplitter = False
+        Me.sbBestimmungsland._autoSizeGross = False
+        Me.sbBestimmungsland._hideIfListEmpty = True
+        Me.sbBestimmungsland._value = ""
+        Me.sbBestimmungsland.conn_art = "FMZOLL"
+        Me.sbBestimmungsland.dgvpos = "RIGHT"
+        Me.sbBestimmungsland.DISPLAY_PARAM = Nothing
+        Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing
+        Me.sbBestimmungsland.key_visible = False
+        Me.sbBestimmungsland.KEYPARAM = Nothing
+        Me.sbBestimmungsland.Location = New System.Drawing.Point(694, 153)
+        Me.sbBestimmungsland.Name = "sbBestimmungsland"
+        Me.sbBestimmungsland.searchActive = True
+        Me.sbBestimmungsland.Size = New System.Drawing.Size(214, 20)
+        Me.sbBestimmungsland.SQL_ORDER_BY = Nothing
+        Me.sbBestimmungsland.SQL_SELECT = Nothing
+        Me.sbBestimmungsland.SQL_WHERE = Nothing
+        Me.sbBestimmungsland.SQL_WhereParamList = Nothing
+        Me.sbBestimmungsland.TabIndex = 15
+        Me.sbBestimmungsland.usrcntl = Nothing
+        '
+        'Label11
+        '
+        Me.Label11.Location = New System.Drawing.Point(572, 156)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(116, 13)
+        Me.Label11.TabIndex = 17
+        Me.Label11.Text = "Bestimmungs-Land:"
+        Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label12
+        '
+        Me.Label12.Location = New System.Drawing.Point(1, 156)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(135, 13)
+        Me.Label12.TabIndex = 13
+        Me.Label12.Text = "Versendungs-Land:"
+        Me.Label12.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'sbVersendungsLand
+        '
+        Me.sbVersendungsLand._allowFreitext = False
+        Me.sbVersendungsLand._AllowSetValue = False
+        Me.sbVersendungsLand._allowSpaceAsSplitter = False
+        Me.sbVersendungsLand._autoSizeGross = False
+        Me.sbVersendungsLand._hideIfListEmpty = True
+        Me.sbVersendungsLand._value = ""
+        Me.sbVersendungsLand.conn_art = "FMZOLL"
+        Me.sbVersendungsLand.dgvpos = "LEFT"
+        Me.sbVersendungsLand.DISPLAY_PARAM = Nothing
+        Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing
+        Me.sbVersendungsLand.key_visible = False
+        Me.sbVersendungsLand.KEYPARAM = Nothing
+        Me.sbVersendungsLand.Location = New System.Drawing.Point(142, 153)
+        Me.sbVersendungsLand.Name = "sbVersendungsLand"
+        Me.sbVersendungsLand.searchActive = True
+        Me.sbVersendungsLand.Size = New System.Drawing.Size(214, 20)
+        Me.sbVersendungsLand.SQL_ORDER_BY = Nothing
+        Me.sbVersendungsLand.SQL_SELECT = Nothing
+        Me.sbVersendungsLand.SQL_WHERE = Nothing
+        Me.sbVersendungsLand.SQL_WhereParamList = Nothing
+        Me.sbVersendungsLand.TabIndex = 14
+        Me.sbVersendungsLand.usrcntl = Nothing
+        '
+        'sbBestimmungZollstelle
+        '
+        Me.sbBestimmungZollstelle._allowFreitext = False
+        Me.sbBestimmungZollstelle._AllowSetValue = False
+        Me.sbBestimmungZollstelle._allowSpaceAsSplitter = False
+        Me.sbBestimmungZollstelle._autoSizeGross = False
+        Me.sbBestimmungZollstelle._hideIfListEmpty = True
+        Me.sbBestimmungZollstelle._value = ""
+        Me.sbBestimmungZollstelle.conn_art = "FMZOLL"
+        Me.sbBestimmungZollstelle.dgvpos = "RIGHT"
+        Me.sbBestimmungZollstelle.DISPLAY_PARAM = Nothing
+        Me.sbBestimmungZollstelle.INVISIBLE_COLUMNS = Nothing
+        Me.sbBestimmungZollstelle.key_visible = False
+        Me.sbBestimmungZollstelle.KEYPARAM = Nothing
+        Me.sbBestimmungZollstelle.Location = New System.Drawing.Point(694, 134)
+        Me.sbBestimmungZollstelle.Name = "sbBestimmungZollstelle"
+        Me.sbBestimmungZollstelle.searchActive = True
+        Me.sbBestimmungZollstelle.Size = New System.Drawing.Size(214, 20)
+        Me.sbBestimmungZollstelle.SQL_ORDER_BY = Nothing
+        Me.sbBestimmungZollstelle.SQL_SELECT = Nothing
+        Me.sbBestimmungZollstelle.SQL_WHERE = Nothing
+        Me.sbBestimmungZollstelle.SQL_WhereParamList = Nothing
+        Me.sbBestimmungZollstelle.TabIndex = 12
+        Me.sbBestimmungZollstelle.usrcntl = Nothing
+        '
+        'Label10
+        '
+        Me.Label10.Location = New System.Drawing.Point(572, 137)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(116, 13)
+        Me.Label10.TabIndex = 16
+        Me.Label10.Text = "Bestimmungs-Zollstelle:"
+        Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label9
+        '
+        Me.Label9.Location = New System.Drawing.Point(1, 137)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(135, 13)
+        Me.Label9.TabIndex = 10
+        Me.Label9.Text = "Abgangs-Zollstelle:"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'sbAbgangZollstelle
+        '
+        Me.sbAbgangZollstelle._allowFreitext = False
+        Me.sbAbgangZollstelle._AllowSetValue = False
+        Me.sbAbgangZollstelle._allowSpaceAsSplitter = False
+        Me.sbAbgangZollstelle._autoSizeGross = False
+        Me.sbAbgangZollstelle._hideIfListEmpty = True
+        Me.sbAbgangZollstelle._value = ""
+        Me.sbAbgangZollstelle.conn_art = "FMZOLL"
+        Me.sbAbgangZollstelle.dgvpos = "LEFT"
+        Me.sbAbgangZollstelle.DISPLAY_PARAM = Nothing
+        Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
+        Me.sbAbgangZollstelle.key_visible = False
+        Me.sbAbgangZollstelle.KEYPARAM = Nothing
+        Me.sbAbgangZollstelle.Location = New System.Drawing.Point(142, 134)
+        Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
+        Me.sbAbgangZollstelle.searchActive = True
+        Me.sbAbgangZollstelle.Size = New System.Drawing.Size(214, 20)
+        Me.sbAbgangZollstelle.SQL_ORDER_BY = Nothing
+        Me.sbAbgangZollstelle.SQL_SELECT = Nothing
+        Me.sbAbgangZollstelle.SQL_WHERE = Nothing
+        Me.sbAbgangZollstelle.SQL_WhereParamList = Nothing
+        Me.sbAbgangZollstelle.TabIndex = 11
+        Me.sbAbgangZollstelle.usrcntl = Nothing
+        '
+        'cbxVereinfachtesVerfahren
+        '
+        Me.cbxVereinfachtesVerfahren.AutoSize = True
+        Me.cbxVereinfachtesVerfahren.Location = New System.Drawing.Point(15, 81)
+        Me.cbxVereinfachtesVerfahren.Name = "cbxVereinfachtesVerfahren"
+        Me.cbxVereinfachtesVerfahren.Size = New System.Drawing.Size(140, 17)
+        Me.cbxVereinfachtesVerfahren.TabIndex = 7
+        Me.cbxVereinfachtesVerfahren.Text = "Vereinfachtes Verfahren"
+        Me.cbxVereinfachtesVerfahren.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.Location = New System.Drawing.Point(12, 24)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(115, 13)
+        Me.Label8.TabIndex = 0
+        Me.Label8.Text = "Art der Anmeldung:"
+        '
+        'Label18
+        '
+        Me.Label18.Location = New System.Drawing.Point(269, 328)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(36, 13)
+        Me.Label18.TabIndex = 40
+        Me.Label18.Text = "Art:"
+        Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel1.Controls.Add(Me.sbKennzeichenGrenzeLand)
+        Me.Panel1.Controls.Add(Me.txtKennzeichenAbgang)
+        Me.Panel1.Controls.Add(Me.sbKennzeichenAbgangLand)
+        Me.Panel1.Controls.Add(Me.txtKennzeichenGrenze)
+        Me.Panel1.Controls.Add(Me.PictureBox2)
+        Me.Panel1.Controls.Add(Me.PictureBox1)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Controls.Add(Me.Label7)
+        Me.Panel1.Location = New System.Drawing.Point(0, 306)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(930, 20)
+        Me.Panel1.TabIndex = 36
+        '
+        'sbKennzeichenGrenzeLand
+        '
+        Me.sbKennzeichenGrenzeLand._allowFreitext = False
+        Me.sbKennzeichenGrenzeLand._AllowSetValue = False
+        Me.sbKennzeichenGrenzeLand._allowSpaceAsSplitter = False
+        Me.sbKennzeichenGrenzeLand._autoSizeGross = False
+        Me.sbKennzeichenGrenzeLand._hideIfListEmpty = True
+        Me.sbKennzeichenGrenzeLand._value = ""
+        Me.sbKennzeichenGrenzeLand.conn_art = "FMZOLL"
+        Me.sbKennzeichenGrenzeLand.dgvpos = "RIGHT"
+        Me.sbKennzeichenGrenzeLand.DISPLAY_PARAM = Nothing
+        Me.sbKennzeichenGrenzeLand.INVISIBLE_COLUMNS = Nothing
+        Me.sbKennzeichenGrenzeLand.key_visible = False
+        Me.sbKennzeichenGrenzeLand.KEYPARAM = Nothing
+        Me.sbKennzeichenGrenzeLand.Location = New System.Drawing.Point(867, 0)
+        Me.sbKennzeichenGrenzeLand.Name = "sbKennzeichenGrenzeLand"
+        Me.sbKennzeichenGrenzeLand.searchActive = True
+        Me.sbKennzeichenGrenzeLand.Size = New System.Drawing.Size(41, 20)
+        Me.sbKennzeichenGrenzeLand.SQL_ORDER_BY = Nothing
+        Me.sbKennzeichenGrenzeLand.SQL_SELECT = Nothing
+        Me.sbKennzeichenGrenzeLand.SQL_WHERE = Nothing
+        Me.sbKennzeichenGrenzeLand.SQL_WhereParamList = Nothing
+        Me.sbKennzeichenGrenzeLand.TabIndex = 6
+        Me.sbKennzeichenGrenzeLand.usrcntl = Nothing
+        '
+        'txtKennzeichenAbgang
+        '
+        Me.txtKennzeichenAbgang._DateTimeOnly = False
+        Me.txtKennzeichenAbgang._numbersOnly = False
+        Me.txtKennzeichenAbgang._numbersOnlyKommastellen = ""
+        Me.txtKennzeichenAbgang._Prozent = False
+        Me.txtKennzeichenAbgang._ShortDateNew = False
+        Me.txtKennzeichenAbgang._ShortDateOnly = False
+        Me.txtKennzeichenAbgang._TimeOnly = False
+        Me.txtKennzeichenAbgang._value = ""
+        Me.txtKennzeichenAbgang._Waehrung = False
+        Me.txtKennzeichenAbgang._WaehrungZeichen = True
+        Me.txtKennzeichenAbgang.Location = New System.Drawing.Point(142, 0)
+        Me.txtKennzeichenAbgang.MaxLength = 27
+        Me.txtKennzeichenAbgang.MaxLineLength = -1
+        Me.txtKennzeichenAbgang.MaxLines_Warning = ""
+        Me.txtKennzeichenAbgang.MaxLines_Warning_Label = Nothing
+        Me.txtKennzeichenAbgang.Name = "txtKennzeichenAbgang"
+        Me.txtKennzeichenAbgang.Size = New System.Drawing.Size(140, 20)
+        Me.txtKennzeichenAbgang.TabIndex = 1
+        '
+        'sbKennzeichenAbgangLand
+        '
+        Me.sbKennzeichenAbgangLand._allowFreitext = False
+        Me.sbKennzeichenAbgangLand._AllowSetValue = False
+        Me.sbKennzeichenAbgangLand._allowSpaceAsSplitter = False
+        Me.sbKennzeichenAbgangLand._autoSizeGross = False
+        Me.sbKennzeichenAbgangLand._hideIfListEmpty = True
+        Me.sbKennzeichenAbgangLand._value = ""
+        Me.sbKennzeichenAbgangLand.conn_art = "FMZOLL"
+        Me.sbKennzeichenAbgangLand.dgvpos = "LEFT"
+        Me.sbKennzeichenAbgangLand.DISPLAY_PARAM = Nothing
+        Me.sbKennzeichenAbgangLand.INVISIBLE_COLUMNS = Nothing
+        Me.sbKennzeichenAbgangLand.key_visible = False
+        Me.sbKennzeichenAbgangLand.KEYPARAM = Nothing
+        Me.sbKennzeichenAbgangLand.Location = New System.Drawing.Point(315, 0)
+        Me.sbKennzeichenAbgangLand.Name = "sbKennzeichenAbgangLand"
+        Me.sbKennzeichenAbgangLand.searchActive = True
+        Me.sbKennzeichenAbgangLand.Size = New System.Drawing.Size(41, 20)
+        Me.sbKennzeichenAbgangLand.SQL_ORDER_BY = Nothing
+        Me.sbKennzeichenAbgangLand.SQL_SELECT = Nothing
+        Me.sbKennzeichenAbgangLand.SQL_WHERE = Nothing
+        Me.sbKennzeichenAbgangLand.SQL_WhereParamList = Nothing
+        Me.sbKennzeichenAbgangLand.TabIndex = 2
+        Me.sbKennzeichenAbgangLand.usrcntl = Nothing
+        '
+        'txtKennzeichenGrenze
+        '
+        Me.txtKennzeichenGrenze._DateTimeOnly = False
+        Me.txtKennzeichenGrenze._numbersOnly = False
+        Me.txtKennzeichenGrenze._numbersOnlyKommastellen = ""
+        Me.txtKennzeichenGrenze._Prozent = False
+        Me.txtKennzeichenGrenze._ShortDateNew = False
+        Me.txtKennzeichenGrenze._ShortDateOnly = False
+        Me.txtKennzeichenGrenze._TimeOnly = False
+        Me.txtKennzeichenGrenze._value = ""
+        Me.txtKennzeichenGrenze._Waehrung = False
+        Me.txtKennzeichenGrenze._WaehrungZeichen = True
+        Me.txtKennzeichenGrenze.Location = New System.Drawing.Point(694, 0)
+        Me.txtKennzeichenGrenze.MaxLength = 27
+        Me.txtKennzeichenGrenze.MaxLineLength = -1
+        Me.txtKennzeichenGrenze.MaxLines_Warning = ""
+        Me.txtKennzeichenGrenze.MaxLines_Warning_Label = Nothing
+        Me.txtKennzeichenGrenze.Name = "txtKennzeichenGrenze"
+        Me.txtKennzeichenGrenze.Size = New System.Drawing.Size(140, 20)
+        Me.txtKennzeichenGrenze.TabIndex = 5
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.lorry
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.Location = New System.Drawing.Point(556, 0)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(24, 20)
+        Me.PictureBox2.TabIndex = 69
+        Me.PictureBox2.TabStop = False
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(24, 20)
+        Me.PictureBox1.TabIndex = 68
+        Me.PictureBox1.TabStop = False
+        '
+        'Label4
+        '
+        Me.Label4.Location = New System.Drawing.Point(4, 3)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(135, 13)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "Kennzeichen Abgang:"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label5
+        '
+        Me.Label5.Location = New System.Drawing.Point(556, 4)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(132, 13)
+        Me.Label5.TabIndex = 4
+        Me.Label5.Text = "Kennzeichen Grenze:"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label6
+        '
+        Me.Label6.Location = New System.Drawing.Point(280, 3)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(36, 13)
+        Me.Label6.TabIndex = 3
+        Me.Label6.Text = "Land:"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label7
+        '
+        Me.Label7.Location = New System.Drawing.Point(832, 4)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(36, 13)
+        Me.Label7.TabIndex = 7
+        Me.Label7.Text = "Land:"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtLadeort
+        '
+        Me.txtLadeort._DateTimeOnly = False
+        Me.txtLadeort._numbersOnly = False
+        Me.txtLadeort._numbersOnlyKommastellen = ""
+        Me.txtLadeort._Prozent = False
+        Me.txtLadeort._ShortDateNew = False
+        Me.txtLadeort._ShortDateOnly = False
+        Me.txtLadeort._TimeOnly = False
+        Me.txtLadeort._value = Nothing
+        Me.txtLadeort._Waehrung = False
+        Me.txtLadeort._WaehrungZeichen = True
+        Me.txtLadeort.ForeColor = System.Drawing.Color.Black
+        Me.txtLadeort.Location = New System.Drawing.Point(142, 287)
+        Me.txtLadeort.MaxLength = 17
+        Me.txtLadeort.MaxLineLength = -1
+        Me.txtLadeort.MaxLines_Warning = ""
+        Me.txtLadeort.MaxLines_Warning_Label = Nothing
+        Me.txtLadeort.Name = "txtLadeort"
+        Me.txtLadeort.Size = New System.Drawing.Size(214, 20)
+        Me.txtLadeort.TabIndex = 33
+        '
+        'txtEntladeort
+        '
+        Me.txtEntladeort._DateTimeOnly = False
+        Me.txtEntladeort._numbersOnly = False
+        Me.txtEntladeort._numbersOnlyKommastellen = ""
+        Me.txtEntladeort._Prozent = False
+        Me.txtEntladeort._ShortDateNew = False
+        Me.txtEntladeort._ShortDateOnly = False
+        Me.txtEntladeort._TimeOnly = False
+        Me.txtEntladeort._value = ""
+        Me.txtEntladeort._Waehrung = False
+        Me.txtEntladeort._WaehrungZeichen = True
+        Me.txtEntladeort.ForeColor = System.Drawing.Color.Black
+        Me.txtEntladeort.Location = New System.Drawing.Point(694, 287)
+        Me.txtEntladeort.MaxLength = 35
+        Me.txtEntladeort.MaxLineLength = -1
+        Me.txtEntladeort.MaxLines_Warning = ""
+        Me.txtEntladeort.MaxLines_Warning_Label = Nothing
+        Me.txtEntladeort.Name = "txtEntladeort"
+        Me.txtEntladeort.Size = New System.Drawing.Size(214, 20)
+        Me.txtEntladeort.TabIndex = 35
+        '
+        'lblWegstreckeVonNach
+        '
+        Me.lblWegstreckeVonNach.Location = New System.Drawing.Point(719, 47)
+        Me.lblWegstreckeVonNach.Name = "lblWegstreckeVonNach"
+        Me.lblWegstreckeVonNach.Size = New System.Drawing.Size(119, 29)
+        Me.lblWegstreckeVonNach.TabIndex = 62
+        Me.lblWegstreckeVonNach.Visible = False
+        '
+        'lblWegZeit
+        '
+        Me.lblWegZeit.AutoSize = True
+        Me.lblWegZeit.Location = New System.Drawing.Point(719, 213)
+        Me.lblWegZeit.Name = "lblWegZeit"
+        Me.lblWegZeit.Size = New System.Drawing.Size(10, 13)
+        Me.lblWegZeit.TabIndex = 61
+        Me.lblWegZeit.Text = "-"
+        '
+        'lblWegstrecke
+        '
+        Me.lblWegstrecke.AutoSize = True
+        Me.lblWegstrecke.Location = New System.Drawing.Point(719, 198)
+        Me.lblWegstrecke.Name = "lblWegstrecke"
+        Me.lblWegstrecke.Size = New System.Drawing.Size(10, 13)
+        Me.lblWegstrecke.TabIndex = 60
+        Me.lblWegstrecke.Text = "-"
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(722, 174)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(137, 21)
+        Me.Button1.TabIndex = 59
+        Me.Button1.Text = "Strecke berechnen"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'cbxWegStrecke
+        '
+        Me.cbxWegStrecke.AutoSize = True
+        Me.cbxWegStrecke.Checked = True
+        Me.cbxWegStrecke.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxWegStrecke.Location = New System.Drawing.Point(865, 177)
+        Me.cbxWegStrecke.Name = "cbxWegStrecke"
+        Me.cbxWegStrecke.Size = New System.Drawing.Size(50, 17)
+        Me.cbxWegStrecke.TabIndex = 63
+        Me.cbxWegStrecke.Text = "LKW"
+        Me.cbxWegStrecke.UseVisualStyleBackColor = True
+        '
+        'usrCntlATLAS_NCTS_Allg
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.pnl)
+        Me.Name = "usrCntlATLAS_NCTS_Allg"
+        Me.Size = New System.Drawing.Size(930, 503)
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents cbxVereinfachtesVerfahren As System.Windows.Forms.CheckBox
+    Friend WithEvents sbBestimmungZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbBestimmungsland As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents sbVersendungsLand As VERAG_PROG_ALLGEMEIN.MySearchBox
+    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 Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtWiedergestellungsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents sbKennzeichenGrenzeLand As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbKennzeichenAbgangLand As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents txtKennzeichenGrenze As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents txtKennzeichenAbgang As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents txtBeladungsort As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btnTIR As System.Windows.Forms.Button
+    Friend WithEvents btnT2F As System.Windows.Forms.Button
+    Friend WithEvents btnT2 As System.Windows.Forms.Button
+    Friend WithEvents btnT1 As System.Windows.Forms.Button
+    Friend WithEvents btnTMinus As System.Windows.Forms.Button
+    Friend WithEvents Label13 As System.Windows.Forms.Label
+    Friend WithEvents txtArtDetail As System.Windows.Forms.TextBox
+    Friend WithEvents pic As System.Windows.Forms.PictureBox
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents sbRoute5 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute9 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute8 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute7 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute6 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute4 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute3 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute2 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbRoute1 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents lklRoutenauswahl As System.Windows.Forms.LinkLabel
+    Friend WithEvents txtLadeort As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label15 As System.Windows.Forms.Label
+    Friend WithEvents txtEntladeort As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label16 As System.Windows.Forms.Label
+    Friend WithEvents cboVerkehrszweig As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cboArtGrenzUeberschreitung As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label17 As System.Windows.Forms.Label
+    Friend WithEvents Label18 As System.Windows.Forms.Label
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
+    Friend WithEvents cbxSumASicherheit As System.Windows.Forms.CheckBox
+    Friend WithEvents Label20 As System.Windows.Forms.Label
+    Friend WithEvents cboBesondereUmstaende As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label19 As System.Windows.Forms.Label
+    Friend WithEvents cboZahlungsweiseBefKosten As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtKennnummer As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label21 As System.Windows.Forms.Label
+    Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
+    Friend WithEvents lblWegstreckeVonNach As Label
+    Friend WithEvents lblWegZeit As Label
+    Friend WithEvents lblWegstrecke As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents cbxWegStrecke As CheckBox
+End Class
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.resx b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.resx
new file mode 100644
index 00000000..1af7de15
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.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>
\ No newline at end of file
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.vb
new file mode 100644
index 00000000..6b945633
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.vb
@@ -0,0 +1,412 @@
+Public Class usrCntlModaltrans_NCTS_Allg
+    Property NCTS_ART = "T-"
+
+    'Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+    Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
+
+
+
+    Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.NCTS_TR = NCTS_TR
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Private Sub usrCntlModaltrans_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        sbAbgangZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbBestimmungZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+
+        sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle7.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle8.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle9.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+
+
+
+        sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display   FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbVersendungsLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display   FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbKennzeichenGrenzeLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
+        sbKennzeichenAbgangLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
+
+
+
+        '   AddHandler sbAbgangZollstelle.VALUE_CHANGED, Sub()
+        'If sbAbgangZollstelle.DR IsNot Nothing Then
+        'If sbVersendungsLand._value = "" Then sbVersendungsLand.SET_VALUE(sbAbgangZollstelle.DR("Land"))
+        '  End If
+        'End Sub
+        AddHandler sbBestimmungZollstelle.VALUE_CHANGED, Sub()
+                                                             If sbBestimmungZollstelle.DR IsNot Nothing Then
+                                                                 If sbBestimmungsland._value = "" Then sbBestimmungsland.SET_VALUE(sbBestimmungZollstelle.DR("Land"))
+                                                             End If
+                                                         End Sub
+
+        '        LIST_BGW = (New SQL).loadCboBySqlWithListItem("SELECT [basncd_dstnr],[basncd_name] +' (' +[basncd_alpha]+')'  FROM [atlas].[dbo].[basncd]  where  [basncd_gbdat] >= getdate()  order by [basncd_alpha], [basncd_name]", False, "ATLAS")
+
+
+        cboVerkehrszweig.Items.Clear()
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
+        cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
+        cboVerkehrszweig.changeItem("3")
+
+
+        cboArtGrenzUeberschreitung.Items.Clear()
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
+        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
+        cboArtGrenzUeberschreitung.changeItem("35")
+
+
+        cboBesondereUmstaende.Items.Clear()
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Express-Sendungen", "A"))
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Straßentransport", "C"))
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - Bahntransport", "D"))
+        cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugel. Wirtschaftsbeteiligte", "E"))
+        cboBesondereUmstaende.changeItem("C")
+
+
+        cboZahlungsweiseBefKosten.Items.Clear()
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Barzahlung", "A"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B - Kreditkartenzahlung", "B"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Zahlung mit Scheck", "C"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - andere", "D"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("H - Elektr.Geldtransfer", "H"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y - Kontoinhaber = Beförderer", "Y"))
+        cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - nicht vorausbezahlt", "Z"))
+        cboZahlungsweiseBefKosten.changeItem("D")
+
+
+
+
+
+
+
+
+        'btnAllgemein_Click(btnT2, New EventArgs)
+
+        ' setValues(NCTS)
+    End Sub
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs)
+        MsgBox(sbAbgangZollstelle._value)
+    End Sub
+
+
+    Public Sub getValues(ByRef NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut)
+        NCTS.ncts_ArtAnmeldung = cProgramFunctions.isLeerNothing(NCTS_ART)
+        NCTS.ncts_AbgangsDienststellennummer = cProgramFunctions.isLeerNothing(sbAbgangZollstelle._value)
+        NCTS.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(sbBestimmungZollstelle._value)
+
+        NCTS.ncts_VersendungsLandCode = cProgramFunctions.isLeerNothing(sbVersendungsLand._value)
+        NCTS.ncts_BestimmungslandCode = cProgramFunctions.isLeerNothing(sbBestimmungsland._value)
+
+
+        NCTS.ncts_DurchgangszollstelleDienststellnummer1 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle1._value)
+        NCTS.ncts_DurchgangszollstelleDienststellnummer2 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle2._value)
+        NCTS.ncts_DurchgangszollstelleDienststellnummer3 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle3._value)
+        NCTS.ncts_DurchgangszollstelleDienststellnummer4 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle4._value)
+        NCTS.ncts_DurchgangszollstelleDienststellnummer5 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle5._value)
+        NCTS.ncts_DurchgangszollstelleDienststellnummer6 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle6._value)
+        NCTS.ncts_DurchgangszollstelleDienststellnummer7 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle7._value)
+        NCTS.ncts_DurchgangszollstelleDienststellnummer8 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle8._value)
+        NCTS.ncts_DurchgangszollstelleDienststellnummer9 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle9._value)
+
+
+        NCTS.ncts_SumA_BefoerderungsrouteLand1 = cProgramFunctions.isLeerNothing(sbRoute1._value)
+        NCTS.ncts_SumA_BefoerderungsrouteLand2 = cProgramFunctions.isLeerNothing(sbRoute2._value)
+        NCTS.ncts_SumA_BefoerderungsrouteLand3 = cProgramFunctions.isLeerNothing(sbRoute3._value)
+        NCTS.ncts_SumA_BefoerderungsrouteLand4 = cProgramFunctions.isLeerNothing(sbRoute4._value)
+        NCTS.ncts_SumA_BefoerderungsrouteLand5 = cProgramFunctions.isLeerNothing(sbRoute5._value)
+        NCTS.ncts_SumA_BefoerderungsrouteLand6 = cProgramFunctions.isLeerNothing(sbRoute6._value)
+        NCTS.ncts_SumA_BefoerderungsrouteLand7 = cProgramFunctions.isLeerNothing(sbRoute7._value)
+        NCTS.ncts_SumA_BefoerderungsrouteLand8 = cProgramFunctions.isLeerNothing(sbRoute8._value)
+        NCTS.ncts_SumA_BefoerderungsrouteLand9 = cProgramFunctions.isLeerNothing(sbRoute9._value)
+
+        NCTS.ncts_SumA_KennnummerSendung = cProgramFunctions.isLeerNothing(txtKennnummer.Text)
+
+
+        '  NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text)
+        NCTS.ncts_SumA_Ladeort = cProgramFunctions.isLeerNothing(txtLadeort.Text)
+        NCTS.ncts_SumA_Entladeort = cProgramFunctions.isLeerNothing(txtEntladeort.Text)
+        ' NCTS.ncts_Wiedergestellungsdatum = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value)
+
+
+        If cbxVereinfachtesVerfahren.Checked Then
+            NCTS.ncts_KzVereinfachtesVerfahren = True
+            '     MsgBox(txtWiedergestellungsdatum._value)
+            NCTS.ncts_Wiedergestellungsdatum = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value)
+            NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text)
+        Else
+            NCTS.ncts_KzVereinfachtesVerfahren = False
+            NCTS.ncts_Wiedergestellungsdatum = Nothing
+            NCTS.ncts_BeladungsOrt = Nothing
+        End If
+
+        NCTS.ncts_SumA_KzSumASicherheit = cbxSumASicherheit.Checked
+
+        NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = cProgramFunctions.isLeerNothing(txtKennzeichenAbgang._value)
+        NCTS.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = cProgramFunctions.isLeerNothing(sbKennzeichenAbgangLand._value)
+        NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = cProgramFunctions.isLeerNothing(txtKennzeichenGrenze._value)
+        NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = cProgramFunctions.isLeerNothing(sbKennzeichenGrenzeLand._value)
+
+        NCTS.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
+        NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value)
+        NCTS.ncts_SumA_BesondereUmstaende = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
+        NCTS.ncts_SumA_BefoerderungskostenZahlungsweise = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
+
+        '     NCTS.ncts_GesamtRohmasse = cProgramFunctions.isLeerNothing(rohm._value)
+
+        '  NCTS.ncts_KzVereinfachtesVerfahren = If(cbxVereinfachtesVerfahren.Checked, True, False) '???
+
+    End Sub
+
+
+    Public Sub setValues(NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut)
+        If NCTS Is Nothing Then Exit Sub
+        sbAbgangZollstelle.SET_VALUE(If(NCTS.ncts_AbgangsDienststellennummer, ""))
+        sbBestimmungZollstelle.SET_VALUE(If(NCTS.ncts_BestimmungsstelleDienststellennummer, ""))
+
+        sbVersendungsLand.SET_VALUE(If(NCTS.ncts_VersendungsLandCode, ""))
+        sbBestimmungsland.SET_VALUE(If(NCTS.ncts_BestimmungslandCode, ""))
+
+        sbDurchgangszollstelle1.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer1)
+        sbDurchgangszollstelle2.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer2)
+        sbDurchgangszollstelle3.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer3)
+        sbDurchgangszollstelle4.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer4)
+        sbDurchgangszollstelle5.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer5)
+        sbDurchgangszollstelle6.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer6)
+        sbDurchgangszollstelle7.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer7)
+        sbDurchgangszollstelle8.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer8)
+        sbDurchgangszollstelle9.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer9)
+
+        sbRoute1.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand1)
+        sbRoute2.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand2)
+        sbRoute3.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand3)
+        sbRoute4.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand4)
+        sbRoute5.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand5)
+        sbRoute6.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand6)
+        sbRoute7.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand7)
+        sbRoute8.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand8)
+        sbRoute9.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand9)
+
+        txtKennnummer.Text = NCTS.ncts_SumA_KennnummerSendung
+
+        NCTS_ART = If(NCTS.ncts_ArtAnmeldung, "T-")
+
+        Select Case NCTS_ART
+            Case "T-" : initButton(btnTMinus)
+            Case "T1" : initButton(btnT1)
+            Case "T2" : initButton(btnT2)
+            Case "T2F" : initButton(btnT2F)
+            Case "TIR" : initButton(btnTIR)
+        End Select
+
+        cbxVereinfachtesVerfahren.Checked = If(NCTS.ncts_KzVereinfachtesVerfahren, False)
+        cbxSumASicherheit.Checked = If(NCTS.ncts_SumA_KzSumASicherheit, False)
+
+        txtBeladungsort.Text = If(NCTS.ncts_BeladungsOrt, "")
+        txtWiedergestellungsdatum._value = If(NCTS.ncts_Wiedergestellungsdatum, Nothing)
+
+        txtLadeort.Text = If(NCTS.ncts_SumA_Ladeort, "")
+        txtEntladeort.Text = If(NCTS.ncts_SumA_Entladeort, "")
+
+
+        txtKennzeichenAbgang.Text = If(NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
+        sbKennzeichenAbgangLand.SET_VALUE(If(NCTS.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, ""))
+        txtKennzeichenGrenze.Text = If(NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, "")
+        sbKennzeichenGrenzeLand.SET_VALUE(If(NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ""))
+
+
+        cboArtGrenzUeberschreitung.changeItem(NCTS.ncts_Befoerderungsmittel_ArtGrenzueberschreitung)
+        cboVerkehrszweig.changeItem(NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)
+
+        cboBesondereUmstaende.changeItem(NCTS.ncts_SumA_BesondereUmstaende)
+        cboZahlungsweiseBefKosten.changeItem(NCTS.ncts_SumA_BefoerderungskostenZahlungsweise)
+
+    End Sub
+    Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnTMinus.Click, btnTIR.Click, btnT2F.Click, btnT2.Click, btnT1.Click
+        initButton(sender)
+    End Sub
+
+    Sub initButton(sender As Button)
+        setBtn(btnTMinus, False)
+        setBtn(btnT1, False)
+        setBtn(btnT2, False)
+        setBtn(btnT2F, False)
+        setBtn(btnTIR, False)
+
+        If sender Is btnTMinus Then
+            NCTS_ART = "T-" : txtArtDetail.Text = "Versandanmeldung T- Gemischte Sendungen aus T1- und T2-Waren oder aus T1- und T2F-Waren, die - für jede Warenart getrennt - auf Positionsebene aufgeführt sind."
+        ElseIf sender Is btnT1 Then
+            NCTS_ART = "T1" : txtArtDetail.Text = "Versandanmeldung T1 Waren, die im externen gemeinschaftlichen/gemeinsamen Versandverfahren befördert werden sollen."
+        ElseIf sender Is btnT2 Then
+            NCTS_ART = "T2" : txtArtDetail.Text = "Versandanmeldung T2 Waren, die - soweit nicht das T2F-Verfahren vorgeschrieben ist - im internen gemeinschaftlichen Versandverfahren befördert werden sollen"
+        ElseIf sender Is btnT2F Then
+            NCTS_ART = "T2F" : txtArtDetail.Text = "Versandanmeldung T2F Waren, die im Linienverkehr zwischen Teilen des Zollgebiets der Gemeinschaft, in denen die Richtlinie 77/388/EWG (6. Mehrwertsteuerrichtlinie) Anwendung findet und den Teilen des Zollgebiets der Gemeinschaft, in denen diese Richtlinie nicht gilt (siehe Titel I, Absatz 3) im internen gemeinschaftlichen Versandverfahren befördert werden sollen."
+        ElseIf sender Is btnTIR Then
+            NCTS_ART = "TIR" : txtArtDetail.Text = "Versandanmeldung für Waren, die im TIR (Transports Internationaux Routiers) befördert werden sollen"
+        End If
+        setBtn(sender, True)
+    End Sub
+
+    Sub setBtn(btn As Button, value As Boolean)
+        If value Then
+            btn.BackColor = Color.OrangeRed
+            btn.ForeColor = Color.White
+        Else
+            btn.BackColor = Color.White
+            btn.ForeColor = Color.Black
+        End If
+
+    End Sub
+
+    Private Sub lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked
+        Dim frmRoutenauswahl As New frmRoutenauswahl
+        If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then
+            If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("")
+
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 0 Then sbDurchgangszollstelle1.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(0)) Else sbDurchgangszollstelle1.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 1 Then sbDurchgangszollstelle2.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(1)) Else sbDurchgangszollstelle2.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 2 Then sbDurchgangszollstelle3.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(2)) Else sbDurchgangszollstelle3.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 3 Then sbDurchgangszollstelle4.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(3)) Else sbDurchgangszollstelle4.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 4 Then sbDurchgangszollstelle5.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(4)) Else sbDurchgangszollstelle5.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 5 Then sbDurchgangszollstelle6.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(5)) Else sbDurchgangszollstelle6.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 6 Then sbDurchgangszollstelle7.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(6)) Else sbDurchgangszollstelle7.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 7 Then sbDurchgangszollstelle8.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(7)) Else sbDurchgangszollstelle8.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 8 Then sbDurchgangszollstelle9.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(8)) Else sbDurchgangszollstelle9.SET_VALUE("")
+
+
+            If frmRoutenauswahl.BESTIMMUNGSLAND <> "" Then sbBestimmungsland.SET_VALUE(frmRoutenauswahl.BESTIMMUNGSLAND)
+        End If
+    End Sub
+
+    Private Sub cbxVereinfachtesVerfahren_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVereinfachtesVerfahren.CheckedChanged
+        txtWiedergestellungsdatum.Enabled = cbxVereinfachtesVerfahren.Checked
+        txtBeladungsort.Enabled = cbxVereinfachtesVerfahren.Checked
+    End Sub
+
+    Private Sub cbxSumASicherheit_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSumASicherheit.CheckedChanged
+        txtEntladeort.Enabled = cbxVereinfachtesVerfahren.Checked
+        txtLadeort.Enabled = cbxVereinfachtesVerfahren.Checked
+        If Not txtLadeort.Enabled Then txtLadeort.Text = ""
+        If Not txtEntladeort.Enabled Then txtEntladeort.Text = ""
+    End Sub
+
+    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
+        txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
+    End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        txtKennzeichenAbgang.Text = txtKennzeichenGrenze.Text
+
+    End Sub
+
+    Private Sub sbVersendungsLand_TextChanged() Handles sbVersendungsLand.VALUE_CHANGED
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And cbxVereinfachtesVerfahren.Checked Then
+            If sbVersendungsLand._value <> "" And txtLadeort.Text = "" Then
+                txtLadeort.Text = sbVersendungsLand._value
+            End If
+        End If
+    End Sub
+
+    Private Sub sbBestimmungsland_TextChanged() Handles sbBestimmungsland.VALUE_CHANGED
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And cbxVereinfachtesVerfahren.Checked Then
+            If sbBestimmungsland._value <> "" And txtEntladeort.Text = "" Then
+                txtEntladeort.Text = sbBestimmungsland._value
+            End If
+        End If
+    End Sub
+
+    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
+        txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
+        sbKennzeichenGrenzeLand.SET_VALUE(sbKennzeichenAbgangLand._value)
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim origin = ""
+        Dim destination = ""
+
+        If sbAbgangZollstelle._value <> "" Then
+            origin = sbAbgangZollstelle._value.Substring(0, 2) & " " & sbAbgangZollstelle.Text
+        Else Exit Sub
+        End If
+
+        If sbBestimmungZollstelle._value <> "" Then
+            destination = sbBestimmungZollstelle._value.Substring(0, 2) & " " & sbBestimmungZollstelle.Text
+        Else Exit Sub
+        End If
+
+        Dim duration = ""
+        Dim distance = ""
+        Dim distanceSek = ""
+        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance, cbxWegStrecke.Checked)
+
+        'lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine
+        'lblWegstreckeVonNach.Text &= "nach: " & destination
+
+
+        lblWegstrecke.Text = "Wegstrecke: " & distance
+        lblWegZeit.Text = "Fahrzeit: " & duration
+
+
+    End Sub
+End Class
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.Designer.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.Designer.vb
new file mode 100644
index 00000000..1520616c
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.Designer.vb
@@ -0,0 +1,1452 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlModaltrans_NCTS_Position
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlModaltrans_NCTS_Position))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.cboArtAnmeldung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.sbVersendungsLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbBestimmungsland = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtKdRefNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.txtSiBetragProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.usrcntlSumAEmpfaenger = New SDL.usrCntlAdresse()
+        Me.usrcntlSumAVersedner = New SDL.usrCntlAdresse()
+        Me.usrcntlEmpfaenger = New SDL.usrCntlAdresse()
+        Me.usrcntlVersedner = New SDL.usrCntlAdresse()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.sbExportAusLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.cbxVermerk10600 = New System.Windows.Forms.CheckBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.cbxVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxEmportAbgaben = New System.Windows.Forms.CheckBox()
+        Me.cbxEmportBeschraernkung = New System.Windows.Forms.CheckBox()
+        Me.cbxEmport = New System.Windows.Forms.CheckBox()
+        Me.cbxEmportAusLand = New System.Windows.Forms.CheckBox()
+        Me.cbxExportAusEU = New System.Windows.Forms.CheckBox()
+        Me.lklBearbeitungAbbrechenUl = New System.Windows.Forms.LinkLabel()
+        Me.Label36 = New System.Windows.Forms.Label()
+        Me.Label35 = New System.Windows.Forms.Label()
+        Me.Label34 = New System.Windows.Forms.Label()
+        Me.Label31 = New System.Windows.Forms.Label()
+        Me.txtWarennummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtWTNat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtWTZ2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtWTZ1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtWTTaric = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label32 = New System.Windows.Forms.Label()
+        Me.Label33 = New System.Windows.Forms.Label()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.MySearchBox1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.txtEigenmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.sbUlArten = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbPkTyp = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.lblPosNr = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.txtUlZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtUlReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.txtPkMarke = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtPkAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.dgvUnterlage = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.UlCode = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewComboBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.UlReferenz = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.UlZusatz = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.dgvPackstuecke = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.PkCode = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Typ = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Marke = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtWarenbezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label29 = New System.Windows.Forms.Label()
+        Me.lklBearbeitungAbbrechenPK = New System.Windows.Forms.LinkLabel()
+        Me.pnl.SuspendLayout()
+        CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvPackstuecke, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.AutoScroll = True
+        Me.pnl.BackColor = System.Drawing.Color.FloralWhite
+        Me.pnl.Controls.Add(Me.Label13)
+        Me.pnl.Controls.Add(Me.cboArtAnmeldung)
+        Me.pnl.Controls.Add(Me.Label10)
+        Me.pnl.Controls.Add(Me.sbVersendungsLand)
+        Me.pnl.Controls.Add(Me.sbBestimmungsland)
+        Me.pnl.Controls.Add(Me.Label11)
+        Me.pnl.Controls.Add(Me.Label12)
+        Me.pnl.Controls.Add(Me.txtKdRefNr)
+        Me.pnl.Controls.Add(Me.cboWaehrung)
+        Me.pnl.Controls.Add(Me.txtSiBetragProzent)
+        Me.pnl.Controls.Add(Me.Label8)
+        Me.pnl.Controls.Add(Me.usrcntlSumAEmpfaenger)
+        Me.pnl.Controls.Add(Me.usrcntlSumAVersedner)
+        Me.pnl.Controls.Add(Me.usrcntlEmpfaenger)
+        Me.pnl.Controls.Add(Me.usrcntlVersedner)
+        Me.pnl.Controls.Add(Me.Label7)
+        Me.pnl.Controls.Add(Me.sbExportAusLand)
+        Me.pnl.Controls.Add(Me.cbxVermerk10600)
+        Me.pnl.Controls.Add(Me.Label6)
+        Me.pnl.Controls.Add(Me.cbxVermerk)
+        Me.pnl.Controls.Add(Me.cbxEmportAbgaben)
+        Me.pnl.Controls.Add(Me.cbxEmportBeschraernkung)
+        Me.pnl.Controls.Add(Me.cbxEmport)
+        Me.pnl.Controls.Add(Me.cbxEmportAusLand)
+        Me.pnl.Controls.Add(Me.cbxExportAusEU)
+        Me.pnl.Controls.Add(Me.lklBearbeitungAbbrechenUl)
+        Me.pnl.Controls.Add(Me.Label36)
+        Me.pnl.Controls.Add(Me.Label35)
+        Me.pnl.Controls.Add(Me.Label34)
+        Me.pnl.Controls.Add(Me.Label31)
+        Me.pnl.Controls.Add(Me.txtWarennummer)
+        Me.pnl.Controls.Add(Me.txtWTNat)
+        Me.pnl.Controls.Add(Me.txtWTZ2)
+        Me.pnl.Controls.Add(Me.txtWTZ1)
+        Me.pnl.Controls.Add(Me.txtWTTaric)
+        Me.pnl.Controls.Add(Me.Label32)
+        Me.pnl.Controls.Add(Me.Label33)
+        Me.pnl.Controls.Add(Me.Label30)
+        Me.pnl.Controls.Add(Me.MySearchBox1)
+        Me.pnl.Controls.Add(Me.txtEigenmasse)
+        Me.pnl.Controls.Add(Me.txtRohmasse)
+        Me.pnl.Controls.Add(Me.Label27)
+        Me.pnl.Controls.Add(Me.Label28)
+        Me.pnl.Controls.Add(Me.sbUlArten)
+        Me.pnl.Controls.Add(Me.sbPkTyp)
+        Me.pnl.Controls.Add(Me.Button3)
+        Me.pnl.Controls.Add(Me.Button2)
+        Me.pnl.Controls.Add(Me.lblPosNr)
+        Me.pnl.Controls.Add(Me.Button1)
+        Me.pnl.Controls.Add(Me.txtUlZusatz)
+        Me.pnl.Controls.Add(Me.txtUlReferenz)
+        Me.pnl.Controls.Add(Me.btn)
+        Me.pnl.Controls.Add(Me.txtPkMarke)
+        Me.pnl.Controls.Add(Me.txtPkAnzahl)
+        Me.pnl.Controls.Add(Me.Label19)
+        Me.pnl.Controls.Add(Me.dgvUnterlage)
+        Me.pnl.Controls.Add(Me.Label18)
+        Me.pnl.Controls.Add(Me.dgvPackstuecke)
+        Me.pnl.Controls.Add(Me.Label22)
+        Me.pnl.Controls.Add(Me.Label9)
+        Me.pnl.Controls.Add(Me.Label4)
+        Me.pnl.Controls.Add(Me.Label3)
+        Me.pnl.Controls.Add(Me.txtWarenwert)
+        Me.pnl.Controls.Add(Me.Label1)
+        Me.pnl.Controls.Add(Me.txtWarenbezeichnung)
+        Me.pnl.Controls.Add(Me.Label21)
+        Me.pnl.Controls.Add(Me.Label20)
+        Me.pnl.Controls.Add(Me.Label2)
+        Me.pnl.Controls.Add(Me.Label24)
+        Me.pnl.Controls.Add(Me.Label23)
+        Me.pnl.Controls.Add(Me.Label5)
+        Me.pnl.Controls.Add(Me.Label29)
+        Me.pnl.Controls.Add(Me.lklBearbeitungAbbrechenPK)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(730, 984)
+        Me.pnl.TabIndex = 0
+        '
+        'Label13
+        '
+        Me.Label13.Location = New System.Drawing.Point(370, 118)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(64, 13)
+        Me.Label13.TabIndex = 83
+        Me.Label13.Text = "Warenfluss:"
+        Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboArtAnmeldung
+        '
+        Me.cboArtAnmeldung._allowedValuesFreiText = Nothing
+        Me.cboArtAnmeldung._allowFreiText = False
+        Me.cboArtAnmeldung._value = ""
+        Me.cboArtAnmeldung.DropDownWidth = 300
+        Me.cboArtAnmeldung.FormattingEnabled = True
+        Me.cboArtAnmeldung.Location = New System.Drawing.Point(136, 203)
+        Me.cboArtAnmeldung.Name = "cboArtAnmeldung"
+        Me.cboArtAnmeldung.Size = New System.Drawing.Size(233, 21)
+        Me.cboArtAnmeldung.TabIndex = 35
+        '
+        'Label10
+        '
+        Me.Label10.Location = New System.Drawing.Point(19, 206)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(111, 13)
+        Me.Label10.TabIndex = 34
+        Me.Label10.Text = "Art der Anmeldung:"
+        Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'sbVersendungsLand
+        '
+        Me.sbVersendungsLand._allowFreitext = False
+        Me.sbVersendungsLand._AllowSetValue = False
+        Me.sbVersendungsLand._allowSpaceAsSplitter = False
+        Me.sbVersendungsLand._autoSizeGross = False
+        Me.sbVersendungsLand._hideIfListEmpty = True
+        Me.sbVersendungsLand._value = ""
+        Me.sbVersendungsLand.conn_art = "FMZOLL"
+        Me.sbVersendungsLand.dgvpos = "LEFT"
+        Me.sbVersendungsLand.DISPLAY_PARAM = Nothing
+        Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing
+        Me.sbVersendungsLand.key_visible = False
+        Me.sbVersendungsLand.KEYPARAM = Nothing
+        Me.sbVersendungsLand.Location = New System.Drawing.Point(436, 115)
+        Me.sbVersendungsLand.Name = "sbVersendungsLand"
+        Me.sbVersendungsLand.searchActive = True
+        Me.sbVersendungsLand.Size = New System.Drawing.Size(117, 20)
+        Me.sbVersendungsLand.SQL_ORDER_BY = Nothing
+        Me.sbVersendungsLand.SQL_SELECT = Nothing
+        Me.sbVersendungsLand.SQL_WHERE = Nothing
+        Me.sbVersendungsLand.SQL_WhereParamList = Nothing
+        Me.sbVersendungsLand.TabIndex = 20
+        Me.sbVersendungsLand.usrcntl = Nothing
+        '
+        'sbBestimmungsland
+        '
+        Me.sbBestimmungsland._allowFreitext = False
+        Me.sbBestimmungsland._AllowSetValue = False
+        Me.sbBestimmungsland._allowSpaceAsSplitter = False
+        Me.sbBestimmungsland._autoSizeGross = False
+        Me.sbBestimmungsland._hideIfListEmpty = True
+        Me.sbBestimmungsland._value = ""
+        Me.sbBestimmungsland.conn_art = "FMZOLL"
+        Me.sbBestimmungsland.dgvpos = "RIGHT"
+        Me.sbBestimmungsland.DISPLAY_PARAM = Nothing
+        Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing
+        Me.sbBestimmungsland.key_visible = False
+        Me.sbBestimmungsland.KEYPARAM = Nothing
+        Me.sbBestimmungsland.Location = New System.Drawing.Point(552, 115)
+        Me.sbBestimmungsland.Name = "sbBestimmungsland"
+        Me.sbBestimmungsland.searchActive = True
+        Me.sbBestimmungsland.Size = New System.Drawing.Size(117, 20)
+        Me.sbBestimmungsland.SQL_ORDER_BY = Nothing
+        Me.sbBestimmungsland.SQL_SELECT = Nothing
+        Me.sbBestimmungsland.SQL_WHERE = Nothing
+        Me.sbBestimmungsland.SQL_WhereParamList = Nothing
+        Me.sbBestimmungsland.TabIndex = 21
+        Me.sbBestimmungsland.usrcntl = Nothing
+        '
+        'Label11
+        '
+        Me.Label11.Location = New System.Drawing.Point(551, 99)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(116, 13)
+        Me.Label11.TabIndex = 13
+        Me.Label11.Text = "Bestimmungs-Land:"
+        '
+        'Label12
+        '
+        Me.Label12.Location = New System.Drawing.Point(433, 99)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(135, 13)
+        Me.Label12.TabIndex = 12
+        Me.Label12.Text = "Versendungs-Land:"
+        '
+        'txtKdRefNr
+        '
+        Me.txtKdRefNr._DateTimeOnly = False
+        Me.txtKdRefNr._numbersOnly = False
+        Me.txtKdRefNr._numbersOnlyKommastellen = ""
+        Me.txtKdRefNr._numbersOnlyTrennzeichen = True
+        Me.txtKdRefNr._Prozent = False
+        Me.txtKdRefNr._ShortDateNew = False
+        Me.txtKdRefNr._ShortDateOnly = False
+        Me.txtKdRefNr._TimeOnly = False
+        Me.txtKdRefNr._TimeOnly_Seconds = False
+        Me.txtKdRefNr._value = "-"
+        Me.txtKdRefNr._Waehrung = False
+        Me.txtKdRefNr._WaehrungZeichen = True
+        Me.txtKdRefNr.ForeColor = System.Drawing.Color.Black
+        Me.txtKdRefNr.Location = New System.Drawing.Point(506, 13)
+        Me.txtKdRefNr.MaxLength = 500
+        Me.txtKdRefNr.MaxLineLength = -1
+        Me.txtKdRefNr.MaxLines_Warning = ""
+        Me.txtKdRefNr.MaxLines_Warning_Label = Nothing
+        Me.txtKdRefNr.Name = "txtKdRefNr"
+        Me.txtKdRefNr.Size = New System.Drawing.Size(163, 20)
+        Me.txtKdRefNr.TabIndex = 4
+        Me.txtKdRefNr.Text = "-"
+        Me.txtKdRefNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'cboWaehrung
+        '
+        Me.cboWaehrung._allowFreitext = False
+        Me.cboWaehrung._AllowSetValue = False
+        Me.cboWaehrung._allowSpaceAsSplitter = False
+        Me.cboWaehrung._autoSizeGross = False
+        Me.cboWaehrung._hideIfListEmpty = True
+        Me.cboWaehrung._value = Nothing
+        Me.cboWaehrung.conn_art = "FMZOLL"
+        Me.cboWaehrung.dgvpos = "LEFT"
+        Me.cboWaehrung.DISPLAY_PARAM = Nothing
+        Me.cboWaehrung.INVISIBLE_COLUMNS = Nothing
+        Me.cboWaehrung.key_visible = False
+        Me.cboWaehrung.KEYPARAM = Nothing
+        Me.cboWaehrung.Location = New System.Drawing.Point(302, 154)
+        Me.cboWaehrung.Name = "cboWaehrung"
+        Me.cboWaehrung.searchActive = True
+        Me.cboWaehrung.Size = New System.Drawing.Size(67, 20)
+        Me.cboWaehrung.SQL_ORDER_BY = Nothing
+        Me.cboWaehrung.SQL_SELECT = Nothing
+        Me.cboWaehrung.SQL_WHERE = Nothing
+        Me.cboWaehrung.SQL_WhereParamList = Nothing
+        Me.cboWaehrung.TabIndex = 26
+        Me.cboWaehrung.usrcntl = Nothing
+        '
+        'txtSiBetragProzent
+        '
+        Me.txtSiBetragProzent._DateTimeOnly = False
+        Me.txtSiBetragProzent._numbersOnly = False
+        Me.txtSiBetragProzent._numbersOnlyKommastellen = ""
+        Me.txtSiBetragProzent._numbersOnlyTrennzeichen = True
+        Me.txtSiBetragProzent._Prozent = True
+        Me.txtSiBetragProzent._ShortDateNew = False
+        Me.txtSiBetragProzent._ShortDateOnly = False
+        Me.txtSiBetragProzent._TimeOnly = False
+        Me.txtSiBetragProzent._TimeOnly_Seconds = False
+        Me.txtSiBetragProzent._value = "0,25"
+        Me.txtSiBetragProzent._Waehrung = False
+        Me.txtSiBetragProzent._WaehrungZeichen = True
+        Me.txtSiBetragProzent.ForeColor = System.Drawing.Color.Black
+        Me.txtSiBetragProzent.Location = New System.Drawing.Point(136, 173)
+        Me.txtSiBetragProzent.MaxLineLength = -1
+        Me.txtSiBetragProzent.MaxLines_Warning = ""
+        Me.txtSiBetragProzent.MaxLines_Warning_Label = Nothing
+        Me.txtSiBetragProzent.Name = "txtSiBetragProzent"
+        Me.txtSiBetragProzent.Size = New System.Drawing.Size(56, 20)
+        Me.txtSiBetragProzent.TabIndex = 32
+        Me.txtSiBetragProzent.Text = "25,00 %"
+        Me.txtSiBetragProzent.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.Location = New System.Drawing.Point(4, 665)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(285, 13)
+        Me.Label8.TabIndex = 78
+        Me.Label8.Text = "Nur auszufüllen, wenn mehrere Warenpositionen:"
+        Me.Label8.Visible = False
+        '
+        'usrcntlSumAEmpfaenger
+        '
+        Me.usrcntlSumAEmpfaenger._Titel = "SumA Empfänger:"
+        Me.usrcntlSumAEmpfaenger.BackColor = System.Drawing.Color.White
+        Me.usrcntlSumAEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrcntlSumAEmpfaenger.Enabled = False
+        Me.usrcntlSumAEmpfaenger.Location = New System.Drawing.Point(354, 835)
+        Me.usrcntlSumAEmpfaenger.Name = "usrcntlSumAEmpfaenger"
+        Me.usrcntlSumAEmpfaenger.Size = New System.Drawing.Size(345, 133)
+        Me.usrcntlSumAEmpfaenger.TabIndex = 82
+        '
+        'usrcntlSumAVersedner
+        '
+        Me.usrcntlSumAVersedner._Titel = "SumA Versender:"
+        Me.usrcntlSumAVersedner.BackColor = System.Drawing.Color.White
+        Me.usrcntlSumAVersedner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrcntlSumAVersedner.Enabled = False
+        Me.usrcntlSumAVersedner.Location = New System.Drawing.Point(7, 835)
+        Me.usrcntlSumAVersedner.Name = "usrcntlSumAVersedner"
+        Me.usrcntlSumAVersedner.Size = New System.Drawing.Size(345, 133)
+        Me.usrcntlSumAVersedner.TabIndex = 81
+        '
+        'usrcntlEmpfaenger
+        '
+        Me.usrcntlEmpfaenger._Titel = "Empfänger:"
+        Me.usrcntlEmpfaenger.BackColor = System.Drawing.Color.White
+        Me.usrcntlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrcntlEmpfaenger.Location = New System.Drawing.Point(354, 681)
+        Me.usrcntlEmpfaenger.Name = "usrcntlEmpfaenger"
+        Me.usrcntlEmpfaenger.Size = New System.Drawing.Size(345, 133)
+        Me.usrcntlEmpfaenger.TabIndex = 80
+        '
+        'usrcntlVersedner
+        '
+        Me.usrcntlVersedner._Titel = "Versender:"
+        Me.usrcntlVersedner.BackColor = System.Drawing.Color.White
+        Me.usrcntlVersedner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.usrcntlVersedner.Location = New System.Drawing.Point(7, 681)
+        Me.usrcntlVersedner.Name = "usrcntlVersedner"
+        Me.usrcntlVersedner.Size = New System.Drawing.Size(345, 133)
+        Me.usrcntlVersedner.TabIndex = 79
+        '
+        'Label7
+        '
+        Me.Label7.ForeColor = System.Drawing.Color.Red
+        Me.Label7.Location = New System.Drawing.Point(436, 175)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(233, 13)
+        Me.Label7.TabIndex = 30
+        Me.Label7.Text = "Eigenmasse muss kleiner als Rohmasse sein!"
+        Me.Label7.Visible = False
+        '
+        'sbExportAusLand
+        '
+        Me.sbExportAusLand._allowFreitext = False
+        Me.sbExportAusLand._AllowSetValue = False
+        Me.sbExportAusLand._allowSpaceAsSplitter = False
+        Me.sbExportAusLand._autoSizeGross = False
+        Me.sbExportAusLand._hideIfListEmpty = True
+        Me.sbExportAusLand._value = Nothing
+        Me.sbExportAusLand.conn_art = "FMZOLL"
+        Me.sbExportAusLand.dgvpos = "LEFT"
+        Me.sbExportAusLand.DISPLAY_PARAM = Nothing
+        Me.sbExportAusLand.Enabled = False
+        Me.sbExportAusLand.INVISIBLE_COLUMNS = Nothing
+        Me.sbExportAusLand.key_visible = False
+        Me.sbExportAusLand.KEYPARAM = Nothing
+        Me.sbExportAusLand.Location = New System.Drawing.Point(271, 607)
+        Me.sbExportAusLand.Name = "sbExportAusLand"
+        Me.sbExportAusLand.searchActive = True
+        Me.sbExportAusLand.Size = New System.Drawing.Size(65, 20)
+        Me.sbExportAusLand.SQL_ORDER_BY = Nothing
+        Me.sbExportAusLand.SQL_SELECT = Nothing
+        Me.sbExportAusLand.SQL_WHERE = Nothing
+        Me.sbExportAusLand.SQL_WhereParamList = Nothing
+        Me.sbExportAusLand.TabIndex = 76
+        Me.sbExportAusLand.usrcntl = Nothing
+        '
+        'cbxVermerk10600
+        '
+        Me.cbxVermerk10600.AutoSize = True
+        Me.cbxVermerk10600.Location = New System.Drawing.Point(136, 629)
+        Me.cbxVermerk10600.Name = "cbxVermerk10600"
+        Me.cbxVermerk10600.Size = New System.Drawing.Size(98, 17)
+        Me.cbxVermerk10600.TabIndex = 77
+        Me.cbxVermerk10600.Text = "Vermerk 10600"
+        Me.cbxVermerk10600.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(268, 534)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(49, 13)
+        Me.Label6.TabIndex = 70
+        Me.Label6.Text = "Vermerk:"
+        '
+        'cbxVermerk
+        '
+        Me.cbxVermerk._DateTimeOnly = False
+        Me.cbxVermerk._numbersOnly = False
+        Me.cbxVermerk._numbersOnlyKommastellen = ""
+        Me.cbxVermerk._numbersOnlyTrennzeichen = True
+        Me.cbxVermerk._Prozent = False
+        Me.cbxVermerk._ShortDateNew = False
+        Me.cbxVermerk._ShortDateOnly = False
+        Me.cbxVermerk._TimeOnly = False
+        Me.cbxVermerk._TimeOnly_Seconds = False
+        Me.cbxVermerk._value = Nothing
+        Me.cbxVermerk._Waehrung = False
+        Me.cbxVermerk._WaehrungZeichen = True
+        Me.cbxVermerk.ForeColor = System.Drawing.Color.Black
+        Me.cbxVermerk.Location = New System.Drawing.Point(271, 551)
+        Me.cbxVermerk.MaxLength = 280
+        Me.cbxVermerk.MaxLineLength = -1
+        Me.cbxVermerk.MaxLines_Warning = ""
+        Me.cbxVermerk.MaxLines_Warning_Label = Nothing
+        Me.cbxVermerk.Multiline = True
+        Me.cbxVermerk.Name = "cbxVermerk"
+        Me.cbxVermerk.Size = New System.Drawing.Size(398, 47)
+        Me.cbxVermerk.TabIndex = 73
+        '
+        'cbxEmportAbgaben
+        '
+        Me.cbxEmportAbgaben.AutoSize = True
+        Me.cbxEmportAbgaben.Location = New System.Drawing.Point(136, 591)
+        Me.cbxEmportAbgaben.Name = "cbxEmportAbgaben"
+        Me.cbxEmportAbgaben.Size = New System.Drawing.Size(102, 17)
+        Me.cbxEmportAbgaben.TabIndex = 74
+        Me.cbxEmportAbgaben.Text = "Export Abgaben"
+        Me.cbxEmportAbgaben.UseVisualStyleBackColor = True
+        '
+        'cbxEmportBeschraernkung
+        '
+        Me.cbxEmportBeschraernkung.AutoSize = True
+        Me.cbxEmportBeschraernkung.Location = New System.Drawing.Point(136, 572)
+        Me.cbxEmportBeschraernkung.Name = "cbxEmportBeschraernkung"
+        Me.cbxEmportBeschraernkung.Size = New System.Drawing.Size(128, 17)
+        Me.cbxEmportBeschraernkung.TabIndex = 72
+        Me.cbxEmportBeschraernkung.Text = "Export-Beschränkung"
+        Me.cbxEmportBeschraernkung.UseVisualStyleBackColor = True
+        '
+        'cbxEmport
+        '
+        Me.cbxEmport.AutoSize = True
+        Me.cbxEmport.Location = New System.Drawing.Point(136, 553)
+        Me.cbxEmport.Name = "cbxEmport"
+        Me.cbxEmport.Size = New System.Drawing.Size(56, 17)
+        Me.cbxEmport.TabIndex = 71
+        Me.cbxEmport.Text = "Export"
+        Me.cbxEmport.UseVisualStyleBackColor = True
+        '
+        'cbxEmportAusLand
+        '
+        Me.cbxEmportAusLand.AutoSize = True
+        Me.cbxEmportAusLand.Location = New System.Drawing.Point(136, 610)
+        Me.cbxEmportAusLand.Name = "cbxEmportAusLand"
+        Me.cbxEmportAusLand.Size = New System.Drawing.Size(106, 17)
+        Me.cbxEmportAusLand.TabIndex = 75
+        Me.cbxEmportAusLand.Text = "Export aus Land:"
+        Me.cbxEmportAusLand.UseVisualStyleBackColor = True
+        '
+        'cbxExportAusEU
+        '
+        Me.cbxExportAusEU.AutoSize = True
+        Me.cbxExportAusEU.Checked = True
+        Me.cbxExportAusEU.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cbxExportAusEU.Location = New System.Drawing.Point(136, 534)
+        Me.cbxExportAusEU.Name = "cbxExportAusEU"
+        Me.cbxExportAusEU.Size = New System.Drawing.Size(112, 17)
+        Me.cbxExportAusEU.TabIndex = 69
+        Me.cbxExportAusEU.Text = "Export aus der EU"
+        Me.cbxExportAusEU.ThreeState = True
+        Me.cbxExportAusEU.UseVisualStyleBackColor = True
+        '
+        'lklBearbeitungAbbrechenUl
+        '
+        Me.lklBearbeitungAbbrechenUl.AutoSize = True
+        Me.lklBearbeitungAbbrechenUl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lklBearbeitungAbbrechenUl.Location = New System.Drawing.Point(551, 507)
+        Me.lklBearbeitungAbbrechenUl.Name = "lklBearbeitungAbbrechenUl"
+        Me.lklBearbeitungAbbrechenUl.Size = New System.Drawing.Size(118, 13)
+        Me.lklBearbeitungAbbrechenUl.TabIndex = 56
+        Me.lklBearbeitungAbbrechenUl.TabStop = True
+        Me.lklBearbeitungAbbrechenUl.Text = "Bearbeitung abbrechen"
+        Me.lklBearbeitungAbbrechenUl.Visible = False
+        '
+        'Label36
+        '
+        Me.Label36.AutoSize = True
+        Me.Label36.Location = New System.Drawing.Point(332, 99)
+        Me.Label36.Name = "Label36"
+        Me.Label36.Size = New System.Drawing.Size(30, 13)
+        Me.Label36.TabIndex = 11
+        Me.Label36.Text = "Nat.:"
+        '
+        'Label35
+        '
+        Me.Label35.AutoSize = True
+        Me.Label35.Location = New System.Drawing.Point(301, 99)
+        Me.Label35.Name = "Label35"
+        Me.Label35.Size = New System.Drawing.Size(23, 13)
+        Me.Label35.TabIndex = 10
+        Me.Label35.Text = "Z2:"
+        '
+        'Label34
+        '
+        Me.Label34.AutoSize = True
+        Me.Label34.Location = New System.Drawing.Point(268, 99)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(23, 13)
+        Me.Label34.TabIndex = 9
+        Me.Label34.Text = "Z1:"
+        '
+        'Label31
+        '
+        Me.Label31.Location = New System.Drawing.Point(18, 118)
+        Me.Label31.Name = "Label31"
+        Me.Label31.Size = New System.Drawing.Size(111, 13)
+        Me.Label31.TabIndex = 14
+        Me.Label31.Text = "Zolltarif:"
+        Me.Label31.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtWarennummer
+        '
+        Me.txtWarennummer._DateTimeOnly = False
+        Me.txtWarennummer._numbersOnly = True
+        Me.txtWarennummer._numbersOnlyKommastellen = "0"
+        Me.txtWarennummer._numbersOnlyTrennzeichen = False
+        Me.txtWarennummer._Prozent = False
+        Me.txtWarennummer._ShortDateNew = False
+        Me.txtWarennummer._ShortDateOnly = False
+        Me.txtWarennummer._TimeOnly = False
+        Me.txtWarennummer._TimeOnly_Seconds = False
+        Me.txtWarennummer._value = ""
+        Me.txtWarennummer._Waehrung = False
+        Me.txtWarennummer._WaehrungZeichen = True
+        Me.txtWarennummer.ForeColor = System.Drawing.Color.Black
+        Me.txtWarennummer.Location = New System.Drawing.Point(136, 115)
+        Me.txtWarennummer.MaxLength = 10
+        Me.txtWarennummer.MaxLineLength = -1
+        Me.txtWarennummer.MaxLines_Warning = ""
+        Me.txtWarennummer.MaxLines_Warning_Label = Nothing
+        Me.txtWarennummer.Name = "txtWarennummer"
+        Me.txtWarennummer.Size = New System.Drawing.Size(101, 20)
+        Me.txtWarennummer.TabIndex = 15
+        '
+        'txtWTNat
+        '
+        Me.txtWTNat._DateTimeOnly = False
+        Me.txtWTNat._numbersOnly = False
+        Me.txtWTNat._numbersOnlyKommastellen = ""
+        Me.txtWTNat._numbersOnlyTrennzeichen = True
+        Me.txtWTNat._Prozent = False
+        Me.txtWTNat._ShortDateNew = False
+        Me.txtWTNat._ShortDateOnly = False
+        Me.txtWTNat._TimeOnly = False
+        Me.txtWTNat._TimeOnly_Seconds = False
+        Me.txtWTNat._value = Nothing
+        Me.txtWTNat._Waehrung = False
+        Me.txtWTNat._WaehrungZeichen = True
+        Me.txtWTNat.Enabled = False
+        Me.txtWTNat.ForeColor = System.Drawing.Color.Black
+        Me.txtWTNat.Location = New System.Drawing.Point(335, 115)
+        Me.txtWTNat.MaxLineLength = -1
+        Me.txtWTNat.MaxLines_Warning = ""
+        Me.txtWTNat.MaxLines_Warning_Label = Nothing
+        Me.txtWTNat.Name = "txtWTNat"
+        Me.txtWTNat.Size = New System.Drawing.Size(34, 20)
+        Me.txtWTNat.TabIndex = 19
+        '
+        'txtWTZ2
+        '
+        Me.txtWTZ2._DateTimeOnly = False
+        Me.txtWTZ2._numbersOnly = False
+        Me.txtWTZ2._numbersOnlyKommastellen = ""
+        Me.txtWTZ2._numbersOnlyTrennzeichen = True
+        Me.txtWTZ2._Prozent = False
+        Me.txtWTZ2._ShortDateNew = False
+        Me.txtWTZ2._ShortDateOnly = False
+        Me.txtWTZ2._TimeOnly = False
+        Me.txtWTZ2._TimeOnly_Seconds = False
+        Me.txtWTZ2._value = Nothing
+        Me.txtWTZ2._Waehrung = False
+        Me.txtWTZ2._WaehrungZeichen = True
+        Me.txtWTZ2.Enabled = False
+        Me.txtWTZ2.ForeColor = System.Drawing.Color.Black
+        Me.txtWTZ2.Location = New System.Drawing.Point(302, 115)
+        Me.txtWTZ2.MaxLineLength = -1
+        Me.txtWTZ2.MaxLines_Warning = ""
+        Me.txtWTZ2.MaxLines_Warning_Label = Nothing
+        Me.txtWTZ2.Name = "txtWTZ2"
+        Me.txtWTZ2.Size = New System.Drawing.Size(34, 20)
+        Me.txtWTZ2.TabIndex = 18
+        '
+        'txtWTZ1
+        '
+        Me.txtWTZ1._DateTimeOnly = False
+        Me.txtWTZ1._numbersOnly = False
+        Me.txtWTZ1._numbersOnlyKommastellen = ""
+        Me.txtWTZ1._numbersOnlyTrennzeichen = True
+        Me.txtWTZ1._Prozent = False
+        Me.txtWTZ1._ShortDateNew = False
+        Me.txtWTZ1._ShortDateOnly = False
+        Me.txtWTZ1._TimeOnly = False
+        Me.txtWTZ1._TimeOnly_Seconds = False
+        Me.txtWTZ1._value = Nothing
+        Me.txtWTZ1._Waehrung = False
+        Me.txtWTZ1._WaehrungZeichen = True
+        Me.txtWTZ1.Enabled = False
+        Me.txtWTZ1.ForeColor = System.Drawing.Color.Black
+        Me.txtWTZ1.Location = New System.Drawing.Point(269, 115)
+        Me.txtWTZ1.MaxLineLength = -1
+        Me.txtWTZ1.MaxLines_Warning = ""
+        Me.txtWTZ1.MaxLines_Warning_Label = Nothing
+        Me.txtWTZ1.Name = "txtWTZ1"
+        Me.txtWTZ1.Size = New System.Drawing.Size(34, 20)
+        Me.txtWTZ1.TabIndex = 17
+        '
+        'txtWTTaric
+        '
+        Me.txtWTTaric._DateTimeOnly = False
+        Me.txtWTTaric._numbersOnly = False
+        Me.txtWTTaric._numbersOnlyKommastellen = ""
+        Me.txtWTTaric._numbersOnlyTrennzeichen = True
+        Me.txtWTTaric._Prozent = False
+        Me.txtWTTaric._ShortDateNew = False
+        Me.txtWTTaric._ShortDateOnly = False
+        Me.txtWTTaric._TimeOnly = False
+        Me.txtWTTaric._TimeOnly_Seconds = False
+        Me.txtWTTaric._value = Nothing
+        Me.txtWTTaric._Waehrung = False
+        Me.txtWTTaric._WaehrungZeichen = True
+        Me.txtWTTaric.Enabled = False
+        Me.txtWTTaric.ForeColor = System.Drawing.Color.Black
+        Me.txtWTTaric.Location = New System.Drawing.Point(236, 115)
+        Me.txtWTTaric.MaxLineLength = -1
+        Me.txtWTTaric.MaxLines_Warning = ""
+        Me.txtWTTaric.MaxLines_Warning_Label = Nothing
+        Me.txtWTTaric.Name = "txtWTTaric"
+        Me.txtWTTaric.Size = New System.Drawing.Size(34, 20)
+        Me.txtWTTaric.TabIndex = 16
+        '
+        'Label32
+        '
+        Me.Label32.AutoSize = True
+        Me.Label32.Location = New System.Drawing.Point(133, 99)
+        Me.Label32.Name = "Label32"
+        Me.Label32.Size = New System.Drawing.Size(31, 13)
+        Me.Label32.TabIndex = 7
+        Me.Label32.Text = "KN8:"
+        '
+        'Label33
+        '
+        Me.Label33.AutoSize = True
+        Me.Label33.Location = New System.Drawing.Point(233, 99)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(34, 13)
+        Me.Label33.TabIndex = 8
+        Me.Label33.Text = "Taric:"
+        '
+        'Label30
+        '
+        Me.Label30.Location = New System.Drawing.Point(21, 16)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(108, 13)
+        Me.Label30.TabIndex = 0
+        Me.Label30.Text = "Suche Kd-Zolltarif:"
+        Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'MySearchBox1
+        '
+        Me.MySearchBox1._allowFreitext = False
+        Me.MySearchBox1._AllowSetValue = False
+        Me.MySearchBox1._allowSpaceAsSplitter = False
+        Me.MySearchBox1._autoSizeGross = False
+        Me.MySearchBox1._hideIfListEmpty = True
+        Me.MySearchBox1._value = Nothing
+        Me.MySearchBox1.conn_art = "FMZOLL"
+        Me.MySearchBox1.dgvpos = "LEFT"
+        Me.MySearchBox1.DISPLAY_PARAM = Nothing
+        Me.MySearchBox1.INVISIBLE_COLUMNS = Nothing
+        Me.MySearchBox1.key_visible = False
+        Me.MySearchBox1.KEYPARAM = Nothing
+        Me.MySearchBox1.Location = New System.Drawing.Point(136, 13)
+        Me.MySearchBox1.Name = "MySearchBox1"
+        Me.MySearchBox1.searchActive = True
+        Me.MySearchBox1.Size = New System.Drawing.Size(233, 20)
+        Me.MySearchBox1.SQL_ORDER_BY = Nothing
+        Me.MySearchBox1.SQL_SELECT = Nothing
+        Me.MySearchBox1.SQL_WHERE = Nothing
+        Me.MySearchBox1.SQL_WhereParamList = Nothing
+        Me.MySearchBox1.TabIndex = 1
+        Me.MySearchBox1.usrcntl = Nothing
+        '
+        'txtEigenmasse
+        '
+        Me.txtEigenmasse._DateTimeOnly = False
+        Me.txtEigenmasse._numbersOnly = True
+        Me.txtEigenmasse._numbersOnlyKommastellen = "2"
+        Me.txtEigenmasse._numbersOnlyTrennzeichen = True
+        Me.txtEigenmasse._Prozent = False
+        Me.txtEigenmasse._ShortDateNew = False
+        Me.txtEigenmasse._ShortDateOnly = False
+        Me.txtEigenmasse._TimeOnly = False
+        Me.txtEigenmasse._TimeOnly_Seconds = False
+        Me.txtEigenmasse._value = "0"
+        Me.txtEigenmasse._Waehrung = False
+        Me.txtEigenmasse._WaehrungZeichen = True
+        Me.txtEigenmasse.ForeColor = System.Drawing.Color.Black
+        Me.txtEigenmasse.Location = New System.Drawing.Point(436, 154)
+        Me.txtEigenmasse.MaxLength = 18
+        Me.txtEigenmasse.MaxLineLength = -1
+        Me.txtEigenmasse.MaxLines_Warning = ""
+        Me.txtEigenmasse.MaxLines_Warning_Label = Nothing
+        Me.txtEigenmasse.Name = "txtEigenmasse"
+        Me.txtEigenmasse.Size = New System.Drawing.Size(117, 20)
+        Me.txtEigenmasse.TabIndex = 28
+        Me.txtEigenmasse.Text = "0,00"
+        '
+        'txtRohmasse
+        '
+        Me.txtRohmasse._DateTimeOnly = False
+        Me.txtRohmasse._numbersOnly = True
+        Me.txtRohmasse._numbersOnlyKommastellen = "2"
+        Me.txtRohmasse._numbersOnlyTrennzeichen = True
+        Me.txtRohmasse._Prozent = False
+        Me.txtRohmasse._ShortDateNew = False
+        Me.txtRohmasse._ShortDateOnly = False
+        Me.txtRohmasse._TimeOnly = False
+        Me.txtRohmasse._TimeOnly_Seconds = False
+        Me.txtRohmasse._value = "0"
+        Me.txtRohmasse._Waehrung = False
+        Me.txtRohmasse._WaehrungZeichen = True
+        Me.txtRohmasse.ForeColor = System.Drawing.Color.Black
+        Me.txtRohmasse.Location = New System.Drawing.Point(552, 154)
+        Me.txtRohmasse.MaxLength = 18
+        Me.txtRohmasse.MaxLineLength = -1
+        Me.txtRohmasse.MaxLines_Warning = ""
+        Me.txtRohmasse.MaxLines_Warning_Label = Nothing
+        Me.txtRohmasse.Name = "txtRohmasse"
+        Me.txtRohmasse.Size = New System.Drawing.Size(117, 20)
+        Me.txtRohmasse.TabIndex = 29
+        Me.txtRohmasse.Text = "0,00"
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Location = New System.Drawing.Point(433, 138)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(67, 13)
+        Me.Label27.TabIndex = 22
+        Me.Label27.Text = "Eigenmasse:"
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.Location = New System.Drawing.Point(549, 138)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(60, 13)
+        Me.Label28.TabIndex = 23
+        Me.Label28.Text = "Rohmasse:"
+        '
+        'sbUlArten
+        '
+        Me.sbUlArten._allowFreitext = False
+        Me.sbUlArten._AllowSetValue = False
+        Me.sbUlArten._allowSpaceAsSplitter = False
+        Me.sbUlArten._autoSizeGross = False
+        Me.sbUlArten._hideIfListEmpty = True
+        Me.sbUlArten._value = Nothing
+        Me.sbUlArten.conn_art = "FMZOLL"
+        Me.sbUlArten.dgvpos = "LEFT"
+        Me.sbUlArten.DISPLAY_PARAM = Nothing
+        Me.sbUlArten.INVISIBLE_COLUMNS = Nothing
+        Me.sbUlArten.key_visible = False
+        Me.sbUlArten.KEYPARAM = Nothing
+        Me.sbUlArten.Location = New System.Drawing.Point(136, 487)
+        Me.sbUlArten.Name = "sbUlArten"
+        Me.sbUlArten.searchActive = True
+        Me.sbUlArten.Size = New System.Drawing.Size(235, 20)
+        Me.sbUlArten.SQL_ORDER_BY = Nothing
+        Me.sbUlArten.SQL_SELECT = Nothing
+        Me.sbUlArten.SQL_WHERE = Nothing
+        Me.sbUlArten.SQL_WhereParamList = Nothing
+        Me.sbUlArten.TabIndex = 51
+        Me.sbUlArten.usrcntl = Nothing
+        '
+        'sbPkTyp
+        '
+        Me.sbPkTyp._allowFreitext = False
+        Me.sbPkTyp._AllowSetValue = False
+        Me.sbPkTyp._allowSpaceAsSplitter = False
+        Me.sbPkTyp._autoSizeGross = False
+        Me.sbPkTyp._hideIfListEmpty = True
+        Me.sbPkTyp._value = Nothing
+        Me.sbPkTyp.conn_art = "FMZOLL"
+        Me.sbPkTyp.dgvpos = "LEFT"
+        Me.sbPkTyp.DISPLAY_PARAM = Nothing
+        Me.sbPkTyp.INVISIBLE_COLUMNS = Nothing
+        Me.sbPkTyp.key_visible = False
+        Me.sbPkTyp.KEYPARAM = Nothing
+        Me.sbPkTyp.Location = New System.Drawing.Point(215, 357)
+        Me.sbPkTyp.Name = "sbPkTyp"
+        Me.sbPkTyp.searchActive = True
+        Me.sbPkTyp.Size = New System.Drawing.Size(198, 20)
+        Me.sbPkTyp.SQL_ORDER_BY = Nothing
+        Me.sbPkTyp.SQL_SELECT = Nothing
+        Me.sbPkTyp.SQL_WHERE = Nothing
+        Me.sbPkTyp.SQL_WhereParamList = Nothing
+        Me.sbPkTyp.TabIndex = 41
+        Me.sbPkTyp.usrcntl = Nothing
+        '
+        'Button3
+        '
+        Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
+        Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Location = New System.Drawing.Point(671, 401)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(30, 20)
+        Me.Button3.TabIndex = 49
+        Me.Button3.TabStop = False
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(671, 235)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(30, 20)
+        Me.Button2.TabIndex = 38
+        Me.Button2.TabStop = False
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'lblPosNr
+        '
+        Me.lblPosNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.lblPosNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
+        Me.lblPosNr.Location = New System.Drawing.Point(666, 1)
+        Me.lblPosNr.Name = "lblPosNr"
+        Me.lblPosNr.Size = New System.Drawing.Size(54, 35)
+        Me.lblPosNr.TabIndex = 3
+        Me.lblPosNr.Text = "1/1"
+        Me.lblPosNr.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Button1
+        '
+        Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(671, 487)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(30, 20)
+        Me.Button1.TabIndex = 54
+        Me.Button1.TabStop = False
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'txtUlZusatz
+        '
+        Me.txtUlZusatz._DateTimeOnly = False
+        Me.txtUlZusatz._numbersOnly = False
+        Me.txtUlZusatz._numbersOnlyKommastellen = ""
+        Me.txtUlZusatz._numbersOnlyTrennzeichen = True
+        Me.txtUlZusatz._Prozent = False
+        Me.txtUlZusatz._ShortDateNew = False
+        Me.txtUlZusatz._ShortDateOnly = False
+        Me.txtUlZusatz._TimeOnly = False
+        Me.txtUlZusatz._TimeOnly_Seconds = False
+        Me.txtUlZusatz._value = Nothing
+        Me.txtUlZusatz._Waehrung = False
+        Me.txtUlZusatz._WaehrungZeichen = True
+        Me.txtUlZusatz.ForeColor = System.Drawing.Color.Black
+        Me.txtUlZusatz.Location = New System.Drawing.Point(519, 487)
+        Me.txtUlZusatz.MaxLength = 26
+        Me.txtUlZusatz.MaxLineLength = -1
+        Me.txtUlZusatz.MaxLines_Warning = ""
+        Me.txtUlZusatz.MaxLines_Warning_Label = Nothing
+        Me.txtUlZusatz.Name = "txtUlZusatz"
+        Me.txtUlZusatz.Size = New System.Drawing.Size(150, 20)
+        Me.txtUlZusatz.TabIndex = 53
+        '
+        'txtUlReferenz
+        '
+        Me.txtUlReferenz._DateTimeOnly = False
+        Me.txtUlReferenz._numbersOnly = False
+        Me.txtUlReferenz._numbersOnlyKommastellen = ""
+        Me.txtUlReferenz._numbersOnlyTrennzeichen = True
+        Me.txtUlReferenz._Prozent = False
+        Me.txtUlReferenz._ShortDateNew = False
+        Me.txtUlReferenz._ShortDateOnly = False
+        Me.txtUlReferenz._TimeOnly = False
+        Me.txtUlReferenz._TimeOnly_Seconds = False
+        Me.txtUlReferenz._value = Nothing
+        Me.txtUlReferenz._Waehrung = False
+        Me.txtUlReferenz._WaehrungZeichen = True
+        Me.txtUlReferenz.ForeColor = System.Drawing.Color.Black
+        Me.txtUlReferenz.Location = New System.Drawing.Point(370, 487)
+        Me.txtUlReferenz.MaxLength = 35
+        Me.txtUlReferenz.MaxLineLength = -1
+        Me.txtUlReferenz.MaxLines_Warning = ""
+        Me.txtUlReferenz.MaxLines_Warning_Label = Nothing
+        Me.txtUlReferenz.Name = "txtUlReferenz"
+        Me.txtUlReferenz.Size = New System.Drawing.Size(150, 20)
+        Me.txtUlReferenz.TabIndex = 52
+        '
+        'btn
+        '
+        Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(671, 357)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(30, 20)
+        Me.btn.TabIndex = 43
+        Me.btn.TabStop = False
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'txtPkMarke
+        '
+        Me.txtPkMarke._DateTimeOnly = False
+        Me.txtPkMarke._numbersOnly = False
+        Me.txtPkMarke._numbersOnlyKommastellen = ""
+        Me.txtPkMarke._numbersOnlyTrennzeichen = True
+        Me.txtPkMarke._Prozent = False
+        Me.txtPkMarke._ShortDateNew = False
+        Me.txtPkMarke._ShortDateOnly = False
+        Me.txtPkMarke._TimeOnly = False
+        Me.txtPkMarke._TimeOnly_Seconds = False
+        Me.txtPkMarke._value = "ohne"
+        Me.txtPkMarke._Waehrung = False
+        Me.txtPkMarke._WaehrungZeichen = True
+        Me.txtPkMarke.ForeColor = System.Drawing.Color.Black
+        Me.txtPkMarke.Location = New System.Drawing.Point(412, 357)
+        Me.txtPkMarke.MaxLength = 42
+        Me.txtPkMarke.MaxLineLength = -1
+        Me.txtPkMarke.MaxLines_Warning = ""
+        Me.txtPkMarke.MaxLines_Warning_Label = Nothing
+        Me.txtPkMarke.Name = "txtPkMarke"
+        Me.txtPkMarke.Size = New System.Drawing.Size(257, 20)
+        Me.txtPkMarke.TabIndex = 42
+        Me.txtPkMarke.Text = "ohne"
+        '
+        'txtPkAnzahl
+        '
+        Me.txtPkAnzahl._DateTimeOnly = False
+        Me.txtPkAnzahl._numbersOnly = True
+        Me.txtPkAnzahl._numbersOnlyKommastellen = ""
+        Me.txtPkAnzahl._numbersOnlyTrennzeichen = True
+        Me.txtPkAnzahl._Prozent = False
+        Me.txtPkAnzahl._ShortDateNew = False
+        Me.txtPkAnzahl._ShortDateOnly = False
+        Me.txtPkAnzahl._TimeOnly = False
+        Me.txtPkAnzahl._TimeOnly_Seconds = False
+        Me.txtPkAnzahl._value = ""
+        Me.txtPkAnzahl._Waehrung = False
+        Me.txtPkAnzahl._WaehrungZeichen = True
+        Me.txtPkAnzahl.ForeColor = System.Drawing.Color.Black
+        Me.txtPkAnzahl.Location = New System.Drawing.Point(136, 357)
+        Me.txtPkAnzahl.MaxLength = 5
+        Me.txtPkAnzahl.MaxLineLength = -1
+        Me.txtPkAnzahl.MaxLines_Warning = ""
+        Me.txtPkAnzahl.MaxLines_Warning_Label = Nothing
+        Me.txtPkAnzahl.Name = "txtPkAnzahl"
+        Me.txtPkAnzahl.Size = New System.Drawing.Size(80, 20)
+        Me.txtPkAnzahl.TabIndex = 40
+        Me.txtPkAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label19.Location = New System.Drawing.Point(56, 401)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(73, 13)
+        Me.Label19.TabIndex = 47
+        Me.Label19.Text = "Unterlagen:"
+        Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'dgvUnterlage
+        '
+        Me.dgvUnterlage.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvUnterlage.AllowUserToAddRows = False
+        Me.dgvUnterlage.AllowUserToDeleteRows = False
+        Me.dgvUnterlage.AllowUserToResizeColumns = False
+        Me.dgvUnterlage.AllowUserToResizeRows = False
+        Me.dgvUnterlage.BackgroundColor = System.Drawing.Color.White
+        Me.dgvUnterlage.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvUnterlage.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.UlCode, Me.DataGridViewComboBoxColumn1, Me.UlReferenz, Me.UlZusatz})
+        Me.dgvUnterlage.Location = New System.Drawing.Point(136, 401)
+        Me.dgvUnterlage.MultiSelect = False
+        Me.dgvUnterlage.Name = "dgvUnterlage"
+        Me.dgvUnterlage.ReadOnly = True
+        Me.dgvUnterlage.RowHeadersVisible = False
+        Me.dgvUnterlage.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvUnterlage.Size = New System.Drawing.Size(533, 85)
+        Me.dgvUnterlage.TabIndex = 48
+        Me.dgvUnterlage.TabStop = False
+        '
+        'UlCode
+        '
+        Me.UlCode.HeaderText = "Code"
+        Me.UlCode.Name = "UlCode"
+        Me.UlCode.ReadOnly = True
+        Me.UlCode.Visible = False
+        '
+        'DataGridViewComboBoxColumn1
+        '
+        Me.DataGridViewComboBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewComboBoxColumn1.HeaderText = "Typ"
+        Me.DataGridViewComboBoxColumn1.Name = "DataGridViewComboBoxColumn1"
+        Me.DataGridViewComboBoxColumn1.ReadOnly = True
+        Me.DataGridViewComboBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        '
+        'UlReferenz
+        '
+        Me.UlReferenz.HeaderText = "Referenz"
+        Me.UlReferenz.Name = "UlReferenz"
+        Me.UlReferenz.ReadOnly = True
+        Me.UlReferenz.Width = 150
+        '
+        'UlZusatz
+        '
+        Me.UlZusatz.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.UlZusatz.HeaderText = "Zusatz"
+        Me.UlZusatz.Name = "UlZusatz"
+        Me.UlZusatz.ReadOnly = True
+        Me.UlZusatz.Width = 150
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label18.Location = New System.Drawing.Point(51, 235)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(78, 13)
+        Me.Label18.TabIndex = 36
+        Me.Label18.Text = "Packstücke:"
+        Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'dgvPackstuecke
+        '
+        Me.dgvPackstuecke.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvPackstuecke.AllowUserToAddRows = False
+        Me.dgvPackstuecke.AllowUserToDeleteRows = False
+        Me.dgvPackstuecke.AllowUserToResizeColumns = False
+        Me.dgvPackstuecke.AllowUserToResizeRows = False
+        Me.dgvPackstuecke.BackgroundColor = System.Drawing.Color.White
+        Me.dgvPackstuecke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvPackstuecke.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.PkCode, Me.Anzahl, Me.Typ, Me.Marke})
+        Me.dgvPackstuecke.Location = New System.Drawing.Point(136, 235)
+        Me.dgvPackstuecke.MultiSelect = False
+        Me.dgvPackstuecke.Name = "dgvPackstuecke"
+        Me.dgvPackstuecke.ReadOnly = True
+        Me.dgvPackstuecke.RowHeadersVisible = False
+        Me.dgvPackstuecke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvPackstuecke.Size = New System.Drawing.Size(533, 121)
+        Me.dgvPackstuecke.TabIndex = 37
+        Me.dgvPackstuecke.TabStop = False
+        '
+        'PkCode
+        '
+        Me.PkCode.HeaderText = "Code"
+        Me.PkCode.Name = "PkCode"
+        Me.PkCode.ReadOnly = True
+        Me.PkCode.Visible = False
+        '
+        'Anzahl
+        '
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle1
+        Me.Anzahl.HeaderText = "Anzahl"
+        Me.Anzahl.Name = "Anzahl"
+        Me.Anzahl.ReadOnly = True
+        Me.Anzahl.Width = 80
+        '
+        'Typ
+        '
+        Me.Typ.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.Typ.HeaderText = "Typ"
+        Me.Typ.Name = "Typ"
+        Me.Typ.ReadOnly = True
+        Me.Typ.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.Typ.Width = 200
+        '
+        'Marke
+        '
+        Me.Marke.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.Marke.HeaderText = "Marke"
+        Me.Marke.Name = "Marke"
+        Me.Marke.ReadOnly = True
+        '
+        'Label22
+        '
+        Me.Label22.ForeColor = System.Drawing.Color.Red
+        Me.Label22.Location = New System.Drawing.Point(136, 506)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(235, 13)
+        Me.Label22.TabIndex = 55
+        Me.Label22.Text = "Bitte angeben!"
+        Me.Label22.Visible = False
+        '
+        'Label9
+        '
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(0, 534)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(130, 33)
+        Me.Label9.TabIndex = 68
+        Me.Label9.Text = "Besondere Vermerke:"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.Label9.Visible = False
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(10, 176)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(120, 13)
+        Me.Label4.TabIndex = 31
+        Me.Label4.Text = "Sicherheitsbetrag (%/€):"
+        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(19, 157)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(111, 13)
+        Me.Label3.TabIndex = 24
+        Me.Label3.Text = "Warenwert:"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtWarenwert
+        '
+        Me.txtWarenwert._DateTimeOnly = False
+        Me.txtWarenwert._numbersOnly = True
+        Me.txtWarenwert._numbersOnlyKommastellen = "2"
+        Me.txtWarenwert._numbersOnlyTrennzeichen = True
+        Me.txtWarenwert._Prozent = False
+        Me.txtWarenwert._ShortDateNew = False
+        Me.txtWarenwert._ShortDateOnly = False
+        Me.txtWarenwert._TimeOnly = False
+        Me.txtWarenwert._TimeOnly_Seconds = False
+        Me.txtWarenwert._value = ""
+        Me.txtWarenwert._Waehrung = False
+        Me.txtWarenwert._WaehrungZeichen = True
+        Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
+        Me.txtWarenwert.Location = New System.Drawing.Point(136, 154)
+        Me.txtWarenwert.MaxLineLength = -1
+        Me.txtWarenwert.MaxLines_Warning = ""
+        Me.txtWarenwert.MaxLines_Warning_Label = Nothing
+        Me.txtWarenwert.Name = "txtWarenwert"
+        Me.txtWarenwert.Size = New System.Drawing.Size(167, 20)
+        Me.txtWarenwert.TabIndex = 25
+        Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label1
+        '
+        Me.Label1.Location = New System.Drawing.Point(22, 41)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(108, 13)
+        Me.Label1.TabIndex = 5
+        Me.Label1.Text = "Warenbezeichnung:"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtWarenbezeichnung
+        '
+        Me.txtWarenbezeichnung._DateTimeOnly = False
+        Me.txtWarenbezeichnung._numbersOnly = False
+        Me.txtWarenbezeichnung._numbersOnlyKommastellen = ""
+        Me.txtWarenbezeichnung._numbersOnlyTrennzeichen = True
+        Me.txtWarenbezeichnung._Prozent = False
+        Me.txtWarenbezeichnung._ShortDateNew = False
+        Me.txtWarenbezeichnung._ShortDateOnly = False
+        Me.txtWarenbezeichnung._TimeOnly = False
+        Me.txtWarenbezeichnung._TimeOnly_Seconds = False
+        Me.txtWarenbezeichnung._value = Nothing
+        Me.txtWarenbezeichnung._Waehrung = False
+        Me.txtWarenbezeichnung._WaehrungZeichen = True
+        Me.txtWarenbezeichnung.ForeColor = System.Drawing.Color.Black
+        Me.txtWarenbezeichnung.Location = New System.Drawing.Point(136, 41)
+        Me.txtWarenbezeichnung.MaxLength = 280
+        Me.txtWarenbezeichnung.MaxLineLength = -1
+        Me.txtWarenbezeichnung.MaxLines_Warning = ""
+        Me.txtWarenbezeichnung.MaxLines_Warning_Label = Nothing
+        Me.txtWarenbezeichnung.Multiline = True
+        Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
+        Me.txtWarenbezeichnung.Size = New System.Drawing.Size(533, 55)
+        Me.txtWarenbezeichnung.TabIndex = 6
+        '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!)
+        Me.Label21.Location = New System.Drawing.Point(668, 472)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(33, 12)
+        Me.Label21.TabIndex = 50
+        Me.Label21.Text = "(Enter)"
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!)
+        Me.Label20.Location = New System.Drawing.Point(668, 342)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(33, 12)
+        Me.Label20.TabIndex = 39
+        Me.Label20.Text = "(Enter)"
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label2.Location = New System.Drawing.Point(386, 14)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(105, 13)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "Kd. Ref-Nr.:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label24
+        '
+        Me.Label24.ForeColor = System.Drawing.Color.Red
+        Me.Label24.Location = New System.Drawing.Point(212, 376)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(233, 13)
+        Me.Label24.TabIndex = 45
+        Me.Label24.Text = "Bitte angeben!"
+        Me.Label24.Visible = False
+        '
+        'Label23
+        '
+        Me.Label23.ForeColor = System.Drawing.Color.Red
+        Me.Label23.Location = New System.Drawing.Point(133, 376)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(153, 13)
+        Me.Label23.TabIndex = 44
+        Me.Label23.Text = "Bitte angeben!"
+        Me.Label23.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(194, 176)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(175, 13)
+        Me.Label5.TabIndex = 33
+        Me.Label5.Text = "0,00 €"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label29
+        '
+        Me.Label29.Location = New System.Drawing.Point(375, 157)
+        Me.Label29.Name = "Label29"
+        Me.Label29.Size = New System.Drawing.Size(59, 13)
+        Me.Label29.TabIndex = 27
+        Me.Label29.Text = "Gewicht:"
+        Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lklBearbeitungAbbrechenPK
+        '
+        Me.lklBearbeitungAbbrechenPK.AutoSize = True
+        Me.lklBearbeitungAbbrechenPK.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lklBearbeitungAbbrechenPK.Location = New System.Drawing.Point(551, 377)
+        Me.lklBearbeitungAbbrechenPK.Name = "lklBearbeitungAbbrechenPK"
+        Me.lklBearbeitungAbbrechenPK.Size = New System.Drawing.Size(118, 13)
+        Me.lklBearbeitungAbbrechenPK.TabIndex = 46
+        Me.lklBearbeitungAbbrechenPK.TabStop = True
+        Me.lklBearbeitungAbbrechenPK.Text = "Bearbeitung abbrechen"
+        Me.lklBearbeitungAbbrechenPK.Visible = False
+        '
+        'usrCntlModaltrans_NCTS_Position
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoScroll = True
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.pnl)
+        Me.Name = "usrCntlModaltrans_NCTS_Position"
+        Me.Size = New System.Drawing.Size(730, 984)
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvPackstuecke, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtWarenbezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label18 As System.Windows.Forms.Label
+    Friend WithEvents dgvPackstuecke As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label19 As System.Windows.Forms.Label
+    Friend WithEvents dgvUnterlage As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents txtPkMarke As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtPkAnzahl As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents txtUlZusatz As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtUlReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btn As System.Windows.Forms.Button
+    Friend WithEvents Label21 As System.Windows.Forms.Label
+    Friend WithEvents Label20 As System.Windows.Forms.Label
+    Friend WithEvents lblPosNr As System.Windows.Forms.Label
+    Friend WithEvents Button3 As System.Windows.Forms.Button
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents Label22 As System.Windows.Forms.Label
+    Friend WithEvents Label24 As System.Windows.Forms.Label
+    Friend WithEvents Label23 As System.Windows.Forms.Label
+    Friend WithEvents sbPkTyp As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbUlArten As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents PkCode As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents Anzahl As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents Typ As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents Marke As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents Label29 As System.Windows.Forms.Label
+    Friend WithEvents txtEigenmasse As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtRohmasse As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label27 As System.Windows.Forms.Label
+    Friend WithEvents Label28 As System.Windows.Forms.Label
+    Friend WithEvents Label30 As System.Windows.Forms.Label
+    Friend WithEvents MySearchBox1 As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label31 As System.Windows.Forms.Label
+    Friend WithEvents txtWarennummer As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtWTNat As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtWTZ2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtWTZ1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtWTTaric As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label32 As System.Windows.Forms.Label
+    Friend WithEvents Label33 As System.Windows.Forms.Label
+    Friend WithEvents Label36 As System.Windows.Forms.Label
+    Friend WithEvents Label35 As System.Windows.Forms.Label
+    Friend WithEvents Label34 As System.Windows.Forms.Label
+    Friend WithEvents UlCode As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewComboBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents UlReferenz As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents UlZusatz As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents lklBearbeitungAbbrechenUl As System.Windows.Forms.LinkLabel
+    Friend WithEvents lklBearbeitungAbbrechenPK As System.Windows.Forms.LinkLabel
+    Friend WithEvents cbxVermerk10600 As System.Windows.Forms.CheckBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents cbxVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxEmportAbgaben As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxEmportBeschraernkung As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxEmport As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxEmportAusLand As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxExportAusEU As System.Windows.Forms.CheckBox
+    Friend WithEvents sbExportAusLand As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents usrcntlEmpfaenger As SDL.usrCntlAdresse
+    Friend WithEvents usrcntlVersedner As SDL.usrCntlAdresse
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents usrcntlSumAEmpfaenger As SDL.usrCntlAdresse
+    Friend WithEvents usrcntlSumAVersedner As SDL.usrCntlAdresse
+    Friend WithEvents txtSiBetragProzent As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cboWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents txtKdRefNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents cboArtAnmeldung As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents sbVersendungsLand As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents sbBestimmungsland As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label12 As Label
+End Class
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.resx b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.resx
new file mode 100644
index 00000000..d5ca9c5f
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.resx
@@ -0,0 +1,173 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Button3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
+        iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
+        6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
+        q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
+        OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
+        vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
+        DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
+        9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
+        uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="Button2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
+        iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
+        6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
+        q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
+        OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
+        vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
+        DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
+        9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
+        uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
+</value>
+  </data>
+  <metadata name="UlCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="DataGridViewComboBoxColumn1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="UlReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="UlZusatz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="PkCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Typ.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Marke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>
\ No newline at end of file
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.vb
new file mode 100644
index 00000000..36b70272
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.vb
@@ -0,0 +1,258 @@
+Public Class usrCntlModaltrans_NCTS_Position
+
+    Dim WARE_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute = Nothing
+    Event RohmasseChanged(rohmasse As Double, packstuecke As Double)
+    Dim id As Integer = -1
+
+    Dim PK_EDIT = -1
+    Dim UL_EDIT = -1
+    Dim VP_EDIT = -1
+
+    Sub New(id)
+        InitializeComponent()
+        Me.id = id
+    End Sub
+
+
+    Sub New(id As Integer, WARE_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute)
+        InitializeComponent()
+        Me.id = id
+        Me.WARE_TR = WARE_TR
+    End Sub
+
+    Function getPackstuecke() As Integer
+
+        getPackstuecke = 0
+
+        For Each row As DataGridViewRow In dgvPackstuecke.Rows
+            getPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
+        Next
+
+    End Function
+    Private Sub usrCntlModaltrans_NCTS_Position_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", , "FMZOLL", , 400, 200)
+        sbUlArten.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art FROM tbl_DY_ZollDE_C0013_UnterlagenArten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", , "FMZOLL", , 400, 200)
+        sbExportAusLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
+        sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
+        sbVersendungsLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
+
+        cboWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM [tbl_DY_ZollDE_I0400_Waehrungsliste]", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
+
+        cboArtAnmeldung.Items.Clear()
+        cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1 - Versandanmeldung T1 Waren, die im externen gemeinschaftlichen/gemeinsamen Versandverfahren befördert werden sollen.", "T1"))
+        cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2 - Versandanmeldung T2 Waren, die - soweit nicht das T2F-Verfahren vorgeschrieben ist - im internen gemeinschaftlichen Versandverfahren befördert werden sollen", "T2"))
+        cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2F - Versandanmeldung T2F Waren, die im Linienverkehr zwischen Teilen des Zollgebiets der Gemeinschaft, in denen die Richtlinie 77/388/EWG (6. Mehrwertsteuerrichtlinie) Anwendung findet und den Teilen des Zollgebiets der Gemeinschaft, in denen diese Richtlinie nicht gilt (siehe Titel I, Absatz 3) im internen gemeinschaftlichen Versandverfahren befördert werden sollen.", "T2F"))
+
+
+        If WARE_TR IsNot Nothing Then setvalue_TR(WARE_TR)
+
+    End Sub
+
+    Sub setvalue_TR(WARE As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute)
+        If WARE IsNot Nothing Then
+            Me.txtWarenbezeichnung.Text = If(WARE.commodity, "")
+            Me.txtRohmasse.Text = WARE.brut_wg
+            Me.txtEigenmasse.Text = WARE.net_wg
+            Me.txtWarennummer.Text = WARE.gtip_code
+            Me.txtWarenwert._value = WARE.invoice_amount
+
+            Me.cboWaehrung.SET_VALUE(WARE.invoice_curr)
+
+            Dim packstuecke = 0
+            dgvPackstuecke.Rows.Clear()
+            If WARE.decl_PAckattributes IsNot Nothing Then
+                For Each PK In WARE.decl_PAckattributes
+
+                    Dim VerpackArtTxt = sbPkTyp.GET_VALUE_OnlyReturn(PK.pack_type)
+                    dgvPackstuecke.Rows.Add(PK.pack_type, PK.pack_count, VerpackArtTxt, PK.notes)
+                Next
+            End If
+            RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
+
+            usrcntlVersedner.kdFirma.Text = WARE.sender_name
+            usrcntlVersedner.txtStrasse.Text = WARE.sender_address
+            usrcntlVersedner.txtPlz.Text = WARE.sender_postcode
+            usrcntlVersedner.txtOrt.Text = WARE.sender_city_name
+            usrcntlVersedner.txtEORI.Text = WARE.sender_eori_code
+            usrcntlVersedner.sbLand.SET_VALUE(WARE.sender_country_id)
+
+            usrcntlEmpfaenger.kdFirma.Text = WARE.consignee_name
+            usrcntlEmpfaenger.txtStrasse.Text = WARE.consignee_address
+            usrcntlEmpfaenger.txtPlz.Text = WARE.consignee_postcode
+            usrcntlEmpfaenger.txtOrt.Text = WARE.consignee_city_name
+            usrcntlEmpfaenger.txtEORI.Text = WARE.consignee_eori_code
+            usrcntlEmpfaenger.sbLand.SET_VALUE(WARE.consignee_country_id)
+
+
+        End If
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        addPackstuecke()
+    End Sub
+
+    Sub addPackstuecke()
+        Label23.Visible = False
+        Label24.Visible = False
+        If sbPkTyp._value = "" Then Label24.Visible = True : sbPkTyp.Focus() : Exit Sub
+        If txtPkAnzahl.Text = "" Then Label23.Visible = True : txtPkAnzahl.Focus() : Exit Sub
+
+        If PK_EDIT >= 0 Then
+            dgvPackstuecke.Rows.RemoveAt(PK_EDIT)
+            dgvPackstuecke.Rows.Insert(PK_EDIT, sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text)
+            PK_EDIT = -1
+            btn.BackgroundImage = My.Resources.plus
+            lklBearbeitungAbbrechenPK.Visible = False
+        Else
+            dgvPackstuecke.Rows.Add(sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text)
+        End If
+        sbPkTyp.SET_VALUE("") : txtPkAnzahl.Text = "" : txtPkMarke.Text = "ohne"
+        dgvPackstuecke.FirstDisplayedScrollingRowIndex = dgvPackstuecke.RowCount - 1
+        dgvPackstuecke.ClearSelection()
+        txtPkAnzahl.Focus()
+
+        RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        addUnterlage()
+    End Sub
+
+    Sub addUnterlage()
+        Label22.Visible = False
+        If sbUlArten._value = "" Then Label22.Visible = True : sbUlArten.Focus() : Exit Sub
+
+        If UL_EDIT >= 0 Then
+            dgvUnterlage.Rows.RemoveAt(UL_EDIT)
+            dgvUnterlage.Rows.Insert(UL_EDIT, sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text)
+            UL_EDIT = -1
+            Button1.BackgroundImage = My.Resources.plus
+            lklBearbeitungAbbrechenUl.Visible = False
+        Else
+            dgvUnterlage.Rows.Add(sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text)
+        End If
+
+        txtUlZusatz.Text = "" : txtUlReferenz.Text = "" : sbUlArten.SET_VALUE("")
+        dgvUnterlage.FirstDisplayedScrollingRowIndex = dgvUnterlage.RowCount - 1
+        dgvUnterlage.ClearSelection()
+        sbUlArten.Focus()
+    End Sub
+
+
+    Private Sub PackstueckeKeyDown(sender As Object, e As KeyEventArgs) Handles sbPkTyp.KeyDown, txtPkAnzahl.KeyDown, txtPkMarke.KeyDown
+        If e.KeyCode = Keys.Return Then addPackstuecke() : e.Handled = True
+    End Sub
+
+    Private Sub UnterlageKeyDown(sender As Object, e As KeyEventArgs) Handles txtUlZusatz.KeyDown, txtUlReferenz.KeyDown, sbUlArten.KeyDown
+        If e.KeyCode = Keys.Return Then addUnterlage() : e.Handled = True
+    End Sub
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If dgvPackstuecke.SelectedRows.Count > 0 Then
+            If MsgBox("Möchten Sie den Eintrag in 'Packstücke' wirklich löschen?", vbYesNoCancel) = vbYes Then
+                dgvPackstuecke.Rows.Remove(dgvPackstuecke.SelectedRows(0))
+            End If
+        End If
+        dgvPackstuecke.ClearSelection()
+
+        RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvUnterlage.SelectedRows.Count > 0 Then
+            If MsgBox("Möchten Sie den Eintrag in 'Unterlagen' wirklich löschen?", vbYesNoCancel) = vbYes Then
+                dgvUnterlage.Rows.Remove(dgvUnterlage.SelectedRows(0))
+            End If
+        End If
+        dgvUnterlage.ClearSelection()
+    End Sub
+
+    Private Sub MyTextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtWarenwert.TextChanged, txtSiBetragProzent.TextChanged, txtWarenwert.Leave, txtSiBetragProzent.Leave, cboWaehrung.Leave
+        If IsNumeric(txtWarenwert._value) And IsNumeric(txtSiBetragProzent._value) Then
+            Label5.Text = CDbl(txtSiBetragProzent._value * txtWarenwert._value).ToString("N2") & " " & cboWaehrung._value
+        Else
+            Label5.Text = CDbl(0).ToString("N2") & " " & cboWaehrung._value
+        End If
+    End Sub
+
+
+    Private Sub txtRohmasse_TextChanged(sender As Object, e As EventArgs) Handles txtRohmasse.TextChanged
+        RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
+    End Sub
+
+    Private Sub dgvPackstuecke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPackstuecke.CellDoubleClick
+        If e.RowIndex < 0 Then Exit Sub
+        editableRowPK(e.RowIndex)
+    End Sub
+
+
+    Sub editableRowPK(index As Integer)
+        txtPkAnzahl.Text = dgvPackstuecke.Rows(index).Cells("Anzahl").Value
+        sbPkTyp.SET_VALUE(dgvPackstuecke.Rows(index).Cells("PkCode").Value)
+        txtPkMarke.Text = dgvPackstuecke.Rows(index).Cells("Marke").Value
+        PK_EDIT = index
+        btn.BackgroundImage = My.Resources.stift
+        lklBearbeitungAbbrechenPK.Visible = True
+    End Sub
+
+    Private Sub lklBearbeitungAbbrechenPK_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenPK.LinkClicked
+        PK_EDIT = -1
+        txtPkAnzahl.Text = ""
+        sbPkTyp.SET_VALUE("")
+        txtPkMarke.Text = ""
+        btn.BackgroundImage = My.Resources.plus
+        lklBearbeitungAbbrechenPK.Visible = False
+    End Sub
+
+
+
+    Private Sub dgvUnterlage_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUnterlage.CellDoubleClick
+        If e.RowIndex < 0 Then Exit Sub
+        editableRowUL(e.RowIndex)
+    End Sub
+
+
+    Sub editableRowUL(index As Integer)
+        txtUlReferenz.Text = dgvUnterlage.Rows(index).Cells("UlReferenz").Value
+        sbUlArten.SET_VALUE(dgvUnterlage.Rows(index).Cells("UlCode").Value)
+        txtUlZusatz.Text = dgvUnterlage.Rows(index).Cells("UlZusatz").Value
+        UL_EDIT = index
+        Button1.BackgroundImage = My.Resources.stift
+        lklBearbeitungAbbrechenUl.Visible = True
+    End Sub
+
+    Private Sub lklBearbeitungAbbrechenUl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenUl.LinkClicked
+        UL_EDIT = -1
+        txtUlReferenz.Text = ""
+        sbUlArten.SET_VALUE("")
+        txtUlZusatz.Text = ""
+        Button1.BackgroundImage = My.Resources.plus
+        lklBearbeitungAbbrechenUl.Visible = False
+    End Sub
+
+    Private Sub dgvPackstuecke_CellContentClick(sender As Object, e As EventArgs) Handles dgvPackstuecke.LostFocus
+        dgvPackstuecke.ClearSelection()
+    End Sub
+
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEmportAusLand.CheckedChanged
+        sbExportAusLand.Enabled = cbxEmportAusLand.Checked
+    End Sub
+
+    Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
+        Label7.Visible = False
+        If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
+            If CDbl(txtRohmasse._value) < CDbl(txtEigenmasse._value) Then
+                Label7.Visible = True
+            End If
+        End If
+    End Sub
+
+
+End Class
+
+
+
+
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.Designer.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.Designer.vb
new file mode 100644
index 00000000..005b2052
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.Designer.vb
@@ -0,0 +1,196 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlModaltrans_NCTS_Positionen
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.dgvPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.index = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Ware = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Timer = New System.Windows.Forms.Timer(Me.components)
+        Me.pnl.SuspendLayout()
+        Me.MyPanel1.SuspendLayout()
+        CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.Controls.Add(Me.MyPanel2)
+        Me.pnl.Controls.Add(Me.MyPanel1)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(928, 501)
+        Me.pnl.TabIndex = 0
+        '
+        'MyPanel2
+        '
+        Me.MyPanel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MyPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.MyPanel2.Location = New System.Drawing.Point(214, 0)
+        Me.MyPanel2.Name = "MyPanel2"
+        Me.MyPanel2.Size = New System.Drawing.Size(714, 501)
+        Me.MyPanel2.TabIndex = 1
+        '
+        'MyPanel1
+        '
+        Me.MyPanel1.Controls.Add(Me.Button2)
+        Me.MyPanel1.Controls.Add(Me.Button1)
+        Me.MyPanel1.Controls.Add(Me.btn)
+        Me.MyPanel1.Controls.Add(Me.dgvPositionen)
+        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Left
+        Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
+        Me.MyPanel1.Name = "MyPanel1"
+        Me.MyPanel1.Size = New System.Drawing.Size(214, 501)
+        Me.MyPanel1.TabIndex = 0
+        '
+        'Button2
+        '
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button2.BackgroundImage = Global.SDL.My.Resources.plus
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(132, 478)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(28, 23)
+        Me.Button2.TabIndex = 6
+        Me.Button2.UseVisualStyleBackColor = True
+        Me.Button2.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button1.BackgroundImage = Global.SDL.My.Resources.del
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(159, 478)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(28, 23)
+        Me.Button1.TabIndex = 3
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'btn
+        '
+        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btn.BackgroundImage = Global.SDL.My.Resources.plus
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(186, 478)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(28, 23)
+        Me.btn.TabIndex = 2
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'dgvPositionen
+        '
+        Me.dgvPositionen.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvPositionen.AllowUserToAddRows = False
+        Me.dgvPositionen.AllowUserToDeleteRows = False
+        Me.dgvPositionen.AllowUserToResizeColumns = False
+        Me.dgvPositionen.AllowUserToResizeRows = False
+        Me.dgvPositionen.BackgroundColor = System.Drawing.Color.White
+        Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvPositionen.ColumnHeadersVisible = False
+        Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.index, Me.ID, Me.Ware})
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvPositionen.DefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvPositionen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvPositionen.Location = New System.Drawing.Point(0, 0)
+        Me.dgvPositionen.MultiSelect = False
+        Me.dgvPositionen.Name = "dgvPositionen"
+        Me.dgvPositionen.ReadOnly = True
+        Me.dgvPositionen.RowHeadersVisible = False
+        Me.dgvPositionen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.dgvPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvPositionen.Size = New System.Drawing.Size(214, 501)
+        Me.dgvPositionen.TabIndex = 5
+        '
+        'index
+        '
+        Me.index.HeaderText = "index"
+        Me.index.Name = "index"
+        Me.index.ReadOnly = True
+        Me.index.Visible = False
+        '
+        'ID
+        '
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        Me.ID.DefaultCellStyle = DataGridViewCellStyle1
+        Me.ID.HeaderText = "ID"
+        Me.ID.Name = "ID"
+        Me.ID.ReadOnly = True
+        Me.ID.Width = 30
+        '
+        'Ware
+        '
+        Me.Ware.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.Ware.HeaderText = "Ware"
+        Me.Ware.Name = "Ware"
+        Me.Ware.ReadOnly = True
+        '
+        'Timer
+        '
+        Me.Timer.Enabled = True
+        Me.Timer.Interval = 1000
+        '
+        'usrCntlATLAS_NCTS_Positionen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.pnl)
+        Me.Name = "usrCntlATLAS_NCTS_Positionen"
+        Me.Size = New System.Drawing.Size(928, 501)
+        Me.pnl.ResumeLayout(False)
+        Me.MyPanel1.ResumeLayout(False)
+        CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents btn As System.Windows.Forms.Button
+    Friend WithEvents dgvPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Timer As System.Windows.Forms.Timer
+    Friend WithEvents index As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents ID As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents Ware As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents Button2 As Button
+End Class
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.resx b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.resx
new file mode 100644
index 00000000..4aeef76c
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.resx
@@ -0,0 +1,132 @@
+<?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>
+  <metadata name="index.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="ID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Ware.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>
\ No newline at end of file
diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.vb
new file mode 100644
index 00000000..caecf059
--- /dev/null
+++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.vb
@@ -0,0 +1,312 @@
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrCntlModaltrans_NCTS_Positionen
+
+    Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
+    Dim POS As New List(Of usrCntlModaltrans_NCTS_Position)
+    Dim sectionChangeBLOCK = False
+    Dim gesRohmasse = 0
+    Dim gesPackstuecke = 0
+    Event RohmasseChanged(gesRohmasse As Double, gesPackstuecke As Double)
+    Event PosAnzChanged(anzahlPos As Double)
+
+    Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
+        InitializeComponent()
+        Me.NCTS_TR = NCTS_TR
+    End Sub
+
+    Public Sub setValues_TR(NCTS_POS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
+        If NCTS_POS Is Nothing Then Exit Sub
+        POS.Clear()
+
+        For Each p In NCTS_POS.goods
+            addItem_TR(p)
+        Next
+        MyPanel2.Controls.Clear()
+        MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
+    End Sub
+
+
+    Sub initListBox(Optional selectedIndex = -1)
+        If dgvPositionen.ColumnCount <= 0 Then Exit Sub
+        If selectedIndex >= 0 Then sectionChangeBLOCK = True
+        Dim cnt As Integer = 1
+        dgvPositionen.Rows.Clear()
+        For Each p In POS
+            p.lblPosNr.Text = cnt
+            dgvPositionen.Rows.Add(POS.IndexOf(p), cnt, p.txtWarenbezeichnung.Text)
+            cnt += 1
+        Next
+        If selectedIndex >= 0 Then
+            '   MyListBox1.SetSelected(selectedIndex, True)
+            '  sectionChangeBLOCK = False
+        End If
+    End Sub
+
+    Private Sub dgvPositionen_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvPositionen.KeyDown
+        If e.KeyCode = Keys.Delete Then
+            removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
+        End If
+    End Sub
+
+
+    Private Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles dgvPositionen.SelectionChanged
+        Try
+
+            If sectionChangeBLOCK Then Exit Sub
+            MyPanel2.Controls.Clear()
+            If dgvPositionen.SelectedRows.Count > 0 Then
+                MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value))
+                POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
+            End If
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub usrCntlATLAS_NCTS_Position_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+        If e.Control = True Then
+            If e.KeyCode = Keys.Oemplus Then addItem()
+            If e.KeyCode = Keys.OemMinus Then
+                If dgvPositionen.SelectedRows.Count > 0 Then
+                    removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
+                End If
+            End If
+
+        End If
+    End Sub
+
+
+
+    Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
+        Try
+            If keyData = (Keys.Control Or Keys.Add) Then
+                'RaiseEvent a() : Return True
+                addItem()
+                Return True
+            ElseIf keyData = (Keys.Control Or Keys.Subtract) Then
+                'RaiseEvent REMOVE(ID) : Return True
+                removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
+                Return True
+            ElseIf keyData = Keys.PageUp Then
+                'RaiseEvent PREV_POS() : Return True
+                PREV_POS()
+                Return True
+            ElseIf keyData = Keys.PageDown Then
+                'RaiseEvent NEXT_POS() : Return True
+                NEXT_POS()
+                Return True
+            End If
+        Catch ex As Exception
+        End Try
+        Return False
+    End Function
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        addItem()
+    End Sub
+
+    Function duplicateItem() As usrCntlModaltrans_NCTS_Position
+        If dgvPositionen.SelectedRows.Count > 0 Then
+
+
+            MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value))
+
+            Dim u As usrCntlModaltrans_NCTS_Position = POS(dgvPositionen.SelectedRows(0).Cells("index").Value) '.CreateCopy(New usrCntlATLAS_NCTS_Position))
+
+
+            AddHandler u.RohmasseChanged, Sub(r, pk)
+                                              gesRohmasse = 0
+                                              gesPackstuecke = 0
+                                              For Each p As usrCntlModaltrans_NCTS_Position In POS
+                                                  gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
+                                                  For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
+                                                      gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
+                                                  Next
+                                              Next
+                                              RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
+                                          End Sub
+            u.Dock = DockStyle.Fill
+            POS.Add(u)
+            initListBox()
+            dgvPositionen.ClearSelection()
+            If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
+            RaiseEvent PosAnzChanged(POS.Count)
+            Return u
+        End If
+    End Function
+
+
+    Function addItem(Optional POSTMP As cOregonNCTs_GoodsAttribute = Nothing) As usrCntlModaltrans_NCTS_Position
+        Dim u = New usrCntlModaltrans_NCTS_Position(POS.Count, POSTMP)
+
+        AddHandler u.RohmasseChanged, Sub(r, pk)
+                                          gesRohmasse = 0
+                                          gesPackstuecke = 0
+                                          For Each p As usrCntlModaltrans_NCTS_Position In POS
+                                              gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
+                                              For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
+                                                  gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
+                                              Next
+                                          Next
+                                          RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
+                                      End Sub
+        u.Dock = DockStyle.Fill
+
+        POS.Add(u)
+        initListBox()
+        dgvPositionen.ClearSelection()
+        If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
+        RaiseEvent PosAnzChanged(POS.Count)
+        Return u
+    End Function
+
+
+    Function addItem_TR(Optional POSTMP As cOregonNCTs_GoodsAttribute = Nothing) As usrCntlModaltrans_NCTS_Position '
+        Dim u = New usrCntlModaltrans_NCTS_Position(POS.Count, POSTMP)
+
+        AddHandler u.RohmasseChanged, Sub(r, pk)
+                                          gesRohmasse = 0
+                                          gesPackstuecke = 0
+                                          For Each p As usrCntlModaltrans_NCTS_Position In POS
+                                              gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
+                                              For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
+                                                  gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
+                                              Next
+                                          Next
+                                          RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
+                                      End Sub
+        u.Dock = DockStyle.Fill
+
+        POS.Add(u)
+        initListBox()
+        dgvPositionen.ClearSelection()
+        If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
+        RaiseEvent PosAnzChanged(POS.Count)
+        Return u
+    End Function
+
+
+    Sub removeItem(index)
+        If index < 0 Then Exit Sub
+        'If index < 0 Then Exit Sub
+        If dgvPositionen.Rows.Count > index Then
+            If vbYes = MsgBox("Möchten Sie die Position wirklich löschen?", vbYesNoCancel) Then
+                dgvPositionen.ClearSelection()
+                If POS.Count > index Then POS.RemoveAt(index)
+                initListBox()
+                If dgvPositionen.Rows.Count > index Then
+                    dgvPositionen.Rows(index).Selected = True 'SetSelected(index, True)
+                ElseIf dgvPositionen.Rows.Count > 0 Then
+                    dgvPositionen.Rows(0).Selected = True
+                End If
+            End If
+        End If
+        RaiseEvent PosAnzChanged(POS.Count)
+    End Sub
+
+    Sub NEXT_POS()
+        If dgvPositionen.SelectedRows.Count > 0 Then
+            If dgvPositionen.RowCount > dgvPositionen.SelectedRows(0).Index + 1 Then
+                Dim i = dgvPositionen.SelectedRows(0).Index
+                dgvPositionen.ClearSelection()
+                dgvPositionen.Rows(i + 1).Selected = True
+            End If
+        End If
+    End Sub
+    Sub PREV_POS()
+        If dgvPositionen.SelectedRows.Count > 0 Then
+            If dgvPositionen.SelectedRows(0).Index > 0 Then
+                Dim i = dgvPositionen.SelectedRows(0).Index
+                dgvPositionen.ClearSelection()
+                dgvPositionen.Rows(i - 1).Selected = True
+            End If
+        End If
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If dgvPositionen.SelectedRows.Count > 0 Then
+            removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
+        End If
+    End Sub
+
+    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
+        refreshDGV()
+    End Sub
+
+
+    Public Sub refreshDGV()
+        With dgvPositionen
+            If dgvPositionen.ColumnCount = 0 Then Exit Sub
+            For Each r As DataGridViewRow In .Rows
+                Dim index = r.Cells("index").Value
+                If POS.Count > index Then
+                    r.Cells("Ware").Value = POS(index).txtWarenbezeichnung.Text
+                End If
+            Next
+        End With
+    End Sub
+
+
+
+
+
+    Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
+        NCTS.goods.Clear()
+
+        Dim cnt As Integer = 1
+        For Each P In POS
+            Dim POSITION As New VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute
+
+            'POSITION.nctsWP_Id As Integer
+            '  POSITION.nctsWP_NctsId = NCTS.ncts_Id
+            POSITION.line_no = cnt
+            POSITION.commodity = P.txtWarenbezeichnung.Text
+            POSITION.invoice_amount = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
+            POSITION.invoice_curr = cProgramFunctions.isLeerNothing(P.cboWaehrung._value)
+            POSITION.net_wg = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text)
+            POSITION.brut_wg = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text)
+            POSITION.origin_country_id = cProgramFunctions.isLeerNothing(P.sbVersendungsLand._value)
+            POSITION.preferential_country_id = cProgramFunctions.isLeerNothing(P.sbBestimmungsland._value)
+
+
+            POSITION.decl_PAckattributes = New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute)
+            For Each r As DataGridViewRow In P.dgvPackstuecke.Rows
+                Dim Pk As New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute
+                Pk.pack_type = r.Cells("PkCode").Value
+                Pk.pack_count = r.Cells("Anzahl").Value
+                Pk.notes = r.Cells("Marke").Value
+                POSITION.decl_PAckattributes.Add(Pk)
+            Next
+
+            POSITION.sender_name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.kdFirma.Text)
+            POSITION.sender_address = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtStrasse.Text)
+            POSITION.sender_postcode = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtPlz.Text)
+            POSITION.sender_city_name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtOrt.Text)
+            POSITION.sender_country_id = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.sbLand._value)
+            POSITION.sender_eori_code = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORI.Text)
+
+            POSITION.consignee_name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.kdFirma.Text)
+            POSITION.consignee_address = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtStrasse.Text)
+            POSITION.consignee_postcode = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtPlz.Text)
+            POSITION.consignee_city_name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtOrt.Text)
+            POSITION.consignee_country_id = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.sbLand._value)
+            POSITION.consignee_country_id = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORI.Text)
+
+            NCTS.goods.Add(POSITION)
+            cnt += 1
+        Next
+
+    End Sub
+
+
+    Private Sub MyPanel2_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyPanel2.ControlAdded
+        Try : DirectCast(e.Control, usrCntlATLAS_NCTS_Position).txtWarenbezeichnung.Focus() : Catch : End Try
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        duplicateItem()
+    End Sub
+End Class
+
diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
index 4abb3104..054d0ee9 100644
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
@@ -22,18 +22,20 @@ Partial Class frmMitarbeitersuche
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMitarbeitersuche))
         Me.pnlSrch = New System.Windows.Forms.Panel()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.btnClose = New System.Windows.Forms.Button()
         Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.pnlMain = New System.Windows.Forms.Panel()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnSettings = New System.Windows.Forms.Button()
         Me.PictureBox9 = New System.Windows.Forms.PictureBox()
         Me.lblTimasSaldo = New System.Windows.Forms.Label()
         Me.lblTimasZeiten = New System.Windows.Forms.Label()
         Me.pnlWohnadresse = New System.Windows.Forms.Panel()
-        Me.btnSettings = New System.Windows.Forms.Button()
         Me.lblWohnadresse = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.lblSpitzname = New System.Windows.Forms.Label()
@@ -56,8 +58,7 @@ Partial Class frmMitarbeitersuche
         Me.pnlGeburtstag = New System.Windows.Forms.Panel()
         Me.lblGeburtstag = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
         Me.lblPosition = New System.Windows.Forms.Label()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -66,7 +67,7 @@ Partial Class frmMitarbeitersuche
         Me.lblFirma = New System.Windows.Forms.Label()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
         Me.pnlSrch.SuspendLayout()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlMain.SuspendLayout()
@@ -137,6 +138,32 @@ Partial Class frmMitarbeitersuche
         Me.PictureBox2.TabIndex = 18
         Me.PictureBox2.TabStop = False
         '
+        'sbMitarbeiter
+        '
+        Me.sbMitarbeiter._allowFreitext = False
+        Me.sbMitarbeiter._AllowSetValue = False
+        Me.sbMitarbeiter._allowSpaceAsSplitter = True
+        Me.sbMitarbeiter._autoSizeGross = False
+        Me.sbMitarbeiter._hideIfListEmpty = True
+        Me.sbMitarbeiter._value = Nothing
+        Me.sbMitarbeiter.conn_art = "FMZOLL"
+        Me.sbMitarbeiter.dgvpos = "LEFT"
+        Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
+        Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+        Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
+        Me.sbMitarbeiter.key_visible = False
+        Me.sbMitarbeiter.KEYPARAM = Nothing
+        Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
+        Me.sbMitarbeiter.Name = "sbMitarbeiter"
+        Me.sbMitarbeiter.searchActive = True
+        Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
+        Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
+        Me.sbMitarbeiter.SQL_SELECT = Nothing
+        Me.sbMitarbeiter.SQL_WHERE = Nothing
+        Me.sbMitarbeiter.SQL_WhereParamList = Nothing
+        Me.sbMitarbeiter.TabIndex = 0
+        Me.sbMitarbeiter.usrcntl = Nothing
+        '
         'pnlMain
         '
         Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -178,6 +205,21 @@ Partial Class frmMitarbeitersuche
         Me.pnl.Size = New System.Drawing.Size(774, 437)
         Me.pnl.TabIndex = 24
         '
+        'btnSettings
+        '
+        Me.btnSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSettings.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.wheel_s
+        Me.btnSettings.ImageAlign = System.Drawing.ContentAlignment.TopLeft
+        Me.btnSettings.Location = New System.Drawing.Point(650, 386)
+        Me.btnSettings.Name = "btnSettings"
+        Me.btnSettings.Size = New System.Drawing.Size(125, 35)
+        Me.btnSettings.TabIndex = 29
+        Me.btnSettings.Text = "Einstellungen"
+        Me.btnSettings.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSettings.UseVisualStyleBackColor = True
+        Me.btnSettings.Visible = False
+        '
         'PictureBox9
         '
         Me.PictureBox9.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
@@ -193,7 +235,7 @@ Partial Class frmMitarbeitersuche
         Me.lblTimasSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
         Me.lblTimasSaldo.Location = New System.Drawing.Point(45, 396)
         Me.lblTimasSaldo.Name = "lblTimasSaldo"
-        Me.lblTimasSaldo.Size = New System.Drawing.Size(157, 24)
+        Me.lblTimasSaldo.Size = New System.Drawing.Size(152, 24)
         Me.lblTimasSaldo.TabIndex = 30
         Me.lblTimasSaldo.Visible = False
         '
@@ -215,21 +257,6 @@ Partial Class frmMitarbeitersuche
         Me.pnlWohnadresse.Size = New System.Drawing.Size(701, 34)
         Me.pnlWohnadresse.TabIndex = 20
         '
-        'btnSettings
-        '
-        Me.btnSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnSettings.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.wheel_s
-        Me.btnSettings.ImageAlign = System.Drawing.ContentAlignment.TopLeft
-        Me.btnSettings.Location = New System.Drawing.Point(650, 386)
-        Me.btnSettings.Name = "btnSettings"
-        Me.btnSettings.Size = New System.Drawing.Size(125, 35)
-        Me.btnSettings.TabIndex = 29
-        Me.btnSettings.Text = "Einstellungen"
-        Me.btnSettings.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnSettings.UseVisualStyleBackColor = True
-        Me.btnSettings.Visible = False
-        '
         'lblWohnadresse
         '
         Me.lblWohnadresse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
@@ -449,14 +476,6 @@ Partial Class frmMitarbeitersuche
         Me.PictureBox1.TabIndex = 13
         Me.PictureBox1.TabStop = False
         '
-        'Panel1
-        '
-        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Panel1.Location = New System.Drawing.Point(214, 230)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(553, 1)
-        Me.Panel1.TabIndex = 29
-        '
         'MyPanel1
         '
         Me.MyPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer))
@@ -561,31 +580,13 @@ Partial Class frmMitarbeitersuche
         Me.Label3.Text = "Niederlassung:"
         Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
-        'sbMitarbeiter
+        'Panel1
         '
-        Me.sbMitarbeiter._allowFreitext = False
-        Me.sbMitarbeiter._AllowSetValue = False
-        Me.sbMitarbeiter._allowSpaceAsSplitter = True
-        Me.sbMitarbeiter._autoSizeGross = False
-        Me.sbMitarbeiter._hideIfListEmpty = True
-        Me.sbMitarbeiter._value = Nothing
-        Me.sbMitarbeiter.conn_art = "FMZOLL"
-        Me.sbMitarbeiter.dgvpos = "LEFT"
-        Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
-        Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
-        Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
-        Me.sbMitarbeiter.key_visible = False
-        Me.sbMitarbeiter.KEYPARAM = Nothing
-        Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
-        Me.sbMitarbeiter.Name = "sbMitarbeiter"
-        Me.sbMitarbeiter.searchActive = True
-        Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
-        Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
-        Me.sbMitarbeiter.SQL_SELECT = Nothing
-        Me.sbMitarbeiter.SQL_WHERE = Nothing
-        Me.sbMitarbeiter.SQL_WhereParamList = Nothing
-        Me.sbMitarbeiter.TabIndex = 0
-        Me.sbMitarbeiter.usrcntl = Nothing
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel1.Location = New System.Drawing.Point(214, 230)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(553, 1)
+        Me.Panel1.TabIndex = 29
         '
         'frmMitarbeitersuche
         '
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cOregonNCTSDeclarations.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cOregonNCTSDeclarations.vb
index 05221b09..6ebae8d8 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cOregonNCTSDeclarations.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cOregonNCTSDeclarations.vb
@@ -2,20 +2,15 @@
 Imports System.Drawing
 Imports System.Net
 Imports System.Reflection
-Imports System.Security
-Imports System.Security.Cryptography
+
 Imports System.Windows.Forms
-Imports System.Windows.Forms.VisualStyles.VisualStyleElement
-Imports Spire.Pdf.General.Paper.Uof
-Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
-Imports VERAG_PROG_ALLGEMEIN.cOregonNCTSDeclarations
-Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat
+
+
 
 
 Public Class cOregonNCTs_DeclarationData
 
     Public Property id As Integer
-    Public Property AvisoId As Integer
     Public Property auto_send As Boolean
     Public Property badge_code As String
     Public Property service_code As String
@@ -91,6 +86,12 @@ Public Class cOregonNCTs_DeclarationData
     Public Property guarantee_code As Integer
     Public Property guarantee_reference As String
     Public Property status As String
+    Public Property created As DateTime
+    Public Property aviso_id As String
+    Property parties As New List(Of cOregonNCTs_PartiesAttribute)
+    Property traders As New List(Of cOregonNCTs_TraderAdditionsAttribute)
+    Property goods As New List(Of cOregonNCTs_GoodsAttribute)
+
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -99,7 +100,6 @@ Public Class cOregonNCTs_DeclarationData
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", AvisoId))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("auto_send", auto_send))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("badge_code", badge_code))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("service_code", service_code))
@@ -109,24 +109,27 @@ Public Class cOregonNCTs_DeclarationData
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ducr", ducr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mucr", mucr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ducr_part", ducr_part))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_eori", declarant_eori))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_name", declarant_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_address", declarant_address))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_city_name", declarant_city_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_country_id", declarant_country_id))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_postcode", declarant_postcode))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_rep", declarant_rep))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_EORI", carrier_eori))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("export_country_id", export_country_id))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_eori", consignor_eori))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_name", consignor_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_address", consignor_address))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_city_name", consignor_city_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_country_id", consignor_country_id))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_postcode", consignor_postcode))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("multiple_consignor", multiple_consignor))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("import_country_id", import_country_id))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_eori", consignee_eori))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_name", consignee_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_address", consignee_address))
@@ -134,32 +137,33 @@ Public Class cOregonNCTs_DeclarationData
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_country_id", consignee_country_id))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_postcode", consignee_postcode))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("multiple_consignee", multiple_consignee))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_amount", invoice_amount))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_curr", invoice_curr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_location", goods_location))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_transport_type", border_transport_type))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_vehicle_code", border_vehicle_code))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_vehicle_coun", border_vehicle_coun))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("inland_transport_type", inland_transport_type))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("container_no", container_no))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_EORI", carrier_eori))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_interested", gvms_interested))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("freight_amount", freight_amount))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("freight_curr", freight_curr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("payment_method", payment_method))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_eori", carrier_eori))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_name", carrier_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_address", carrier_address))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_city_name", carrier_city_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_country_id", carrier_country_id))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_postcode", carrier_postcode))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("total_packages", total_packages))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nature_of_transaction", nature_of_transaction))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("premises_code", premises_code))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("first_dan_no", first_dan_no))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("second_dan_no", second_dan_no))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("insurance_amount", insurance_amount))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("insurance_curr", insurance_curr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("other_amounts", other_amounts))
@@ -170,6 +174,7 @@ Public Class cOregonNCTs_DeclarationData
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("airfreight_cost", airfreight_cost))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vat_adjustment", vat_adjustment))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vat_adjustment_curr", vat_adjustment_curr))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_amount", discount_amount))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_curr", discount_curr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_rate", discount_rate))
@@ -179,7 +184,10 @@ Public Class cOregonNCTs_DeclarationData
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("arrival_transport_type", arrival_transport_type))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("guarantee_code", guarantee_code))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("guarantee_reference", guarantee_reference))
+
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("created", created))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aviso_id", aviso_id))
 
         Return list
     End Function
@@ -193,6 +201,45 @@ Public Class cOregonNCTs_DeclarationData
         LOAD()
     End Sub
 
+    Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cOregonNCTs_DeclarationData
+        Try
+            Dim NCTS As New cOregonNCTs_DeclarationData
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                ' 
+                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblOregonNCTS_DeclarationData WHERE commercial_ref Like '@bezugsNr' ", conn)
+                    cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In NCTS.getParameterList()
+                            Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(NCTS, Nothing)
+                            Else
+                                propInfo.SetValue(NCTS, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        If loadALL Then
+                            NCTS.LOAD_Goods()
+                            NCTS.LOAD_Parties()
+                            NCTS.LOAD_Traders()
+                        End If
+
+                        dr.Close()
+                        Return NCTS
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return Nothing
+    End Function
+
     Public Function UPDATE_STATUS(status) As Boolean
         Me.status = status
         Return Me.SAVE
@@ -213,6 +260,160 @@ Public Class cOregonNCTs_DeclarationData
         Return id > 0
     End Function
 
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblOregonNCTS_DeclarationData  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+    '##
+
+    Public Function SAVE_ALL(Optional errHinweis = "") As Boolean
+        If Not SAVE(errHinweis) Then Return False
+        If Not SAVE_GOODS() Or Not SAVE_Parties() Or Not SAVE_Traders() Then Return False
+
+        Return True
+    End Function
+
+    Public Function LOAD(Optional loadALL As Boolean = True) As Boolean
+        Try
+            LOAD = False
+            If loadALL Then
+                parties.Clear()
+                goods.Clear()
+                traders.Clear()
+            End If
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_DeclarationData WHERE Id=@Id  ", conn)
+                    cmd.Parameters.AddWithValue("@Id", id)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        If loadALL Then
+                            LOAD_Goods()
+                            LOAD_Parties()
+                            LOAD_Traders()
+                        End If
+                        LOAD = True
+                    End If
+                    dr.Close()
+
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return LOAD
+    End Function
+
+    Public Sub LOAD_Parties()
+        Try
+            parties.Clear()
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE declarationdata_id=@id  ", conn)
+                    cmd.Parameters.AddWithValue("@Id", Me.id)
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim l As New cOregonNCTs_PartiesAttribute
+                        For Each i In l.getParameterList()
+                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
+                            If dr.Item(i.Text) Is DBNull.Value Then
+                                propInfo.SetValue(l, Nothing)
+                            Else
+                                propInfo.SetValue(l, dr.Item(i.Text))
+                            End If
+                        Next
+                        parties.Add(l)
+                    End While
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+    Public Sub LOAD_Traders()
+        Try
+            traders.Clear()
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE declarationdata_id=@Id  ", conn)
+                    cmd.Parameters.AddWithValue("@Id", Me.id)
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim l As New cOregonNCTs_TraderAdditionsAttribute()
+                        For Each i In l.getParameterList()
+                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
+                            If dr.Item(i.Text) Is DBNull.Value Then
+                                propInfo.SetValue(l, Nothing)
+                            Else
+                                propInfo.SetValue(l, dr.Item(i.Text))
+                            End If
+                        Next
+
+                        traders.Add(l)
+                    End While
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+    Public Sub LOAD_Goods()
+        Try
+            traders.Clear()
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE declarationdata_id=@Id  ", conn)
+                    cmd.Parameters.AddWithValue("@Id", Me.id)
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim l As New cOregonNCTs_GoodsAttribute()
+                        For Each i In l.getParameterList()
+                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
+                            If dr.Item(i.Text) Is DBNull.Value Then
+                                propInfo.SetValue(l, Nothing)
+                            Else
+                                propInfo.SetValue(l, dr.Item(i.Text))
+                            End If
+                        Next
+
+                        goods.Add(l)
+                    End While
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+
+
+    '##
     Public Function getUpdateCmd() As String
         Try
             Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
@@ -233,58 +434,82 @@ Public Class cOregonNCTs_DeclarationData
     End Function
 
 
-    Public Function getInsertCmd() As String
-        Try
-            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
-            Dim str As String = ""
-            Dim values As String = ""
-            For Each i In list
-                If Not i.isPrimaryParam Then
-                    str &= "[" & i.Text & "],"
-                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+    Public Function SAVE_GOODS() As Boolean
+
+        If DELETE_Goods() Then
+
+            For Each p In goods
+                p.declarationdata_id = id
+                If p.INSERT() Then
+                    p.INSERT_WarenpositionPackstuecke(p.id, Me.id)
+
+                Else
+                    Return False
                 End If
             Next
-            str = str.Substring(0, str.Length - 1) 'wg. ','
-            values = values.Substring(0, values.Length - 1) 'wg. ','
-            Return (" INSERT INTO tblOregonNCTS_DeclarationData  (" & str & ") VALUES(" & values & ")  ")
-        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
-        End Try
-        Return ""
+        Else
+            Return False
+        End If
+
+        Return True
     End Function
 
 
-    Public Sub LOAD()
-        Try
-            hasEntry = False
-            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_DeclarationData WHERE Id=@Id  ", conn)
-                    cmd.Parameters.AddWithValue("@Id", id)
-                    Dim dr = cmd.ExecuteReader()
-                    If dr.Read Then
-                        For Each li In getParameterList()
-                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
 
-                            If dr.Item(li.Text) Is DBNull.Value Then
-                                propInfo.SetValue(Me, Nothing)
-                            Else
-                                propInfo.SetValue(Me, dr.Item(li.Text))
-                            End If
+    Public Function SAVE_Parties() As Boolean
+
+        If DELETE_parties() Then
+
+            For Each p In parties
+                p.declarationdata_id = id
+                If Not p.INSERT() Then
+                    Return False
+                End If
+            Next
+        Else
+            Return False
+        End If
+        Return True
+    End Function
+
+    Public Function SAVE_Traders() As Boolean
+
+        If DELETE_parties() Then
+
+            For Each p In traders
+                p.declarationdata_id = id
+                If Not p.INSERT() Then
+                    Return False
+                End If
+            Next
+        Else
+            Return False
+        End If
+        Return True
+    End Function
+
+    Function DELETE_Goods() As Boolean
+        Dim sqlstr = " DELETE FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE declarationdata_id=" & Me.id & " "
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
+
+    Function DELETE_traders() As Boolean
+        Dim sqlstr = " DELETE FROM [tblOregonNCTS_Declarations_TraderAdditionsAttribute] WHERE declarationdata_id=" & Me.id & " "
+        '  MsgBox(sqlstr)
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
+
+    Function DELETE_parties() As Boolean
+        Dim sqlstr = " DELETE FROM [tblOregonNCTS_Declarations_PartiesAttribute] WHERE declarationdata_id=" & Me.id & " "
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
 
-                        Next
-                        hasEntry = True
-                    End If
-                    dr.Close()
-                End Using
-            End Using
-        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
-        End Try
-    End Sub
 End Class
 
+
 Public Class cOregonNCTs_GoodsAttribute
     Public Property id As Integer
+    Public Property line_no As Integer
     Public Property commodity As String
     Public Property gtip_code As String
     Public Property gtip_language As String
@@ -319,7 +544,8 @@ Public Class cOregonNCTs_GoodsAttribute
     Public Property third_quantity_type As String
     Public Property third_quantity As String
     Public Property supplementary_unit As String
-    Public Property declarationDataID As Integer
+    Public Property declarationdata_id As Integer
+    Property decl_PAckattributes As New List(Of cOregonNCTs_PacksAttribute)
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -328,6 +554,7 @@ Public Class cOregonNCTs_GoodsAttribute
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("line_no", line_no))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("commodity", commodity))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gtip_code", gtip_code))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gtip_language", gtip_language))
@@ -362,7 +589,7 @@ Public Class cOregonNCTs_GoodsAttribute
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("third_quantity_type", third_quantity_type))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("third_quantity", third_quantity))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("supplementary_unit", supplementary_unit))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationDataID", declarationDataID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationdata_id", declarationdata_id))
 
         Return list
     End Function
@@ -371,47 +598,18 @@ Public Class cOregonNCTs_GoodsAttribute
 
     End Sub
 
-    Sub New(Id)
-        Me.id = Id
+    Sub New(id)
+        Me.id = id
         LOAD()
     End Sub
 
+    '##########################################################################
 
-
-    Public Function SAVE(Optional errHinweis = "") As Boolean
+    Public Function INSERT() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
-
-        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WITH(updlock,serializable) WHERE Id=@Id) " &
-                           " BEGIN " & getUpdateCmd() & " END " &
-                           " Else " &
-                           " BEGIN " & getInsertCmd() & " END " &
-                            " commit tran "
-
-        Dim IdTMP = id
-        IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
-        If _id <= 0 Then id = IdTMP
-        Return id > 0
-    End Function
-
-    Public Function getUpdateCmd() As String
-        Try
-            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
-
-            Dim str As String = ""
-            For Each i In list
-                If Not i.isPrimaryParam Then
-                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
-                End If
-            Next
-            str = str.Substring(0, str.Length - 1) 'wg. ','
-            Return (" UPDATE [tblOregonNCTS_Declarations_GoodsAttribute] SET " & str & " WHERE Id=@Id ")
-
-        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
-        End Try
-        Return ""
-    End Function
-
+        declarationdata_id = SQL.doSQLVarListID(declarationdata_id, getInsertCmd, "FMZOLL", , list)
+            Return declarationdata_id > 0
+        End Function
 
     Public Function getInsertCmd() As String
         Try
@@ -426,19 +624,18 @@ Public Class cOregonNCTs_GoodsAttribute
             Next
             str = str.Substring(0, str.Length - 1) 'wg. ','
             values = values.Substring(0, values.Length - 1) 'wg. ','
-            Return (" INSERT INTO tblOregonNCTS_Declarations_GoodsAttribute  (" & str & ") VALUES(" & values & ")  ")
+            Return (" INSERT INTO tblOregonNCTS_Declarations_GoodsAttribute (" & str & ") VALUES(" & values & ")  ")
         Catch ex As Exception
             MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
         End Try
         Return ""
     End Function
 
-
     Public Sub LOAD()
         Try
             hasEntry = False
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE Id=@Id  ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE Id=@Id", conn)
                     cmd.Parameters.AddWithValue("@Id", id)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
@@ -462,6 +659,59 @@ Public Class cOregonNCTs_GoodsAttribute
         End Try
     End Sub
 
+
+    Public Sub LOAD_PackAttributes()
+        Try
+            decl_PAckattributes.Clear()
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PacksAttribute WHERE goods_attribute_Posid=@Id  ", conn)
+                    cmd.Parameters.AddWithValue("@Id", Me.id)
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim l As New cOregonNCTs_PacksAttribute()
+                        For Each i In l.getParameterList()
+                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
+                            If dr.Item(i.Text) Is DBNull.Value Then
+                                propInfo.SetValue(l, Nothing)
+                            Else
+                                propInfo.SetValue(l, dr.Item(i.Text))
+                            End If
+                        Next
+                        decl_PAckattributes.Add(l)
+                    End While
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+    Public Function INSERT_WarenpositionPackstuecke(wp_id, id) As Boolean
+
+        For Each p In decl_PAckattributes
+            p.goods_attribute_Posid = wp_id
+            p.goods_attribute_id = id
+            If Not p.INSERT() Then
+                Return False
+            End If
+        Next
+
+        Return True
+    End Function
+
+    Public Function DELETE_PackAttributes() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        Dim sqlstr = " DELETE FROM [tblOregonNCTS_Declarations_PacksAttribute] WHERE goods_attribute_id=" & Me.declarationdata_id & " "
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
+
+
+
+
+    '#######################################################################
+
+
+
     Shared Sub LOAD_LIST_ByNCTS(ByRef GA_LIST As List(Of cOregonNCTs_GoodsAttribute), tco_nctsId As Integer)
         If GA_LIST Is Nothing Then GA_LIST = New List(Of cOregonNCTs_GoodsAttribute)
         GA_LIST.Clear()
@@ -477,6 +727,7 @@ Public Class cOregonNCTs_PacksAttribute
 
     Public Property Id As Integer
     Public Property goods_attribute_id As Integer
+    Public Property goods_attribute_Posid As Integer
     Public Property pack_count As Integer
     Public Property pack_type As String
     Public Property notes As String
@@ -490,6 +741,7 @@ Public Class cOregonNCTs_PacksAttribute
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", Id, , True, True))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_Posid", goods_attribute_Posid))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pack_count", pack_count))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pack_type", pack_type))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("notes", notes))
@@ -506,6 +758,12 @@ Public Class cOregonNCTs_PacksAttribute
         LOAD()
     End Sub
 
+    Public Function INSERT() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        goods_attribute_Posid = SQL.doSQLVarListID(goods_attribute_Posid, getInsertCmd(), "FMZOLL", , list)
+        Return goods_attribute_Posid > 0
+    End Function
+
     Public Function SAVE(Optional errHinweis = "") As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
@@ -864,9 +1122,7 @@ End Class
 Public Class cOregonNCTs_AdditionalCodesAttribute
 
     Public Property id As Integer
-
     Public Property goods_attribute_id As Integer
-
     Public Property code As String
     Public Property notes As String
 
@@ -989,7 +1245,6 @@ Public Class cOregonNCTs_AdditionalCodesAttribute
 End Class
 
 
-
 Public Class cOregonNCTs_PartiesAttribute
 
     Public Property id As Integer
@@ -1017,11 +1272,18 @@ Public Class cOregonNCTs_PartiesAttribute
 
     End Sub
 
-    Sub New(Id)
+    Sub New(Id, decId)
         Me.id = Id
+        Me.declarationdata_id = decId
         LOAD()
     End Sub
 
+    Public Function INSERT() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        declarationdata_id = SQL.doSQLVarListID(declarationdata_id, getInsertCmd, "FMZOLL", , list)
+        Return declarationdata_id > 0
+    End Function
+
     Public Function SAVE(Optional errHinweis = "") As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
@@ -1082,8 +1344,9 @@ Public Class cOregonNCTs_PartiesAttribute
         Try
             hasEntry = False
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE Id=@Id  ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE Id=@Id AND declarationdata_id=@decId ", conn)
                     cmd.Parameters.AddWithValue("@Id", id)
+                    cmd.Parameters.AddWithValue("@decId", declarationdata_id)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
                         For Each li In getParameterList()
@@ -1106,12 +1369,12 @@ Public Class cOregonNCTs_PartiesAttribute
         End Try
     End Sub
 
-    Shared Sub LOAD_LIST_ByNCTS(ByRef PA_LIST As List(Of cOregonNCTs_PartiesAttribute), tco_nctsId As Integer)
+    Shared Sub LOAD_LIST_ByNCTS(ByRef PA_LIST As List(Of cOregonNCTs_PartiesAttribute), declarationdata_id As Integer)
         If PA_LIST Is Nothing Then PA_LIST = New List(Of cOregonNCTs_PartiesAttribute)
         PA_LIST.Clear()
         Dim SQL As New SQL
-        For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE declarationdata_id=" & tco_nctsId, "FMZOLL").Rows
-            PA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute(r("id")))
+        For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE declarationdata_id=" & declarationdata_id, "FMZOLL").Rows
+            PA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute(r("id"), declarationdata_id))
         Next
     End Sub
 
@@ -1120,7 +1383,6 @@ End Class
 Public Class cOregonNCTs_TraderAdditionsAttribute
 
     Public Property id As Integer
-
     Public Property declarationdata_id As Integer
     Public Property code As String
     Public Property amount As Integer
@@ -1148,11 +1410,19 @@ Public Class cOregonNCTs_TraderAdditionsAttribute
 
     End Sub
 
-    Sub New(Id)
+    Sub New(Id, decId)
         Me.id = Id
+        Me.declarationdata_id = decId
         LOAD()
     End Sub
 
+    Public Function INSERT() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        declarationdata_id = SQL.doSQLVarListID(declarationdata_id, getInsertCmd, "FMZOLL", , list)
+        Return declarationdata_id > 0
+    End Function
+
+
     Public Function SAVE(Optional errHinweis = "") As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
@@ -1213,8 +1483,9 @@ Public Class cOregonNCTs_TraderAdditionsAttribute
         Try
             hasEntry = False
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE Id=@Id  ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE Id=@Id And declarationdata_id=@decId   ", conn)
                     cmd.Parameters.AddWithValue("@Id", id)
+                    cmd.Parameters.AddWithValue("@decId", declarationdata_id)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
                         For Each li In getParameterList()
@@ -1237,12 +1508,12 @@ Public Class cOregonNCTs_TraderAdditionsAttribute
         End Try
     End Sub
 
-    Shared Sub LOAD_LIST_ByNCTS(ByRef TAA_LIST As List(Of cOregonNCTs_TraderAdditionsAttribute), tco_nctsId As Integer)
+    Shared Sub LOAD_LIST_ByNCTS(ByRef TAA_LIST As List(Of cOregonNCTs_TraderAdditionsAttribute), declarationdata_id As Integer)
         If TAA_LIST Is Nothing Then TAA_LIST = New List(Of cOregonNCTs_TraderAdditionsAttribute)
         TAA_LIST.Clear()
         Dim SQL As New SQL
-        For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE declarationdata_id=" & tco_nctsId, "FMZOLL").Rows
-            TAA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute(r("id")))
+        For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE declarationdata_id=" & declarationdata_id, "FMZOLL").Rows
+            TAA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute(r("id"), declarationdata_id))
         Next
     End Sub
 End Class