From 86482b7904e42c09f047460e45544f06b4e0b58f Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 22 Aug 2024 15:08:31 +0200 Subject: [PATCH] Mahnung --- SDL/buchhaltung/frmBU_Mahnlauf.vb | 2 + SDL/buchhaltung/rptMahnung.Designer.vb | 351 +++++++++++++------------ 2 files changed, 178 insertions(+), 175 deletions(-) diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 1f28ad0d..39338d94 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -402,8 +402,10 @@ Public Class frmBU_Mahnlauf If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then rpt.Label16.Text = "" + rpt.Label15.ForeColor = Color.Black Else rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) + rpt.Label15.ForeColor = Color.DarkRed End If rpt.Label17.Text = cFakturierung.checkNull(rpt.Fields.Item("Rechnungsbetrag").Value) diff --git a/SDL/buchhaltung/rptMahnung.Designer.vb b/SDL/buchhaltung/rptMahnung.Designer.vb index 750e4318..2f6701c3 100644 --- a/SDL/buchhaltung/rptMahnung.Designer.vb +++ b/SDL/buchhaltung/rptMahnung.Designer.vb @@ -29,6 +29,7 @@ Partial Public Class rptMahnung Me.Label20 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label22 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() @@ -90,6 +91,8 @@ Partial Public Class rptMahnung Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label23 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label24 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() @@ -105,9 +108,6 @@ Partial Public Class rptMahnung Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() - Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() - Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit() @@ -116,6 +116,7 @@ Partial Public Class rptMahnung CType(Me.Label20, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -163,6 +164,8 @@ Partial Public Class rptMahnung CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label24, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRgDat, System.ComponentModel.ISupportInitialize).BeginInit() @@ -172,9 +175,6 @@ Partial Public Class rptMahnung CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -184,7 +184,7 @@ Partial Public Class rptMahnung ' 'Detail ' - Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLeistung, Me.Line10, Me.Line11, Me.Label15, Me.Label16, Me.Label17, Me.Label19, Me.Label20, Me.Label21, Me.Label22, Me.TextBox1}) + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLeistung, Me.Line10, Me.Line11, Me.Label15, Me.Label16, Me.Label17, Me.Label19, Me.Label20, Me.Label21, Me.TextBox1}) Me.Detail.Height = 0.1782043! Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" @@ -198,7 +198,7 @@ Partial Public Class rptMahnung "ar-set: 1" Me.txtLeistung.Text = "2188888888" Me.txtLeistung.Top = 0! - Me.txtLeistung.Width = 0.8159217! + Me.txtLeistung.Width = 0.7429134! ' 'Line10 ' @@ -218,13 +218,13 @@ Partial Public Class rptMahnung ' Me.Line11.AnchorBottom = True Me.Line11.Height = 0.1712599! - Me.Line11.Left = 7.105998! + Me.Line11.Left = 7.486614! Me.Line11.LineWeight = 1.0! Me.Line11.Name = "Line11" Me.Line11.Top = 3.72529E-9! Me.Line11.Width = 0! - Me.Line11.X1 = 7.105998! - Me.Line11.X2 = 7.105998! + Me.Line11.X1 = 7.486614! + Me.Line11.X2 = 7.486614! Me.Line11.Y1 = 3.72529E-9! Me.Line11.Y2 = 0.1712599! ' @@ -232,22 +232,22 @@ Partial Public Class rptMahnung ' Me.Label15.Height = 0.1570866! Me.Label15.HyperLink = Nothing - Me.Label15.Left = 1.198425! + Me.Label15.Left = 1.165748! Me.Label15.Name = "Label15" Me.Label15.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" & "char-set: 1" Me.Label15.Text = "01.01.2021" - Me.Label15.Top = 3.72529E-9! + Me.Label15.Top = 0! Me.Label15.Width = 0.6614173! ' 'Label16 ' Me.Label16.Height = 0.1570866! Me.Label16.HyperLink = Nothing - Me.Label16.Left = 1.859536! + Me.Label16.Left = 1.855906! Me.Label16.Name = "Label16" - Me.Label16.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" & - "char-set: 1" + Me.Label16.Style = "color: DarkRed; font-size: 9pt; font-weight: normal; text-align: center; text-jus" & + "tify: auto; ddo-char-set: 1" Me.Label16.Text = "01.01.2021" Me.Label16.Top = 0! Me.Label16.Width = 0.6614173! @@ -256,7 +256,7 @@ Partial Public Class rptMahnung ' Me.Label17.Height = 0.1566929! Me.Label17.HyperLink = Nothing - Me.Label17.Left = 4.479134! + Me.Label17.Left = 4.999701! Me.Label17.Name = "Label17" Me.Label17.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) Me.Label17.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & @@ -269,7 +269,7 @@ Partial Public Class rptMahnung ' Me.Label19.Height = 0.1566929! Me.Label19.HyperLink = Nothing - Me.Label19.Left = 5.149213! + Me.Label19.Left = 5.685528! Me.Label19.Name = "Label19" Me.Label19.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" @@ -281,7 +281,7 @@ Partial Public Class rptMahnung ' Me.Label20.Height = 0.1566929! Me.Label20.HyperLink = Nothing - Me.Label20.Left = 5.838307! + Me.Label20.Left = 6.39037! Me.Label20.Name = "Label20" Me.Label20.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" @@ -293,7 +293,7 @@ Partial Public Class rptMahnung ' Me.Label21.Height = 0.1568193! Me.Label21.HyperLink = Nothing - Me.Label21.Left = 6.698819! + Me.Label21.Left = 7.079435! Me.Label21.Name = "Label21" Me.Label21.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" @@ -305,14 +305,26 @@ Partial Public Class rptMahnung ' Me.Label22.Height = 0.1568192! Me.Label22.HyperLink = Nothing - Me.Label22.Left = 6.343307! + Me.Label22.Left = 6.377953! Me.Label22.Name = "Label22" Me.Label22.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" Me.Label22.Text = "EUR" - Me.Label22.Top = 2.220446E-16! + Me.Label22.Top = 0.242126! + Me.Label22.Visible = False Me.Label22.Width = 0.5239997! ' + 'TextBox1 + ' + Me.TextBox1.Height = 0.1570866! + Me.TextBox1.Left = 2.585827! + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Style = "font-size: 10pt; font-weight: normal; text-align: left; text-justify: auto; ddo-c" & + "har-set: 1" + Me.TextBox1.Text = "Abfertigungs Nr." + Me.TextBox1.Top = 0! + Me.TextBox1.Width = 2.431409! + ' 'PageFooter ' Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer}) @@ -326,9 +338,9 @@ Partial Public Class rptMahnung Me.Line2.LineWeight = 1.0! Me.Line2.Name = "Line2" Me.Line2.Top = 0.074! - Me.Line2.Width = 6.706998! + Me.Line2.Width = 7.100606! Me.Line2.X1 = 0.3990001! - Me.Line2.X2 = 7.105998! + Me.Line2.X2 = 7.499606! Me.Line2.Y1 = 0.07401575! Me.Line2.Y2 = 0.074! ' @@ -336,7 +348,7 @@ Partial Public Class rptMahnung ' Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten " Me.ReportInfo2.Height = 0.1330709! - Me.ReportInfo2.Left = 5.097999! + Me.ReportInfo2.Left = 5.478614! Me.ReportInfo2.Name = "ReportInfo2" Me.ReportInfo2.Style = "font-size: 8pt; text-align: right" Me.ReportInfo2.Top = 0.123! @@ -387,7 +399,7 @@ Partial Public Class rptMahnung "ar-set: 1" Me.txtDisclaimer.Text = resources.GetString("txtDisclaimer.Text") Me.txtDisclaimer.Top = 0.785! - Me.txtDisclaimer.Width = 6.709! + Me.txtDisclaimer.Width = 7.074229! ' 'ReportHeader1 ' @@ -421,24 +433,24 @@ Partial Public Class rptMahnung ' Me.lblKundenNrUeberschrift.Height = 0.1574803! Me.lblKundenNrUeberschrift.HyperLink = Nothing - Me.lblKundenNrUeberschrift.Left = 4.628998! + Me.lblKundenNrUeberschrift.Left = 5.023282! Me.lblKundenNrUeberschrift.Name = "lblKundenNrUeberschrift" Me.lblKundenNrUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & "-char-set: 1" Me.lblKundenNrUeberschrift.Text = "Ihre Kunden-Nr.:" - Me.lblKundenNrUeberschrift.Top = 2.757! + Me.lblKundenNrUeberschrift.Top = 2.757134! Me.lblKundenNrUeberschrift.Width = 1.424669! ' 'lblKundenNr ' Me.lblKundenNr.Height = 0.1574803! Me.lblKundenNr.HyperLink = Nothing - Me.lblKundenNr.Left = 5.134998! + Me.lblKundenNr.Left = 5.528943! Me.lblKundenNr.Name = "lblKundenNr" Me.lblKundenNr.Style = "font-size: 12pt; font-weight: bold; text-align: right; vertical-align: middle; dd" & "o-char-set: 1" Me.lblKundenNr.Text = "1234567" - Me.lblKundenNr.Top = 2.757! + Me.lblKundenNr.Top = 2.757701! Me.lblKundenNr.Width = 1.958268! ' 'Line3 @@ -449,9 +461,9 @@ Partial Public Class rptMahnung Me.Line3.LineWeight = 1.0! Me.Line3.Name = "Line3" Me.Line3.Top = 0.73! - Me.Line3.Width = 6.709194! + Me.Line3.Width = 7.102969! Me.Line3.X1 = 0.3990001! - Me.Line3.X2 = 7.108194! + Me.Line3.X2 = 7.501969! Me.Line3.Y1 = 0.73! Me.Line3.Y2 = 0.73! ' @@ -531,96 +543,96 @@ Partial Public Class rptMahnung ' Me.lblRgDatumUeberschrift.Height = 0.1574803! Me.lblRgDatumUeberschrift.HyperLink = Nothing - Me.lblRgDatumUeberschrift.Left = 4.628189! + Me.lblRgDatumUeberschrift.Left = 5.022473! Me.lblRgDatumUeberschrift.Name = "lblRgDatumUeberschrift" Me.lblRgDatumUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & "char-set: 1" Me.lblRgDatumUeberschrift.Text = "Datum:" - Me.lblRgDatumUeberschrift.Top = 2.9647! + Me.lblRgDatumUeberschrift.Top = 2.964834! Me.lblRgDatumUeberschrift.Width = 0.9894789! ' 'lblRgDatum ' Me.lblRgDatum.Height = 0.1574803! Me.lblRgDatum.HyperLink = Nothing - Me.lblRgDatum.Left = 5.134189! + Me.lblRgDatum.Left = 5.528134! Me.lblRgDatum.Name = "lblRgDatum" Me.lblRgDatum.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.lblRgDatum.Text = "01.01.2019" - Me.lblRgDatum.Top = 2.9647! + Me.lblRgDatum.Top = 2.965401! Me.lblRgDatum.Width = 1.958268! ' 'lblSachbearbeiterUeberschrift ' Me.lblSachbearbeiterUeberschrift.Height = 0.314! Me.lblSachbearbeiterUeberschrift.HyperLink = Nothing - Me.lblSachbearbeiterUeberschrift.Left = 4.628998! + Me.lblSachbearbeiterUeberschrift.Left = 5.023282! Me.lblSachbearbeiterUeberschrift.Name = "lblSachbearbeiterUeberschrift" Me.lblSachbearbeiterUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & "o-char-set: 1" Me.lblSachbearbeiterUeberschrift.Text = "Sachbearbeiter/in:" - Me.lblSachbearbeiterUeberschrift.Top = 1.879! + Me.lblSachbearbeiterUeberschrift.Top = 1.879134! Me.lblSachbearbeiterUeberschrift.Width = 0.9884804! ' 'lblSachbearbeiter ' Me.lblSachbearbeiter.Height = 0.314! Me.lblSachbearbeiter.HyperLink = Nothing - Me.lblSachbearbeiter.Left = 5.688! + Me.lblSachbearbeiter.Left = 6.082284! Me.lblSachbearbeiter.Name = "lblSachbearbeiter" Me.lblSachbearbeiter.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" & "do-char-set: 1" Me.lblSachbearbeiter.Text = "Frau Stockenhuber, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Frau Stadler" - Me.lblSachbearbeiter.Top = 1.879! + Me.lblSachbearbeiter.Top = 1.879134! Me.lblSachbearbeiter.Width = 1.405268! ' 'lblFirmenbuchUeberschrift ' Me.lblFirmenbuchUeberschrift.Height = 0.1574803! Me.lblFirmenbuchUeberschrift.HyperLink = Nothing - Me.lblFirmenbuchUeberschrift.Left = 4.628998! + Me.lblFirmenbuchUeberschrift.Left = 5.023282! Me.lblFirmenbuchUeberschrift.Name = "lblFirmenbuchUeberschrift" Me.lblFirmenbuchUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & "o-char-set: 1" Me.lblFirmenbuchUeberschrift.Text = "Firmenbuch:" - Me.lblFirmenbuchUeberschrift.Top = 0.988! + Me.lblFirmenbuchUeberschrift.Top = 0.988134! Me.lblFirmenbuchUeberschrift.Width = 1.165748! ' 'lblFirmenbuch ' Me.lblFirmenbuch.Height = 0.1574803! Me.lblFirmenbuch.HyperLink = Nothing - Me.lblFirmenbuch.Left = 5.13452! + Me.lblFirmenbuch.Left = 5.528804! Me.lblFirmenbuch.Name = "lblFirmenbuch" Me.lblFirmenbuch.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.lblFirmenbuch.Text = "FN 216714y" - Me.lblFirmenbuch.Top = 0.988! + Me.lblFirmenbuch.Top = 0.988134! Me.lblFirmenbuch.Width = 1.958268! ' 'lblUIDUeberschrift ' Me.lblUIDUeberschrift.Height = 0.1574803! Me.lblUIDUeberschrift.HyperLink = Nothing - Me.lblUIDUeberschrift.Left = 4.628707! + Me.lblUIDUeberschrift.Left = 5.022991! Me.lblUIDUeberschrift.Name = "lblUIDUeberschrift" Me.lblUIDUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & "o-char-set: 1" Me.lblUIDUeberschrift.Text = "Unsere UID-Nr.:" - Me.lblUIDUeberschrift.Top = 0.8302201! + Me.lblUIDUeberschrift.Top = 0.8303541! Me.lblUIDUeberschrift.Width = 1.165748! ' 'lblUID ' Me.lblUID.Height = 0.1574803! Me.lblUID.HyperLink = Nothing - Me.lblUID.Left = 5.13452! + Me.lblUID.Left = 5.529134! Me.lblUID.Name = "lblUID" Me.lblUID.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.lblUID.Text = "ATU53187000" - Me.lblUID.Top = 0.83! + Me.lblUID.Top = 0.8299213! Me.lblUID.Width = 1.958268! ' 'lblRechnung_Name1 @@ -712,12 +724,12 @@ Partial Public Class rptMahnung ' Me.Label3.Height = 0.1574803! Me.Label3.HyperLink = Nothing - Me.Label3.Left = 4.627998! + Me.Label3.Left = 5.022282! Me.Label3.Name = "Label3" Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & "o-char-set: 1" Me.Label3.Text = "Telefon:" - Me.Label3.Top = 2.193! + Me.Label3.Top = 2.193134! Me.Label3.Width = 0.9884803! ' 'lblTelefon @@ -725,24 +737,24 @@ Partial Public Class rptMahnung Me.lblTelefon.DataField = "" Me.lblTelefon.Height = 0.1574802! Me.lblTelefon.HyperLink = Nothing - Me.lblTelefon.Left = 5.197! + Me.lblTelefon.Left = 5.590945! Me.lblTelefon.Name = "lblTelefon" Me.lblTelefon.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: right; vertical-al" & "ign: middle; ddo-char-set: 1" Me.lblTelefon.Text = "+43 (0) 7711 / 2777 - 110" - Me.lblTelefon.Top = 2.193! + Me.lblTelefon.Top = 2.193701! Me.lblTelefon.Width = 1.895268! ' 'Label5 ' Me.Label5.Height = 0.1574803! Me.Label5.HyperLink = Nothing - Me.Label5.Left = 4.628478! + Me.Label5.Left = 5.022762! Me.Label5.Name = "Label5" Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & "o-char-set: 1" Me.Label5.Text = "E-Mail:" - Me.Label5.Top = 2.35! + Me.Label5.Top = 2.350134! Me.Label5.Width = 0.9884803! ' 'lblEmail @@ -750,25 +762,25 @@ Partial Public Class rptMahnung Me.lblEmail.DataField = "" Me.lblEmail.Height = 0.1574802! Me.lblEmail.HyperLink = Nothing - Me.lblEmail.Left = 5.197479! + Me.lblEmail.Left = 5.591424! Me.lblEmail.Name = "lblEmail" Me.lblEmail.ShrinkToFit = True Me.lblEmail.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: right; vertical-al" & "ign: middle; ddo-char-set: 1; ddo-shrink-to-fit: true" Me.lblEmail.Text = "buchhaltung@verag.ag" - Me.lblEmail.Top = 2.35! + Me.lblEmail.Top = 2.350701! Me.lblEmail.Width = 1.895268! ' 'Label1 ' Me.Label1.Height = 0.1574803! Me.Label1.HyperLink = Nothing - Me.Label1.Left = 4.628478! + Me.Label1.Left = 5.022762! Me.Label1.Name = "Label1" Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & "o-char-set: 1" Me.Label1.Text = "Fax:" - Me.Label1.Top = 2.507! + Me.Label1.Top = 2.507134! Me.Label1.Width = 0.9884806! ' 'lblFaxNr @@ -776,12 +788,12 @@ Partial Public Class rptMahnung Me.lblFaxNr.DataField = "" Me.lblFaxNr.Height = 0.1574802! Me.lblFaxNr.HyperLink = Nothing - Me.lblFaxNr.Left = 5.19748! + Me.lblFaxNr.Left = 5.591425! Me.lblFaxNr.Name = "lblFaxNr" Me.lblFaxNr.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: right; vertical-al" & "ign: middle; ddo-char-set: 1" Me.lblFaxNr.Text = "+43 (0) 7711 / 31600" - Me.lblFaxNr.Top = 2.507! + Me.lblFaxNr.Top = 2.507701! Me.lblFaxNr.Width = 1.895268! ' 'Label25 @@ -817,34 +829,34 @@ Partial Public Class rptMahnung 'Line8 ' Me.Line8.Height = 0.937795! - Me.Line8.Left = 2.256! + Me.Line8.Left = 2.636615! Me.Line8.LineWeight = 1.0! Me.Line8.Name = "Line8" Me.Line8.Top = 0.112! Me.Line8.Width = 0! - Me.Line8.X1 = 2.256! - Me.Line8.X2 = 2.256! + Me.Line8.X1 = 2.636615! + Me.Line8.X2 = 2.636615! Me.Line8.Y1 = 0.112! Me.Line8.Y2 = 1.049795! ' 'Line9 ' Me.Line9.Height = 0.0004566014! - Me.Line9.Left = 0.3990001! + Me.Line9.Left = 0.3988189! Me.Line9.LineWeight = 2.0! Me.Line9.Name = "Line9" - Me.Line9.Top = 0.1035434! - Me.Line9.Width = 6.708995! - Me.Line9.X1 = 0.3990001! - Me.Line9.X2 = 7.107995! - Me.Line9.Y1 = 0.104! - Me.Line9.Y2 = 0.1035434! + Me.Line9.Top = 0.1034804! + Me.Line9.Width = 7.086615! + Me.Line9.X1 = 0.3988189! + Me.Line9.X2 = 7.485434! + Me.Line9.Y1 = 0.103937! + Me.Line9.Y2 = 0.1034804! ' 'lblSummeUeberschrift ' Me.lblSummeUeberschrift.Height = 0.1771653! Me.lblSummeUeberschrift.HyperLink = Nothing - Me.lblSummeUeberschrift.Left = 3.613709! + Me.lblSummeUeberschrift.Left = 3.994324! Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift" Me.lblSummeUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblSummeUeberschrift.Text = "Gesamtsumme" @@ -855,7 +867,7 @@ Partial Public Class rptMahnung ' Me.lblSumme.Height = 0.1574803! Me.lblSumme.HyperLink = Nothing - Me.lblSumme.Left = 4.972835! + Me.lblSumme.Left = 5.525104! Me.lblSumme.Name = "lblSumme" Me.lblSumme.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" @@ -867,7 +879,7 @@ Partial Public Class rptMahnung ' Me.Label46.Height = 0.1574803! Me.Label46.HyperLink = Nothing - Me.Label46.Left = 6.527166! + Me.Label46.Left = 7.07156! Me.Label46.Name = "Label46" Me.Label46.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" & "char-set: 1" @@ -877,35 +889,35 @@ Partial Public Class rptMahnung ' 'Line1 ' - Me.Line1.Height = 0! - Me.Line1.Left = 5.556919! + Me.Line1.Height = 0.0003936887! + Me.Line1.Left = 6.101314! Me.Line1.LineWeight = 2.0! Me.Line1.Name = "Line1" Me.Line1.Top = 0.9349369! - Me.Line1.Width = 1.141733! - Me.Line1.X1 = 5.556919! - Me.Line1.X2 = 6.698652! + Me.Line1.Width = 1.344882! + Me.Line1.X1 = 6.101314! + Me.Line1.X2 = 7.446196! Me.Line1.Y1 = 0.9349369! - Me.Line1.Y2 = 0.9349369! + Me.Line1.Y2 = 0.9353306! ' 'Line5 ' - Me.Line5.Height = 0! - Me.Line5.Left = 5.556919! + Me.Line5.Height = 0.0003936887! + Me.Line5.Left = 6.101482! Me.Line5.LineWeight = 2.0! Me.Line5.Name = "Line5" - Me.Line5.Top = 0.962496! - Me.Line5.Width = 1.141733! - Me.Line5.X1 = 5.556919! - Me.Line5.X2 = 6.698652! - Me.Line5.Y1 = 0.962496! - Me.Line5.Y2 = 0.962496! + Me.Line5.Top = 0.9625985! + Me.Line5.Width = 1.344882! + Me.Line5.X1 = 6.101482! + Me.Line5.X2 = 7.446364! + Me.Line5.Y1 = 0.9625985! + Me.Line5.Y2 = 0.9629922! ' 'lblZWSumme ' Me.lblZWSumme.Height = 0.1574803! Me.lblZWSumme.HyperLink = Nothing - Me.lblZWSumme.Left = 4.972835! + Me.lblZWSumme.Left = 5.525104! Me.lblZWSumme.Name = "lblZWSumme" Me.lblZWSumme.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" @@ -917,7 +929,7 @@ Partial Public Class rptMahnung ' Me.lblSteuersatz.Height = 0.1574803! Me.lblSteuersatz.HyperLink = Nothing - Me.lblSteuersatz.Left = 2.332709! + Me.lblSteuersatz.Left = 2.713324! Me.lblSteuersatz.Name = "lblSteuersatz" Me.lblSteuersatz.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.lblSteuersatz.Text = "Verzugszinsen von 9.5% p.a ab Fälligkeitsdatum" @@ -926,14 +938,14 @@ Partial Public Class rptMahnung ' 'txtVermerk ' - Me.txtVermerk.Height = 0.06181109! + Me.txtVermerk.Height = 0.06181103! Me.txtVermerk.Left = 0.404! Me.txtVermerk.Name = "txtVermerk" Me.txtVermerk.Style = "font-size: 10pt; font-weight: normal; text-align: left; text-justify: auto; ddo-c" & "har-set: 1" Me.txtVermerk.Text = "Text" Me.txtVermerk.Top = 1.18! - Me.txtVermerk.Width = 6.702001! + Me.txtVermerk.Width = 7.09567! ' 'Line6 ' @@ -951,26 +963,26 @@ Partial Public Class rptMahnung 'Line7 ' Me.Line7.Height = 0.946457! - Me.Line7.Left = 7.107998! + Me.Line7.Left = 7.488614! Me.Line7.LineWeight = 1.0! Me.Line7.Name = "Line7" Me.Line7.Top = 0.104! Me.Line7.Width = 0! - Me.Line7.X1 = 7.107998! - Me.Line7.X2 = 7.107998! + Me.Line7.X1 = 7.488614! + Me.Line7.X2 = 7.488614! Me.Line7.Y1 = 0.104! Me.Line7.Y2 = 1.050457! ' 'Line14 ' Me.Line14.Height = 0! - Me.Line14.Left = 2.256! + Me.Line14.Left = 2.636615! Me.Line14.LineWeight = 1.0! Me.Line14.Name = "Line14" Me.Line14.Top = 1.05! - Me.Line14.Width = 4.851998! - Me.Line14.X1 = 2.256! - Me.Line14.X2 = 7.107998! + Me.Line14.Width = 4.851999! + Me.Line14.X1 = 2.636615! + Me.Line14.X2 = 7.488614! Me.Line14.Y1 = 1.05! Me.Line14.Y2 = 1.05! ' @@ -978,7 +990,7 @@ Partial Public Class rptMahnung ' Me.lblZwText.Height = 0.1574803! Me.lblZwText.HyperLink = Nothing - Me.lblZwText.Left = 3.618828! + Me.lblZwText.Left = 3.999443! Me.lblZwText.Name = "lblZwText" Me.lblZwText.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.lblZwText.Text = "Mahngebühr" @@ -988,21 +1000,21 @@ Partial Public Class rptMahnung 'Line17 ' Me.Line17.Height = 0.1035433! - Me.Line17.Left = 7.107998! + Me.Line17.Left = 7.486221! Me.Line17.LineWeight = 1.0! Me.Line17.Name = "Line17" - Me.Line17.Top = 3.72529E-9! + Me.Line17.Top = 0! Me.Line17.Width = 0! - Me.Line17.X1 = 7.107998! - Me.Line17.X2 = 7.107998! - Me.Line17.Y1 = 3.72529E-9! + Me.Line17.X1 = 7.486221! + Me.Line17.X2 = 7.486221! + Me.Line17.Y1 = 0! Me.Line17.Y2 = 0.1035433! ' 'Label2 ' Me.Label2.Height = 0.1574803! Me.Label2.HyperLink = Nothing - Me.Label2.Left = 2.695669! + Me.Label2.Left = 3.076284! Me.Label2.Name = "Label2" Me.Label2.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.Label2.Text = "Zwischensumme" @@ -1013,7 +1025,7 @@ Partial Public Class rptMahnung ' Me.Label23.Height = 0.1574803! Me.Label23.HyperLink = Nothing - Me.Label23.Left = 4.972835! + Me.Label23.Left = 5.525104! Me.Label23.Name = "Label23" Me.Label23.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" @@ -1025,7 +1037,7 @@ Partial Public Class rptMahnung ' Me.Label24.Height = 0.1574803! Me.Label24.HyperLink = Nothing - Me.Label24.Left = 4.972835! + Me.Label24.Left = 5.525104! Me.Label24.Name = "Label24" Me.Label24.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" @@ -1033,9 +1045,34 @@ Partial Public Class rptMahnung Me.Label24.Top = 0.5541339! Me.Label24.Width = 1.554331! ' + 'Label4 + ' + Me.Label4.Height = 0.1566929! + Me.Label4.HyperLink = Nothing + Me.Label4.Left = 4.999119! + Me.Label4.Name = "Label4" + Me.Label4.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) + Me.Label4.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.Label4.Text = "999.999,99" + Me.Label4.Top = 0.1799213! + Me.Label4.Width = 0.6889763! + ' + 'Label6 + ' + Me.Label6.Height = 0.1566929! + Me.Label6.HyperLink = Nothing + Me.Label6.Left = 5.68534! + Me.Label6.Name = "Label6" + Me.Label6.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.Label6.Text = "999.999,99" + Me.Label6.Top = 0.1799213! + Me.Label6.Width = 0.6889763! + ' 'GroupHeader4 ' - Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.Line4, Me.Line12, Me.Line13, Me.Line16, Me.lblUeberschriftRG_GS, Me.TextBox2, Me.lblRgDat, Me.lblFaelligkeit, Me.Label10, Me.Label11, Me.Label12, Me.Label13, Me.Label14}) + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.Line4, Me.Line12, Me.Line13, Me.Line16, Me.lblUeberschriftRG_GS, Me.TextBox2, Me.lblRgDat, Me.lblFaelligkeit, Me.Label10, Me.Label11, Me.Label12, Me.Label13, Me.Label14, Me.Label22}) Me.GroupHeader4.Height = 1.032275! Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.Name = "GroupHeader4" @@ -1050,20 +1087,20 @@ Partial Public Class rptMahnung "-set: 1" Me.lblLeistungUeberschrift.Text = "Re-Nr" Me.lblLeistungUeberschrift.Top = 0.791! - Me.lblLeistungUeberschrift.Width = 0.8159216! + Me.lblLeistungUeberschrift.Width = 0.7429134! ' 'Line4 ' Me.Line4.Height = 0! - Me.Line4.Left = 0.4036375! + Me.Line4.Left = 0.3988189! Me.Line4.LineWeight = 1.0! Me.Line4.Name = "Line4" - Me.Line4.Top = 0.9721811! - Me.Line4.Width = 6.706996! - Me.Line4.X1 = 0.4036375! - Me.Line4.X2 = 7.110634! - Me.Line4.Y1 = 0.9721811! - Me.Line4.Y2 = 0.9721811! + Me.Line4.Top = 0.9720473! + Me.Line4.Width = 7.081496! + Me.Line4.X1 = 0.3988189! + Me.Line4.X2 = 7.480315! + Me.Line4.Y1 = 0.9720473! + Me.Line4.Y2 = 0.9720473! ' 'Line12 ' @@ -1081,13 +1118,13 @@ Partial Public Class rptMahnung 'Line13 ' Me.Line13.Height = 0.263866! - Me.Line13.Left = 7.105998! + Me.Line13.Left = 7.486614! Me.Line13.LineWeight = 1.0! Me.Line13.Name = "Line13" Me.Line13.Top = 0.761! - Me.Line13.Width = 0.001575947! - Me.Line13.X1 = 7.105998! - Me.Line13.X2 = 7.107574! + Me.Line13.Width = 0.00157547! + Me.Line13.X1 = 7.486614! + Me.Line13.X2 = 7.488189! Me.Line13.Y1 = 0.761! Me.Line13.Y2 = 1.024866! ' @@ -1098,9 +1135,9 @@ Partial Public Class rptMahnung Me.Line16.LineWeight = 1.0! Me.Line16.Name = "Line16" Me.Line16.Top = 0.761! - Me.Line16.Width = 6.706998! + Me.Line16.Width = 7.079315! Me.Line16.X1 = 0.4010001! - Me.Line16.X2 = 7.107998! + Me.Line16.X2 = 7.480315! Me.Line16.Y1 = 0.761! Me.Line16.Y2 = 0.761! ' @@ -1113,13 +1150,13 @@ Partial Public Class rptMahnung "har-set: 1" Me.TextBox2.Text = "Wir ersuchen um Ausgleich der nachfolgenden Rechnungen:" Me.TextBox2.Top = 0.399! - Me.TextBox2.Width = 6.702! + Me.TextBox2.Width = 7.097969! ' 'lblRgDat ' Me.lblRgDat.Height = 0.1811024! Me.lblRgDat.HyperLink = Nothing - Me.lblRgDat.Left = 1.198906! + Me.lblRgDat.Left = 1.165748! Me.lblRgDat.Name = "lblRgDat" Me.lblRgDat.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & "ar-set: 1" @@ -1131,7 +1168,7 @@ Partial Public Class rptMahnung ' Me.lblFaelligkeit.Height = 0.1811024! Me.lblFaelligkeit.HyperLink = Nothing - Me.lblFaelligkeit.Left = 1.860017! + Me.lblFaelligkeit.Left = 1.855993! Me.lblFaelligkeit.Name = "lblFaelligkeit" Me.lblFaelligkeit.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & "ar-set: 1" @@ -1143,7 +1180,7 @@ Partial Public Class rptMahnung ' Me.Label10.Height = 0.1807087! Me.Label10.HyperLink = Nothing - Me.Label10.Left = 4.478741! + Me.Label10.Left = 4.999308! Me.Label10.Name = "Label10" Me.Label10.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) Me.Label10.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & @@ -1156,20 +1193,20 @@ Partial Public Class rptMahnung ' Me.Label11.Height = 0.1810001! Me.Label11.HyperLink = Nothing - Me.Label11.Left = 2.520954! + Me.Label11.Left = 2.544576! Me.Label11.Name = "Label11" Me.Label11.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.Label11.Style = "font-size: 9pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.Label11.Text = "Abfertigungs-Nr." Me.Label11.Top = 0.791! - Me.Label11.Width = 1.957874! + Me.Label11.Width = 2.472747! ' 'Label12 ' Me.Label12.Height = 0.1807087! Me.Label12.HyperLink = Nothing - Me.Label12.Left = 5.149213! + Me.Label12.Left = 5.685528! Me.Label12.Name = "Label12" Me.Label12.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" @@ -1181,7 +1218,7 @@ Partial Public Class rptMahnung ' Me.Label13.Height = 0.1808192! Me.Label13.HyperLink = Nothing - Me.Label13.Left = 5.838789! + Me.Label13.Left = 6.390852! Me.Label13.Name = "Label13" Me.Label13.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & "ar-set: 1" @@ -1193,11 +1230,11 @@ Partial Public Class rptMahnung ' Me.Label14.Height = 0.1808192! Me.Label14.HyperLink = Nothing - Me.Label14.Left = 6.422441! + Me.Label14.Left = 6.803056! Me.Label14.Name = "Label14" Me.Label14.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" - Me.Label14.Text = "Mahnst." + Me.Label14.Text = "MS" Me.Label14.Top = 0.7909449! Me.Label14.Width = 0.6699996! ' @@ -1206,51 +1243,15 @@ Partial Public Class rptMahnung Me.GroupFooter4.Height = 0! Me.GroupFooter4.Name = "GroupFooter4" ' - 'TextBox1 - ' - Me.TextBox1.Height = 0.1570866! - Me.TextBox1.Left = 2.551969! - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Style = "font-size: 10pt; font-weight: normal; text-align: left; text-justify: auto; ddo-c" & - "har-set: 1" - Me.TextBox1.Text = "Abfertigungs Nr." - Me.TextBox1.Top = 0! - Me.TextBox1.Width = 1.926772! - ' - 'Label4 - ' - Me.Label4.Height = 0.1566929! - Me.Label4.HyperLink = Nothing - Me.Label4.Left = 4.478741! - Me.Label4.Name = "Label4" - Me.Label4.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) - Me.Label4.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & - "har-set: 1" - Me.Label4.Text = "999.999,99" - Me.Label4.Top = 0.1799213! - Me.Label4.Width = 0.6889763! - ' - 'Label6 - ' - Me.Label6.Height = 0.1566929! - Me.Label6.HyperLink = Nothing - Me.Label6.Left = 5.14882! - Me.Label6.Name = "Label6" - Me.Label6.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & - "har-set: 1" - Me.Label6.Text = "999.999,99" - Me.Label6.Top = 0.1799213! - Me.Label6.Width = 0.6889763! - ' 'rptMahnung ' Me.PageSettings.Margins.Bottom = 0.3937008! - Me.PageSettings.Margins.Left = 0.3937008! - Me.PageSettings.Margins.Right = 0.3937008! - Me.PageSettings.Margins.Top = 0.3937008! + Me.PageSettings.Margins.Left = 0.1968504! + Me.PageSettings.Margins.Right = 0.1968504! + Me.PageSettings.Margins.Top = 0.3937007! Me.PageSettings.PaperHeight = 11.0! Me.PageSettings.PaperWidth = 8.5! - Me.PrintWidth = 7.480747! + Me.PrintWidth = 7.874016! Me.Sections.Add(Me.ReportHeader1) Me.Sections.Add(Me.PageHeader) Me.Sections.Add(Me.GroupHeader4) @@ -1272,6 +1273,7 @@ Partial Public Class rptMahnung CType(Me.Label20, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).EndInit() @@ -1319,6 +1321,8 @@ Partial Public Class rptMahnung CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label23, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label24, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRgDat, System.ComponentModel.ISupportInitialize).EndInit() @@ -1328,9 +1332,6 @@ Partial Public Class rptMahnung CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub