Preislite Hinweis

SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb

@@ -33,6 +33,7 @@ Partial Public Class rptPreislisten
         Me.lblAGB = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
         Me.txtFirmaInfo_IMEX = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtFirmaInfo_ATILLA = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
@@ -60,13 +61,14 @@ Partial Public Class rptPreislisten
         Me.txtFirmenkennung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
         Me.SubReport2 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
-        Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.txtHinweis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblAGB, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -86,7 +88,7 @@ Partial Public Class rptPreislisten
         CType(Me.txtClearing, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtEnding, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtFirmenkennung, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtHinweis, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         'PageHeader
@@ -266,6 +268,17 @@ Partial Public Class rptPreislisten
         Me.Line2.Y1 = 0.02519685!
         Me.Line2.Y2 = 0.02527889!
         '
+        'Label1
+        '
+        Me.Label1.Height = 0.2!
+        Me.Label1.HyperLink = Nothing
+        Me.Label1.Left = 0.005488008!
+        Me.Label1.Name = "Label1"
+        Me.Label1.Style = "font-size: 8pt"
+        Me.Label1.Text = ""
+        Me.Label1.Top = 0.01250004!
+        Me.Label1.Width = 3.120079!
+        '
         'ReportHeader1
         '
         Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.txtHeader1, Me.txtHeader2, Me.txtLeistungUeberschrift, Me.txtPosUeberschrift, Me.txtPreisUeberschrift, Me.Line9, Me.TextBox6, Me.TextBox7})
@@ -426,8 +439,8 @@ Partial Public Class rptPreislisten
         'ReportFooter1
         '
         Me.ReportFooter1.CanShrink = True
-        Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtOrtDatum, Me.Line, Me.txtUnterschrift, Me.Line1, Me.txtVorlageKredit, Me.txtZahlungsziel, Me.txtZahlungsziel2, Me.txtClearing, Me.txtEnding, Me.txtFirmenkennung, Me.SubReport, Me.SubReport2})
-        Me.ReportFooter1.Height = 4.128265!
+        Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtOrtDatum, Me.Line, Me.txtUnterschrift, Me.Line1, Me.txtVorlageKredit, Me.txtZahlungsziel, Me.txtZahlungsziel2, Me.txtClearing, Me.txtEnding, Me.txtFirmenkennung, Me.SubReport, Me.SubReport2, Me.txtHinweis})
+        Me.ReportFooter1.Height = 4.128347!
         Me.ReportFooter1.KeepTogether = True
         Me.ReportFooter1.Name = "ReportFooter1"
         '
@@ -494,20 +507,19 @@ Partial Public Class rptPreislisten
         Me.txtZahlungsziel.Height = 0.2720473!
         Me.txtZahlungsziel.Left = 0.01102362!
         Me.txtZahlungsziel.Name = "txtZahlungsziel"
-        Me.txtZahlungsziel.Style = "font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set: 1"
-        Me.txtZahlungsziel.Text = "Wir haben %ZAHLUNGSZIEL% Tage Zahlungsziel"
+        Me.txtZahlungsziel.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtZahlungsziel.Text = "Wir haben %ZAHLUNGSZIEL% Tage Zahlungsziel*"
         Me.txtZahlungsziel.Top = 0.6728347!
-        Me.txtZahlungsziel.Width = 4.88189!
+        Me.txtZahlungsziel.Width = 6.68189!
         '
         'txtZahlungsziel2
         '
-        Me.txtZahlungsziel2.Height = 0.8244092!
+        Me.txtZahlungsziel2.Height = 0.3972438!
         Me.txtZahlungsziel2.Left = 0.01102362!
         Me.txtZahlungsziel2.Name = "txtZahlungsziel2"
         Me.txtZahlungsziel2.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
         Me.txtZahlungsziel2.Text = "Bei Zahlung innerhalb %ZAHLUNGSZIEL% Tagen kann die Kreditaufwendung (%POSKREDIT%" &
-    ") in Abzug gebracht werden (ausgenommen bei Vorkassenberechnungen)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Wir behal" &
-    "ten uns Preisanpassungen vor."
+    ") in Abzug gebracht werden.* " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.txtZahlungsziel2.Top = 1.011024!
         Me.txtZahlungsziel2.Width = 6.68189!
         '
@@ -566,16 +578,20 @@ Partial Public Class rptPreislisten
         Me.SubReport2.Top = 0.5192913!
         Me.SubReport2.Width = 6.722048!
         '
-        'Label1
+        'txtHinweis
         '
-        Me.Label1.Height = 0.2!
-        Me.Label1.HyperLink = Nothing
-        Me.Label1.Left = 0.005488008!
-        Me.Label1.Name = "Label1"
-        Me.Label1.Style = "font-size: 8pt"
-        Me.Label1.Text = ""
-        Me.Label1.Top = 0.01250004!
-        Me.Label1.Width = 3.120079!
+        Me.txtHinweis.DataField = ""
+        Me.txtHinweis.DistinctField = ""
+        Me.txtHinweis.Height = 0.7035433!
+        Me.txtHinweis.Left = 0.02362205!
+        Me.txtHinweis.Name = "txtHinweis"
+        Me.txtHinweis.Style = "color: Black; font-size: 10pt; font-weight: normal; text-align: left; ddo-char-se" &
+    "t: 1"
+        Me.txtHinweis.SummaryGroup = ""
+        Me.txtHinweis.Text = "*ausgenommen bei Vorkassenberechnungen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Wir behalten uns Preisanpassungen vor." &
+    " "
+        Me.txtHinweis.Top = 1.314567!
+        Me.txtHinweis.Width = 6.68189!
         '
         'rptPreislisten
         '
@@ -588,7 +604,7 @@ Partial Public Class rptPreislisten
         Me.PageSettings.PaperHeight = 11.69291!
         Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
         Me.PageSettings.PaperWidth = 8.267716!
-        Me.PrintWidth = 6.733071!
+        Me.PrintWidth = 6.775591!
         Me.Sections.Add(Me.ReportHeader1)
         Me.Sections.Add(Me.PageHeader)
         Me.Sections.Add(Me.Detail)
@@ -606,6 +622,7 @@ Partial Public Class rptPreislisten
         CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblAGB, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).EndInit()
@@ -625,7 +642,7 @@ Partial Public Class rptPreislisten
         CType(Me.txtClearing, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtEnding, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtFirmenkennung, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtHinweis, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
 
     End Sub
@@ -671,4 +688,5 @@ Partial Public Class rptPreislisten
     Public WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents txtHinweis As GrapeCity.ActiveReports.SectionReportModel.TextBox
 End Class

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -4874,7 +4874,7 @@ Public Class frmMDM_USTVAntrag
         ElseIf SchnittstellenNr = 9 Then
             LeistungsBez = "maut" 'MSE immer MAUT
         Else
-            If LeistungsBez.Contains("maut") Or LeistungsBez.Contains("toll") Then
+            If LeistungsBez.Contains("maut") Or LeistungsBez.Contains("toll") Or LeistungsBez.Contains("abgasplakette") Then
                 list.Add("maut")
             End If
             If LeistungsBez.Contains("diesel") Or LeistungsBez.Contains("fuel") Then