TIR

SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb

@@ -50,10 +50,13 @@ Partial Class frmTIR
         '
         'Panel1
         '
+        Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.Location = New System.Drawing.Point(0, 96)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(853, 610)
+        Me.Panel1.Size = New System.Drawing.Size(868, 679)
         Me.Panel1.TabIndex = 0
         '
         'Panel2
@@ -68,7 +71,7 @@ Partial Class frmTIR
         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(856, 40)
+        Me.Panel2.Size = New System.Drawing.Size(888, 40)
         Me.Panel2.TabIndex = 1
         '
         'Label3
@@ -144,9 +147,9 @@ Partial Class frmTIR
         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, 784)
+        Me.Panel3.Location = New System.Drawing.Point(0, 781)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(856, 69)
+        Me.Panel3.Size = New System.Drawing.Size(888, 69)
         Me.Panel3.TabIndex = 5
         '
         'cboAbriss777
@@ -285,7 +288,7 @@ Partial Class frmTIR
         '
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(753, 14)
+        Me.Button1.Location = New System.Drawing.Point(785, 14)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(98, 48)
         Me.Button1.TabIndex = 3
@@ -294,11 +297,14 @@ Partial Class frmTIR
         '
         'UsrCntlTIR1
         '
+        Me.UsrCntlTIR1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.UsrCntlTIR1.AutoScroll = True
         Me.UsrCntlTIR1.BackColor = System.Drawing.Color.White
         Me.UsrCntlTIR1.Location = New System.Drawing.Point(0, 46)
         Me.UsrCntlTIR1.Name = "UsrCntlTIR1"
-        Me.UsrCntlTIR1.Size = New System.Drawing.Size(853, 738)
+        Me.UsrCntlTIR1.Size = New System.Drawing.Size(885, 735)
         Me.UsrCntlTIR1.TabIndex = 0
         '
         'frmTIR
@@ -306,7 +312,7 @@ Partial Class frmTIR
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
-        Me.ClientSize = New System.Drawing.Size(873, 850)
+        Me.ClientSize = New System.Drawing.Size(888, 850)
         Me.Controls.Add(Me.UsrCntlTIR1)
         Me.Controls.Add(Me.Panel3)
         Me.Controls.Add(Me.Panel2)

SDL/Formulare/CARNET-TIR/frmTIR.vb

@@ -5,6 +5,10 @@ Public Class frmTIR
 
     Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
+        Me.Height = Screen.FromPoint(Cursor.Position).WorkingArea.Size.Height
+        Me.Top = 0
+
+
         AddHandler UsrCntlTIR1.DGVchanged, AddressOf UsrCntlTIR1_SomethChanged
 
         If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
@@ -79,6 +83,7 @@ Public Class frmTIR
             End If
         Next
 
+        rpt.txtSumme.Text = lblEigenmasse.Text
 
         Try
             rpt.Run(False)

SDL/Formulare/CARNET-TIR/frmTIR_alt.Designer.vb

@@ -24,7 +24,6 @@ Partial Class frmTIR_alt
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTIR_alt))
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.UsrCntlTIR1 = New SDL.usrcntlTIR_alt()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -44,6 +43,7 @@ Partial Class frmTIR_alt
         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_alt()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
         Me.Panel3.SuspendLayout()
@@ -51,22 +51,16 @@ Partial Class frmTIR_alt
         '
         'Panel1
         '
+        Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.Controls.Add(Me.UsrCntlTIR1)
         Me.Panel1.Location = New System.Drawing.Point(0, 38)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(853, 635)
+        Me.Panel1.Size = New System.Drawing.Size(883, 635)
         Me.Panel1.TabIndex = 0
         '
-        'UsrCntlTIR1
-        '
-        Me.UsrCntlTIR1.AutoScroll = True
-        Me.UsrCntlTIR1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlTIR1.Location = New System.Drawing.Point(8, 3)
-        Me.UsrCntlTIR1.Name = "UsrCntlTIR1"
-        Me.UsrCntlTIR1.Size = New System.Drawing.Size(865, 632)
-        Me.UsrCntlTIR1.TabIndex = 0
-        '
         'Panel2
         '
         Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
@@ -79,7 +73,7 @@ Partial Class frmTIR_alt
         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(873, 40)
