Creditsafe_API

2023-03-28 16:48:20 +02:00
parent 5d088a3d87
commit ad459e0765
22 changed files with 1479 additions and 494 deletions
--- a/SDL/App.config
+++ b/SDL/App.config
@@ -33,7 +33,7 @@
      </dependentAssembly>
      <dependentAssembly>
        <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-12.0.0.0" newVersion="12.0.0.0" />
+        <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
      </dependentAssembly>
      <dependentAssembly>
        <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
--- a/SDL/Creditsafe/usrcntlCreditsafe.Designer.vb
+++ b/SDL/Creditsafe/usrcntlCreditsafe.Designer.vb
@@ -0,0 +1,169 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class usrcntlCreditsafe
    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()
        Me.btnSearch = New System.Windows.Forms.Button()
        Me.lblUID = New System.Windows.Forms.Label()
        Me.txtUID = New System.Windows.Forms.TextBox()
        Me.txtFirma = New System.Windows.Forms.TextBox()
        Me.lblFirma = New System.Windows.Forms.Label()
        Me.lblLand = New System.Windows.Forms.Label()
        Me.lblWarning = New System.Windows.Forms.Label()
        Me.dgvCreditsafe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.btnUebernehmen = New System.Windows.Forms.Button()
        CType(Me.dgvCreditsafe, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'btnSearch
        '
        Me.btnSearch.Location = New System.Drawing.Point(14, 47)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.Size = New System.Drawing.Size(75, 23)
        Me.btnSearch.TabIndex = 4
        Me.btnSearch.Text = "Suche"
        Me.btnSearch.UseVisualStyleBackColor = True
        '
        'lblUID
        '
        Me.lblUID.AutoSize = True
        Me.lblUID.Location = New System.Drawing.Point(239, 19)
        Me.lblUID.Name = "lblUID"
        Me.lblUID.Size = New System.Drawing.Size(40, 13)
        Me.lblUID.TabIndex = 1
        Me.lblUID.Text = "UID-Nr"
        '
        'txtUID
        '
        Me.txtUID.Location = New System.Drawing.Point(295, 16)
        Me.txtUID.Name = "txtUID"
        Me.txtUID.Size = New System.Drawing.Size(100, 20)
        Me.txtUID.TabIndex = 2
        '
        'txtFirma
        '
        Me.txtFirma.Location = New System.Drawing.Point(67, 16)
        Me.txtFirma.Name = "txtFirma"
        Me.txtFirma.Size = New System.Drawing.Size(133, 20)
        Me.txtFirma.TabIndex = 1
        '
        'lblFirma
        '
        Me.lblFirma.AutoSize = True
        Me.lblFirma.Location = New System.Drawing.Point(11, 19)
        Me.lblFirma.Name = "lblFirma"
        Me.lblFirma.Size = New System.Drawing.Size(32, 13)
        Me.lblFirma.TabIndex = 3
        Me.lblFirma.Text = "Firma"
        '
        'lblLand
        '
        Me.lblLand.AutoSize = True
        Me.lblLand.Location = New System.Drawing.Point(415, 20)
        Me.lblLand.Name = "lblLand"
        Me.lblLand.Size = New System.Drawing.Size(31, 13)
        Me.lblLand.TabIndex = 5
        Me.lblLand.Text = "Land"
        '
        'lblWarning
        '
        Me.lblWarning.AutoSize = True
        Me.lblWarning.ForeColor = System.Drawing.Color.Red
        Me.lblWarning.Location = New System.Drawing.Point(117, 52)
        Me.lblWarning.Name = "lblWarning"
        Me.lblWarning.Size = New System.Drawing.Size(0, 13)
        Me.lblWarning.TabIndex = 8
        '
        'dgvCreditsafe
        '
        Me.dgvCreditsafe.AKTUALISIERUNGS_INTERVALL = -1
        Me.dgvCreditsafe.AllowUserToAddRows = False
        Me.dgvCreditsafe.AllowUserToDeleteRows = False
        Me.dgvCreditsafe.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgvCreditsafe.BackgroundColor = System.Drawing.Color.White
        Me.dgvCreditsafe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvCreditsafe.Location = New System.Drawing.Point(14, 82)
        Me.dgvCreditsafe.Name = "dgvCreditsafe"
        Me.dgvCreditsafe.ReadOnly = True
        Me.dgvCreditsafe.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvCreditsafe.Size = New System.Drawing.Size(969, 209)
        Me.dgvCreditsafe.TabIndex = 7
        '
        'cbxLand
        '
        Me.cbxLand._allowedValuesFreiText = Nothing
        Me.cbxLand._allowFreiText = False
        Me.cbxLand._value = ""
        Me.cbxLand.FormattingEnabled = True
        Me.cbxLand.Location = New System.Drawing.Point(471, 17)
        Me.cbxLand.Name = "cbxLand"
        Me.cbxLand.Size = New System.Drawing.Size(100, 21)
        Me.cbxLand.TabIndex = 3
        '
        'btnUebernehmen
        '
        Me.btnUebernehmen.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnUebernehmen.Location = New System.Drawing.Point(859, 14)
        Me.btnUebernehmen.Name = "btnUebernehmen"
        Me.btnUebernehmen.Size = New System.Drawing.Size(124, 23)
        Me.btnUebernehmen.TabIndex = 9
        Me.btnUebernehmen.Text = "Übernehmen"
        Me.btnUebernehmen.UseVisualStyleBackColor = True
        '
        'usrcntlCreditsafe
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.AutoScroll = True
        Me.Controls.Add(Me.btnUebernehmen)
        Me.Controls.Add(Me.lblWarning)
        Me.Controls.Add(Me.dgvCreditsafe)
        Me.Controls.Add(Me.cbxLand)
        Me.Controls.Add(Me.lblLand)
        Me.Controls.Add(Me.txtFirma)
        Me.Controls.Add(Me.lblFirma)
        Me.Controls.Add(Me.txtUID)
        Me.Controls.Add(Me.lblUID)
        Me.Controls.Add(Me.btnSearch)
        Me.Name = "usrcntlCreditsafe"
        Me.Size = New System.Drawing.Size(999, 294)
        CType(Me.dgvCreditsafe, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
    End Sub
    Friend WithEvents btnSearch As Button
    Friend WithEvents lblUID As Label
    Friend WithEvents txtUID As TextBox
    Friend WithEvents txtFirma As TextBox
    Friend WithEvents lblFirma As Label
    Friend WithEvents lblLand As Label
    Friend WithEvents cbxLand As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents dgvCreditsafe As VERAG_PROG_ALLGEMEIN.MyDatagridview
    Friend WithEvents lblWarning As Label
    Friend WithEvents btnUebernehmen As Button
 End Class
--- a/SDL/Creditsafe/usrcntlCreditsafe.resx
+++ b/SDL/Creditsafe/usrcntlCreditsafe.resx
@@ -0,0 +1,120 @@
 <?xml version="1.0" encoding="utf-8"?>
 <root>
  <!-- 
    Microsoft ResX Schema 
    Version 2.0
    The primary goals of this format is to allow a simple XML format 
    that is mostly human readable. The generation and parsing of the 
    various data types are done through the TypeConverter classes 
    associated with the data types.
    Example:
    ... ado.net/XML headers & schema ...
    <resheader name="resmimetype">text/microsoft-resx</resheader>
    <resheader name="version">2.0</resheader>
    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
        <value>[base64 mime encoded serialized .NET Framework object]</value>
    </data>
    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
        <comment>This is a comment</comment>
    </data>
    There are any number of "resheader" rows that contain simple 
    name/value pairs.
    Each data row contains a name, and value. The row also contains a 
    type or mimetype. Type corresponds to a .NET class that support 
    text/value conversion through the TypeConverter architecture. 
    Classes that don't support this are serialized and stored with the 
    mimetype set.
    The mimetype is used for serialized objects, and tells the 
    ResXResourceReader how to depersist the object. This is currently not 
    extensible. For a given mimetype the value must be set accordingly:
    Note - application/x-microsoft.net.object.binary.base64 is the format 
    that the ResXResourceWriter will generate, however the reader can 
    read any of the formats listed below.
    mimetype: application/x-microsoft.net.object.binary.base64
    value   : The object must be serialized with 
            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            : and then encoded with base64 encoding.
    mimetype: application/x-microsoft.net.object.soap.base64
    value   : The object must be serialized with 
            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
            : and then encoded with base64 encoding.
    mimetype: application/x-microsoft.net.object.bytearray.base64
    value   : The object must be serialized into a byte array 
            : using a System.ComponentModel.TypeConverter
            : and then encoded with base64 encoding.
    -->
  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
    <xsd:element name="root" msdata:IsDataSet="true">
      <xsd:complexType>
        <xsd:choice maxOccurs="unbounded">
          <xsd:element name="metadata">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" />
              </xsd:sequence>
              <xsd:attribute name="name" use="required" type="xsd:string" />
              <xsd:attribute name="type" type="xsd:string" />
              <xsd:attribute name="mimetype" type="xsd:string" />
              <xsd:attribute ref="xml:space" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="assembly">
            <xsd:complexType>
              <xsd:attribute name="alias" type="xsd:string" />
              <xsd:attribute name="name" type="xsd:string" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="data">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
              <xsd:attribute ref="xml:space" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="resheader">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" use="required" />
            </xsd:complexType>
          </xsd:element>
        </xsd:choice>
      </xsd:complexType>
    </xsd:element>
  </xsd:schema>
  <resheader name="resmimetype">
    <value>text/microsoft-resx</value>
  </resheader>
  <resheader name="version">
    <value>2.0</value>
  </resheader>
  <resheader name="reader">
    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
 </root>
--- a/SDL/Creditsafe/usrcntlCreditsafe.vb
+++ b/SDL/Creditsafe/usrcntlCreditsafe.vb
@@ -0,0 +1,208 @@
 Imports VERAG_PROG_ALLGEMEIN
 Public Class usrcntlCreditsafe
    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
    Dim user, pw As String
    Dim land As String
    Dim dataTable As New DataTable()
    Public comp As Company
    Sub New()
        InitializeComponent()
        init()
    End Sub
    Sub New(_UID As String, _name As String, _land As String)
        InitializeComponent()
        txtUID.Text = _UID
        txtFirma.Text = _name
        land = _land
        init()
    End Sub
    Private Sub init()
        user = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser
        pw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd
        cbxLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez  " &
                                      " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " &
                                      " WHERE ([Währungstabelle].[MitgliedslandEU] = 1) " &
                                      " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True)
        cbxLand.changeItem(land)
        initDataTable()
        btnUebernehmen.Enabled = False
        Cursor = Cursors.Default
    End Sub
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Try
            If user = "" Or pw = "" Then
                lblWarning.Text = "keine Zugangsdaten hinterlegt!"
                Exit Sub
            End If
            If cbxLand._value = "" Then
                lblWarning.Text = "kein Land hinterlegt!"
                Exit Sub
            End If
            If txtFirma.Text = "" AndAlso txtUID.Text = "" Then
                lblWarning.Text = "Firma und/oder UID-Nr hinterlegen!"
                Exit Sub
            End If
            dataTable.Clear()
            Dim cs = New cCreditSafeAPI()
            Cursor = Cursors.WaitCursor
            If cs.authenticate(user, pw) = "200" Then
                If txtUID.Text <> "" Then
                    lblWarning.Text = cs.searchCompanies("", txtUID.Text, cbxLand.SelectedItem.Value, dataTable).ToString
                Else
                    lblWarning.Text = cs.searchCompanies(txtFirma.Text, "", cbxLand.SelectedItem.Value, dataTable).ToString
                End If
                initDGV(dataTable)
                Cursor = Cursors.Default
            End If
        Catch ex As Exception
            Cursor = Cursors.Default
            MsgBox(ex.Message)
        End Try
    End Sub
    Sub initDataTable()
        dataTable.Columns.Add("id", GetType(String))
        dataTable.Columns.Add("name", GetType(String))
        dataTable.Columns.Add("country", GetType(String))
        dataTable.Columns.Add("safeNo", GetType(String))
        dataTable.Columns.Add("vatNo", GetType(String))
        dataTable.Columns.Add("regNo", GetType(String))
        dataTable.Columns.Add("street", GetType(String))
        dataTable.Columns.Add("city", GetType(String))
        dataTable.Columns.Add("postCode", GetType(String))
        dataTable.Columns.Add("status", GetType(String))
        dataTable.Columns.Add("phoneNo", GetType(String))
        dataTable.Columns.Add("dateOfLatestChange", GetType(String))
    End Sub
    Sub initDGV(dt As DataTable)
        dgvCreditsafe.DataSource = dt
        If dgvCreditsafe.Columns.Count > 0 Then
            With dgvCreditsafe
                .RowHeadersWidth = 10
                .Columns("id").Visible = False
                .Columns("country").Visible = True
                .Columns("name").HeaderText = "Name"
                .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                .Columns("safeNo").Width = 100
                .Columns("safeNo").HeaderText = "Nr"
                .Columns("vatNo").Width = 100
                .Columns("vatNo").HeaderText = "UID"
                .Columns("regNo").Width = 100
                .Columns("regNo").HeaderText = "FN-Nr."
                .Columns("street").Width = 100
                .Columns("street").HeaderText = "Strasse"
                .Columns("city").Width = 100
                .Columns("city").HeaderText = "Ort"
                .Columns("postCode").Width = 100
                .Columns("postCode").HeaderText = "PLZ"
                .Columns("phoneNo").Width = 100
                .Columns("phoneNo").HeaderText = "Tel-Nr"
                .Columns("status").Width = 100
                .Columns("status").HeaderText = "Status"
                .Columns("dateOfLatestChange").Width = 50
                .Columns("dateOfLatestChange").HeaderText = "letzte Änderung"
            End With
        End If
    End Sub
    Private Sub btnUebernehmen_Click(sender As Object, e As EventArgs) Handles btnUebernehmen.Click
        If dgvCreditsafe.SelectedRows.Count <> 1 Then
            btnUebernehmen.DialogResult = DialogResult.None
            Exit Sub
        Else
            For Each row As DataGridViewRow In dgvCreditsafe.SelectedRows
                comp = New Company(IIf(IsDBNull(row.Cells("name").Value), "", row.Cells("name").Value),
                                   IIf(IsDBNull(row.Cells("vatNo").Value), "", row.Cells("vatNo").Value),
                                   IIf(IsDBNull(row.Cells("country").Value), "", row.Cells("country").Value),
                                   IIf(IsDBNull(row.Cells("safeNo").Value), "", row.Cells("safeNo").Value),
                                   IIf(IsDBNull(row.Cells("regNo").Value), "", row.Cells("regNo").Value),
                                   IIf(IsDBNull(row.Cells("street").Value), "", row.Cells("street").Value),
                                   IIf(IsDBNull(row.Cells("city").Value), "", row.Cells("city").Value),
                                   IIf(IsDBNull(row.Cells("postCode").Value), "", row.Cells("postCode").Value),
                                   IIf(IsDBNull(row.Cells("id").Value), "", row.Cells("id").Value),
                                   IIf(IsDBNull(row.Cells("phoneNo").Value), "", row.Cells("phoneNo").Value))
            Next
            btnUebernehmen.DialogResult = DialogResult.OK
        End If
    End Sub
    Public Class Company
        Public Property credissafeId As String
        Public Property name As String
        Public Property vatNo As String
        Public Property country As String
        Public Property safeNo As String
        Public Property regNo As String
        Public Property street As String
        Public Property city As String
        Public Property postCode As String
        Public Property phoneNo As String
        Public Sub New(_name As String, _vatNo As String, _country As String, _safeNo As String, _regNo As String, _street As String, _city As String, _postCode As String, _credissafeId As String, _phoneNo As String)
            name = _name
            vatNo = _vatNo
            country = _country
            safeNo = _safeNo
            street = _street
            regNo = _regNo
            city = _city
            postCode = _postCode
            credissafeId = _credissafeId
            phoneNo = _phoneNo
        End Sub
    End Class
    Private Sub dgvCreditsafe_SelectionChanged(sender As Object, e As EventArgs) Handles dgvCreditsafe.SelectionChanged
        If dgvCreditsafe.SelectedRows.Count <> 1 Then
            btnUebernehmen.Enabled = False
        Else
            btnUebernehmen.Enabled = True
        End If
    End Sub
 End Class
--- a/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb
+++ b/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb
@@ -35,8 +35,6 @@ Partial Class frmTIR
        Me.Label5 = New System.Windows.Forms.Label()
        Me.btnDelete = New System.Windows.Forms.Button()
        Me.lblGedruckt = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.txtSuchbegriff = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -44,6 +42,8 @@ Partial Class frmTIR
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.UsrCntlTIR1 = New SDL.usrcntlTIR()
        Me.lblAnzahl = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Panel2.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.SuspendLayout()
@@ -134,12 +134,12 @@ Partial Class frmTIR
        'Panel3
        '
        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel3.Controls.Add(Me.lblAnzahl)
        Me.Panel3.Controls.Add(Me.Label4)
        Me.Panel3.Controls.Add(Me.cboAbriss777)
        Me.Panel3.Controls.Add(Me.Label5)
        Me.Panel3.Controls.Add(Me.btnDelete)
        Me.Panel3.Controls.Add(Me.lblGedruckt)
        Me.Panel3.Controls.Add(Me.Label2)
        Me.Panel3.Controls.Add(Me.txtSuchbegriff)
        Me.Panel3.Controls.Add(Me.Button2)
        Me.Panel3.Controls.Add(Me.Label1)
        Me.Panel3.Controls.Add(Me.cboPrinter)
@@ -196,42 +196,6 @@ Partial Class frmTIR
        Me.lblGedruckt.Text = "gedruckt"
        Me.lblGedruckt.Visible = False
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(320, 7)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(137, 13)
        Me.Label2.TabIndex = 8
        Me.Label2.Text = "Speichern als (Suchbegriff):"
        Me.Label2.Visible = False
        '
        'txtSuchbegriff
        '
        Me.txtSuchbegriff._DateTimeOnly = False
        Me.txtSuchbegriff._numbersOnly = False
        Me.txtSuchbegriff._numbersOnlyKommastellen = ""
        Me.txtSuchbegriff._numbersOnlyTrennzeichen = True
        Me.txtSuchbegriff._Prozent = False
        Me.txtSuchbegriff._ShortDateNew = False
        Me.txtSuchbegriff._ShortDateOnly = False
        Me.txtSuchbegriff._TimeOnly = False
        Me.txtSuchbegriff._TimeOnly_Seconds = False
        Me.txtSuchbegriff._value = Nothing
        Me.txtSuchbegriff._Waehrung = False
        Me.txtSuchbegriff._WaehrungZeichen = True
        Me.txtSuchbegriff.ForeColor = System.Drawing.Color.Black
        Me.txtSuchbegriff.Location = New System.Drawing.Point(464, 4)
        Me.txtSuchbegriff.MaxLength = 80
        Me.txtSuchbegriff.MaxLineLength = -1
        Me.txtSuchbegriff.MaxLines_Warning = ""
        Me.txtSuchbegriff.MaxLines_Warning_Label = Nothing
        Me.txtSuchbegriff.Name = "txtSuchbegriff"
        Me.txtSuchbegriff.Size = New System.Drawing.Size(243, 20)
        Me.txtSuchbegriff.TabIndex = 9
        Me.txtSuchbegriff.Visible = False
        '
        'Button2
        '
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -269,7 +233,7 @@ Partial Class frmTIR
        '
        Me.lblEigenmasse.AutoSize = True
        Me.lblEigenmasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblEigenmasse.Location = New System.Drawing.Point(117, 4)
+        Me.lblEigenmasse.Location = New System.Drawing.Point(642, 4)
        Me.lblEigenmasse.Name = "lblEigenmasse"
        Me.lblEigenmasse.Size = New System.Drawing.Size(32, 13)
        Me.lblEigenmasse.TabIndex = 5
@@ -278,7 +242,7 @@ Partial Class frmTIR
        'Label6
        '
        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(15, 4)
+        Me.Label6.Location = New System.Drawing.Point(540, 4)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(87, 13)
        Me.Label6.TabIndex = 4
@@ -307,6 +271,25 @@ Partial Class frmTIR
        Me.UsrCntlTIR1.Size = New System.Drawing.Size(885, 735)
        Me.UsrCntlTIR1.TabIndex = 0
        '
        'lblAnzahl
        '
        Me.lblAnzahl.AutoSize = True
        Me.lblAnzahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblAnzahl.Location = New System.Drawing.Point(185, 4)
        Me.lblAnzahl.Name = "lblAnzahl"
        Me.lblAnzahl.Size = New System.Drawing.Size(14, 13)
        Me.lblAnzahl.TabIndex = 17
        Me.lblAnzahl.Text = "0"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(95, 4)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(67, 13)
        Me.Label4.TabIndex = 16
        Me.Label4.Text = "Summe Colli:"
        '
        'frmTIR
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -342,12 +325,12 @@ Partial Class frmTIR
    Friend WithEvents Label5 As Label
    Friend WithEvents btnDelete As Button
    Friend WithEvents lblGedruckt As Label
    Friend WithEvents Label2 As Label
    Friend WithEvents txtSuchbegriff As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Button2 As Button
    Friend WithEvents Label1 As Label
    Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents lblEigenmasse As Label
    Friend WithEvents Label6 As Label
    Friend WithEvents Button1 As Button
    Friend WithEvents lblAnzahl As Label
    Friend WithEvents Label4 As Label
 End Class
--- a/SDL/Formulare/CARNET-TIR/frmTIR.vb
+++ b/SDL/Formulare/CARNET-TIR/frmTIR.vb
@@ -1,7 +1,14 @@
-Imports GrapeCity.ActiveReports
+Imports System.Windows.Media
 Imports com.sun.jndi.toolkit
 Imports com.sun.org.apache.bcel.internal.classfile
 Imports com.sun.org.apache.xml.internal.utils
 Imports GrapeCity.ActiveReports
 Imports VERAG_PROG_ALLGEMEIN
 Public Class frmTIR
    Dim dt As DataTable
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -23,6 +30,59 @@ Public Class frmTIR
        cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17", "17"))
        cboAbriss777.changeItem("12")
        Dim sql_einheiten As String = "SELECT [Code] ,[Code] + ', ' +  [Description] as Verpackungsart FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten where (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())"
        Dim dt_einheiten As DataTable
        dt_einheiten = SQL.loadDgvBySql(sql_einheiten, "FMZOLL", 100, True)
        Dim sql_zollstellen As String = "SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen where (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())"
        Dim dt_zollstellen As DataTable
        dt_zollstellen = SQL.loadDgvBySql(sql_zollstellen, "FMZOLL", 100, True)
        dt_zollstellen.Columns.Add("")
        Dim sql_laender As String = "Select [Description] FROM tbl_DY_ZollDE_C0008_LaenderFull where (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE())"
        Dim dt_laender As DataTable
        dt_laender = SQL.loadDgvBySql(sql_laender, "FMZOLL", 100, True)
        dt_laender.Columns.Add("")
        Dim combo As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn()
        combo.DataSource = dt_einheiten
        combo.DataPropertyName = "Einheit"
        combo.ValueMember = dt_einheiten.Columns("Verpackungsart").ToString
        combo.DisplayMember = dt_einheiten.Columns("Verpackungsart").ToString
        combo.Name = "Einheit"
        combo.Width = 50
        combo.DropDownWidth = 300
        UsrCntlTIR1.dgvGegenstände.Columns.Insert(2, combo)
        For Each c As Control In UsrCntlTIR1.Controls
            If c.Name.ToLower.Contains("cbxabgangszollstelle") And c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyComboBox" Then
                Dim cbx = DirectCast(c, MyComboBox)
                cbx.AutoCompleteSource = AutoCompleteSource.ListItems
                cbx.AutoCompleteMode = AutoCompleteMode.Suggest
                cbx.Items.AddRange(dt_zollstellen.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray())
            End If
            If c.Name.ToLower.Contains("cbxabfahrtsland") And c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyComboBox" Then
                Dim cbx = DirectCast(c, MyComboBox)
                cbx.AutoCompleteSource = AutoCompleteSource.ListItems
                cbx.AutoCompleteMode = AutoCompleteMode.Suggest
                cbx.Items.AddRange(dt_laender.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray())
            End If
            If c.Name.ToLower.Contains("cbxankunftsland") And c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyComboBox" Then
                Dim cbx = DirectCast(c, MyComboBox)
                cbx.AutoCompleteSource = AutoCompleteSource.ListItems
                cbx.AutoCompleteMode = AutoCompleteMode.Suggest
                cbx.Items.AddRange(dt_laender.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray())
            End If
        Next
        cProgramFunctions.initDrucker(cboPrinter, "TALLY")
    End Sub
@@ -33,16 +93,16 @@ Public Class frmTIR
        Dim anzahl_778 As Integer = 0
-        rpt.txtAbgangszollstelle1.Text = If(UsrCntlTIR1.txtAbgangszollstelle1.Text, "")
+        rpt.txtAbgangszollstelle1.Text = If(UsrCntlTIR1.cbxAbgangszollstelle1.Text, "")
-        rpt.txtAbgangszollstelle2.Text = If(UsrCntlTIR1.txtAbgangszollstelle2.Text, "")
+        rpt.txtAbgangszollstelle2.Text = If(UsrCntlTIR1.cbxAbgangszollstelle2.Text, "")
-        rpt.txtAbgangszollstelle3.Text = If(UsrCntlTIR1.txtAbgangszollstelle3.Text, "")
+        rpt.txtAbgangszollstelle3.Text = If(UsrCntlTIR1.cbxAbgangszollstelle3.Text, "")
-        rpt.txtAbgangszollstelle4.Text = If(UsrCntlTIR1.txtAbgangszollstelle4.Text, "")
+        rpt.txtAbgangszollstelle4.Text = If(UsrCntlTIR1.cbxAbgangszollstelle4.Text, "")
-        rpt.txtAbgangszollstelle5.Text = If(UsrCntlTIR1.txtAbgangszollstelle5.Text, "")
+        rpt.txtAbgangszollstelle5.Text = If(UsrCntlTIR1.cbxAbgangszollstelle5.Text, "")
-        rpt.txtAbgangszollstelle6.Text = If(UsrCntlTIR1.txtAbgangszollstelle6.Text, "")
+        rpt.txtAbgangszollstelle6.Text = If(UsrCntlTIR1.cbxAbgangszollstelle6.Text, "")
-        rpt.txtAbgangszollstelle7.Text = If(UsrCntlTIR1.txtAbgangszollstelle7.Text, "")
+        rpt.txtAbgangszollstelle7.Text = If(UsrCntlTIR1.cbxAbgangszollstelle7.Text, "")
        rpt.txtAbfahrsland.Text = If(UsrCntlTIR1.cbxAbfahrtsland.Text, "")
        rpt.txtAbfahrsland.Text = If(UsrCntlTIR1.txtAbfahrtsland.Text, "")
        rpt.txtBestimmungsland.Text = If(UsrCntlTIR1.txtBestimmungsland.Text, "")
        rpt.txtFahrzeug.Text = If(UsrCntlTIR1.txtFahrzeug1.Text, "")
        rpt.txtZusDok.Text = If(UsrCntlTIR1.txtZusDocument.Text, "")
@@ -76,8 +136,8 @@ Public Class frmTIR
                rpt.txtMain1.Text &= If(r.Cells(0).Value <> "", r.Cells(0).Value & vbNewLine, "")
                rpt.txtMain2.Text &= If(r.Cells(1).Value <> "", r.Cells(1).Value & " ", "")
-                rpt.txtMain2.Text &= If(r.Cells(2).Value <> "", r.Cells(2).Value & vbNewLine, "")
+                rpt.txtMain2.Text &= If(r.Cells(2).Value <> "", r.Cells(3).Value & vbNewLine, "")
-                rpt.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(3).Value & vbNewLine, "")
+                rpt.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(4).Value & vbNewLine, "")
            End If
