Creditsafe_API

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" />

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

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>

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

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

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

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

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

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>

SDL/Formulare/CARNET-TIR/usrcntlTIR.vb

@@ -8,7 +8,7 @@
             dgvGegenstände.Rows.Add("", "", "", "")
         Next
 
-        txtAbgangszollstelle1.Text = "SUBEN"
+        cbxAbgangszollstelle1._value = "SUBEN"
 
     End Sub
 

SDL/My 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")>

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>

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!)

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

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

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

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

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" />

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

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

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

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>