TIR-Formular

2023-03-15 16:32:35 +01:00
parent 409fb2d14a
commit 9cc83bff9e
10 changed files with 21390 additions and 0 deletions
--- a/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb
+++ b/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb
@@ -0,0 +1,339 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTIR
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.btnNeu = New System.Windows.Forms.Button()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.btnLaden = New System.Windows.Forms.Button()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.cboAbriss777 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        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()
+        Me.lblEigenmasse = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.UsrCntlTIR1 = New SDL.usrcntlTIR()
+        Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.UsrCntlTIR1)
+        Me.Panel1.Location = New System.Drawing.Point(0, 96)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(925, 1086)
+        Me.Panel1.TabIndex = 0
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Controls.Add(Me.cboFirma)
+        Me.Panel2.Controls.Add(Me.btnNeu)
+        Me.Panel2.Controls.Add(Me.Label13)
+        Me.Panel2.Controls.Add(Me.btnLaden)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(937, 94)
+        Me.Panel2.TabIndex = 1
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(293, 8)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(134, 20)
+        Me.Label3.TabIndex = 7
+        Me.Label3.Text = "9999/99999999"
+        Me.Label3.Visible = False
+        '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = False
+        Me.cboFirma._value = ""
+        Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboFirma.Enabled = False
+        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(454, 18)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(109, 24)
+        Me.cboFirma.TabIndex = 5
+        '
+        'btnNeu
+        '
+        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeu.Location = New System.Drawing.Point(569, 18)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(82, 23)
+        Me.btnNeu.TabIndex = 4
+        Me.btnNeu.Text = "Neu"
+        Me.btnNeu.UseVisualStyleBackColor = True
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label13.Location = New System.Drawing.Point(14, 18)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(114, 20)
+        Me.Label13.TabIndex = 0
+        Me.Label13.Text = "CARNET TIR"
+        '
+        'btnLaden
+        '
+        Me.btnLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnLaden.Location = New System.Drawing.Point(569, 47)
+        Me.btnLaden.Name = "btnLaden"
+        Me.btnLaden.Size = New System.Drawing.Size(82, 23)
+        Me.btnLaden.TabIndex = 2
+        Me.btnLaden.Text = "Laden"
+        Me.btnLaden.UseVisualStyleBackColor = True
+        '
+        'Panel3
+        '
+        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        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)
+        Me.Panel3.Controls.Add(Me.lblEigenmasse)
+        Me.Panel3.Controls.Add(Me.Label6)
+        Me.Panel3.Controls.Add(Me.Button1)
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel3.Location = New System.Drawing.Point(0, 1185)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(937, 69)
+        Me.Panel3.TabIndex = 5
+        '
+        'cboAbriss777
+        '
+        Me.cboAbriss777._allowedValuesFreiText = Nothing
+        Me.cboAbriss777._allowFreiText = True
+        Me.cboAbriss777._value = ""
+        Me.cboAbriss777.FormattingEnabled = True
+        Me.cboAbriss777.Location = New System.Drawing.Point(684, 20)
+        Me.cboAbriss777.Name = "cboAbriss777"
+        Me.cboAbriss777.Size = New System.Drawing.Size(55, 21)
+        Me.cboAbriss777.TabIndex = 15
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(619, 23)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(38, 13)
+        Me.Label5.TabIndex = 14
+        Me.Label5.Text = "Abriss:"
+        '
+        'btnDelete
+        '
+        Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDelete.Location = New System.Drawing.Point(355, 39)
+        Me.btnDelete.Name = "btnDelete"
+        Me.btnDelete.Size = New System.Drawing.Size(108, 24)
+        Me.btnDelete.TabIndex = 12
+        Me.btnDelete.Text = "Vorlage löschen"
+        Me.btnDelete.UseVisualStyleBackColor = True
+        Me.btnDelete.Visible = False
+        '
+        'lblGedruckt
+        '
+        Me.lblGedruckt.AutoSize = True
+        Me.lblGedruckt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblGedruckt.ForeColor = System.Drawing.Color.Green
+        Me.lblGedruckt.Location = New System.Drawing.Point(169, 18)
+        Me.lblGedruckt.Name = "lblGedruckt"
+        Me.lblGedruckt.Size = New System.Drawing.Size(71, 17)
+        Me.lblGedruckt.TabIndex = 11
+        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(15, 26)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(137, 13)
+        Me.Label2.TabIndex = 8
+        Me.Label2.Text = "Speichern als (Suchbegriff):"
+        '
+        '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(18, 42)
+        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
+        Me.Button2.Location = New System.Drawing.Point(267, 39)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(82, 24)
+        Me.Button2.TabIndex = 10
+        Me.Button2.Text = "Speichern"
+        Me.Button2.UseVisualStyleBackColor = True
+        Me.Button2.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(466, 25)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(48, 13)
+        Me.Label1.TabIndex = 6
+        Me.Label1.Text = "Drucker:"
+        '
+        'cboPrinter
+        '
+        Me.cboPrinter._allowedValuesFreiText = Nothing
+        Me.cboPrinter._allowFreiText = False
+        Me.cboPrinter._value = ""
+        Me.cboPrinter.FormattingEnabled = True
+        Me.cboPrinter.Location = New System.Drawing.Point(469, 41)
+        Me.cboPrinter.Name = "cboPrinter"
+        Me.cboPrinter.Size = New System.Drawing.Size(144, 21)
+        Me.cboPrinter.TabIndex = 7
+        '
+        'lblEigenmasse
+        '
+        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.Name = "lblEigenmasse"
+        Me.lblEigenmasse.Size = New System.Drawing.Size(32, 13)
+        Me.lblEigenmasse.TabIndex = 5
+        Me.lblEigenmasse.Text = "0 kg"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(15, 4)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(87, 13)
+        Me.Label6.TabIndex = 4
+        Me.Label6.Text = "Summe Gewicht:"
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(745, 14)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(98, 48)
+        Me.Button1.TabIndex = 3
+        Me.Button1.Text = "Drucken"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlTIR1
+        '
+        Me.UsrCntlTIR1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlTIR1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlTIR1.Name = "UsrCntlTIR1"
+        Me.UsrCntlTIR1.Size = New System.Drawing.Size(937, 1155)
+        Me.UsrCntlTIR1.TabIndex = 0
+        '
+        'frmTIR
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(937, 1254)
+        Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel1)
+        Me.Name = "frmTIR"
+        Me.Text = "frmTIR"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents UsrCntlTIR1 As usrcntlTIR
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Label3 As Label
+    Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents btnNeu As Button
+    Friend WithEvents Label13 As Label
+    Friend WithEvents btnLaden As Button
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents cboAbriss777 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    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
+End Class
--- a/SDL/Formulare/CARNET-TIR/frmTIR.resx
+++ b/SDL/Formulare/CARNET-TIR/frmTIR.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>
--- a/SDL/Formulare/CARNET-TIR/frmTIR.vb
+++ b/SDL/Formulare/CARNET-TIR/frmTIR.vb
@@ -0,0 +1,181 @@
+Imports GrapeCity.ActiveReports
+
+Public Class frmTIR
+
+
+    Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        AddHandler UsrCntlTIR1.DGVchanged, AddressOf UsrCntlTIR1_SomethChanged
+
+        If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            btnLaden.Visible = False
+        End If
+
+        lblGedruckt.Visible = False
+
+        cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0", "0"))
+        cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12", "12"))
+        cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14", "14"))
+        cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17", "17"))
+        cboAbriss777.changeItem("12")
+
+        cProgramFunctions.initDrucker(cboPrinter, "TALLY")
+
+    End Sub
+
+    Private Sub print_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Cursor = Cursors.WaitCursor
+        Dim rpt As New rptTIR(cboAbriss777._value)
+
+        Dim anzahl_778 As Integer = 0
+
+        rpt.txtAbgangszollstelle1.Text = If(UsrCntlTIR1.txtAbgangszollstelle1.Text, "")
+        rpt.txtAbgangszollstelle2.Text = If(UsrCntlTIR1.txtAbgangszollstelle2.Text, "")
+        rpt.txtAbgangszollstelle3.Text = If(UsrCntlTIR1.txtAbgangszollstelle3.Text, "")
+        rpt.txtAbgangszollstelle4.Text = If(UsrCntlTIR1.txtAbgangszollstelle4.Text, "")
+        rpt.txtAbgangszollstelle5.Text = If(UsrCntlTIR1.txtAbgangszollstelle5.Text, "")
+        rpt.txtAbgangszollstelle6.Text = If(UsrCntlTIR1.txtAbgangszollstelle6.Text, "")
+        rpt.txtAbgangszollstelle7.Text = If(UsrCntlTIR1.txtAbgangszollstelle7.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, "")
+
+
+
+
+        rpt.txtGesamtpaket1.Text = If(UsrCntlTIR1.txtGesamtpaket1.Text, "")
+        rpt.txtGesamtpaket2.Text = If(UsrCntlTIR1.txtGesamtpaket2.Text, "")
+        rpt.txtGesamtpaket3.Text = If(UsrCntlTIR1.txtGesamtpaket3.Text, "")
+        rpt.txtGesamtpaket4.Text = If(UsrCntlTIR1.txtGesamtpaket4.Text, "")
+        rpt.txtGesamtpaket5.Text = If(UsrCntlTIR1.txtGesamtpaket5.Text, "")
+        rpt.txtGesamtpaket6.Text = If(UsrCntlTIR1.txtGesamtpaket6.Text, "")
+        rpt.txtGesamtpaket7.Text = If(UsrCntlTIR1.txtGesamtpaket7.Text, "")
+
+
+        rpt.txtGesamtpaketName1.Text = If(UsrCntlTIR1.txtGesamtpaketName1.Text, "")
+        rpt.txtGesamtpaketName2.Text = If(UsrCntlTIR1.txtGesamtpaketName2.Text, "")
+        rpt.txtGesamtpaketName3.Text = If(UsrCntlTIR1.txtGesamtpaketName3.Text, "")
+        rpt.txtGesamtpaketName4.Text = If(UsrCntlTIR1.txtGesamtpaketName4.Text, "")
+        rpt.txtGesamtpaketName5.Text = If(UsrCntlTIR1.txtGesamtpaketName5.Text, "")
+        rpt.txtGesamtpaketName6.Text = If(UsrCntlTIR1.txtGesamtpaketName6.Text, "")
+        rpt.txtGesamtpaketName7.Text = If(UsrCntlTIR1.txtGesamtpaketName7.Text, "")
+
+        rpt.txtMain1.Text = ""
+        rpt.txtMain2.Text = ""
+        rpt.txtMain3.Text = ""
+
+
+        For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows
+            If r IsNot Nothing Then
+
+                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.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(3).Value & vbNewLine, "")
+
+
+            End If
+        Next
+
+
+        Try
+            rpt.Run(False)
+            rpt.Document.Printer.PrinterName = cboPrinter._value
+            rpt.Document.Print(CBool(cboPrinter.Text = ""), False)
+            rpt.Dispose()
+            lblGedruckt.Visible = True
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+        Me.Cursor = Cursors.Default
+
+    End Sub
+
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
+
+        For Each c As Control In UsrCntlTIR1.Controls
+            If TypeOf c Is RichTextBox Then
+                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("", "", "", "")
+                Next
+
+            End If
+
+        Next
+        lblGedruckt.Visible = False
+
+    End Sub
+
+    Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles btnLaden.Click
+
+        UsrCntlTIR1.txtAbgangszollstelle1.Text = "Testtext1"
+        UsrCntlTIR1.txtAbgangszollstelle2.Text = "Testtext2"
+        UsrCntlTIR1.txtAbgangszollstelle3.Text = "Testtext3"
+        UsrCntlTIR1.txtAbgangszollstelle4.Text = "Testtext4"
+        UsrCntlTIR1.txtAbgangszollstelle5.Text = "Testtext5"
+        UsrCntlTIR1.txtAbgangszollstelle6.Text = "Testtext6"
+        UsrCntlTIR1.txtAbgangszollstelle7.Text = "Testtext7"
+
+        UsrCntlTIR1.txtAbfahrtsland.Text = "TestABFL"
+        UsrCntlTIR1.txtBestimmungsland.Text = "TestBESTL"
+        UsrCntlTIR1.txtFahrzeug1.Text = "XXXXXXX" & vbNewLine & "Fahrezeug 1"
+        UsrCntlTIR1.txtZusDocument.Text = "Testtext1"
+
+        UsrCntlTIR1.dgvGegenstände.Rows.Clear()
+
+        For i As Integer = 0 To 10
+            If i < 4 Then
+                UsrCntlTIR1.dgvGegenstände.Rows.Add(i & "-Test", "Testtext", "Text", i & "")
+            Else
+                UsrCntlTIR1.dgvGegenstände.Rows.Add("", "", "", "")
+            End If
+
+        Next
+
+        UsrCntlTIR1.txtGesamtpaket1.Text = "Paket1"
+        UsrCntlTIR1.txtGesamtpaket2.Text = "Paket2"
+        UsrCntlTIR1.txtGesamtpaket3.Text = "Paket3"
+        UsrCntlTIR1.txtGesamtpaket4.Text = "Paket4"
+        UsrCntlTIR1.txtGesamtpaket5.Text = "Paket5"
+        UsrCntlTIR1.txtGesamtpaket6.Text = "Paket6"
+        UsrCntlTIR1.txtGesamtpaket7.Text = "Paket7"
+
+
+        UsrCntlTIR1.txtGesamtpaketName1.Text = "1"
+        UsrCntlTIR1.txtGesamtpaketName2.Text = "2"
+        UsrCntlTIR1.txtGesamtpaketName3.Text = "3"
+        UsrCntlTIR1.txtGesamtpaketName4.Text = "4"
+        UsrCntlTIR1.txtGesamtpaketName5.Text = "5"
+        UsrCntlTIR1.txtGesamtpaketName6.Text = "6"
+        UsrCntlTIR1.txtGesamtpaketName7.Text = "7"
+
+
+
+    End Sub
+
+    Private Sub UsrCntlTIR1_SomethChanged() Handles UsrCntlTIR1.DGVchanged
+
+        Dim count As Double = 0
+
+        For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows
+
+            If r IsNot Nothing And IsNumeric(r.Cells(3).Value) Then
+                count += CDbl(r.Cells(3).Value)
+            End If
+
+
+        Next
+
+        lblEigenmasse.Text = count & " kg"
+
+    End Sub
+End Class
--- a/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb
+++ b/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb
@@ -0,0 +1,566 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptTIR
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.txtAbfahrsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaket1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMain1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbgangszollstelle1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbgangszollstelle2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbgangszollstelle3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbgangszollstelle4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbgangszollstelle5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbgangszollstelle6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbgangszollstelle7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtBestimmungsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFahrzeug = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtZusDok = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMain2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMain3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaketName1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaket2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaketName2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaket3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaketName3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaket7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaketName7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaket4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaketName4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGesamtpaket5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        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()
+        CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbgangszollstelle4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbgangszollstelle5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbgangszollstelle6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbgangszollstelle7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaket7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaketName7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaket4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaketName4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaket5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaketName5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Height = 0!
+        Me.Detail.Name = "Detail"
+        '
+        '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.ReportHeader1.Height = 11.42519!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'txtAbfahrsland
+        '
+        Me.txtAbfahrsland.CanGrow = False
+        Me.txtAbfahrsland.DataField = ""
+        Me.txtAbfahrsland.DistinctField = ""
+        Me.txtAbfahrsland.Height = 0.431!
+        Me.txtAbfahrsland.Left = 1.987!
+        Me.txtAbfahrsland.Name = "txtAbfahrsland"
+        Me.txtAbfahrsland.Style = "color: Black"
+        Me.txtAbfahrsland.SummaryGroup = ""
+        Me.txtAbfahrsland.Text = "Abfahrsland"
+        Me.txtAbfahrsland.Top = 1.683!
+        Me.txtAbfahrsland.Width = 1.092!
+        '
+        'txtGesamtpaket1
+        '
+        Me.txtGesamtpaket1.CanGrow = False
+        Me.txtGesamtpaket1.DataField = ""
+        Me.txtGesamtpaket1.DistinctField = ""
+        Me.txtGesamtpaket1.Height = 0.1968504!
+        Me.txtGesamtpaket1.Left = 0.479!
+        Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
+        Me.txtGesamtpaket1.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaket1.SummaryGroup = ""
+        Me.txtGesamtpaket1.Text = "Gesamtpaket1"
+        Me.txtGesamtpaket1.Top = 8.120001!
+        Me.txtGesamtpaket1.Width = 1.415!
+        '
+        'txtMain1
+        '
+        Me.txtMain1.CanGrow = False
+        Me.txtMain1.DataField = ""
+        Me.txtMain1.DistinctField = ""
+        Me.txtMain1.Height = 4.212!
+        Me.txtMain1.Left = 0.479!
+        Me.txtMain1.Name = "txtMain1"
+        Me.txtMain1.Style = "color: Black"
+        Me.txtMain1.SummaryGroup = ""
+        Me.txtMain1.Text = "Main1"
+        Me.txtMain1.Top = 3.51!
+        Me.txtMain1.Width = 1.415!
+        '
+        'txtAbgangszollstelle1
+        '
+        Me.txtAbgangszollstelle1.CanGrow = False
+        Me.txtAbgangszollstelle1.DataField = ""
+        Me.txtAbgangszollstelle1.DistinctField = ""
+        Me.txtAbgangszollstelle1.Height = 0.1574803!
+        Me.txtAbgangszollstelle1.Left = 0.479!
+        Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
+        Me.txtAbgangszollstelle1.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
+        Me.txtAbgangszollstelle1.SummaryGroup = ""
+        Me.txtAbgangszollstelle1.Text = "Abgangszollstelle1"
+        Me.txtAbgangszollstelle1.Top = 0.9030001!
+        Me.txtAbgangszollstelle1.Width = 1.269984!
+        '
+        'txtAbgangszollstelle2
+        '
+        Me.txtAbgangszollstelle2.CanGrow = False
+        Me.txtAbgangszollstelle2.DataField = ""
+        Me.txtAbgangszollstelle2.DistinctField = ""
+        Me.txtAbgangszollstelle2.Height = 0.1574803!
+        Me.txtAbgangszollstelle2.Left = 0.479!
+        Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
+        Me.txtAbgangszollstelle2.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
+        Me.txtAbgangszollstelle2.SummaryGroup = ""
+        Me.txtAbgangszollstelle2.Text = "Abgangszollstelle2"
+        Me.txtAbgangszollstelle2.Top = 1.235!
+        Me.txtAbgangszollstelle2.Width = 1.269984!
+        '
+        'txtAbgangszollstelle3
+        '
+        Me.txtAbgangszollstelle3.CanGrow = False
+        Me.txtAbgangszollstelle3.DataField = ""
+        Me.txtAbgangszollstelle3.DistinctField = ""
+        Me.txtAbgangszollstelle3.Height = 0.1574803!
+        Me.txtAbgangszollstelle3.Left = 0.479!
+        Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
+        Me.txtAbgangszollstelle3.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
+        Me.txtAbgangszollstelle3.SummaryGroup = ""
+        Me.txtAbgangszollstelle3.Text = "Abgangszollstelle3"
+        Me.txtAbgangszollstelle3.Top = 1.526!
+        Me.txtAbgangszollstelle3.Width = 1.269984!
+        '
+        'txtAbgangszollstelle4
+        '
+        Me.txtAbgangszollstelle4.CanGrow = False
+        Me.txtAbgangszollstelle4.DataField = ""
+        Me.txtAbgangszollstelle4.DistinctField = ""
+        Me.txtAbgangszollstelle4.Height = 0.1574803!
+        Me.txtAbgangszollstelle4.Left = 0.479!
+        Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4"
+        Me.txtAbgangszollstelle4.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
+        Me.txtAbgangszollstelle4.SummaryGroup = ""
+        Me.txtAbgangszollstelle4.Text = "Abgangszollstelle4"
+        Me.txtAbgangszollstelle4.Top = 1.834!
+        Me.txtAbgangszollstelle4.Width = 1.269984!
+        '
+        'txtAbgangszollstelle5
+        '
+        Me.txtAbgangszollstelle5.CanGrow = False
+        Me.txtAbgangszollstelle5.DataField = ""
+        Me.txtAbgangszollstelle5.DistinctField = ""
+        Me.txtAbgangszollstelle5.Height = 0.1574803!
+        Me.txtAbgangszollstelle5.Left = 0.479!
+        Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5"
+        Me.txtAbgangszollstelle5.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
+        Me.txtAbgangszollstelle5.SummaryGroup = ""
+        Me.txtAbgangszollstelle5.Text = "Abgangszollstelle5"
+        Me.txtAbgangszollstelle5.Top = 2.114!
+        Me.txtAbgangszollstelle5.Width = 1.269984!
+        '
+        'txtAbgangszollstelle6
+        '
+        Me.txtAbgangszollstelle6.CanGrow = False
+        Me.txtAbgangszollstelle6.DataField = ""
+        Me.txtAbgangszollstelle6.DistinctField = ""
+        Me.txtAbgangszollstelle6.Height = 0.1574803!
+        Me.txtAbgangszollstelle6.Left = 0.479!
+        Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6"
+        Me.txtAbgangszollstelle6.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
+        Me.txtAbgangszollstelle6.SummaryGroup = ""
+        Me.txtAbgangszollstelle6.Text = "Abgangszollstelle6"
+        Me.txtAbgangszollstelle6.Top = 2.412!
+        Me.txtAbgangszollstelle6.Width = 1.269984!
+        '
+        'txtAbgangszollstelle7
+        '
+        Me.txtAbgangszollstelle7.CanGrow = False
+        Me.txtAbgangszollstelle7.DataField = ""
+        Me.txtAbgangszollstelle7.DistinctField = ""
+        Me.txtAbgangszollstelle7.Height = 0.1574803!
+        Me.txtAbgangszollstelle7.Left = 0.479!
+        Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7"
+        Me.txtAbgangszollstelle7.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
+        Me.txtAbgangszollstelle7.SummaryGroup = ""
+        Me.txtAbgangszollstelle7.Text = "Abgangszollstelle7"
+        Me.txtAbgangszollstelle7.Top = 2.74!
+        Me.txtAbgangszollstelle7.Width = 1.269984!
+        '
+        'txtBestimmungsland
+        '
+        Me.txtBestimmungsland.CanGrow = False
+        Me.txtBestimmungsland.DataField = ""
+        Me.txtBestimmungsland.DistinctField = ""
+        Me.txtBestimmungsland.Height = 0.4309999!
+        Me.txtBestimmungsland.Left = 3.079!
+        Me.txtBestimmungsland.Name = "txtBestimmungsland"
+        Me.txtBestimmungsland.Style = "color: Black"
+        Me.txtBestimmungsland.SummaryGroup = ""
+        Me.txtBestimmungsland.Text = "Bestimmungsland"
+        Me.txtBestimmungsland.Top = 1.683!
+        Me.txtBestimmungsland.Width = 1.078!
+        '
+        'txtFahrzeug
+        '
+        Me.txtFahrzeug.CanGrow = False
+        Me.txtFahrzeug.DataField = ""
+        Me.txtFahrzeug.DistinctField = ""
+        Me.txtFahrzeug.Height = 0.4849999!
+        Me.txtFahrzeug.Left = 1.987!
+        Me.txtFahrzeug.Name = "txtFahrzeug"
+        Me.txtFahrzeug.Style = "color: Black"
+        Me.txtFahrzeug.SummaryGroup = ""
+        Me.txtFahrzeug.Text = "Fahrzeug"
+        Me.txtFahrzeug.Top = 2.412!
+        Me.txtFahrzeug.Width = 2.434!
+        '
+        'txtZusDok
+        '
+        Me.txtZusDok.CanGrow = False
+        Me.txtZusDok.DataField = ""
+        Me.txtZusDok.DistinctField = ""
+        Me.txtZusDok.Height = 0.6260002!
+        Me.txtZusDok.Left = 4.588!
+        Me.txtZusDok.Name = "txtZusDok"
+        Me.txtZusDok.Style = "color: Black"
+        Me.txtZusDok.SummaryGroup = ""
+        Me.txtZusDok.Text = "ZusDok"
+        Me.txtZusDok.Top = 2.271!
+        Me.txtZusDok.Width = 2.389!
+        '
+        'txtMain2
+        '
+        Me.txtMain2.CanGrow = False
+        Me.txtMain2.DataField = ""
+        Me.txtMain2.DistinctField = ""
+        Me.txtMain2.Height = 4.212!
+        Me.txtMain2.Left = 1.749!
+        Me.txtMain2.Name = "txtMain2"
+        Me.txtMain2.Style = "color: Black"
+        Me.txtMain2.SummaryGroup = ""
+        Me.txtMain2.Text = "Main2"
+        Me.txtMain2.Top = 3.51!
+        Me.txtMain2.Width = 3.644!
+        '
+        'txtMain3
+        '
+        Me.txtMain3.CanGrow = False
+        Me.txtMain3.DataField = ""
+        Me.txtMain3.DistinctField = ""
+        Me.txtMain3.Height = 4.212!
+        Me.txtMain3.Left = 5.455!
+        Me.txtMain3.Name = "txtMain3"
+        Me.txtMain3.Style = "color: Black"
+        Me.txtMain3.SummaryGroup = ""
+        Me.txtMain3.Text = "Main3"
+        Me.txtMain3.Top = 3.51!
+        Me.txtMain3.Width = 1.28!
+        '
+        'txtGesamtpaketName1
+        '
+        Me.txtGesamtpaketName1.CanGrow = False
+        Me.txtGesamtpaketName1.DataField = ""
+        Me.txtGesamtpaketName1.DistinctField = ""
+        Me.txtGesamtpaketName1.Height = 0.1968504!
+        Me.txtGesamtpaketName1.Left = 1.894!
+        Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
+        Me.txtGesamtpaketName1.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaketName1.SummaryGroup = ""
+        Me.txtGesamtpaketName1.Text = "GesamtpaketName1"
+        Me.txtGesamtpaketName1.Top = 8.12!
+        Me.txtGesamtpaketName1.Width = 0.4770002!
+        '
+        'txtGesamtpaket2
+        '
+        Me.txtGesamtpaket2.CanGrow = False
+        Me.txtGesamtpaket2.DataField = ""
+        Me.txtGesamtpaket2.DistinctField = ""
+        Me.txtGesamtpaket2.Height = 0.1968504!
+        Me.txtGesamtpaket2.Left = 0.4790001!
+        Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
+        Me.txtGesamtpaket2.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaket2.SummaryGroup = ""
+        Me.txtGesamtpaket2.Text = "Gesamtpaket2"
+        Me.txtGesamtpaket2.Top = 8.399001!
+        Me.txtGesamtpaket2.Width = 1.415!
+        '
+        'txtGesamtpaketName2
+        '
+        Me.txtGesamtpaketName2.CanGrow = False
+        Me.txtGesamtpaketName2.DataField = ""
+        Me.txtGesamtpaketName2.DistinctField = ""
+        Me.txtGesamtpaketName2.Height = 0.1968504!
+        Me.txtGesamtpaketName2.Left = 1.894!
+        Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
+        Me.txtGesamtpaketName2.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaketName2.SummaryGroup = ""
+        Me.txtGesamtpaketName2.Text = "GesamtpaketName2"
+        Me.txtGesamtpaketName2.Top = 8.399!
+        Me.txtGesamtpaketName2.Width = 0.4770003!
+        '
+        'txtGesamtpaket3
+        '
+        Me.txtGesamtpaket3.CanGrow = False
+        Me.txtGesamtpaket3.DataField = ""
+        Me.txtGesamtpaket3.DistinctField = ""
+        Me.txtGesamtpaket3.Height = 0.1968504!
+        Me.txtGesamtpaket3.Left = 0.4790001!
+        Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
+        Me.txtGesamtpaket3.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaket3.SummaryGroup = ""
+        Me.txtGesamtpaket3.Text = "Gesamtpaket3"
+        Me.txtGesamtpaket3.Top = 8.711001!
+        Me.txtGesamtpaket3.Width = 1.415!
+        '
+        'txtGesamtpaketName3
+        '
+        Me.txtGesamtpaketName3.CanGrow = False
+        Me.txtGesamtpaketName3.DataField = ""
+        Me.txtGesamtpaketName3.DistinctField = ""
+        Me.txtGesamtpaketName3.Height = 0.1968504!
+        Me.txtGesamtpaketName3.Left = 1.894!
+        Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
+        Me.txtGesamtpaketName3.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaketName3.SummaryGroup = ""
+        Me.txtGesamtpaketName3.Text = "GesamtpaketName3"
+        Me.txtGesamtpaketName3.Top = 8.711!
+        Me.txtGesamtpaketName3.Width = 0.4770003!
+        '
+        'txtGesamtpaket7
+        '
+        Me.txtGesamtpaket7.CanGrow = False
+        Me.txtGesamtpaket7.DataField = ""
+        Me.txtGesamtpaket7.DistinctField = ""
+        Me.txtGesamtpaket7.Height = 0.1968504!
+        Me.txtGesamtpaket7.Left = 2.572!
+        Me.txtGesamtpaket7.Name = "txtGesamtpaket7"
+        Me.txtGesamtpaket7.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaket7.SummaryGroup = ""
+        Me.txtGesamtpaket7.Text = "Gesamtpaket7"
+        Me.txtGesamtpaket7.Top = 8.711!
+        Me.txtGesamtpaket7.Width = 1.372!
+        '
+        'txtGesamtpaketName7
+        '
+        Me.txtGesamtpaketName7.CanGrow = False
+        Me.txtGesamtpaketName7.DataField = ""
+        Me.txtGesamtpaketName7.DistinctField = ""
+        Me.txtGesamtpaketName7.Height = 0.1968508!
+        Me.txtGesamtpaketName7.Left = 3.944!
+        Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7"
+        Me.txtGesamtpaketName7.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaketName7.SummaryGroup = ""
+        Me.txtGesamtpaketName7.Text = "GesamtpaketName7"
+        Me.txtGesamtpaketName7.Top = 8.711!
+        Me.txtGesamtpaketName7.Width = 0.4770002!
+        '
+        'txtGesamtpaket4
+        '
+        Me.txtGesamtpaket4.CanGrow = False
+        Me.txtGesamtpaket4.DataField = ""
+        Me.txtGesamtpaket4.DistinctField = ""
+        Me.txtGesamtpaket4.Height = 0.1968504!
+        Me.txtGesamtpaket4.Left = 2.572!
+        Me.txtGesamtpaket4.Name = "txtGesamtpaket4"
+        Me.txtGesamtpaket4.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaket4.SummaryGroup = ""
+        Me.txtGesamtpaket4.Text = "Gesamtpaket4"
+        Me.txtGesamtpaket4.Top = 7.838!
+        Me.txtGesamtpaket4.Width = 1.372!
+        '
+        'txtGesamtpaketName4
+        '
+        Me.txtGesamtpaketName4.CanGrow = False
+        Me.txtGesamtpaketName4.DataField = ""
+        Me.txtGesamtpaketName4.DistinctField = ""
+        Me.txtGesamtpaketName4.Height = 0.1968504!
+        Me.txtGesamtpaketName4.Left = 3.944!
+        Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4"
+        Me.txtGesamtpaketName4.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaketName4.SummaryGroup = ""
+        Me.txtGesamtpaketName4.Text = "GesamtpaketName4"
+        Me.txtGesamtpaketName4.Top = 7.838!
+        Me.txtGesamtpaketName4.Width = 0.4770003!
+        '
+        'txtGesamtpaket5
+        '
+        Me.txtGesamtpaket5.CanGrow = False
+        Me.txtGesamtpaket5.DataField = ""
+        Me.txtGesamtpaket5.DistinctField = ""
+        Me.txtGesamtpaket5.Height = 0.1968504!
+        Me.txtGesamtpaket5.Left = 2.572!
+        Me.txtGesamtpaket5.Name = "txtGesamtpaket5"
+        Me.txtGesamtpaket5.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaket5.SummaryGroup = ""
+        Me.txtGesamtpaket5.Text = "Gesamtpaket5"
+        Me.txtGesamtpaket5.Top = 8.120001!
+        Me.txtGesamtpaket5.Width = 1.372!
+        '
+        'txtGesamtpaketName5
+        '
+        Me.txtGesamtpaketName5.CanGrow = False
+        Me.txtGesamtpaketName5.DataField = ""
+        Me.txtGesamtpaketName5.DistinctField = ""
+        Me.txtGesamtpaketName5.Height = 0.1968504!
+        Me.txtGesamtpaketName5.Left = 3.944!
+        Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5"
+        Me.txtGesamtpaketName5.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaketName5.SummaryGroup = ""
+        Me.txtGesamtpaketName5.Text = "GesamtpaketName5"
+        Me.txtGesamtpaketName5.Top = 8.120001!
+        Me.txtGesamtpaketName5.Width = 0.4770003!
+        '
+        'txtGesamtpaket6
+        '
+        Me.txtGesamtpaket6.CanGrow = False
+        Me.txtGesamtpaket6.DataField = ""
+        Me.txtGesamtpaket6.DistinctField = ""
+        Me.txtGesamtpaket6.Height = 0.1968504!
+        Me.txtGesamtpaket6.Left = 2.572!
+        Me.txtGesamtpaket6.Name = "txtGesamtpaket6"
+        Me.txtGesamtpaket6.Style = "color: Black; text-align: left; vertical-align: middle"
+        Me.txtGesamtpaket6.SummaryGroup = ""
+        Me.txtGesamtpaket6.Text = "Gesamtpaket6"
+        Me.txtGesamtpaket6.Top = 8.399!
+        Me.txtGesamtpaket6.Width = 1.372!
+        '
+        'txtGesamtpaketName6
+        '
+        Me.txtGesamtpaketName6.CanGrow = False
+        Me.txtGesamtpaketName6.DataField = ""
+        Me.txtGesamtpaketName6.DistinctField = ""
+        Me.txtGesamtpaketName6.Height = 0.1968504!
+        Me.txtGesamtpaketName6.Left = 3.944!
+        Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6"
+        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"
+        '
+        'rptTIR
+        '
+        Me.PageSettings.Margins.Bottom = 0!
+        Me.PageSettings.Margins.Left = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Top = 0.3937008!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.480315!
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.ReportFooter1)
+        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"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        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()
+        CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbgangszollstelle4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbgangszollstelle5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbgangszollstelle6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbgangszollstelle7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaket7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaketName7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaket4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaketName4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaket5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaketName5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Public WithEvents txtAbfahrsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaket1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtMain1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbgangszollstelle1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbgangszollstelle2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbgangszollstelle3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbgangszollstelle4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbgangszollstelle5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbgangszollstelle6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbgangszollstelle7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtBestimmungsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFahrzeug As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtZusDok As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtMain2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtMain3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaketName1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaket2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaketName2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaket3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaketName3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaket7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaketName7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaket4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaketName4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaket5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaketName5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaket6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGesamtpaketName6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class
--- a/SDL/Formulare/CARNET-TIR/rptTIR.resx
+++ b/SDL/Formulare/CARNET-TIR/rptTIR.resx
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>
--- a/SDL/Formulare/CARNET-TIR/rptTIR.vb
+++ b/SDL/Formulare/CARNET-TIR/rptTIR.vb
@@ -0,0 +1,15 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptTIR
+    Sub New(RandOben As Double)
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+
+        RandOben = RandOben / 10 'mm
+        Me.PageSettings.Margins.Top = (RandOben / (2.54)) 'cm in ZOLL
+    End Sub
+    Private Sub rptTIR_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+
+    End Sub
+End Class
--- a/SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb
+++ b/SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb
@@ -0,0 +1,542 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrcntlTIR
+    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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlTIR))
+        Dim DataGridViewCellStyle1 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()
+        Me.txtGesamtpaket6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaket5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaket4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaket7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaketName1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaketName2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaketName3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaketName7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaketName6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaketName5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.txtGesamtpaketName4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.dgvGegenstände = New System.Windows.Forms.DataGridView()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvGegenstände, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(0, 3)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(859, 1264)
+        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))
+        Me.txtFahrzeug1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtFahrzeug1.ForeColor = System.Drawing.Color.Black
+        Me.txtFahrzeug1.Location = New System.Drawing.Point(207, 264)
+        Me.txtFahrzeug1.MaxLineLength = 40
+        Me.txtFahrzeug1.MaxLines_Warning = "4"
+        Me.txtFahrzeug1.MaxLines_Warning_Label = Nothing
+        Me.txtFahrzeug1.Name = "txtFahrzeug1"
+        Me.txtFahrzeug1.Size = New System.Drawing.Size(258, 60)
+        Me.txtFahrzeug1.TabIndex = 501
+        Me.txtFahrzeug1.Text = ""
+        '
+        'txtZusDocument
+        '
+        Me.txtZusDocument.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtZusDocument.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtZusDocument.ForeColor = System.Drawing.Color.Black
+        Me.txtZusDocument.Location = New System.Drawing.Point(476, 243)
+        Me.txtZusDocument.MaxLineLength = 40
+        Me.txtZusDocument.MaxLines_Warning = "4"
+        Me.txtZusDocument.MaxLines_Warning_Label = Nothing
+        Me.txtZusDocument.Name = "txtZusDocument"
+        Me.txtZusDocument.Size = New System.Drawing.Size(368, 81)
+        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))
+        Me.txtGesamtpaket1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaket1.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaket1.Location = New System.Drawing.Point(25, 908)
+        Me.txtGesamtpaket1.MaxLineLength = 40
+        Me.txtGesamtpaket1.MaxLines_Warning = "4"
+        Me.txtGesamtpaket1.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
+        Me.txtGesamtpaket1.Size = New System.Drawing.Size(167, 28)
+        Me.txtGesamtpaket1.TabIndex = 511
+        Me.txtGesamtpaket1.Text = ""
+        '
+        'txtGesamtpaket2
+        '
+        Me.txtGesamtpaket2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaket2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaket2.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaket2.Location = New System.Drawing.Point(25, 939)
+        Me.txtGesamtpaket2.MaxLineLength = 40
+        Me.txtGesamtpaket2.MaxLines_Warning = "4"
+        Me.txtGesamtpaket2.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
+        Me.txtGesamtpaket2.Size = New System.Drawing.Size(167, 28)
+        Me.txtGesamtpaket2.TabIndex = 512
+        Me.txtGesamtpaket2.Text = ""
+        '
+        'txtGesamtpaket3
+        '
+        Me.txtGesamtpaket3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaket3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaket3.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaket3.Location = New System.Drawing.Point(25, 970)
+        Me.txtGesamtpaket3.MaxLineLength = 40
+        Me.txtGesamtpaket3.MaxLines_Warning = "4"
+        Me.txtGesamtpaket3.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
+        Me.txtGesamtpaket3.Size = New System.Drawing.Size(167, 23)
+        Me.txtGesamtpaket3.TabIndex = 513
+        Me.txtGesamtpaket3.Text = ""
+        '
+        'txtGesamtpaket6
+        '
+        Me.txtGesamtpaket6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaket6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaket6.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaket6.Location = New System.Drawing.Point(259, 939)
+        Me.txtGesamtpaket6.MaxLineLength = 40
+        Me.txtGesamtpaket6.MaxLines_Warning = "4"
+        Me.txtGesamtpaket6.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaket6.Name = "txtGesamtpaket6"
+        Me.txtGesamtpaket6.Size = New System.Drawing.Size(166, 28)
+        Me.txtGesamtpaket6.TabIndex = 516
+        Me.txtGesamtpaket6.Text = ""
+        '
+        'txtGesamtpaket5
+        '
+        Me.txtGesamtpaket5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaket5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaket5.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaket5.Location = New System.Drawing.Point(259, 908)
+        Me.txtGesamtpaket5.MaxLineLength = 40
+        Me.txtGesamtpaket5.MaxLines_Warning = "4"
+        Me.txtGesamtpaket5.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaket5.Name = "txtGesamtpaket5"
+        Me.txtGesamtpaket5.Size = New System.Drawing.Size(166, 28)
+        Me.txtGesamtpaket5.TabIndex = 515
+        Me.txtGesamtpaket5.Text = ""
+        '
+        'txtGesamtpaket4
+        '
+        Me.txtGesamtpaket4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaket4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaket4.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaket4.Location = New System.Drawing.Point(259, 877)
+        Me.txtGesamtpaket4.MaxLineLength = 40
+        Me.txtGesamtpaket4.MaxLines_Warning = "4"
+        Me.txtGesamtpaket4.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaket4.Name = "txtGesamtpaket4"
+        Me.txtGesamtpaket4.Size = New System.Drawing.Size(166, 28)
+        Me.txtGesamtpaket4.TabIndex = 514
+        Me.txtGesamtpaket4.Text = ""
+        '
+        'txtGesamtpaket7
+        '
+        Me.txtGesamtpaket7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaket7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaket7.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaket7.Location = New System.Drawing.Point(259, 970)
+        Me.txtGesamtpaket7.MaxLineLength = 40
+        Me.txtGesamtpaket7.MaxLines_Warning = "4"
+        Me.txtGesamtpaket7.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaket7.Name = "txtGesamtpaket7"
+        Me.txtGesamtpaket7.Size = New System.Drawing.Size(166, 23)
+        Me.txtGesamtpaket7.TabIndex = 517
+        Me.txtGesamtpaket7.Text = ""
+        '
+        'txtGesamtpaketName1
+        '
+        Me.txtGesamtpaketName1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaketName1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaketName1.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaketName1.Location = New System.Drawing.Point(198, 908)
+        Me.txtGesamtpaketName1.MaxLineLength = 40
+        Me.txtGesamtpaketName1.MaxLines_Warning = "4"
+        Me.txtGesamtpaketName1.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
+        Me.txtGesamtpaketName1.Size = New System.Drawing.Size(44, 28)
+        Me.txtGesamtpaketName1.TabIndex = 518
+        Me.txtGesamtpaketName1.Text = ""
+        '
+        'txtGesamtpaketName2
+        '
+        Me.txtGesamtpaketName2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaketName2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaketName2.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaketName2.Location = New System.Drawing.Point(198, 939)
+        Me.txtGesamtpaketName2.MaxLineLength = 40
+        Me.txtGesamtpaketName2.MaxLines_Warning = "4"
+        Me.txtGesamtpaketName2.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
+        Me.txtGesamtpaketName2.Size = New System.Drawing.Size(44, 28)
+        Me.txtGesamtpaketName2.TabIndex = 519
+        Me.txtGesamtpaketName2.Text = ""
+        '
+        'txtGesamtpaketName3
+        '
+        Me.txtGesamtpaketName3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaketName3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaketName3.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaketName3.Location = New System.Drawing.Point(198, 970)
+        Me.txtGesamtpaketName3.MaxLineLength = 40
+        Me.txtGesamtpaketName3.MaxLines_Warning = "4"
+        Me.txtGesamtpaketName3.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
+        Me.txtGesamtpaketName3.Size = New System.Drawing.Size(44, 23)
+        Me.txtGesamtpaketName3.TabIndex = 520
+        Me.txtGesamtpaketName3.Text = ""
+        '
+        'txtGesamtpaketName7
+        '
+        Me.txtGesamtpaketName7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaketName7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaketName7.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaketName7.Location = New System.Drawing.Point(431, 970)
+        Me.txtGesamtpaketName7.MaxLineLength = 40
+        Me.txtGesamtpaketName7.MaxLines_Warning = "4"
+        Me.txtGesamtpaketName7.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7"
+        Me.txtGesamtpaketName7.Size = New System.Drawing.Size(44, 23)
+        Me.txtGesamtpaketName7.TabIndex = 523
+        Me.txtGesamtpaketName7.Text = ""
+        '
+        'txtGesamtpaketName6
+        '
+        Me.txtGesamtpaketName6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaketName6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaketName6.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaketName6.Location = New System.Drawing.Point(431, 939)
+        Me.txtGesamtpaketName6.MaxLineLength = 40
+        Me.txtGesamtpaketName6.MaxLines_Warning = "4"
+        Me.txtGesamtpaketName6.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6"
+        Me.txtGesamtpaketName6.Size = New System.Drawing.Size(44, 28)
+        Me.txtGesamtpaketName6.TabIndex = 522
+        Me.txtGesamtpaketName6.Text = ""
+        '
+        'txtGesamtpaketName5
+        '
+        Me.txtGesamtpaketName5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaketName5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaketName5.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaketName5.Location = New System.Drawing.Point(431, 908)
+        Me.txtGesamtpaketName5.MaxLineLength = 40
+        Me.txtGesamtpaketName5.MaxLines_Warning = "4"
+        Me.txtGesamtpaketName5.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5"
+        Me.txtGesamtpaketName5.Size = New System.Drawing.Size(44, 28)
+        Me.txtGesamtpaketName5.TabIndex = 521
+        Me.txtGesamtpaketName5.Text = ""
+        '
+        'txtGesamtpaketName4
+        '
+        Me.txtGesamtpaketName4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.txtGesamtpaketName4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGesamtpaketName4.ForeColor = System.Drawing.Color.Black
+        Me.txtGesamtpaketName4.Location = New System.Drawing.Point(431, 877)
+        Me.txtGesamtpaketName4.MaxLineLength = 40
+        Me.txtGesamtpaketName4.MaxLines_Warning = "4"
+        Me.txtGesamtpaketName4.MaxLines_Warning_Label = Nothing
+        Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4"
+        Me.txtGesamtpaketName4.Size = New System.Drawing.Size(44, 28)
+        Me.txtGesamtpaketName4.TabIndex = 524
+        Me.txtGesamtpaketName4.Text = ""
+        '
+        'dgvGegenstände
+        '
+        Me.dgvGegenstände.AllowUserToAddRows = False
+        Me.dgvGegenstände.AllowUserToDeleteRows = False
+        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})
+        DataGridViewCellStyle1.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))
+        DataGridViewCellStyle1.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
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvGegenstände.DefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvGegenstände.GridColor = System.Drawing.Color.Gray
+        Me.dgvGegenstände.Location = New System.Drawing.Point(17, 387)
+        Me.dgvGegenstände.Name = "dgvGegenstände"
+        Me.dgvGegenstände.RowHeadersVisible = False
+        Me.dgvGegenstände.RowTemplate.Height = 20
+        Me.dgvGegenstände.Size = New System.Drawing.Size(673, 450)
+        Me.dgvGegenstände.TabIndex = 525
+        '
+        'DataGridViewTextBoxColumn1
+        '
+        Me.DataGridViewTextBoxColumn1.HeaderText = "Container Laderaum"
+        Me.DataGridViewTextBoxColumn1.MaxInputLength = 156
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+        Me.DataGridViewTextBoxColumn1.Width = 166
+        '
+        'DataGridViewTextBoxColumn2
+        '
+        Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
+        Me.DataGridViewTextBoxColumn2.MaxInputLength = 50
+        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+        '
+        'DataGridViewTextBoxColumn3
+        '
+        Me.DataGridViewTextBoxColumn3.HeaderText = "Art des Gegenstandes"
+        Me.DataGridViewTextBoxColumn3.MaxInputLength = 250
+        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
+        Me.DataGridViewTextBoxColumn3.Width = 320
+        '
+        'DataGridViewTextBoxColumn4
+        '
+        Me.DataGridViewTextBoxColumn4.HeaderText = "Bruttogew."
+        Me.DataGridViewTextBoxColumn4.MaxInputLength = 90
+        Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
+        Me.DataGridViewTextBoxColumn4.Width = 90
+        '
+        'usrcntlTIR
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.dgvGegenstände)
+        Me.Controls.Add(Me.txtGesamtpaketName4)
+        Me.Controls.Add(Me.txtGesamtpaketName7)
+        Me.Controls.Add(Me.txtGesamtpaketName6)
+        Me.Controls.Add(Me.txtGesamtpaketName5)
+        Me.Controls.Add(Me.txtGesamtpaketName3)
+        Me.Controls.Add(Me.txtGesamtpaketName2)
+        Me.Controls.Add(Me.txtGesamtpaketName1)
+        Me.Controls.Add(Me.txtGesamtpaket7)
+        Me.Controls.Add(Me.txtGesamtpaket6)
+        Me.Controls.Add(Me.txtGesamtpaket5)
+        Me.Controls.Add(Me.txtGesamtpaket4)
+        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)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvGegenstände, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    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
+    Public WithEvents txtGesamtpaket6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaket5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaket4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaket7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaketName1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaketName2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaketName3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaketName7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaketName6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaketName5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents txtGesamtpaketName4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Public WithEvents dgvGegenstände As DataGridView
+    Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn
+End Class
--- a/SDL/Formulare/CARNET-TIR/usrcntlTIR.resx
+++ b/SDL/Formulare/CARNET-TIR/usrcntlTIR.resx
--- a/SDL/Formulare/CARNET-TIR/usrcntlTIR.vb
+++ b/SDL/Formulare/CARNET-TIR/usrcntlTIR.vb
@@ -0,0 +1,20 @@
+Public Class usrcntlTIR
+
+    Public Event DGVchanged()
+
+    Private Sub usrcntlTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        For i As Integer = 0 To 10
+            dgvGegenstände.Rows.Add("", "", "", "")
+        Next
+
+        txtAbgangszollstelle1.Text = "SUBEN"
+
+    End Sub
+
+    Private Sub dgvGegenstände_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGegenstände.CellValueChanged
+
+        RaiseEvent DGVchanged()
+
+    End Sub
+End Class
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -531,6 +531,24 @@
    <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.vb">
      <SubType>Component</SubType>
    </Compile>