@@ -106,11 +166,17 @@ Public Class frmTIR
                c.Text = ""
            End If
            If TypeOf c Is DataGridView Then
                Dim dgv As DataGridView = c
                dgv.Rows.Clear()
                For i As Integer = 0 To 10
-                    dgv.Rows.Add("", "", "", "")
+
                    dgv.Rows.Add("", "", "", "", "", "")
                Next
            End If
@@ -122,16 +188,16 @@ Public Class frmTIR
    Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles btnLaden.Click
-        UsrCntlTIR1.txtAbgangszollstelle1.Text = "Testtext1"
+        UsrCntlTIR1.cbxAbgangszollstelle1.Text = "Testtext1"
-        UsrCntlTIR1.txtAbgangszollstelle2.Text = "Testtext2"
+        UsrCntlTIR1.cbxAbgangszollstelle2.Text = "Testtext2"
-        UsrCntlTIR1.txtAbgangszollstelle3.Text = "Testtext3"
+        UsrCntlTIR1.cbxAbgangszollstelle3.Text = "Testtext3"
-        UsrCntlTIR1.txtAbgangszollstelle4.Text = "Testtext4"
+        UsrCntlTIR1.cbxAbgangszollstelle4.Text = "Testtext4"
-        UsrCntlTIR1.txtAbgangszollstelle5.Text = "Testtext5"
+        UsrCntlTIR1.cbxAbgangszollstelle5.Text = "Testtext5"
-        UsrCntlTIR1.txtAbgangszollstelle6.Text = "Testtext6"
+        UsrCntlTIR1.cbxAbgangszollstelle6.Text = "Testtext6"
-        UsrCntlTIR1.txtAbgangszollstelle7.Text = "Testtext7"
+        UsrCntlTIR1.cbxAbgangszollstelle7.Text = "Testtext7"
        UsrCntlTIR1.cbxAbfahrtsland.Text = "TestABFL"
        UsrCntlTIR1.txtAbfahrtsland.Text = "TestABFL"
        UsrCntlTIR1.txtBestimmungsland.Text = "TestBESTL"
        UsrCntlTIR1.txtFahrzeug1.Text = "XXXXXXX" & vbNewLine & "Fahrezeug 1"
        UsrCntlTIR1.txtZusDocument.Text = "Testtext1"