+        Me.Panel2.Size = New System.Drawing.Size(903, 40)
         Me.Panel2.TabIndex = 1
         '
         'Label3
@@ -157,7 +151,7 @@ Partial Class frmTIR_alt
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel3.Location = New System.Drawing.Point(0, 673)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(873, 69)
+        Me.Panel3.Size = New System.Drawing.Size(903, 69)
         Me.Panel3.TabIndex = 5
         '
         'cboAbriss777
@@ -296,19 +290,31 @@ Partial Class frmTIR_alt
         '
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(770, 14)
+        Me.Button1.Location = New System.Drawing.Point(800, 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.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.UsrCntlTIR1.AutoScroll = True
+        Me.UsrCntlTIR1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlTIR1.Location = New System.Drawing.Point(8, 3)
+        Me.UsrCntlTIR1.Name = "UsrCntlTIR1"
+        Me.UsrCntlTIR1.Size = New System.Drawing.Size(875, 632)
+        Me.UsrCntlTIR1.TabIndex = 0
+        '
         'frmTIR_alt
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
-        Me.ClientSize = New System.Drawing.Size(873, 742)
+        Me.ClientSize = New System.Drawing.Size(903, 742)
         Me.Controls.Add(Me.Panel3)
         Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.Panel1)

SDL/Formulare/CARNET-TIR/frmTIR_alt.vb

@@ -5,6 +5,9 @@ Public Class frmTIR_alt
 
     Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
+        Me.Height = Screen.FromPoint(Cursor.Position).WorkingArea.Size.Height
+        Me.Top = 0
+
         AddHandler UsrCntlTIR1.DGVchanged, AddressOf UsrCntlTIR1_SomethChanged
 
         If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
@@ -71,6 +74,7 @@ Public Class frmTIR_alt
             End If
         Next
 
+        rpt.txtSumme.Text = lblEigenmasse.Text
 
         Try
             rpt.Run(False)

SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb

@@ -46,6 +46,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaket6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtGesamtpaketName6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.txtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -74,6 +75,7 @@ Partial Public Class rptTIR
         CType(Me.txtGesamtpaketName5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         'Detail
@@ -83,7 +85,7 @@ Partial Public Class rptTIR
         '
         'ReportHeader1
         '
-        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtAbgangszollstelle4, Me.txtAbgangszollstelle5, Me.txtAbgangszollstelle6, Me.txtAbgangszollstelle7, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtGesamtpaket7, Me.txtGesamtpaketName7, Me.txtGesamtpaket4, Me.txtGesamtpaketName4, Me.txtGesamtpaket5, Me.txtGesamtpaketName5, Me.txtGesamtpaket6, Me.txtGesamtpaketName6})
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtAbgangszollstelle4, Me.txtAbgangszollstelle5, Me.txtAbgangszollstelle6, Me.txtAbgangszollstelle7, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtGesamtpaket7, Me.txtGesamtpaketName7, Me.txtGesamtpaket4, Me.txtGesamtpaketName4, Me.txtGesamtpaket5, Me.txtGesamtpaketName5, Me.txtGesamtpaket6, Me.txtGesamtpaketName6, Me.txtSumme})
         Me.ReportHeader1.Height = 11.42519!
         Me.ReportHeader1.Name = "ReportHeader1"
         '
@@ -95,6 +97,7 @@ Partial Public Class rptTIR
         Me.txtAbfahrsland.Height = 0.431!
         Me.txtAbfahrsland.Left = 1.987!
         Me.txtAbfahrsland.Name = "txtAbfahrsland"
+        Me.txtAbfahrsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbfahrsland.Style = "color: Black"
         Me.txtAbfahrsland.SummaryGroup = ""
         Me.txtAbfahrsland.Text = "Abfahrsland"
@@ -109,6 +112,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaket1.Height = 0.1968504!
         Me.txtGesamtpaket1.Left = 0.479!
         Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
+        Me.txtGesamtpaket1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket1.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket1.SummaryGroup = ""
         Me.txtGesamtpaket1.Text = "Gesamtpaket1"
@@ -120,9 +124,10 @@ Partial Public Class rptTIR
         Me.txtMain1.CanGrow = False
         Me.txtMain1.DataField = ""
         Me.txtMain1.DistinctField = ""