+    <Compile Include="Formulare\CARNET-TIR\frmTIR.Designer.vb">
+      <DependentUpon>frmTIR.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Formulare\CARNET-TIR\frmTIR.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Formulare\CARNET-TIR\usrcntlTIR.Designer.vb">
+      <DependentUpon>usrcntlTIR.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Formulare\CARNET-TIR\usrcntlTIR.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="Formulare\CARNET-TIR\rptTIR.Designer.vb">
+      <DependentUpon>rptTIR.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Formulare\CARNET-TIR\rptTIR.vb">
+      <SubType>Component</SubType>
+    </Compile>
    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\frmVorauskasse_EUSTBerechnen.Designer.vb">
      <DependentUpon>frmVorauskasse_EUSTBerechnen.vb</DependentUpon>
    </Compile>
@@ -2818,6 +2836,15 @@
    <EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.resx">
      <DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="Formulare\CARNET-TIR\frmTIR.resx">
+      <DependentUpon>frmTIR.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Formulare\CARNET-TIR\usrcntlTIR.resx">
+      <DependentUpon>usrcntlTIR.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Formulare\CARNET-TIR\rptTIR.resx">
+      <DependentUpon>rptTIR.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\frmVorauskasse_EUSTBerechnen.resx">
      <DependentUpon>frmVorauskasse_EUSTBerechnen.vb</DependentUpon>
    </EmbeddedResource>