From afa9b674a3aca7a938142a065ce54522357874dd Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 17 Mar 2023 13:17:09 +0100 Subject: [PATCH] TIR --- SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb | 20 ++++-- SDL/Formulare/CARNET-TIR/frmTIR.vb | 5 ++ .../CARNET-TIR/frmTIR_alt.Designer.vb | 36 ++++++---- SDL/Formulare/CARNET-TIR/frmTIR_alt.vb | 4 ++ SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb | 70 +++++++++++++++---- .../CARNET-TIR/rptTIR_alt.Designer.vb | 54 +++++++++++--- 6 files changed, 145 insertions(+), 44 deletions(-) diff --git a/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb b/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb index 44ab1542..7563ae1f 100644 --- a/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb +++ b/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) diff --git a/SDL/Formulare/CARNET-TIR/frmTIR.vb b/SDL/Formulare/CARNET-TIR/frmTIR.vb index 2df927ba..3d9d9f23 100644 --- a/SDL/Formulare/CARNET-TIR/frmTIR.vb +++ b/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) diff --git a/SDL/Formulare/CARNET-TIR/frmTIR_alt.Designer.vb b/SDL/Formulare/CARNET-TIR/frmTIR_alt.Designer.vb index 6065665a..a22443ae 100644 --- a/SDL/Formulare/CARNET-TIR/frmTIR_alt.Designer.vb +++ b/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) diff --git a/SDL/Formulare/CARNET-TIR/frmTIR_alt.vb b/SDL/Formulare/CARNET-TIR/frmTIR_alt.vb index 5b06b3a7..9b6f8817 100644 --- a/SDL/Formulare/CARNET-TIR/frmTIR_alt.vb +++ b/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) diff --git a/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb b/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb index 0b360929..4cedbb43 100644 --- a/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb +++ b/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.Left = 1.749! + Me.txtMain2.Height = 3.889! + 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" & - "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")) + 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"), DDCssLib.StyleSheetRule)) + Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule)) + Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule)) + 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 diff --git a/SDL/Formulare/CARNET-TIR/rptTIR_alt.Designer.vb b/SDL/Formulare/CARNET-TIR/rptTIR_alt.Designer.vb index 128e868e..d1a89e8d 100644 --- a/SDL/Formulare/CARNET-TIR/rptTIR_alt.Designer.vb +++ b/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" & - "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")) + 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"), DDCssLib.StyleSheetRule)) + Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule)) + Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule)) + 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