@@ -169,18 +235,24 @@ Public Class frmTIR
    Private Sub UsrCntlTIR1_SomethChanged() Handles UsrCntlTIR1.DGVchanged
-        Dim count As Double = 0
+        Dim gewicht As Double = 0
        Dim colli As Double = 0
        For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows
-            If r IsNot Nothing And IsNumeric(r.Cells(3).Value) Then
+            If r IsNot Nothing And IsNumeric(r.Cells(4).Value) Then
-                count += CDbl(r.Cells(3).Value)
+                gewicht += CDbl(r.Cells(4).Value)
            End If
            If r IsNot Nothing And IsNumeric(r.Cells(1).Value) Then
                colli += CDbl(r.Cells(1).Value)
            End If
        Next
-        lblEigenmasse.Text = count & " kg"
+        lblEigenmasse.Text = gewicht & " kg"
        lblAnzahl.Text = colli
    End Sub
 End Class
--- a/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb
+++ b/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb
@@ -45,8 +45,9 @@ Partial Public Class rptTIR
        Me.txtGesamtpaketName5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.txtGesamtpaket6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.txtGesamtpaketName6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
        Me.txtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -76,6 +77,7 @@ Partial Public Class rptTIR
        CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'Detail
@@ -85,7 +87,7 @@ Partial Public Class rptTIR
        '
        'ReportHeader1
        '
-        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtAbgangszollstelle4, Me.txtAbgangszollstelle5, Me.txtAbgangszollstelle6, Me.txtAbgangszollstelle7, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtGesamtpaket7, Me.txtGesamtpaketName7, Me.txtGesamtpaket4, Me.txtGesamtpaketName4, Me.txtGesamtpaket5, Me.txtGesamtpaketName5, Me.txtGesamtpaket6, Me.txtGesamtpaketName6, Me.txtSumme})
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtAbgangszollstelle4, Me.txtAbgangszollstelle5, Me.txtAbgangszollstelle6, Me.txtAbgangszollstelle7, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtGesamtpaket7, Me.txtGesamtpaketName7, Me.txtGesamtpaket4, Me.txtGesamtpaketName4, Me.txtGesamtpaket5, Me.txtGesamtpaketName5, Me.txtGesamtpaket6, Me.txtGesamtpaketName6, Me.txtSumme, Me.TextBox1})
        Me.ReportHeader1.Height = 11.42519!
        Me.ReportHeader1.Name = "ReportHeader1"
        '
@@ -97,7 +99,6 @@ Partial Public Class rptTIR
        Me.txtAbfahrsland.Height = 0.431!
        Me.txtAbfahrsland.Left = 1.987!
        Me.txtAbfahrsland.Name = "txtAbfahrsland"
        Me.txtAbfahrsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbfahrsland.Style = "color: Black"
        Me.txtAbfahrsland.SummaryGroup = ""
        Me.txtAbfahrsland.Text = "Abfahrsland"
@@ -112,7 +113,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaket1.Height = 0.1968504!
        Me.txtGesamtpaket1.Left = 0.479!
        Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
        Me.txtGesamtpaket1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaket1.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaket1.SummaryGroup = ""
        Me.txtGesamtpaket1.Text = "Gesamtpaket1"
@@ -124,10 +124,9 @@ Partial Public Class rptTIR
        Me.txtMain1.CanGrow = False
        Me.txtMain1.DataField = ""
        Me.txtMain1.DistinctField = ""
-        Me.txtMain1.Height = 3.889!
+        Me.txtMain1.Height = 3.743!
        Me.txtMain1.Left = 0.479!
        Me.txtMain1.Name = "txtMain1"
        Me.txtMain1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtMain1.Style = "color: Black"
        Me.txtMain1.SummaryGroup = ""
        Me.txtMain1.Text = "Main1"
@@ -142,7 +141,6 @@ Partial Public Class rptTIR
        Me.txtAbgangszollstelle1.Height = 0.1574803!
        Me.txtAbgangszollstelle1.Left = 0.479!
        Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
        Me.txtAbgangszollstelle1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbgangszollstelle1.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
        Me.txtAbgangszollstelle1.SummaryGroup = ""
        Me.txtAbgangszollstelle1.Text = "Abgangszollstelle1"
@@ -157,7 +155,6 @@ Partial Public Class rptTIR
        Me.txtAbgangszollstelle2.Height = 0.1574803!
        Me.txtAbgangszollstelle2.Left = 0.479!
        Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
        Me.txtAbgangszollstelle2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbgangszollstelle2.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
        Me.txtAbgangszollstelle2.SummaryGroup = ""
        Me.txtAbgangszollstelle2.Text = "Abgangszollstelle2"
@@ -172,7 +169,6 @@ Partial Public Class rptTIR
        Me.txtAbgangszollstelle3.Height = 0.1574803!
        Me.txtAbgangszollstelle3.Left = 0.479!
        Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
        Me.txtAbgangszollstelle3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbgangszollstelle3.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
        Me.txtAbgangszollstelle3.SummaryGroup = ""
        Me.txtAbgangszollstelle3.Text = "Abgangszollstelle3"
@@ -187,7 +183,6 @@ Partial Public Class rptTIR
        Me.txtAbgangszollstelle4.Height = 0.1574803!
        Me.txtAbgangszollstelle4.Left = 0.479!
        Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4"
        Me.txtAbgangszollstelle4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbgangszollstelle4.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
        Me.txtAbgangszollstelle4.SummaryGroup = ""
        Me.txtAbgangszollstelle4.Text = "Abgangszollstelle4"
@@ -202,7 +197,6 @@ Partial Public Class rptTIR
        Me.txtAbgangszollstelle5.Height = 0.1574803!
        Me.txtAbgangszollstelle5.Left = 0.479!
        Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5"
        Me.txtAbgangszollstelle5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbgangszollstelle5.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
        Me.txtAbgangszollstelle5.SummaryGroup = ""
        Me.txtAbgangszollstelle5.Text = "Abgangszollstelle5"
@@ -217,7 +211,6 @@ Partial Public Class rptTIR
        Me.txtAbgangszollstelle6.Height = 0.1574803!
        Me.txtAbgangszollstelle6.Left = 0.479!
        Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6"
        Me.txtAbgangszollstelle6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbgangszollstelle6.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
        Me.txtAbgangszollstelle6.SummaryGroup = ""
        Me.txtAbgangszollstelle6.Text = "Abgangszollstelle6"
@@ -232,7 +225,6 @@ Partial Public Class rptTIR
        Me.txtAbgangszollstelle7.Height = 0.1574803!
        Me.txtAbgangszollstelle7.Left = 0.479!
        Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7"
        Me.txtAbgangszollstelle7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbgangszollstelle7.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
        Me.txtAbgangszollstelle7.SummaryGroup = ""
        Me.txtAbgangszollstelle7.Text = "Abgangszollstelle7"
@@ -247,7 +239,6 @@ Partial Public Class rptTIR
        Me.txtBestimmungsland.Height = 0.4309999!
        Me.txtBestimmungsland.Left = 3.079!
        Me.txtBestimmungsland.Name = "txtBestimmungsland"
        Me.txtBestimmungsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtBestimmungsland.Style = "color: Black"
        Me.txtBestimmungsland.SummaryGroup = ""
        Me.txtBestimmungsland.Text = "Bestimmungsland"
@@ -262,7 +253,6 @@ Partial Public Class rptTIR
        Me.txtFahrzeug.Height = 0.4849999!
        Me.txtFahrzeug.Left = 1.987!
        Me.txtFahrzeug.Name = "txtFahrzeug"
        Me.txtFahrzeug.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtFahrzeug.Style = "color: Black"
        Me.txtFahrzeug.SummaryGroup = ""
        Me.txtFahrzeug.Text = "Fahrzeug"
@@ -277,7 +267,6 @@ Partial Public Class rptTIR
        Me.txtZusDok.Height = 0.6260002!
        Me.txtZusDok.Left = 4.588!
        Me.txtZusDok.Name = "txtZusDok"
        Me.txtZusDok.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtZusDok.Style = "color: Black"
        Me.txtZusDok.SummaryGroup = ""
        Me.txtZusDok.Text = "ZusDok"
@@ -289,10 +278,9 @@ Partial Public Class rptTIR
        Me.txtMain2.CanGrow = False
        Me.txtMain2.DataField = ""
        Me.txtMain2.DistinctField = ""
-        Me.txtMain2.Height = 3.889!
+        Me.txtMain2.Height = 3.743!
        Me.txtMain2.Left = 1.894!
        Me.txtMain2.Name = "txtMain2"
        Me.txtMain2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtMain2.Style = "color: Black"
        Me.txtMain2.SummaryGroup = ""
        Me.txtMain2.Text = "Main2"
@@ -304,10 +292,9 @@ Partial Public Class rptTIR
        Me.txtMain3.CanGrow = False
        Me.txtMain3.DataField = ""
        Me.txtMain3.DistinctField = ""
-        Me.txtMain3.Height = 3.889!
+        Me.txtMain3.Height = 3.743!
        Me.txtMain3.Left = 5.455!
        Me.txtMain3.Name = "txtMain3"
        Me.txtMain3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtMain3.Style = "color: Black"
        Me.txtMain3.SummaryGroup = ""
        Me.txtMain3.Text = "Main3"
@@ -322,7 +309,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaketName1.Height = 0.1968504!
        Me.txtGesamtpaketName1.Left = 1.894!
        Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
        Me.txtGesamtpaketName1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaketName1.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaketName1.SummaryGroup = ""
        Me.txtGesamtpaketName1.Text = "GesamtpaketName1"
@@ -337,7 +323,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaket2.Height = 0.1968504!
        Me.txtGesamtpaket2.Left = 0.4790001!
        Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
        Me.txtGesamtpaket2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaket2.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaket2.SummaryGroup = ""
        Me.txtGesamtpaket2.Text = "Gesamtpaket2"
@@ -352,7 +337,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaketName2.Height = 0.1968504!
        Me.txtGesamtpaketName2.Left = 1.894!
        Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
        Me.txtGesamtpaketName2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaketName2.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaketName2.SummaryGroup = ""
        Me.txtGesamtpaketName2.Text = "GesamtpaketName2"
@@ -367,7 +351,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaket3.Height = 0.1968504!
        Me.txtGesamtpaket3.Left = 0.4790001!
        Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
        Me.txtGesamtpaket3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaket3.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaket3.SummaryGroup = ""
        Me.txtGesamtpaket3.Text = "Gesamtpaket3"
@@ -382,7 +365,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaketName3.Height = 0.1968504!
        Me.txtGesamtpaketName3.Left = 1.894!
        Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
        Me.txtGesamtpaketName3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaketName3.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaketName3.SummaryGroup = ""
        Me.txtGesamtpaketName3.Text = "GesamtpaketName3"
@@ -397,7 +379,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaket7.Height = 0.1968504!
        Me.txtGesamtpaket7.Left = 2.572!
        Me.txtGesamtpaket7.Name = "txtGesamtpaket7"
        Me.txtGesamtpaket7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaket7.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaket7.SummaryGroup = ""
        Me.txtGesamtpaket7.Text = "Gesamtpaket7"
@@ -412,7 +393,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaketName7.Height = 0.1968508!
        Me.txtGesamtpaketName7.Left = 3.944!
        Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7"
        Me.txtGesamtpaketName7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaketName7.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaketName7.SummaryGroup = ""
        Me.txtGesamtpaketName7.Text = "GesamtpaketName7"
@@ -427,7 +407,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaket4.Height = 0.1968504!
        Me.txtGesamtpaket4.Left = 2.572!
        Me.txtGesamtpaket4.Name = "txtGesamtpaket4"
        Me.txtGesamtpaket4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaket4.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaket4.SummaryGroup = ""
        Me.txtGesamtpaket4.Text = "Gesamtpaket4"
@@ -442,7 +421,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaketName4.Height = 0.1968504!
        Me.txtGesamtpaketName4.Left = 3.944!
        Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4"
        Me.txtGesamtpaketName4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaketName4.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaketName4.SummaryGroup = ""
        Me.txtGesamtpaketName4.Text = "GesamtpaketName4"
@@ -457,7 +435,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaket5.Height = 0.1968504!
        Me.txtGesamtpaket5.Left = 2.572!
        Me.txtGesamtpaket5.Name = "txtGesamtpaket5"
        Me.txtGesamtpaket5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaket5.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaket5.SummaryGroup = ""
        Me.txtGesamtpaket5.Text = "Gesamtpaket5"
@@ -472,7 +449,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaketName5.Height = 0.1968504!
        Me.txtGesamtpaketName5.Left = 3.944!
        Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5"
        Me.txtGesamtpaketName5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaketName5.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaketName5.SummaryGroup = ""
        Me.txtGesamtpaketName5.Text = "GesamtpaketName5"
@@ -487,7 +463,6 @@ Partial Public Class rptTIR
        Me.txtGesamtpaket6.Height = 0.1968504!
        Me.txtGesamtpaket6.Left = 2.572!
        Me.txtGesamtpaket6.Name = "txtGesamtpaket6"
        Me.txtGesamtpaket6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaket6.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaket6.SummaryGroup = ""
        Me.txtGesamtpaket6.Text = "Gesamtpaket6"
@@ -502,18 +477,12 @@ Partial Public Class rptTIR
        Me.txtGesamtpaketName6.Height = 0.1968504!
        Me.txtGesamtpaketName6.Left = 3.944!
        Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6"
        Me.txtGesamtpaketName6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesamtpaketName6.Style = "color: Black; text-align: left; vertical-align: middle"
        Me.txtGesamtpaketName6.SummaryGroup = ""
        Me.txtGesamtpaketName6.Text = "GesamtpaketName6"
        Me.txtGesamtpaketName6.Top = 8.399!
        Me.txtGesamtpaketName6.Width = 0.4770003!
        '
        'ReportFooter1
        '
        Me.ReportFooter1.Height = 0!
        Me.ReportFooter1.Name = "ReportFooter1"
        '
        'txtSumme
        '
        Me.txtSumme.CanGrow = False
@@ -521,13 +490,30 @@ Partial Public Class rptTIR
        Me.txtSumme.Height = 0.2330003!
        Me.txtSumme.Left = 5.455!
        Me.txtSumme.Name = "txtSumme"
        Me.txtSumme.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtSumme.Style = "color: Black; font-weight: bold; text-decoration: underline"
        Me.txtSumme.SummaryGroup = ""
-        Me.txtSumme.Text = "Summe"
+        Me.txtSumme.Text = "Summe Gewicht"
-        Me.txtSumme.Top = 7.399!
+        Me.txtSumme.Top = 7.253!
        Me.txtSumme.Width = 1.28!
        '
        'ReportFooter1
        '
        Me.ReportFooter1.Height = 0!
        Me.ReportFooter1.Name = "ReportFooter1"
        '
        'TextBox1
        '
        Me.TextBox1.CanGrow = False
        Me.TextBox1.DistinctField = ""
        Me.TextBox1.Height = 0.2330003!
        Me.TextBox1.Left = 1.894!
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Style = "color: Black; font-weight: bold; text-decoration: underline"
        Me.TextBox1.SummaryGroup = ""
        Me.TextBox1.Text = "Summe Anzahl"
        Me.TextBox1.Top = 7.253!
        Me.TextBox1.Width = 1.28!
        '
        'rptTIR
        '
        Me.PageSettings.Margins.Bottom = 0!