-        Me.txtMain1.Height = 4.212!
+        Me.txtMain1.Height = 3.889!
         Me.txtMain1.Left = 0.479!
         Me.txtMain1.Name = "txtMain1"
+        Me.txtMain1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtMain1.Style = "color: Black"
         Me.txtMain1.SummaryGroup = ""
         Me.txtMain1.Text = "Main1"
@@ -137,6 +142,7 @@ Partial Public Class rptTIR
         Me.txtAbgangszollstelle1.Height = 0.1574803!
         Me.txtAbgangszollstelle1.Left = 0.479!
         Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
+        Me.txtAbgangszollstelle1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle1.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle1.SummaryGroup = ""
         Me.txtAbgangszollstelle1.Text = "Abgangszollstelle1"
@@ -151,6 +157,7 @@ Partial Public Class rptTIR
         Me.txtAbgangszollstelle2.Height = 0.1574803!
         Me.txtAbgangszollstelle2.Left = 0.479!
         Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
+        Me.txtAbgangszollstelle2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle2.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle2.SummaryGroup = ""
         Me.txtAbgangszollstelle2.Text = "Abgangszollstelle2"
@@ -165,6 +172,7 @@ Partial Public Class rptTIR
         Me.txtAbgangszollstelle3.Height = 0.1574803!
         Me.txtAbgangszollstelle3.Left = 0.479!
         Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
+        Me.txtAbgangszollstelle3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle3.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle3.SummaryGroup = ""
         Me.txtAbgangszollstelle3.Text = "Abgangszollstelle3"
@@ -179,6 +187,7 @@ Partial Public Class rptTIR
         Me.txtAbgangszollstelle4.Height = 0.1574803!
         Me.txtAbgangszollstelle4.Left = 0.479!
         Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4"
+        Me.txtAbgangszollstelle4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle4.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle4.SummaryGroup = ""
         Me.txtAbgangszollstelle4.Text = "Abgangszollstelle4"
@@ -193,6 +202,7 @@ Partial Public Class rptTIR
         Me.txtAbgangszollstelle5.Height = 0.1574803!
         Me.txtAbgangszollstelle5.Left = 0.479!
         Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5"
+        Me.txtAbgangszollstelle5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle5.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle5.SummaryGroup = ""
         Me.txtAbgangszollstelle5.Text = "Abgangszollstelle5"
@@ -207,6 +217,7 @@ Partial Public Class rptTIR
         Me.txtAbgangszollstelle6.Height = 0.1574803!
         Me.txtAbgangszollstelle6.Left = 0.479!
         Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6"
+        Me.txtAbgangszollstelle6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle6.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle6.SummaryGroup = ""
         Me.txtAbgangszollstelle6.Text = "Abgangszollstelle6"
@@ -221,6 +232,7 @@ Partial Public Class rptTIR
         Me.txtAbgangszollstelle7.Height = 0.1574803!
         Me.txtAbgangszollstelle7.Left = 0.479!
         Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7"
+        Me.txtAbgangszollstelle7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle7.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle7.SummaryGroup = ""
         Me.txtAbgangszollstelle7.Text = "Abgangszollstelle7"
@@ -235,6 +247,7 @@ Partial Public Class rptTIR
         Me.txtBestimmungsland.Height = 0.4309999!
         Me.txtBestimmungsland.Left = 3.079!
         Me.txtBestimmungsland.Name = "txtBestimmungsland"
+        Me.txtBestimmungsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtBestimmungsland.Style = "color: Black"
         Me.txtBestimmungsland.SummaryGroup = ""
         Me.txtBestimmungsland.Text = "Bestimmungsland"
@@ -249,6 +262,7 @@ Partial Public Class rptTIR
         Me.txtFahrzeug.Height = 0.4849999!
         Me.txtFahrzeug.Left = 1.987!
         Me.txtFahrzeug.Name = "txtFahrzeug"
+        Me.txtFahrzeug.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFahrzeug.Style = "color: Black"
         Me.txtFahrzeug.SummaryGroup = ""
         Me.txtFahrzeug.Text = "Fahrzeug"
@@ -263,6 +277,7 @@ Partial Public Class rptTIR
         Me.txtZusDok.Height = 0.6260002!
         Me.txtZusDok.Left = 4.588!
         Me.txtZusDok.Name = "txtZusDok"
+        Me.txtZusDok.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtZusDok.Style = "color: Black"
         Me.txtZusDok.SummaryGroup = ""
         Me.txtZusDok.Text = "ZusDok"
@@ -274,23 +289,25 @@ Partial Public Class rptTIR
         Me.txtMain2.CanGrow = False
         Me.txtMain2.DataField = ""
         Me.txtMain2.DistinctField = ""
-        Me.txtMain2.Height = 4.212!
+        Me.txtMain2.Height = 3.889!
-        Me.txtMain2.Left = 1.749!
+        Me.txtMain2.Left = 1.894!
         Me.txtMain2.Name = "txtMain2"
+        Me.txtMain2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtMain2.Style = "color: Black"
         Me.txtMain2.SummaryGroup = ""
         Me.txtMain2.Text = "Main2"
         Me.txtMain2.Top = 3.51!
-        Me.txtMain2.Width = 3.644!
+        Me.txtMain2.Width = 3.499!
         '
         'txtMain3
         '
         Me.txtMain3.CanGrow = False
         Me.txtMain3.DataField = ""
         Me.txtMain3.DistinctField = ""
-        Me.txtMain3.Height = 4.212!
+        Me.txtMain3.Height = 3.889!
         Me.txtMain3.Left = 5.455!
         Me.txtMain3.Name = "txtMain3"
+        Me.txtMain3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtMain3.Style = "color: Black"
         Me.txtMain3.SummaryGroup = ""
         Me.txtMain3.Text = "Main3"
@@ -305,6 +322,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaketName1.Height = 0.1968504!
         Me.txtGesamtpaketName1.Left = 1.894!
         Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
+        Me.txtGesamtpaketName1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName1.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName1.SummaryGroup = ""
         Me.txtGesamtpaketName1.Text = "GesamtpaketName1"
@@ -319,6 +337,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaket2.Height = 0.1968504!
         Me.txtGesamtpaket2.Left = 0.4790001!
         Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
+        Me.txtGesamtpaket2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket2.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket2.SummaryGroup = ""
         Me.txtGesamtpaket2.Text = "Gesamtpaket2"
@@ -333,6 +352,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaketName2.Height = 0.1968504!
         Me.txtGesamtpaketName2.Left = 1.894!
         Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
+        Me.txtGesamtpaketName2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName2.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName2.SummaryGroup = ""
         Me.txtGesamtpaketName2.Text = "GesamtpaketName2"
@@ -347,6 +367,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaket3.Height = 0.1968504!
         Me.txtGesamtpaket3.Left = 0.4790001!
         Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
+        Me.txtGesamtpaket3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket3.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket3.SummaryGroup = ""
         Me.txtGesamtpaket3.Text = "Gesamtpaket3"
@@ -361,6 +382,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaketName3.Height = 0.1968504!
         Me.txtGesamtpaketName3.Left = 1.894!
         Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
+        Me.txtGesamtpaketName3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName3.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName3.SummaryGroup = ""
         Me.txtGesamtpaketName3.Text = "GesamtpaketName3"
@@ -375,6 +397,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaket7.Height = 0.1968504!
         Me.txtGesamtpaket7.Left = 2.572!
         Me.txtGesamtpaket7.Name = "txtGesamtpaket7"
+        Me.txtGesamtpaket7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket7.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket7.SummaryGroup = ""
         Me.txtGesamtpaket7.Text = "Gesamtpaket7"
@@ -389,6 +412,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaketName7.Height = 0.1968508!
         Me.txtGesamtpaketName7.Left = 3.944!
         Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7"
+        Me.txtGesamtpaketName7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName7.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName7.SummaryGroup = ""
         Me.txtGesamtpaketName7.Text = "GesamtpaketName7"
@@ -403,6 +427,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaket4.Height = 0.1968504!
         Me.txtGesamtpaket4.Left = 2.572!
         Me.txtGesamtpaket4.Name = "txtGesamtpaket4"