@@ -537,15 +523,16 @@ Partial Public Class rptTIR
        Me.PageSettings.PaperHeight = 11.0!
        Me.PageSettings.PaperWidth = 8.5!
        Me.PrintWidth = 7.480315!
        Me.Script = "public void ActiveReport_ReportStart()" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "{" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "}" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
        Me.Sections.Add(Me.ReportHeader1)
        Me.Sections.Add(Me.Detail)
        Me.Sections.Add(Me.ReportFooter1)
-        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
-            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"), DDCssLib.StyleSheetRule))
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
-        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
-        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
-            "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
+            "lic", "Heading2", "Normal"))
-        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
        CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -575,6 +562,7 @@ Partial Public Class rptTIR
        CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
    End Sub
@@ -609,4 +597,5 @@ Partial Public Class rptTIR
    Public WithEvents txtGesamtpaket6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
    Public WithEvents txtGesamtpaketName6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
    Public WithEvents txtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
    Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
 End Class
--- a/SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb
+++ b/SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb
@@ -23,19 +23,10 @@ Partial Class usrcntlTIR
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlTIR))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.txtAbfahrtsland = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtBestimmungsland = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtFahrzeug1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtZusDocument = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtAbgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtAbgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtAbgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtAbgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtAbgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtAbgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtAbgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtGesamtpaket1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtGesamtpaket2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtGesamtpaket3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
@@ -51,6 +42,16 @@ Partial Class usrcntlTIR
        Me.txtGesamtpaketName5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.txtGesamtpaketName4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.dgvGegenstände = New System.Windows.Forms.DataGridView()
        Me.cbxAbgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxAbgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxAbgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxAbfahrtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxAnkunftsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxAbgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxAbgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxAbgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxAbgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Zollamt = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -68,34 +69,6 @@ Partial Class usrcntlTIR
        Me.PictureBox1.TabIndex = 0
        Me.PictureBox1.TabStop = False
        '
        'txtAbfahrtsland
        '
        Me.txtAbfahrtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtAbfahrtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.txtAbfahrtsland.ForeColor = System.Drawing.Color.Black
        Me.txtAbfahrtsland.Location = New System.Drawing.Point(207, 173)
        Me.txtAbfahrtsland.MaxLineLength = 40
        Me.txtAbfahrtsland.MaxLines_Warning = "4"
        Me.txtAbfahrtsland.MaxLines_Warning_Label = Nothing
        Me.txtAbfahrtsland.Name = "txtAbfahrtsland"
        Me.txtAbfahrtsland.Size = New System.Drawing.Size(126, 65)
        Me.txtAbfahrtsland.TabIndex = 499
        Me.txtAbfahrtsland.Text = ""
        '
        'txtBestimmungsland
        '
        Me.txtBestimmungsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtBestimmungsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.txtBestimmungsland.ForeColor = System.Drawing.Color.Black
        Me.txtBestimmungsland.Location = New System.Drawing.Point(339, 173)
        Me.txtBestimmungsland.MaxLineLength = 40
        Me.txtBestimmungsland.MaxLines_Warning = "4"
        Me.txtBestimmungsland.MaxLines_Warning_Label = Nothing
        Me.txtBestimmungsland.Name = "txtBestimmungsland"
        Me.txtBestimmungsland.Size = New System.Drawing.Size(126, 65)
        Me.txtBestimmungsland.TabIndex = 500
        Me.txtBestimmungsland.Text = ""
        '
        'txtFahrzeug1
        '
        Me.txtFahrzeug1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -124,104 +97,6 @@ Partial Class usrcntlTIR
        Me.txtZusDocument.TabIndex = 502
        Me.txtZusDocument.Text = ""
        '
        'txtAbgangszollstelle3
        '
        Me.txtAbgangszollstelle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtAbgangszollstelle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.txtAbgangszollstelle3.ForeColor = System.Drawing.Color.Black
        Me.txtAbgangszollstelle3.Location = New System.Drawing.Point(27, 160)
        Me.txtAbgangszollstelle3.MaxLineLength = 40
        Me.txtAbgangszollstelle3.MaxLines_Warning = "4"
        Me.txtAbgangszollstelle3.MaxLines_Warning_Label = Nothing
        Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
        Me.txtAbgangszollstelle3.Size = New System.Drawing.Size(167, 28)
        Me.txtAbgangszollstelle3.TabIndex = 504
        Me.txtAbgangszollstelle3.Text = ""
        '
        'txtAbgangszollstelle2
        '
        Me.txtAbgangszollstelle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtAbgangszollstelle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.txtAbgangszollstelle2.ForeColor = System.Drawing.Color.Black
        Me.txtAbgangszollstelle2.Location = New System.Drawing.Point(27, 122)
        Me.txtAbgangszollstelle2.MaxLineLength = 40
        Me.txtAbgangszollstelle2.MaxLines_Warning = "4"
        Me.txtAbgangszollstelle2.MaxLines_Warning_Label = Nothing
        Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
        Me.txtAbgangszollstelle2.Size = New System.Drawing.Size(167, 28)
        Me.txtAbgangszollstelle2.TabIndex = 505
        Me.txtAbgangszollstelle2.Text = ""
        '
        'txtAbgangszollstelle1
        '
        Me.txtAbgangszollstelle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtAbgangszollstelle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.txtAbgangszollstelle1.ForeColor = System.Drawing.Color.Black
        Me.txtAbgangszollstelle1.Location = New System.Drawing.Point(27, 88)
        Me.txtAbgangszollstelle1.MaxLineLength = 40
        Me.txtAbgangszollstelle1.MaxLines_Warning = "4"
        Me.txtAbgangszollstelle1.MaxLines_Warning_Label = Nothing
        Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
        Me.txtAbgangszollstelle1.Size = New System.Drawing.Size(167, 28)
        Me.txtAbgangszollstelle1.TabIndex = 506
        Me.txtAbgangszollstelle1.Text = ""
        '
        'txtAbgangszollstelle4
        '
        Me.txtAbgangszollstelle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtAbgangszollstelle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.txtAbgangszollstelle4.ForeColor = System.Drawing.Color.Black
        Me.txtAbgangszollstelle4.Location = New System.Drawing.Point(27, 194)
        Me.txtAbgangszollstelle4.MaxLineLength = 40
        Me.txtAbgangszollstelle4.MaxLines_Warning = "4"
        Me.txtAbgangszollstelle4.MaxLines_Warning_Label = Nothing
        Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4"
        Me.txtAbgangszollstelle4.Size = New System.Drawing.Size(167, 28)
        Me.txtAbgangszollstelle4.TabIndex = 507
        Me.txtAbgangszollstelle4.Text = ""
        '
        'txtAbgangszollstelle5
        '
        Me.txtAbgangszollstelle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtAbgangszollstelle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.txtAbgangszollstelle5.ForeColor = System.Drawing.Color.Black
        Me.txtAbgangszollstelle5.Location = New System.Drawing.Point(27, 228)
        Me.txtAbgangszollstelle5.MaxLineLength = 40
        Me.txtAbgangszollstelle5.MaxLines_Warning = "4"
        Me.txtAbgangszollstelle5.MaxLines_Warning_Label = Nothing
        Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5"
        Me.txtAbgangszollstelle5.Size = New System.Drawing.Size(167, 28)
        Me.txtAbgangszollstelle5.TabIndex = 508
        Me.txtAbgangszollstelle5.Text = ""
        '
        'txtAbgangszollstelle6
        '
        Me.txtAbgangszollstelle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtAbgangszollstelle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.txtAbgangszollstelle6.ForeColor = System.Drawing.Color.Black
        Me.txtAbgangszollstelle6.Location = New System.Drawing.Point(27, 264)
        Me.txtAbgangszollstelle6.MaxLineLength = 40
        Me.txtAbgangszollstelle6.MaxLines_Warning = "4"
        Me.txtAbgangszollstelle6.MaxLines_Warning_Label = Nothing
        Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6"
        Me.txtAbgangszollstelle6.Size = New System.Drawing.Size(167, 28)
        Me.txtAbgangszollstelle6.TabIndex = 509
        Me.txtAbgangszollstelle6.Text = ""
        '
        'txtAbgangszollstelle7
        '
        Me.txtAbgangszollstelle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtAbgangszollstelle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.txtAbgangszollstelle7.ForeColor = System.Drawing.Color.Black
        Me.txtAbgangszollstelle7.Location = New System.Drawing.Point(27, 298)
        Me.txtAbgangszollstelle7.MaxLineLength = 40
        Me.txtAbgangszollstelle7.MaxLines_Warning = "4"
        Me.txtAbgangszollstelle7.MaxLines_Warning_Label = Nothing
        Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7"
        Me.txtAbgangszollstelle7.Size = New System.Drawing.Size(167, 28)
        Me.txtAbgangszollstelle7.TabIndex = 510
        Me.txtAbgangszollstelle7.Text = ""
        '
        'txtGesamtpaket1
        '
        Me.txtGesamtpaket1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -425,15 +300,15 @@ Partial Class usrcntlTIR
        Me.dgvGegenstände.AllowUserToOrderColumns = True
        Me.dgvGegenstände.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.dgvGegenstände.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvGegenstände.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4})
+        Me.dgvGegenstände.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Zollamt, Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4})
-        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvGegenstände.DefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvGegenstände.DefaultCellStyle = DataGridViewCellStyle6
        Me.dgvGegenstände.GridColor = System.Drawing.Color.Gray
        Me.dgvGegenstände.Location = New System.Drawing.Point(17, 387)
        Me.dgvGegenstände.Name = "dgvGegenstände"
@@ -442,9 +317,130 @@ Partial Class usrcntlTIR
        Me.dgvGegenstände.Size = New System.Drawing.Size(673, 450)
        Me.dgvGegenstände.TabIndex = 525
        '
        'cbxAbgangszollstelle1
        '
        Me.cbxAbgangszollstelle1._allowedValuesFreiText = Nothing
        Me.cbxAbgangszollstelle1._allowFreiText = False
        Me.cbxAbgangszollstelle1._value = ""
        Me.cbxAbgangszollstelle1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
        Me.cbxAbgangszollstelle1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
        Me.cbxAbgangszollstelle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.cbxAbgangszollstelle1.FormattingEnabled = True
        Me.cbxAbgangszollstelle1.Location = New System.Drawing.Point(27, 88)
        Me.cbxAbgangszollstelle1.Name = "cbxAbgangszollstelle1"
        Me.cbxAbgangszollstelle1.Size = New System.Drawing.Size(165, 21)
        Me.cbxAbgangszollstelle1.TabIndex = 529
        '
        'cbxAbgangszollstelle2
        '
        Me.cbxAbgangszollstelle2._allowedValuesFreiText = Nothing
        Me.cbxAbgangszollstelle2._allowFreiText = True
        Me.cbxAbgangszollstelle2._value = ""
        Me.cbxAbgangszollstelle2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
        Me.cbxAbgangszollstelle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.cbxAbgangszollstelle2.FormattingEnabled = True
        Me.cbxAbgangszollstelle2.Location = New System.Drawing.Point(27, 125)
        Me.cbxAbgangszollstelle2.Name = "cbxAbgangszollstelle2"
        Me.cbxAbgangszollstelle2.Size = New System.Drawing.Size(165, 21)
        Me.cbxAbgangszollstelle2.TabIndex = 530
        '
        'cbxAbgangszollstelle3
        '
        Me.cbxAbgangszollstelle3._allowedValuesFreiText = Nothing
        Me.cbxAbgangszollstelle3._allowFreiText = True
        Me.cbxAbgangszollstelle3._value = ""
        Me.cbxAbgangszollstelle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.cbxAbgangszollstelle3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbxAbgangszollstelle3.FormattingEnabled = True
        Me.cbxAbgangszollstelle3.Location = New System.Drawing.Point(27, 161)
        Me.cbxAbgangszollstelle3.Name = "cbxAbgangszollstelle3"
        Me.cbxAbgangszollstelle3.Size = New System.Drawing.Size(165, 21)
        Me.cbxAbgangszollstelle3.TabIndex = 531
        '
        'cbxAbfahrtsland
        '
        Me.cbxAbfahrtsland._allowedValuesFreiText = Nothing
        Me.cbxAbfahrtsland._allowFreiText = False
        Me.cbxAbfahrtsland._value = ""
        Me.cbxAbfahrtsland.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
        Me.cbxAbfahrtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.cbxAbfahrtsland.DropDownWidth = 200
        Me.cbxAbfahrtsland.FormattingEnabled = True
        Me.cbxAbfahrtsland.Location = New System.Drawing.Point(207, 204)
        Me.cbxAbfahrtsland.Name = "cbxAbfahrtsland"
        Me.cbxAbfahrtsland.Size = New System.Drawing.Size(109, 21)
        Me.cbxAbfahrtsland.TabIndex = 532
        '
        'cbxAnkunftsland
        '
        Me.cbxAnkunftsland._allowedValuesFreiText = Nothing
        Me.cbxAnkunftsland._allowFreiText = False
        Me.cbxAnkunftsland._value = ""
        Me.cbxAnkunftsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.cbxAnkunftsland.DropDownWidth = 200
        Me.cbxAnkunftsland.FormattingEnabled = True
        Me.cbxAnkunftsland.Location = New System.Drawing.Point(345, 204)
        Me.cbxAnkunftsland.Name = "cbxAnkunftsland"
        Me.cbxAnkunftsland.Size = New System.Drawing.Size(110, 21)
        Me.cbxAnkunftsland.TabIndex = 533
        '
        'cbxAbgangszollstelle6
        '
        Me.cbxAbgangszollstelle6._allowedValuesFreiText = Nothing
        Me.cbxAbgangszollstelle6._allowFreiText = True
        Me.cbxAbgangszollstelle6._value = ""
        Me.cbxAbgangszollstelle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.cbxAbgangszollstelle6.FormattingEnabled = True
        Me.cbxAbgangszollstelle6.Location = New System.Drawing.Point(27, 266)
        Me.cbxAbgangszollstelle6.Name = "cbxAbgangszollstelle6"
        Me.cbxAbgangszollstelle6.Size = New System.Drawing.Size(165, 21)
        Me.cbxAbgangszollstelle6.TabIndex = 536
        '
        'cbxAbgangszollstelle5
        '
        Me.cbxAbgangszollstelle5._allowedValuesFreiText = Nothing
        Me.cbxAbgangszollstelle5._allowFreiText = True
        Me.cbxAbgangszollstelle5._value = ""
        Me.cbxAbgangszollstelle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.cbxAbgangszollstelle5.FormattingEnabled = True
        Me.cbxAbgangszollstelle5.Location = New System.Drawing.Point(27, 230)
        Me.cbxAbgangszollstelle5.Name = "cbxAbgangszollstelle5"
        Me.cbxAbgangszollstelle5.Size = New System.Drawing.Size(165, 21)
        Me.cbxAbgangszollstelle5.TabIndex = 535
        '
        'cbxAbgangszollstelle4
        '
        Me.cbxAbgangszollstelle4._allowedValuesFreiText = Nothing
        Me.cbxAbgangszollstelle4._allowFreiText = True
        Me.cbxAbgangszollstelle4._value = ""
        Me.cbxAbgangszollstelle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.cbxAbgangszollstelle4.FormattingEnabled = True
        Me.cbxAbgangszollstelle4.Location = New System.Drawing.Point(27, 193)
        Me.cbxAbgangszollstelle4.Name = "cbxAbgangszollstelle4"
        Me.cbxAbgangszollstelle4.Size = New System.Drawing.Size(165, 21)
        Me.cbxAbgangszollstelle4.TabIndex = 534
        '
        'cbxAbgangszollstelle7
        '
        Me.cbxAbgangszollstelle7._allowedValuesFreiText = Nothing
        Me.cbxAbgangszollstelle7._allowFreiText = True
        Me.cbxAbgangszollstelle7._value = ""
        Me.cbxAbgangszollstelle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.cbxAbgangszollstelle7.FormattingEnabled = True
        Me.cbxAbgangszollstelle7.Location = New System.Drawing.Point(27, 303)
        Me.cbxAbgangszollstelle7.Name = "cbxAbgangszollstelle7"
        Me.cbxAbgangszollstelle7.Size = New System.Drawing.Size(165, 21)
        Me.cbxAbgangszollstelle7.TabIndex = 537
        '
        'Zollamt
        '
        Me.Zollamt.HeaderText = "Zollamt"
        Me.Zollamt.Name = "Zollamt"
        Me.Zollamt.Width = 50
        '
        'DataGridViewTextBoxColumn1
        '