+        Me.txtGesamtpaket4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket4.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket4.SummaryGroup = ""
         Me.txtGesamtpaket4.Text = "Gesamtpaket4"
@@ -417,6 +442,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaketName4.Height = 0.1968504!
         Me.txtGesamtpaketName4.Left = 3.944!
         Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4"
+        Me.txtGesamtpaketName4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName4.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName4.SummaryGroup = ""
         Me.txtGesamtpaketName4.Text = "GesamtpaketName4"
@@ -431,6 +457,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaket5.Height = 0.1968504!
         Me.txtGesamtpaket5.Left = 2.572!
         Me.txtGesamtpaket5.Name = "txtGesamtpaket5"
+        Me.txtGesamtpaket5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket5.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket5.SummaryGroup = ""
         Me.txtGesamtpaket5.Text = "Gesamtpaket5"
@@ -445,6 +472,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaketName5.Height = 0.1968504!
         Me.txtGesamtpaketName5.Left = 3.944!
         Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5"
+        Me.txtGesamtpaketName5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName5.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName5.SummaryGroup = ""
         Me.txtGesamtpaketName5.Text = "GesamtpaketName5"
@@ -459,6 +487,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaket6.Height = 0.1968504!
         Me.txtGesamtpaket6.Left = 2.572!
         Me.txtGesamtpaket6.Name = "txtGesamtpaket6"
+        Me.txtGesamtpaket6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket6.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket6.SummaryGroup = ""
         Me.txtGesamtpaket6.Text = "Gesamtpaket6"
@@ -473,6 +502,7 @@ Partial Public Class rptTIR
         Me.txtGesamtpaketName6.Height = 0.1968504!
         Me.txtGesamtpaketName6.Left = 3.944!
         Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6"
+        Me.txtGesamtpaketName6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName6.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName6.SummaryGroup = ""
         Me.txtGesamtpaketName6.Text = "GesamtpaketName6"
@@ -484,6 +514,20 @@ Partial Public Class rptTIR
         Me.ReportFooter1.Height = 0!
         Me.ReportFooter1.Name = "ReportFooter1"
         '
+        'txtSumme
+        '
+        Me.txtSumme.CanGrow = False
+        Me.txtSumme.DistinctField = ""
+        Me.txtSumme.Height = 0.2330003!
+        Me.txtSumme.Left = 5.455!
+        Me.txtSumme.Name = "txtSumme"
+        Me.txtSumme.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
+        Me.txtSumme.Style = "color: Black; font-weight: bold; text-decoration: underline"
+        Me.txtSumme.SummaryGroup = ""
+        Me.txtSumme.Text = "Summe"
+        Me.txtSumme.Top = 7.399!
+        Me.txtSumme.Width = 1.28!
+        '
         'rptTIR
         '
         Me.PageSettings.Margins.Bottom = 0!
@@ -496,12 +540,12 @@ Partial Public Class rptTIR
         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" &
+        Me.StyleSheet.Add(CType(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"))
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
-            "lic", "Heading2", "Normal"))
+            "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule))
         CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -530,6 +574,7 @@ Partial Public Class rptTIR
         CType(Me.txtGesamtpaketName5, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
 
     End Sub
@@ -563,4 +608,5 @@ Partial Public Class rptTIR
     Public WithEvents txtGesamtpaketName5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents txtGesamtpaket6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents txtGesamtpaketName6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
 End Class

SDL/Formulare/CARNET-TIR/rptTIR_alt.Designer.vb

@@ -34,6 +34,7 @@ Partial Public Class rptTIR_alt
         Me.txtGesamtpaket3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtGesamtpaketName3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.txtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -50,6 +51,7 @@ Partial Public Class rptTIR_alt
         CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         'Detail
@@ -59,7 +61,7 @@ Partial Public Class rptTIR_alt
         '
         'ReportHeader1
         '
-        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3})
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtSumme})
         Me.ReportHeader1.Height = 11.42519!
         Me.ReportHeader1.Name = "ReportHeader1"
         '
@@ -71,6 +73,7 @@ Partial Public Class rptTIR_alt
         Me.txtAbfahrsland.Height = 0.2639999!
         Me.txtAbfahrsland.Left = 4.15!
         Me.txtAbfahrsland.Name = "txtAbfahrsland"