-        Me.DataGridViewTextBoxColumn1.HeaderText = "Container Laderaum"
+        Me.DataGridViewTextBoxColumn1.HeaderText = "Empfänger"
        Me.DataGridViewTextBoxColumn1.MaxInputLength = 156
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        Me.DataGridViewTextBoxColumn1.Width = 166
@@ -454,17 +450,18 @@ Partial Class usrcntlTIR
        Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
        Me.DataGridViewTextBoxColumn2.MaxInputLength = 50
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        Me.DataGridViewTextBoxColumn2.Width = 50
        '
        'DataGridViewTextBoxColumn3
        '
-        Me.DataGridViewTextBoxColumn3.HeaderText = "Art des Gegenstandes"
+        Me.DataGridViewTextBoxColumn3.HeaderText = "Ware"
        Me.DataGridViewTextBoxColumn3.MaxInputLength = 250
        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
        Me.DataGridViewTextBoxColumn3.Width = 320
        '
        'DataGridViewTextBoxColumn4
        '
-        Me.DataGridViewTextBoxColumn4.HeaderText = "Bruttogew."
+        Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht"
        Me.DataGridViewTextBoxColumn4.MaxInputLength = 90
        Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
        Me.DataGridViewTextBoxColumn4.Width = 90
@@ -473,6 +470,15 @@ Partial Class usrcntlTIR
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.Controls.Add(Me.cbxAbgangszollstelle7)
        Me.Controls.Add(Me.cbxAbgangszollstelle6)
        Me.Controls.Add(Me.cbxAbgangszollstelle5)
        Me.Controls.Add(Me.cbxAbgangszollstelle4)
        Me.Controls.Add(Me.cbxAnkunftsland)
        Me.Controls.Add(Me.cbxAbfahrtsland)
        Me.Controls.Add(Me.cbxAbgangszollstelle3)
        Me.Controls.Add(Me.cbxAbgangszollstelle2)
        Me.Controls.Add(Me.cbxAbgangszollstelle1)
        Me.Controls.Add(Me.dgvGegenstände)
        Me.Controls.Add(Me.txtGesamtpaketName4)
        Me.Controls.Add(Me.txtGesamtpaketName7)
@@ -488,17 +494,8 @@ Partial Class usrcntlTIR
        Me.Controls.Add(Me.txtGesamtpaket3)
        Me.Controls.Add(Me.txtGesamtpaket2)
        Me.Controls.Add(Me.txtGesamtpaket1)
        Me.Controls.Add(Me.txtAbgangszollstelle7)
        Me.Controls.Add(Me.txtAbgangszollstelle6)
        Me.Controls.Add(Me.txtAbgangszollstelle5)
        Me.Controls.Add(Me.txtAbgangszollstelle4)
        Me.Controls.Add(Me.txtAbgangszollstelle1)
        Me.Controls.Add(Me.txtAbgangszollstelle2)
        Me.Controls.Add(Me.txtAbgangszollstelle3)
        Me.Controls.Add(Me.txtZusDocument)
        Me.Controls.Add(Me.txtFahrzeug1)
        Me.Controls.Add(Me.txtBestimmungsland)
        Me.Controls.Add(Me.txtAbfahrtsland)
        Me.Controls.Add(Me.PictureBox1)
        Me.Name = "usrcntlTIR"
        Me.Size = New System.Drawing.Size(860, 1272)
@@ -509,17 +506,8 @@ Partial Class usrcntlTIR
    End Sub
    Friend WithEvents PictureBox1 As PictureBox
    Public WithEvents txtAbfahrtsland As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtBestimmungsland As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtFahrzeug1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtZusDocument As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtAbgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtAbgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtAbgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtAbgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtAbgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtAbgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtAbgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtGesamtpaket1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtGesamtpaket2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtGesamtpaket3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
@@ -535,6 +523,16 @@ Partial Class usrcntlTIR
    Public WithEvents txtGesamtpaketName5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents txtGesamtpaketName4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
    Public WithEvents dgvGegenstände As DataGridView
    Friend WithEvents cbxAbgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxAbgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxAbgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxAbfahrtsland As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxAnkunftsland As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxAbgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxAbgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxAbgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxAbgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents Zollamt As DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
--- a/SDL/Formulare/CARNET-TIR/usrcntlTIR.resx
+++ b/SDL/Formulare/CARNET-TIR/usrcntlTIR.resx
@@ -127,7 +127,7 @@
        i44l3CfclrZsyQ8mi5xWvKbYyq2YP/dULwwv2NNxpctsZYxxJplCw2CFJXIU6JLVFsUlJvvRCv4W3z8l
        LkNcS5jiGGEZC933o/7gd7duprenmBSOQvWT5721Q80WfG163ueh530dQegRLuySf/kABt9F3yxpbfvQ
        uA5nlyXN2IbzDWh+yOuO7kshmcFMBl5P5JtS0HQN9bPF3n72Ob6DhHQ1cQW7e9CRley5Cu+uLe/tzzN+
-        f0S/AXdfcqnO5vvHAAAACXBIWXMAAA7CAAAOwgEVKEqAAAAAB3RJTUUH5wMPCREIioV7sQAA/iBJREFU
+        f0S/AXdfcqnO5vvHAAAACXBIWXMAAA6/AAAOvwE4BVMkAAAAB3RJTUUH5wMPCREIioV7sQAA/iBJREFU
        eF7svQd4HUd2JfxLa+9Ee5ztXXvXm+y1vbYn55ykUc4SSQVKlEgFSqQCRVHMOeecQBIESYAAiMicM0ES
        IAAi55zjQ873P+dW13uNhwcKGsmztnfe952v+1VXVw731K26/f991K+1o/Z3WtprvtnQUvFudWPx0sqG
        omXVzaVL69orl9R3Vi1p6qpe3N7bsLB3wLNgQFrmA/OAOf3imY3rLJHWmcAM4ENgGtw+6B/wTO3ta3q/
@@ -19439,6 +19439,9 @@
        idhk3hPvDU6/N/j7l3/5fwCC4tlmQEaMlwAAAABJRU5ErkJggg==
 </value>
  </data>
  <metadata name="Zollamt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
  <metadata name="DataGridViewTextBoxColumn1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
--- a/SDL/Formulare/CARNET-TIR/usrcntlTIR.vb
+++ b/SDL/Formulare/CARNET-TIR/usrcntlTIR.vb
@@ -8,7 +8,7 @@
            dgvGegenstände.Rows.Add("", "", "", "")
        Next
-        txtAbgangszollstelle1.Text = "SUBEN"
+        cbxAbgangszollstelle1._value = "SUBEN"
    End Sub
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
-<Assembly: AssemblyVersion("1.2.4.5")>
+<Assembly: AssemblyVersion("1.2.4.7")>
-<Assembly: AssemblyFileVersion("1.2.4.5")>
+<Assembly: AssemblyFileVersion("1.2.4.7")>
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -279,9 +279,6 @@
    <Reference Include="Microsoft.ReportViewer.WinForms, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91">
      <Private>True</Private>
    </Reference>
    <Reference Include="Newtonsoft.Json, Version=12.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
      <HintPath>..\..\..\AVISO\Aviso\packages\Newtonsoft.Json.12.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
    </Reference>
    <Reference Include="NumericBox">
      <HintPath>..\..\..\dll\NumericBox.dll</HintPath>
    </Reference>
@@ -525,6 +522,12 @@
    <Compile Include="Classes\cKassenbuch.vb" />
    <Compile Include="Classes\cVERAG_Card.vb" />
    <Compile Include="cProgramFunctions.vb" />
    <Compile Include="Creditsafe\usrcntlCreditsafe.Designer.vb">
      <DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
    </Compile>
    <Compile Include="Creditsafe\usrcntlCreditsafe.vb">
      <SubType>UserControl</SubType>
    </Compile>
    <Compile Include="cServerClient.vb" />
    <Compile Include="cSourceListWrapper.vb" />
    <Compile Include="cSplitButton.vb">
@@ -2875,6 +2878,9 @@
    <EmbeddedResource Include="Checkliste\subRptVM.resx">
      <DependentUpon>subRptVM.vb</DependentUpon>
    </EmbeddedResource>
    <EmbeddedResource Include="Creditsafe\usrcntlCreditsafe.resx">
      <DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
    </EmbeddedResource>
    <EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.resx">
      <DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
    </EmbeddedResource>
--- a/SDL/kunden/frmKundenblatt.Designer.vb
+++ b/SDL/kunden/frmKundenblatt.Designer.vb
@@ -42,6 +42,7 @@ Partial Class frmKundenblatt
        Me.txtInfotext = New System.Windows.Forms.Label()
        Me.tbFirmendaten = New System.Windows.Forms.TabPage()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
        Me.tbcntrMain = New System.Windows.Forms.TabControl()
        Me.tbAllgemein = New System.Windows.Forms.TabPage()
        Me.Label17 = New System.Windows.Forms.Label()
@@ -116,8 +117,10 @@ Partial Class frmKundenblatt
        Me.lblLetzterSA_SDL = New System.Windows.Forms.Label()
        Me.rtbVermerke = New System.Windows.Forms.RichTextBox()
        Me.tbSDLKarten = New System.Windows.Forms.TabPage()
        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
        Me.tbLKW = New System.Windows.Forms.TabPage()
        Me.pnlLKWRight = New System.Windows.Forms.Panel()
        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
        Me.pnlLKW = New System.Windows.Forms.Panel()
        Me.dgvLKW = New System.Windows.Forms.DataGridView()
        Me.pnlLKWBottom = New System.Windows.Forms.Panel()
@@ -148,6 +151,7 @@ Partial Class frmKundenblatt
        Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
        Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
        Me.tbOfferte = New System.Windows.Forms.TabPage()
        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
        Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
@@ -172,10 +176,6 @@ Partial Class frmKundenblatt
        Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
        Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
        Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
        Me.pnlInfo.SuspendLayout()
        Me.tbFirmendaten.SuspendLayout()
        Me.Panel4.SuspendLayout()
@@ -247,7 +247,7 @@ Partial Class frmKundenblatt
        Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
        Me.tbFirmendaten.Name = "tbFirmendaten"
        Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbFirmendaten.Size = New System.Drawing.Size(1623, 727)
+        Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 727)
        Me.tbFirmendaten.TabIndex = 3
        Me.tbFirmendaten.Text = "Firmendaten"
        '
@@ -257,9 +257,19 @@ Partial Class frmKundenblatt
        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel4.Location = New System.Drawing.Point(3, 3)
        Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(1617, 721)
+        Me.Panel4.Size = New System.Drawing.Size(1624, 721)
        Me.Panel4.TabIndex = 0
        '
        'UsrcntlKundeBearbeitenFull1
        '
        Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
        Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
        Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
        Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 721)
        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
        '
        'tbcntrMain
        '
        Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -307,7 +317,7 @@ Partial Class frmKundenblatt
        Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
        Me.tbAllgemein.Name = "tbAllgemein"
        Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbAllgemein.Size = New System.Drawing.Size(1630, 744)
+        Me.tbAllgemein.Size = New System.Drawing.Size(1630, 727)
        Me.tbAllgemein.TabIndex = 0
        Me.tbAllgemein.Text = "Allgemein"
        '
@@ -642,7 +652,7 @@ Partial Class frmKundenblatt
        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
        Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
-        Me.dgvSperrliste.Size = New System.Drawing.Size(835, 634)
+        Me.dgvSperrliste.Size = New System.Drawing.Size(835, 617)
        Me.dgvSperrliste.TabIndex = 23
        '
        'PictureBox2
@@ -696,7 +706,7 @@ Partial Class frmKundenblatt
        Me.tbZoll.Location = New System.Drawing.Point(4, 25)
        Me.tbZoll.Name = "tbZoll"
        Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbZoll.Size = New System.Drawing.Size(1623, 727)
+        Me.tbZoll.Size = New System.Drawing.Size(1630, 727)
        Me.tbZoll.TabIndex = 9
        Me.tbZoll.Text = "ZOLL"
        Me.tbZoll.UseVisualStyleBackColor = True
@@ -708,7 +718,7 @@ Partial Class frmKundenblatt
        Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
        Me.tbcntrZOLL.Name = "tbcntrZOLL"
        Me.tbcntrZOLL.SelectedIndex = 0
-        Me.tbcntrZOLL.Size = New System.Drawing.Size(1617, 721)
+        Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 721)
        Me.tbcntrZOLL.TabIndex = 0
        '
        'tabZoll_Artikel
@@ -716,7 +726,7 @@ Partial Class frmKundenblatt
        Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
        Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
        Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
-        Me.tabZoll_Artikel.Size = New System.Drawing.Size(1609, 695)
+        Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 695)
        Me.tabZoll_Artikel.TabIndex = 1
        Me.tabZoll_Artikel.Text = "Artikel"
        Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -757,7 +767,7 @@ Partial Class frmKundenblatt
        Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
        Me.tbSDL.Name = "tbSDL"
        Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSDL.Size = New System.Drawing.Size(1616, 712)
+        Me.tbSDL.Size = New System.Drawing.Size(1616, 695)
        Me.tbSDL.TabIndex = 5
        Me.tbSDL.Text = "SDL-Leistungen"
        Me.tbSDL.UseVisualStyleBackColor = True
@@ -799,7 +809,7 @@ Partial Class frmKundenblatt
        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
        Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10
        Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 516)
+        Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 499)
        Me.dgvSDLLeistungenFull.TabIndex = 5
        '
        'Panel6
@@ -903,7 +913,7 @@ Partial Class frmKundenblatt
        Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
        Me.Panel5.Controls.Add(Me.rtbVermerke)
        Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel5.Location = New System.Drawing.Point(3, 566)
+        Me.Panel5.Location = New System.Drawing.Point(3, 549)
        Me.Panel5.Name = "Panel5"
        Me.Panel5.Size = New System.Drawing.Size(1610, 143)
        Me.Panel5.TabIndex = 177
@@ -1276,11 +1286,21 @@ Partial Class frmKundenblatt
        Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
        Me.tbSDLKarten.Name = "tbSDLKarten"
        Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSDLKarten.Size = New System.Drawing.Size(1609, 695)
+        Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
        Me.tbSDLKarten.TabIndex = 7
        Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
        Me.tbSDLKarten.UseVisualStyleBackColor = True
        '
        'usrcntlKarten
        '
        Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
        Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
        Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
        Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.usrcntlKarten.Name = "usrcntlKarten"
        Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
        Me.usrcntlKarten.TabIndex = 0
        '
        'tbLKW
        '
        Me.tbLKW.Controls.Add(Me.pnlLKWRight)
@@ -1288,7 +1308,7 @@ Partial Class frmKundenblatt
        Me.tbLKW.Location = New System.Drawing.Point(4, 22)
        Me.tbLKW.Name = "tbLKW"
        Me.tbLKW.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbLKW.Size = New System.Drawing.Size(1616, 695)
+        Me.tbLKW.Size = New System.Drawing.Size(178, 39)
        Me.tbLKW.TabIndex = 4
        Me.tbLKW.Text = "LKWs"
        Me.tbLKW.UseVisualStyleBackColor = True
@@ -1300,9 +1320,22 @@ Partial Class frmKundenblatt
        Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3)
        Me.pnlLKWRight.Name = "pnlLKWRight"
        Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.pnlLKWRight.Size = New System.Drawing.Size(1304, 689)
+        Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33)
        Me.pnlLKWRight.TabIndex = 2
        '
        'UsrCntlLKW1
        '
        Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
        Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
        Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
        Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
        Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33)
        Me.UsrCntlLKW1.TabIndex = 0
        '
        'pnlLKW
        '
        Me.pnlLKW.Controls.Add(Me.dgvLKW)
@@ -1311,7 +1344,7 @@ Partial Class frmKundenblatt
        Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left
        Me.pnlLKW.Location = New System.Drawing.Point(3, 3)
        Me.pnlLKW.Name = "pnlLKW"
-        Me.pnlLKW.Size = New System.Drawing.Size(306, 689)
+        Me.pnlLKW.Size = New System.Drawing.Size(306, 33)
        Me.pnlLKW.TabIndex = 3
        '
        'dgvLKW
@@ -1352,7 +1385,7 @@ Partial Class frmKundenblatt
        Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
        Me.dgvLKW.RowHeadersVisible = False
        Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvLKW.Size = New System.Drawing.Size(306, 515)
+        Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
        Me.dgvLKW.TabIndex = 2
        '
        'pnlLKWBottom
@@ -1364,7 +1397,7 @@ Partial Class frmKundenblatt
        Me.pnlLKWBottom.Controls.Add(Me.Button13)
        Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse)
        Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 577)
+        Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79)
        Me.pnlLKWBottom.Name = "pnlLKWBottom"
        Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112)
        Me.pnlLKWBottom.TabIndex = 3
@@ -1505,7 +1538,7 @@ Partial Class frmKundenblatt
        Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22)
        Me.tbVERAGCard.Name = "tbVERAGCard"
        Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbVERAGCard.Size = New System.Drawing.Size(1609, 695)
+        Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39)
        Me.tbVERAGCard.TabIndex = 6
        Me.tbVERAGCard.Text = "VERAG Card"
        Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -1517,7 +1550,7 @@ Partial Class frmKundenblatt
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel3.Location = New System.Drawing.Point(3, 3)
        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(1603, 689)
+        Me.Panel3.Size = New System.Drawing.Size(172, 33)
        Me.Panel3.TabIndex = 0
        '
        'tbDokumente
@@ -1535,7 +1568,7 @@ Partial Class frmKundenblatt
        Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd)
        Me.tbDokumente.Location = New System.Drawing.Point(4, 22)
        Me.tbDokumente.Name = "tbDokumente"
-        Me.tbDokumente.Size = New System.Drawing.Size(1609, 695)
+        Me.tbDokumente.Size = New System.Drawing.Size(178, 39)
        Me.tbDokumente.TabIndex = 8
        Me.tbDokumente.Text = "Dokumente"
        Me.tbDokumente.UseVisualStyleBackColor = True
@@ -1733,7 +1766,7 @@ Partial Class frmKundenblatt
        Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22)
        Me.tbBesuchsberichte.Name = "tbBesuchsberichte"
        Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbBesuchsberichte.Size = New System.Drawing.Size(1609, 695)
+        Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
        Me.tbBesuchsberichte.TabIndex = 9
        Me.tbBesuchsberichte.Text = "Besuchsberichte"
        Me.tbBesuchsberichte.UseVisualStyleBackColor = True
@@ -1744,11 +1777,21 @@ Partial Class frmKundenblatt
        Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
        Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
        Me.tbOfferte.Name = "tbOfferte"
-        Me.tbOfferte.Size = New System.Drawing.Size(1623, 727)
+        Me.tbOfferte.Size = New System.Drawing.Size(1630, 727)
        Me.tbOfferte.TabIndex = 11
        Me.tbOfferte.Text = "Offerte"
        Me.tbOfferte.UseVisualStyleBackColor = True
        '
        'UsrCntlOfferte1
        '
        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 727)
        Me.UsrCntlOfferte1.TabIndex = 0
        '
        'cntxtExcel
        '
        Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -2008,49 +2051,6 @@ Partial Class frmKundenblatt
        Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
        Me.tbiVERAGCard.Text = "VERAG Card"
        '
        'UsrcntlKundeBearbeitenFull1
        '
        Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
        Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
        Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
        Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1617, 721)
        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
        '
        'usrcntlKarten
        '
        Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
        Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
        Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
        Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.usrcntlKarten.Name = "usrcntlKarten"
        Me.usrcntlKarten.Size = New System.Drawing.Size(1603, 689)
        Me.usrcntlKarten.TabIndex = 0
        '
        'UsrCntlLKW1
        '
        Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
        Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
        Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
        Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
        Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 689)
        Me.UsrCntlLKW1.TabIndex = 0
        '
        'UsrCntlOfferte1
        '
        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1623, 727)
        Me.UsrCntlOfferte1.TabIndex = 0
        '
        'frmKundenblatt
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
@@ -71,13 +71,17 @@ Partial Class usrCntlKundenuebersicht
        Me.lblKdNr = New System.Windows.Forms.TextBox()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.grpAbfertigung = New System.Windows.Forms.GroupBox()
        Me.Panel9 = New System.Windows.Forms.Panel()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.txtVerzolltBeiExport = New System.Windows.Forms.TextBox()
        Me.txtVerzolltBei = New System.Windows.Forms.TextBox()
        Me.rtbInfo = New System.Windows.Forms.RichTextBox()
        Me.txtNeutralisierung = New System.Windows.Forms.TextBox()
        Me.lblNeutralisierung = New System.Windows.Forms.Label()
        Me.lklGanzerText = New System.Windows.Forms.LinkLabel()
        Me.lblNoGespr = New System.Windows.Forms.Label()
        Me.txtVorauskasse = New System.Windows.Forms.TextBox()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.lblAviso = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
@@ -106,6 +110,7 @@ Partial Class usrCntlKundenuebersicht
        Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
        Me.lblBesonderheiten = New System.Windows.Forms.Label()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.btnCreditsafe = New System.Windows.Forms.Button()
        Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.Label68 = New System.Windows.Forms.Label()
@@ -130,7 +135,6 @@ Partial Class usrCntlKundenuebersicht
        Me.Label1 = New System.Windows.Forms.Label()
        Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.lblVorkasse = New System.Windows.Forms.Label()
        Me.txtVerzolltBei = New System.Windows.Forms.TextBox()
        Me.grpAdresse = New System.Windows.Forms.GroupBox()
        Me.tbKontakt = New System.Windows.Forms.TabControl()
        Me.tbKontaktKontakt = New System.Windows.Forms.TabPage()
@@ -246,9 +250,6 @@ Partial Class usrCntlKundenuebersicht
        Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnReloadOP = New System.Windows.Forms.Button()
        Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtVerzolltBeiExport = New System.Windows.Forms.TextBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Panel9 = New System.Windows.Forms.Panel()
        Me.cntxtAddVM.SuspendLayout()
        Me.tbWeitereKundenDetails.SuspendLayout()
        Me.tbOfferten.SuspendLayout()
@@ -265,6 +266,7 @@ Partial Class usrCntlKundenuebersicht
        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel3.SuspendLayout()
        Me.grpAbfertigung.SuspendLayout()
        Me.Panel9.SuspendLayout()
        Me.pnlVERAGSnspr.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.Panel5.SuspendLayout()
@@ -297,7 +299,6 @@ Partial Class usrCntlKundenuebersicht
        Me.ContextMenuStrip3.SuspendLayout()
        Me.ContextMenuStrip2.SuspendLayout()
        Me.ContextMenuStrip4.SuspendLayout()
        Me.Panel9.SuspendLayout()
        Me.SuspendLayout()
        '
        'cntxtAddVM
@@ -846,6 +847,61 @@ Partial Class usrCntlKundenuebersicht
        Me.grpAbfertigung.TabStop = False
        Me.grpAbfertigung.Text = "Abfertigung"
        '
        'Panel9
        '
        Me.Panel9.BackColor = System.Drawing.Color.WhiteSmoke
        Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel9.Controls.Add(Me.Label3)
        Me.Panel9.Controls.Add(Me.Label15)
        Me.Panel9.Controls.Add(Me.txtVerzolltBeiExport)
        Me.Panel9.Controls.Add(Me.txtVerzolltBei)
        Me.Panel9.Location = New System.Drawing.Point(7, 231)
        Me.Panel9.Name = "Panel9"
        Me.Panel9.Size = New System.Drawing.Size(356, 24)
        Me.Panel9.TabIndex = 46
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(197, 4)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 13)
        Me.Label3.TabIndex = 45
        Me.Label3.Text = "Export:"
        '
        'Label15
        '
        Me.Label15.AutoSize = True
        Me.Label15.Location = New System.Drawing.Point(3, 4)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(61, 13)
        Me.Label15.TabIndex = 15
        Me.Label15.Text = "Verzollt bei:"
        '
        'txtVerzolltBeiExport
        '
        Me.txtVerzolltBeiExport.BackColor = System.Drawing.Color.WhiteSmoke
        Me.txtVerzolltBeiExport.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtVerzolltBeiExport.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtVerzolltBeiExport.ForeColor = System.Drawing.Color.Black
        Me.txtVerzolltBeiExport.Location = New System.Drawing.Point(243, 4)
        Me.txtVerzolltBeiExport.Name = "txtVerzolltBeiExport"
        Me.txtVerzolltBeiExport.ReadOnly = True
        Me.txtVerzolltBeiExport.Size = New System.Drawing.Size(106, 13)
        Me.txtVerzolltBeiExport.TabIndex = 44
        '
        'txtVerzolltBei
        '
        Me.txtVerzolltBei.BackColor = System.Drawing.Color.WhiteSmoke
        Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black
        Me.txtVerzolltBei.Location = New System.Drawing.Point(70, 4)
        Me.txtVerzolltBei.Name = "txtVerzolltBei"
        Me.txtVerzolltBei.ReadOnly = True
        Me.txtVerzolltBei.Size = New System.Drawing.Size(128, 13)
        Me.txtVerzolltBei.TabIndex = 16
        '
        'rtbInfo
        '
        Me.rtbInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -917,15 +973,6 @@ Partial Class usrCntlKundenuebersicht
        Me.txtVorauskasse.TabIndex = 26
        Me.txtVorauskasse.Visible = False
        '
        'Label15
        '
        Me.Label15.AutoSize = True
        Me.Label15.Location = New System.Drawing.Point(3, 4)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(61, 13)
        Me.Label15.TabIndex = 15
        Me.Label15.Text = "Verzollt bei:"
        '
        'lblAviso
        '
        Me.lblAviso.BackColor = System.Drawing.Color.White
@@ -1361,6 +1408,7 @@ Partial Class usrCntlKundenuebersicht
        '
        Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel4.Controls.Add(Me.btnCreditsafe)
        Me.Panel4.Controls.Add(Me.FlatButton6)
        Me.Panel4.Controls.Add(Me.btnBonitaetBearbeiten)
        Me.Panel4.Controls.Add(Me.Label68)
@@ -1376,6 +1424,16 @@ Partial Class usrCntlKundenuebersicht
        Me.Panel4.Size = New System.Drawing.Size(662, 26)
        Me.Panel4.TabIndex = 37
        '
        'btnCreditsafe
        '
        Me.btnCreditsafe.Location = New System.Drawing.Point(582, 3)
        Me.btnCreditsafe.Name = "btnCreditsafe"
        Me.btnCreditsafe.Size = New System.Drawing.Size(67, 20)
        Me.btnCreditsafe.TabIndex = 10
        Me.btnCreditsafe.Text = "Creditsafe"
        Me.btnCreditsafe.UseVisualStyleBackColor = True
        Me.btnCreditsafe.Visible = False
        '
        'FlatButton6
        '
        Me.FlatButton6.allowBorder = False
@@ -1451,7 +1509,7 @@ Partial Class usrCntlKundenuebersicht
        Me.Label69.Name = "Label69"
        Me.Label69.Size = New System.Drawing.Size(70, 13)
        Me.Label69.TabIndex = 6
-        Me.Label69.Text = "Höchstkredit:"
+        Me.Label69.Text = "Hochstkredit:"
        '
        'lblBonitaet
        '
@@ -1793,18 +1851,6 @@ Partial Class usrCntlKundenuebersicht
        Me.lblVorkasse.Text = "Vorauskasse:"
        Me.lblVorkasse.Visible = False
        '
        'txtVerzolltBei
        '
        Me.txtVerzolltBei.BackColor = System.Drawing.Color.WhiteSmoke
        Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black
        Me.txtVerzolltBei.Location = New System.Drawing.Point(70, 4)
        Me.txtVerzolltBei.Name = "txtVerzolltBei"
        Me.txtVerzolltBei.ReadOnly = True
        Me.txtVerzolltBei.Size = New System.Drawing.Size(128, 13)
        Me.txtVerzolltBei.TabIndex = 16
        '
        'grpAdresse
        '
        Me.grpAdresse.BackColor = System.Drawing.Color.White