+        Me.txtAbfahrsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbfahrsland.Style = "color: Black"
         Me.txtAbfahrsland.SummaryGroup = ""
         Me.txtAbfahrsland.Text = "Abfahrsland"
@@ -85,6 +88,7 @@ Partial Public Class rptTIR_alt
         Me.txtGesamtpaket1.Height = 0.1968504!
         Me.txtGesamtpaket1.Left = 0.479!
         Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
+        Me.txtGesamtpaket1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket1.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket1.SummaryGroup = ""
         Me.txtGesamtpaket1.Text = "Gesamtpaket1"
@@ -96,9 +100,10 @@ Partial Public Class rptTIR_alt
         Me.txtMain1.CanGrow = False
         Me.txtMain1.DataField = ""
         Me.txtMain1.DistinctField = ""
-        Me.txtMain1.Height = 3.462!
+        Me.txtMain1.Height = 3.191!
         Me.txtMain1.Left = 0.479!
         Me.txtMain1.Name = "txtMain1"
+        Me.txtMain1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtMain1.Style = "color: Black"
         Me.txtMain1.SummaryGroup = ""
         Me.txtMain1.Text = "Main1"
@@ -113,6 +118,7 @@ Partial Public Class rptTIR_alt
         Me.txtAbgangszollstelle1.Height = 0.1574803!
         Me.txtAbgangszollstelle1.Left = 0.479!
         Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
+        Me.txtAbgangszollstelle1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle1.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle1.SummaryGroup = ""
         Me.txtAbgangszollstelle1.Text = "Abgangszollstelle1"
@@ -127,6 +133,7 @@ Partial Public Class rptTIR_alt
         Me.txtAbgangszollstelle2.Height = 0.1574803!
         Me.txtAbgangszollstelle2.Left = 2.415!
         Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
+        Me.txtAbgangszollstelle2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle2.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle2.SummaryGroup = ""
         Me.txtAbgangszollstelle2.Text = "Abgangszollstelle2"
@@ -141,6 +148,7 @@ Partial Public Class rptTIR_alt
         Me.txtAbgangszollstelle3.Height = 0.1574803!
         Me.txtAbgangszollstelle3.Left = 0.479!
         Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
+        Me.txtAbgangszollstelle3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbgangszollstelle3.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
         Me.txtAbgangszollstelle3.SummaryGroup = ""
         Me.txtAbgangszollstelle3.Text = "Abgangszollstelle3"
@@ -155,6 +163,7 @@ Partial Public Class rptTIR_alt
         Me.txtBestimmungsland.Height = 0.2640001!
         Me.txtBestimmungsland.Left = 5.732!
         Me.txtBestimmungsland.Name = "txtBestimmungsland"
+        Me.txtBestimmungsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtBestimmungsland.Style = "color: Black"
         Me.txtBestimmungsland.SummaryGroup = ""
         Me.txtBestimmungsland.Text = "Bestimmungsland"
@@ -169,6 +178,7 @@ Partial Public Class rptTIR_alt
         Me.txtFahrzeug.Height = 0.4849999!
         Me.txtFahrzeug.Left = 0.479!
         Me.txtFahrzeug.Name = "txtFahrzeug"
+        Me.txtFahrzeug.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFahrzeug.Style = "color: Black"
         Me.txtFahrzeug.SummaryGroup = ""
         Me.txtFahrzeug.Text = "Fahrzeug"
@@ -183,6 +193,7 @@ Partial Public Class rptTIR_alt
         Me.txtZusDok.Height = 0.756!
         Me.txtZusDok.Left = 4.15!
         Me.txtZusDok.Name = "txtZusDok"
+        Me.txtZusDok.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtZusDok.Style = "color: Black"
         Me.txtZusDok.SummaryGroup = ""
         Me.txtZusDok.Text = "ZusDok"
@@ -194,9 +205,10 @@ Partial Public Class rptTIR_alt
         Me.txtMain2.CanGrow = False
         Me.txtMain2.DataField = ""
         Me.txtMain2.DistinctField = ""
-        Me.txtMain2.Height = 3.462!
+        Me.txtMain2.Height = 3.191!
         Me.txtMain2.Left = 2.739!
         Me.txtMain2.Name = "txtMain2"