@@ -3209,40 +3255,6 @@ Partial Class usrCntlKundenuebersicht
        Me.cboFirmaFMZOLL.TabIndex = 10
        Me.cboFirmaFMZOLL.Visible = False
        '
        'txtVerzolltBeiExport
        '
        Me.txtVerzolltBeiExport.BackColor = System.Drawing.Color.WhiteSmoke
        Me.txtVerzolltBeiExport.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtVerzolltBeiExport.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtVerzolltBeiExport.ForeColor = System.Drawing.Color.Black
        Me.txtVerzolltBeiExport.Location = New System.Drawing.Point(243, 4)
        Me.txtVerzolltBeiExport.Name = "txtVerzolltBeiExport"
        Me.txtVerzolltBeiExport.ReadOnly = True
        Me.txtVerzolltBeiExport.Size = New System.Drawing.Size(106, 13)
        Me.txtVerzolltBeiExport.TabIndex = 44
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(197, 4)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 13)
        Me.Label3.TabIndex = 45
        Me.Label3.Text = "Export:"
        '
        'Panel9
        '
        Me.Panel9.BackColor = System.Drawing.Color.WhiteSmoke
        Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel9.Controls.Add(Me.Label3)
        Me.Panel9.Controls.Add(Me.Label15)
        Me.Panel9.Controls.Add(Me.txtVerzolltBeiExport)
        Me.Panel9.Controls.Add(Me.txtVerzolltBei)
        Me.Panel9.Location = New System.Drawing.Point(7, 231)
        Me.Panel9.Name = "Panel9"
        Me.Panel9.Size = New System.Drawing.Size(356, 24)
        Me.Panel9.TabIndex = 46
        '
        'usrCntlKundenuebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3283,6 +3295,8 @@ Partial Class usrCntlKundenuebersicht
        Me.Panel3.ResumeLayout(False)
        Me.grpAbfertigung.ResumeLayout(False)
        Me.grpAbfertigung.PerformLayout()
        Me.Panel9.ResumeLayout(False)
        Me.Panel9.PerformLayout()
        Me.pnlVERAGSnspr.ResumeLayout(False)
        Me.pnlVERAGSnspr.PerformLayout()
        Me.Panel4.ResumeLayout(False)
@@ -3326,8 +3340,6 @@ Partial Class usrCntlKundenuebersicht
        Me.ContextMenuStrip3.ResumeLayout(False)
        Me.ContextMenuStrip2.ResumeLayout(False)
        Me.ContextMenuStrip4.ResumeLayout(False)
        Me.Panel9.ResumeLayout(False)
        Me.Panel9.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()
@@ -3546,4 +3558,5 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents Panel9 As Panel
    Friend WithEvents Label3 As Label
    Friend WithEvents txtVerzolltBeiExport As TextBox
    Friend WithEvents btnCreditsafe As Button
 End Class
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -1,8 +1,12 @@
 Imports System.Data.SqlClient
 Imports System.Globalization
 Imports System.IO
 Imports com.oracle.xmlns.internal.webservices.jaxws_databinding
 Imports com.sun.org.apache.bcel.internal.generic
 Imports java.rmi.server
 Imports SDL.EORI
 Imports sun.invoke.empty
 Imports VERAG_PROG_ALLGEMEIN
 Public Class usrCntlKundenuebersicht
    'Implements INotifyPropertyChanged
@@ -197,6 +201,7 @@ Public Class usrCntlKundenuebersicht
            pnlSperre.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTEN_SPERRE", "SDL")
            btnCreditsafe.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL")
            If kdNr > 0 Then setKD(kdNr)
@@ -274,7 +279,7 @@ Public Class usrCntlKundenuebersicht
            If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then
                tbWeitereKundenDetails.TabPages.Add(tbUmsatz)
                tbWeitereKundenDetails.TabPages.Add(tbOffenePosten)
-                  ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then
+            ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then
                tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
            End If
        End If
@@ -2429,7 +2434,7 @@ Public Class usrCntlKundenuebersicht
        Dim EORI_NR = KUNDE.EORITIN.ToString()
-        EORI_NR.Replace("-", "").Replace(" ", "").Trim
+        EORI_NR.Replace("-", "").Replace(" ", "").Trim()
        If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
@@ -2694,7 +2699,60 @@ Public Class usrCntlKundenuebersicht
    End Sub
-    Private Sub dgvVertraege_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellContentClick
+    Private Sub btnCreditsafe_Click(sender As Object, e As EventArgs) Handles btnCreditsafe.Click
        Dim UID As String = ""
        Dim land As String = checkNullStr(ADRESSE.UstIdKz)
        Dim name As String = checkNullStr(ADRESSE.Name_1)
        Cursor = Cursors.WaitCursor
        KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
        If KUNDE_ERW.kde_CreditSaveId = "" Then
            If checkNullStr(ADRESSE.UstIdKz) <> "" Or checkNullStr(ADRESSE.UstIdNr) <> "" Then
                UID = checkNullStr(ADRESSE.UstIdKz) & " " & checkNullStr(ADRESSE.UstIdNr)
            End If
            Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe(UID, name, land)
                Using tmpForm As Form = New Form()
                    tmpForm.Width = UserControl1.Width
                    tmpForm.Height = UserControl1.Height + 40
                    tmpForm.Text = "Creditsafe-Prüfung"
                    tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
                    tmpForm.Controls.Add(UserControl1)
                    If tmpForm.ShowDialog() = DialogResult.OK Then
                        KUNDE_ERW.kde_CreditSaveId = UserControl1.comp.credissafeId
                        KUNDE_ERW.SAVE()
                    End If
                End Using
            End Using
        Else
            Dim cs = New cCreditSafeAPI()
            If cs.authenticate(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd) = "200" Then
                Dim a As MsgBoxResult = MsgBox("Soll der neue CS-Bericht angefügt werden?.", vbYesNo)
                If a = vbYes Then
                    MsgBox(cs.companyCreditreport(KUNDE_ERW.kde_CreditSaveId))
                End If
            Else
                MsgBox("Authentiizierungsfehler für User " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser)
            End If
        End If
        Cursor = Cursors.Default
    End Sub
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.tbcntrDetails = New System.Windows.Forms.TabControl()
        Me.tbAbfertigung = New System.Windows.Forms.TabPage()
        Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
@@ -219,6 +219,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbSonstiges = New System.Windows.Forms.TabPage()
        Me.Label99 = New System.Windows.Forms.Label()
        Me.txtCreditsafe = New System.Windows.Forms.TextBox()
        Me.txtSonst_KdNrTOBB = New System.Windows.Forms.TextBox()
        Me.Label96 = New System.Windows.Forms.Label()
        Me.txtSonst_KdNrPLOSE = New System.Windows.Forms.TextBox()
@@ -250,6 +252,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label33 = New System.Windows.Forms.Label()
        Me.Label84 = New System.Windows.Forms.Label()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.btnCreditsafe = New System.Windows.Forms.Button()
        Me.Button13 = New System.Windows.Forms.Button()
        Me.btnUIDPruef = New System.Windows.Forms.Button()
        Me.txtEORINL = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -2563,8 +2566,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
        Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
        Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
        Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
        Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -2663,8 +2666,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvOffenePosten.AllowUserToDeleteRows = False
        Me.dgvOffenePosten.AllowUserToOrderColumns = True
        Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
        Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
        Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -2824,41 +2827,41 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvKreditkarten.AllowUserToDeleteRows = False
        Me.dgvKreditkarten.AllowUserToOrderColumns = True
        Me.dgvKreditkarten.AllowUserToResizeRows = False
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
        Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14
+        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
        Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle15
+        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
        Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
        Me.dgvKreditkarten.MultiSelect = False
        Me.dgvKreditkarten.Name = "dgvKreditkarten"
        Me.dgvKreditkarten.ReadOnly = True
-        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16
+        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
        Me.dgvKreditkarten.RowHeadersVisible = False
-        DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle17
+        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
        Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -2998,8 +3001,8 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'dgvUstv_LaenderUndSteuernummern
        '
-        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
+        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
        Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
@@ -3138,6 +3141,8 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'tbSonstiges
        '
        Me.tbSonstiges.Controls.Add(Me.Label99)
        Me.tbSonstiges.Controls.Add(Me.txtCreditsafe)
        Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrTOBB)
        Me.tbSonstiges.Controls.Add(Me.Label96)
        Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrPLOSE)
@@ -3169,9 +3174,26 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbSonstiges.Text = "Sonstiges"
        Me.tbSonstiges.UseVisualStyleBackColor = True
        '
        'Label99
        '
        Me.Label99.AutoSize = True
        Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label99.Location = New System.Drawing.Point(6, 34)
        Me.Label99.Name = "Label99"
        Me.Label99.Size = New System.Drawing.Size(68, 13)
        Me.Label99.TabIndex = 24
        Me.Label99.Text = "ID Creditsafe"
        '
        'txtCreditsafe
        '
        Me.txtCreditsafe.Location = New System.Drawing.Point(119, 31)
        Me.txtCreditsafe.Name = "txtCreditsafe"
        Me.txtCreditsafe.Size = New System.Drawing.Size(122, 20)
        Me.txtCreditsafe.TabIndex = 23
        '
        'txtSonst_KdNrTOBB
        '
-        Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(119, 201)
+        Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(119, 208)
        Me.txtSonst_KdNrTOBB.MaxLength = 20
        Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB"
        Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20)
@@ -3182,7 +3204,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label96.AutoSize = True
        Me.Label96.Enabled = False
        Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label96.Location = New System.Drawing.Point(6, 204)
+        Me.Label96.Location = New System.Drawing.Point(6, 211)
        Me.Label96.Name = "Label96"
        Me.Label96.Size = New System.Drawing.Size(83, 13)
        Me.Label96.TabIndex = 21
@@ -3191,7 +3213,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'txtSonst_KdNrPLOSE
        '
        Me.txtSonst_KdNrPLOSE.Enabled = False
-        Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(119, 175)
+        Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(119, 182)
        Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE"
        Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(122, 20)
        Me.txtSonst_KdNrPLOSE.TabIndex = 20
@@ -3201,7 +3223,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label83.AutoSize = True
        Me.Label83.Enabled = False
        Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label83.Location = New System.Drawing.Point(6, 178)
+        Me.Label83.Location = New System.Drawing.Point(6, 185)
        Me.Label83.Name = "Label83"
        Me.Label83.Size = New System.Drawing.Size(89, 13)
        Me.Label83.TabIndex = 19
@@ -3211,7 +3233,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label76.AutoSize = True
        Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label76.Location = New System.Drawing.Point(9, 233)
+        Me.Label76.Location = New System.Drawing.Point(9, 235)
        Me.Label76.Name = "Label76"
        Me.Label76.Size = New System.Drawing.Size(65, 13)
        Me.Label76.TabIndex = 17
@@ -3220,8 +3242,8 @@ Partial Class usrcntlKundeBearbeitenFull
        'dgvSonst_IDSKunden
        '
        Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
-        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
        Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
        Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
@@ -3233,7 +3255,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxSonst_CsvAsfinag
        '
        Me.cbxSonst_CsvAsfinag.AutoSize = True
-        Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 228)
+        Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 230)
        Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag"
        Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(264, 17)
        Me.cbxSonst_CsvAsfinag.TabIndex = 15
@@ -3243,7 +3265,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxSonst_CsvUTA
        '
        Me.cbxSonst_CsvUTA.AutoSize = True
-        Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(274, 151)
+        Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(274, 156)
        Me.cbxSonst_CsvUTA.Name = "cbxSonst_CsvUTA"
        Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(240, 17)
        Me.cbxSonst_CsvUTA.TabIndex = 14
@@ -3253,7 +3275,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxSonst_CsvMSE
        '
        Me.cbxSonst_CsvMSE.AutoSize = True
-        Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(274, 99)
+        Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(274, 104)
        Me.cbxSonst_CsvMSE.Name = "cbxSonst_CsvMSE"
        Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(241, 17)
        Me.cbxSonst_CsvMSE.TabIndex = 9
@@ -3272,7 +3294,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'txtSonst_KdNrUTA
        '
-        Me.txtSonst_KdNrUTA.Location = New System.Drawing.Point(119, 149)
+        Me.txtSonst_KdNrUTA.Location = New System.Drawing.Point(119, 156)
        Me.txtSonst_KdNrUTA.Name = "txtSonst_KdNrUTA"
        Me.txtSonst_KdNrUTA.Size = New System.Drawing.Size(122, 20)
        Me.txtSonst_KdNrUTA.TabIndex = 13
@@ -3281,7 +3303,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label75.AutoSize = True
        Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label75.Location = New System.Drawing.Point(6, 152)
+        Me.Label75.Location = New System.Drawing.Point(6, 159)
        Me.Label75.Name = "Label75"
        Me.Label75.Size = New System.Drawing.Size(76, 13)
        Me.Label75.TabIndex = 12
@@ -3289,7 +3311,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'txtSonst_KdNrTelepass
        '
-        Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(119, 123)
+        Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(119, 130)
        Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass"
        Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20)
        Me.txtSonst_KdNrTelepass.TabIndex = 11
@@ -3298,7 +3320,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label74.AutoSize = True
        Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label74.Location = New System.Drawing.Point(6, 126)
+        Me.Label74.Location = New System.Drawing.Point(6, 133)
        Me.Label74.Name = "Label74"
        Me.Label74.Size = New System.Drawing.Size(109, 13)
        Me.Label74.TabIndex = 10
@@ -3306,7 +3328,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'txtSonst_KdNrMSE
        '
-        Me.txtSonst_KdNrMSE.Location = New System.Drawing.Point(119, 97)
+        Me.txtSonst_KdNrMSE.Location = New System.Drawing.Point(119, 104)
        Me.txtSonst_KdNrMSE.Name = "txtSonst_KdNrMSE"
        Me.txtSonst_KdNrMSE.Size = New System.Drawing.Size(122, 20)
        Me.txtSonst_KdNrMSE.TabIndex = 8
@@ -3315,7 +3337,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label73.AutoSize = True
        Me.Label73.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label73.Location = New System.Drawing.Point(6, 100)
+        Me.Label73.Location = New System.Drawing.Point(6, 107)
        Me.Label73.Name = "Label73"
        Me.Label73.Size = New System.Drawing.Size(77, 13)
        Me.Label73.TabIndex = 7
@@ -3323,7 +3345,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'txtSonst_KdNrWOELFL
        '
-        Me.txtSonst_KdNrWOELFL.Location = New System.Drawing.Point(119, 71)
+        Me.txtSonst_KdNrWOELFL.Location = New System.Drawing.Point(119, 78)
        Me.txtSonst_KdNrWOELFL.Name = "txtSonst_KdNrWOELFL"
        Me.txtSonst_KdNrWOELFL.Size = New System.Drawing.Size(122, 20)
        Me.txtSonst_KdNrWOELFL.TabIndex = 6
@@ -3332,7 +3354,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label72.AutoSize = True
        Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label72.Location = New System.Drawing.Point(6, 74)
+        Me.Label72.Location = New System.Drawing.Point(6, 81)
        Me.Label72.Name = "Label72"
        Me.Label72.Size = New System.Drawing.Size(78, 13)
        Me.Label72.TabIndex = 5
@@ -3341,7 +3363,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'txtSonst_KdNrIDS
        '
        Me.txtSonst_KdNrIDS.Enabled = False
-        Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(119, 45)
+        Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(119, 52)
        Me.txtSonst_KdNrIDS.Name = "txtSonst_KdNrIDS"
        Me.txtSonst_KdNrIDS.Size = New System.Drawing.Size(122, 20)
        Me.txtSonst_KdNrIDS.TabIndex = 4
@@ -3351,7 +3373,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label70.AutoSize = True
        Me.Label70.Enabled = False
        Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label70.Location = New System.Drawing.Point(6, 48)
+        Me.Label70.Location = New System.Drawing.Point(6, 55)
        Me.Label70.Name = "Label70"
        Me.Label70.Size = New System.Drawing.Size(72, 13)
        Me.Label70.TabIndex = 3
@@ -3441,8 +3463,8 @@ Partial Class usrcntlKundeBearbeitenFull
        'DataGridView1
        '
        Me.DataGridView1.AllowUserToResizeRows = False
-        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
        Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.DataGridView1.Enabled = False
@@ -3474,6 +3496,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.btnCreditsafe)
        Me.GroupBox3.Controls.Add(Me.Button13)
        Me.GroupBox3.Controls.Add(Me.btnUIDPruef)
        Me.GroupBox3.Controls.Add(Me.txtEORINL)
@@ -3499,6 +3522,18 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Firma"
        '
        'btnCreditsafe
        '
        Me.btnCreditsafe.BackgroundImage = Global.SDL.My.Resources.Resources.plus
        Me.btnCreditsafe.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
        Me.btnCreditsafe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnCreditsafe.Location = New System.Drawing.Point(15, 64)
        Me.btnCreditsafe.Name = "btnCreditsafe"
        Me.btnCreditsafe.Size = New System.Drawing.Size(38, 31)
        Me.btnCreditsafe.TabIndex = 25
        Me.btnCreditsafe.UseVisualStyleBackColor = True
        Me.btnCreditsafe.Visible = False
        '
        'Button13
        '
        Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list
@@ -4746,4 +4781,7 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents Panel1 As Panel
    Friend WithEvents btnDatevExport As Button
    Friend WithEvents Label98 As Label
    Friend WithEvents btnCreditsafe As Button
    Friend WithEvents Label99 As Label
    Friend WithEvents txtCreditsafe As TextBox
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -1,5 +1,8 @@
 Imports System.ComponentModel
 Imports com.sun.org.apache.bcel.internal.generic
 Imports GrapeCity.ActiveReports.ReportsCore.Tools
 Imports java.rmi.server
 Imports VERAG_PROG_ALLGEMEIN
 Public Class usrcntlKundeBearbeitenFull
@@ -377,6 +380,8 @@ Public Class usrcntlKundeBearbeitenFull
        initKdKontakSpeziell()
        btnCreditsafe.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL")
        Me.Cursor = Cursors.Default
    End Sub
@@ -512,6 +517,7 @@ Public Class usrcntlKundeBearbeitenFull
        KUNDE.Sammelrechnung = cboAbf_Sammelrechnung._value
        KUNDE_ERW.kde_FakturierungSR_Details = cbxSammelrechnungBerichtLeistungsdetails.Checked
        KUNDE_ERW.kde_CreditSaveId =
        KUNDE.EORITIN = isLeerNothing(txtEORI.Text)
        If IsNumeric(txtEORINL.Text) Then
@@ -1456,4 +1462,43 @@ Public Class usrcntlKundeBearbeitenFull
        End If
    End Sub
    Private Sub btnCreditsafe_Click(sender As Object, e As EventArgs) Handles btnCreditsafe.Click
        Cursor = Cursors.WaitCursor
        Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe()
            Using tmpForm As Form = New Form()
                tmpForm.Width = UserControl1.Width
                tmpForm.Height = UserControl1.Height + 40
                tmpForm.Text = "Creditsafe-Prüfung"
                tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
                tmpForm.Controls.Add(UserControl1)
                If tmpForm.ShowDialog() = DialogResult.OK Then
                    txtKurzname.Text = UserControl1.comp.name & ";" & UserControl1.comp.city
                    txtFirmenname1.Text = UserControl1.comp.name
                    cboUSt_UstIdNrLand.changeItem(UserControl1.comp.country)
                    If UserControl1.comp.country IsNot Nothing Then
                        txtUSt_UstIdNr.Text = UserControl1.comp.vatNo.Replace(UserControl1.comp.country, "")
                    Else
                        txtUSt_UstIdNr.Text = UserControl1.comp.vatNo
                    End If
                    txtCreditsafe.Text = UserControl1.comp.credissafeId
                    txtStrasse.Text = UserControl1.comp.street
                        txtOrt.Text = UserControl1.comp.city
                        txtPlz.Text = UserControl1.comp.postCode
                        txtTel.Text = UserControl1.comp.phoneNo
                    End If
            End Using
        End Using
        Cursor = Cursors.Default
    End Sub
 End Class
--- a/SDL/packages.config
+++ b/SDL/packages.config
@@ -8,7 +8,7 @@
  <package id="IKVM" version="8.0.5449.1" targetFramework="net47" />
  <package id="LiveCharts" version="0.6.7.0" targetFramework="net40-Client" requireReinstallation="True" />
  <package id="Microsoft.CSharp" version="4.7.0" targetFramework="net47" />
-  <package id="Newtonsoft.Json" version="12.0.3" targetFramework="net47" />
+  <package id="Newtonsoft.Json" version="13.0.3" targetFramework="net47" />
  <package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net47" />
  <package id="System.IO.Packaging" version="4.0.0" targetFramework="net47" />
  <package id="TAlex.WPF.Controls" version="2.0.1.0" targetFramework="net40-Client" />
--- a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
@@ -12,6 +12,7 @@ Public Class cAvisoAnhaenge
    Property anh_Reihenfolge As Integer = 99
    Property anh_LaufzettelDruck As Boolean = False
    Property anh_GestellungslisteAnfuegen As Boolean = False
    Property anh_markiert As Boolean = False
    Public hasEntry As Boolean = False
@@ -37,6 +38,12 @@ Public Class cAvisoAnhaenge
        Me.anh_Typ = anh_Typ
        Me.anh_Reihenfolge = anh_Reihenfolge
        If anh_Art.ToString.Equals("Auftrag") Then
            anh_markiert = True
        End If
    End Sub
@@ -52,6 +59,7 @@ Public Class cAvisoAnhaenge
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Reihenfolge", anh_Reihenfolge))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_LaufzettelDruck", anh_LaufzettelDruck))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_GestellungslisteAnfuegen", anh_GestellungslisteAnfuegen))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_markiert", anh_markiert))
        Return list
    End Function
--- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
@@ -52,6 +52,8 @@ Public Class cKundenErweitert
    Property kde_CreditSaveBonitaetsklasse As Object = Nothing
    Property kde_CreditSaveBonitaetsIndex As Object = Nothing
    Property kde_CreditSaveBonitaetsScore As Object = Nothing
    Property kde_CreditSaveId As String = ""
    Property kde_Inkasso_Uebergeben As Boolean = False
    Property kde_Inkasso_UebergebenAm As Object = Nothing
    Property kde_Inkasso_GemeldeterBetrag As Object = Nothing
@@ -140,6 +142,7 @@ Public Class cKundenErweitert
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsklasse", kde_CreditSaveBonitaetsklasse))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsIndex", kde_CreditSaveBonitaetsIndex))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsScore", kde_CreditSaveBonitaetsScore))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveId", kde_CreditSaveId))
        Return list
    End Function
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
@@ -0,0 +1,271 @@
 Imports System.IO
 Imports System.Net
 Imports System.Text
 Imports System.Web.UI.WebControls
 Imports System.Windows.Forms
 Imports Microsoft.Office.Interop.Outlook
 Imports Newtonsoft.Json
 Imports Spire.Pdf.Lists
 Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 Public Class cCreditSafeAPI
    'Test
    Shared API_STRING As String = "https://connect.sandbox.creditsafe.com"
    'PROD
    'Shared API_STRING As String = "https://connect.creditsafe.com"
    Shared token As String = ""
    Public dataTable As New DataTable()
    Shared Function SendRequestAuthentificationToken(myuri As String, user As CreditSafeUser, contentType As String, method As String) As String
        Try
            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
            Dim rest As New Chilkat.Rest
            Dim success As Boolean
            Dim bTls As Boolean = True
            Dim port As Integer = 443
            Dim bAutoReconnect As Boolean = True
            success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
            If (success <> True) Then
                Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
                Debug.WriteLine(rest.LastErrorText)
                Return rest.LastErrorText
            End If
            Dim json As New Chilkat.JsonObject
            json.UpdateString("username", user.username)
            json.UpdateString("password", user.password)
            rest.AddHeader("Content-Type", contentType)
            Dim sbRequestBody As New Chilkat.StringBuilder
            json.EmitSb(sbRequestBody)
            Dim sbResponseBody As New Chilkat.StringBuilder
            Dim ResponseStr = rest.FullRequestSb(method, myuri, sbRequestBody, sbResponseBody)
            If (rest.ResponseStatusCode <> 200) Then
                Return rest.ResponseStatusCode
            End If
            Dim jsonResp = New Chilkat.JsonObject()
            jsonResp.LoadSb(sbResponseBody)
            token = jsonResp.StringOf("token")
            Return rest.ResponseStatusCode
        Catch ex As WebException
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Function
    Shared Function SendGetRequestWithAuthHeader(url As String, company As Company, method As String, authenticationToken As String) As String
        Try
            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
            Dim rest As New Chilkat.Rest
            Dim success As Boolean
            Dim bTls As Boolean = True
            Dim port As Integer = 443
            Dim bAutoReconnect As Boolean = True
            success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
            If (success <> True) Then
                Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
                Debug.WriteLine(rest.LastErrorText)
            End If
            rest.ClearAllQueryParams()
            If company IsNot Nothing Then
                If company.vatNo <> "" Then
                    rest.AddQueryParam("vatNo", company.vatNo)
                Else
                    If company.name <> "" Then
                        rest.AddQueryParam("name", company.name)
                    End If
                End If
                If company.country <> "" Then
                    rest.AddQueryParam("countries", company.country)
                End If
            End If
            rest.AddHeader("Content-Type", "application/json")
            rest.AddHeader("Authorization", "Bearer " & authenticationToken)
            If company IsNot Nothing Then
                rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json")
            Else
                rest.AddHeader("Accept", "application/json+pdf")
            End If
            Dim responseJson As String = rest.FullRequestNoBody(method, url)
            If (rest.LastMethodSuccess <> True) Then
                Debug.WriteLine(rest.LastErrorText)
                MsgBox(rest.LastErrorText)
            End If
            Return responseJson
        Catch ex As WebException
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Function
    Shared Function authenticate(username As String, passwort As String) As String
        Dim myUri As String = API_STRING & "/v1/authenticate"
        Dim csUser = New CreditSafeUser(username, passwort)
        Dim response = SendRequestAuthentificationToken(myUri, csUser, "application/json", "POST")
        Return response
    End Function
    Shared Function searchCompanies(conpanyname As String, vatNo As String, country As String, ByRef dataTable As DataTable) As String
        VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
        Dim myUrl As String = API_STRING & "/v1/companies"
        Dim company = New Company(conpanyname, vatNo, country)
        Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "GET", token)
        'Dim test As String = "{""correlationId"":""9194edd0-1a4a-4520-a332-7306b7c027ca"",""totalSize"":1,""companies"":[{""id"":""AT-X-7256130"",""country"":""AT"",""regNo"":""FN 410356 s"",""vatNo"":[""ATU 68490714""],""safeNo"":""AT05607514"",""name"":""Imex Customs Service GmbH"",""address"":{""simpleValue"":""Autobahngrenze 15, 4975, Suben"",""street"":""Autobahngrenze 15"",""city"":""Suben"",""postCode"":""4975""},""status"":""active"",""officeType"":""headOffice"",""type"":""Ltd"",""dateOfLatestAccounts"":""2021-12-31T00:00:00.000000Z"",""dateOfLatestChange"":""2023-03-03T02:38:30.000Z""}]}"
        'jsonRespString = test
        Dim json As New Chilkat.JsonObject
        Dim success As Boolean = json.Load(jsonRespString)
        If (success <> True) Then
            Debug.WriteLine(json.LastErrorText)
            Return "Verbindungsfehler"
        End If
        Dim num As Integer = json.SizeOfArray("companies")
        If num = 0 Then
            Return json.StringOf("messages[0].text")
        End If
        Dim companies As Chilkat.JsonArray = json.ArrayOf("companies")
        If (json.LastMethodSuccess = False) Then
            Return "companies member not found."
        End If
        Dim numCompanies As Integer = companies.Size
        Dim j As Integer = 0
        While j < numCompanies
            Dim compObj As Chilkat.JsonObject = companies.ObjectAt(j)
            Dim index = companies.FindString("address", False)
            Dim adressObj As Chilkat.JsonObject = compObj.ObjectOf("address")
            'Debug.WriteLine(adressObj.StringOf("simpleValue"))
            Debug.WriteLine(compObj.StringOf("id") & " " & compObj.StringOf("phoneNo") & " " & compObj.StringOf("phoneNumbers[0]"))
            Dim R As DataRow = dataTable.NewRow
            R("id") = compObj.StringOf("id")
            R("name") = compObj.StringOf("name")
            R("country") = compObj.StringOf("country")
            R("safeNo") = compObj.StringOf("safeNo")
            R("vatNo") = compObj.StringOf("vatNo[0]")
            R("regNo") = compObj.StringOf("regNo")
            R("street") = adressObj.StringOf("street")
            R("city") = adressObj.StringOf("city")
            R("postCode") = adressObj.StringOf("postCode")
            R("status") = compObj.StringOf("status")
            R("dateOfLatestChange") = compObj.StringOf("dateOfLatestChange")
            R("phoneNo") = compObj.StringOf("phoneNumbers[0]")
            dataTable.Rows.Add(R)
            j = j + 1
        End While
        Return "Anzahl gefundener Datensätze: " & numCompanies
    End Function
    Shared Function companyCreditreport(id As String) As String
        Dim myUrl As String = API_STRING & "/v1/companies/" & id
        Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, Nothing, "GET", token)
        Dim json As New Chilkat.JsonObject
        Dim success As Boolean = json.Load(jsonRespString)
        If (success <> True) Then
            Debug.WriteLine(json.LastErrorText)
            Return "Verbindungsfehler"
        End If
        Dim num As Integer = json.SizeOfArray("companies")
        If num = -1 Then
            Return json.StringOf("details")
        End If
        Return "test"
    End Function
    Public Class CreditSafeUser
        Public Property username As String
        Public Property password As String
        Public Property token As String
        Public Sub New(_username As String, _password As String)
            username = _username
            password = _password
        End Sub
        Public Sub New(_username As String, _password As String, _token As String)
            username = _username
            password = _password
        End Sub
    End Class
    Public Class Company
        Public Property name As String
        Public Property vatNo As String
        Public Property country As String
        Public Sub New(_name As String, _vatNo As String, _country As String)
            name = _name
            vatNo = _vatNo
            country = _country
        End Sub
    End Class
 End Class
--- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
@@ -572,6 +572,7 @@
    <Compile Include="RKSV_DE\cServerClient_RKSV_DE.vb" />
    <Compile Include="Schnittstellen\ATEZ\cATEZ_NCTS.vb" />
    <Compile Include="Schnittstellen\cBMD_Interface.vb" />
    <Compile Include="Schnittstellen\cCreditSafeAPI.vb" />
    <Compile Include="Schnittstellen\cDatev_Interface.vb" />
    <Compile Include="Schnittstellen\cDeeplAPI.vb" />
    <Compile Include="Schnittstellen\cDVO_Interface.vb" />
@@ -1199,7 +1200,7 @@
      <Version>3.8.0</Version>
    </PackageReference>
    <PackageReference Include="Newtonsoft.Json">
-      <Version>13.0.2</Version>
+      <Version>13.0.3</Version>
    </PackageReference>
  </ItemGroup>
  <ItemGroup>