+        Me.txtMain2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtMain2.Style = "color: Black"
         Me.txtMain2.SummaryGroup = ""
         Me.txtMain2.Text = "Main2"
@@ -208,9 +220,10 @@ Partial Public Class rptTIR_alt
         Me.txtMain3.CanGrow = False
         Me.txtMain3.DataField = ""
         Me.txtMain3.DistinctField = ""
-        Me.txtMain3.Height = 3.462!
+        Me.txtMain3.Height = 3.191!
         Me.txtMain3.Left = 6.007!
         Me.txtMain3.Name = "txtMain3"
+        Me.txtMain3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtMain3.Style = "color: Black"
         Me.txtMain3.SummaryGroup = ""
         Me.txtMain3.Text = "Main3"
@@ -225,6 +238,7 @@ Partial Public Class rptTIR_alt
         Me.txtGesamtpaketName1.Height = 0.1968504!
         Me.txtGesamtpaketName1.Left = 2.509!
         Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
+        Me.txtGesamtpaketName1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName1.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName1.SummaryGroup = ""
         Me.txtGesamtpaketName1.Text = "GesamtpaketName1"
@@ -239,6 +253,7 @@ Partial Public Class rptTIR_alt
         Me.txtGesamtpaket2.Height = 0.1968504!
         Me.txtGesamtpaket2.Left = 0.479!
         Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
+        Me.txtGesamtpaket2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket2.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket2.SummaryGroup = ""
         Me.txtGesamtpaket2.Text = "Gesamtpaket2"
@@ -253,6 +268,7 @@ Partial Public Class rptTIR_alt
         Me.txtGesamtpaketName2.Height = 0.1968504!
         Me.txtGesamtpaketName2.Left = 2.509!
         Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
+        Me.txtGesamtpaketName2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName2.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName2.SummaryGroup = ""
         Me.txtGesamtpaketName2.Text = "GesamtpaketName2"
@@ -267,6 +283,7 @@ Partial Public Class rptTIR_alt
         Me.txtGesamtpaket3.Height = 0.1968504!
         Me.txtGesamtpaket3.Left = 0.479!
         Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
+        Me.txtGesamtpaket3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaket3.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaket3.SummaryGroup = ""
         Me.txtGesamtpaket3.Text = "Gesamtpaket3"
@@ -281,6 +298,7 @@ Partial Public Class rptTIR_alt
         Me.txtGesamtpaketName3.Height = 0.1968504!
         Me.txtGesamtpaketName3.Left = 2.509!
         Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
+        Me.txtGesamtpaketName3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGesamtpaketName3.Style = "color: Black; text-align: left; vertical-align: middle"
         Me.txtGesamtpaketName3.SummaryGroup = ""
         Me.txtGesamtpaketName3.Text = "GesamtpaketName3"
@@ -292,6 +310,20 @@ Partial Public Class rptTIR_alt
         Me.ReportFooter1.Height = 0!
         Me.ReportFooter1.Name = "ReportFooter1"
         '
+        'txtSumme
+        '
+        Me.txtSumme.CanGrow = False
+        Me.txtSumme.DistinctField = ""
+        Me.txtSumme.Height = 0.2330003!
+        Me.txtSumme.Left = 6.007!
+        Me.txtSumme.Name = "txtSumme"
+        Me.txtSumme.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
+        Me.txtSumme.Style = "color: Black; font-weight: bold; text-decoration: underline"
+        Me.txtSumme.SummaryGroup = ""
+        Me.txtSumme.Text = "Summe"
+        Me.txtSumme.Top = 7.201!
+        Me.txtSumme.Width = 0.7279994!
+        '
         'rptTIR_alt
         '
         Me.PageSettings.Margins.Bottom = 0!
@@ -304,12 +336,12 @@ Partial Public Class rptTIR_alt
         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" &
+        Me.StyleSheet.Add(CType(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"))
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
-            "lic", "Heading2", "Normal"))
+            "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule))
         CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -326,6 +358,7 @@ Partial Public Class rptTIR_alt
         CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
 
     End Sub
@@ -347,4 +380,5 @@ Partial Public Class rptTIR_alt
     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 txtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
 End Class