From 851dbb49128b47cf81c92d28663667c22a6d04c3 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 22 Aug 2024 13:51:43 +0200 Subject: [PATCH 1/4] Layout ZE/Mahnung --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/buchhaltung/frmBU_Mahnlauf.vb | 12 +- SDL/buchhaltung/rptMahnung.Designer.vb | 199 ++++++++++-------- .../Classes/cRechnungsausgang.vb | 2 +- 4 files changed, 129 insertions(+), 88 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index d8e43132..4c8feec9 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 28d3de76..1f28ad0d 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -367,6 +367,8 @@ Public Class frmBU_Mahnlauf 'Dim cnt As Integer = 0 + Dim ZWSBetrag As Double = 0 + Dim ZWZahlung As Double = 0 Dim ZWSumme As Double = 0 Dim Mahngeb As Double = 5 Dim VerzugszinsenGes As Double = 0 @@ -405,16 +407,22 @@ Public Class frmBU_Mahnlauf End If rpt.Label17.Text = cFakturierung.checkNull(rpt.Fields.Item("Rechnungsbetrag").Value) - rpt.Label18.Text = cFakturierung.checkNull(rpt.Fields.Item("Bemerkung").Value) + rpt.TextBox1.Text = cFakturierung.checkNull(rpt.Fields.Item("Bemerkung").Value) rpt.Label19.Text = cFakturierung.checkNull(rpt.Fields.Item("Zahlung").Value) rpt.Label20.Text = cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value) rpt.Label21.Text = cFakturierung.checkNull(rpt.Fields.Item("Mahnstufe").Value) rpt.Label22.Text = cFakturierung.checkNull(rpt.Fields.Item("Währung").Value) + Dim Rechnungsbetrag As Double = 0 + If IsNumeric(cFakturierung.checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then Rechnungsbetrag = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value()) + Dim Zahlung As Double = 0 + If IsNumeric(cFakturierung.checkNull(rpt.Fields.Item("Zahlung").Value)) Then Zahlung = CDbl(rpt.Fields.Item("Zahlung").Value()) Dim Ausstand As Double = 0 If IsNumeric(cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value)) Then Ausstand = CDbl(rpt.Fields.Item("Ausstand").Value()) rpt.Label20.Text = If(Ausstand <> 0, CDbl(Ausstand).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + ZWSBetrag += Rechnungsbetrag + ZWZahlung += Zahlung ZWSumme += Ausstand Dim Verzugszinsen As Double = 0 @@ -427,6 +435,8 @@ Public Class frmBU_Mahnlauf AddHandler rpt.ReportFooter1.Format, Sub() + rpt.Label4.Text = ZWSBetrag.ToString("N2", CultureInfo.CurrentCulture) + rpt.Label6.Text = ZWZahlung.ToString("N2", CultureInfo.CurrentCulture) rpt.lblZWSumme.Text = ZWSumme.ToString("N2", CultureInfo.CurrentCulture) rpt.Label23.Text = Mahngeb.ToString("N2", CultureInfo.CurrentCulture) rpt.Label24.Text = VerzugszinsenGes.ToString("N2", CultureInfo.CurrentCulture) diff --git a/SDL/buchhaltung/rptMahnung.Designer.vb b/SDL/buchhaltung/rptMahnung.Designer.vb index 52b9cd28..750e4318 100644 --- a/SDL/buchhaltung/rptMahnung.Designer.vb +++ b/SDL/buchhaltung/rptMahnung.Designer.vb @@ -25,7 +25,6 @@ Partial Public Class rptMahnung Me.Label15 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label17 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label19 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label20 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -106,11 +105,13 @@ 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() CType(Me.Label17, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label19, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label20, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit() @@ -171,6 +172,9 @@ 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 @@ -180,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.Label18, Me.Label19, Me.Label20, Me.Label21, Me.Label22}) + 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.Height = 0.1782043! Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" @@ -188,13 +192,13 @@ Partial Public Class rptMahnung 'txtLeistung ' Me.txtLeistung.Height = 0.1574803! - Me.txtLeistung.Left = 0.4565194! + Me.txtLeistung.Left = 0.4307087! Me.txtLeistung.Name = "txtLeistung" Me.txtLeistung.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & "ar-set: 1" Me.txtLeistung.Text = "2188888888" - Me.txtLeistung.Top = 3.72529E-9! - Me.txtLeistung.Width = 0.972! + Me.txtLeistung.Top = 0! + Me.txtLeistung.Width = 0.8159217! ' 'Line10 ' @@ -226,100 +230,87 @@ Partial Public Class rptMahnung ' 'Label15 ' - Me.Label15.Height = 0.157! + Me.Label15.Height = 0.1570866! Me.Label15.HyperLink = Nothing - Me.Label15.Left = 1.428519! + Me.Label15.Left = 1.198425! 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.Width = 0.6879999! + Me.Label15.Width = 0.6614173! ' 'Label16 ' - Me.Label16.Height = 0.157! + Me.Label16.Height = 0.1570866! Me.Label16.HyperLink = Nothing - Me.Label16.Left = 2.116! + Me.Label16.Left = 1.859536! 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.Text = "01.01.2021" Me.Label16.Top = 0! - Me.Label16.Width = 0.7709993! + Me.Label16.Width = 0.6614173! ' 'Label17 ' - Me.Label17.Height = 0.1568193! + Me.Label17.Height = 0.1566929! Me.Label17.HyperLink = Nothing - Me.Label17.Left = 2.89352! + Me.Label17.Left = 4.479134! 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" & "har-set: 1" Me.Label17.Text = "999.999,99" - Me.Label17.Top = 3.72529E-9! - Me.Label17.Width = 0.7459996! - ' - 'Label18 - ' - Me.Label18.Height = 0.157! - Me.Label18.HyperLink = Nothing - Me.Label18.Left = 3.639519! - Me.Label18.Name = "Label18" - Me.Label18.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.Label18.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & - "ar-set: 1" - Me.Label18.Text = "Abfertigungs Nr." - Me.Label18.Top = 3.72529E-9! - Me.Label18.Width = 1.244! + Me.Label17.Top = 0! + Me.Label17.Width = 0.6889764! ' 'Label19 ' - Me.Label19.Height = 0.1568193! + Me.Label19.Height = 0.1566929! Me.Label19.HyperLink = Nothing - Me.Label19.Left = 4.883521! + Me.Label19.Left = 5.149213! Me.Label19.Name = "Label19" Me.Label19.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" Me.Label19.Text = "999.999,99" - Me.Label19.Top = 3.72529E-9! - Me.Label19.Width = 0.7044778! + Me.Label19.Top = 0! + Me.Label19.Width = 0.6889764! ' 'Label20 ' - Me.Label20.Height = 0.1568193! + Me.Label20.Height = 0.1566929! Me.Label20.HyperLink = Nothing - Me.Label20.Left = 5.588! + Me.Label20.Left = 5.838307! Me.Label20.Name = "Label20" Me.Label20.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" Me.Label20.Text = "999.999,99" - Me.Label20.Top = 0! - Me.Label20.Width = 0.7354794! + Me.Label20.Top = 2.220446E-16! + Me.Label20.Width = 0.6889764! ' 'Label21 ' Me.Label21.Height = 0.1568193! Me.Label21.HyperLink = Nothing - Me.Label21.Left = 6.686998! + Me.Label21.Left = 6.698819! Me.Label21.Name = "Label21" Me.Label21.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" Me.Label21.Text = "14" - Me.Label21.Top = 3.72529E-9! + Me.Label21.Top = 0! Me.Label21.Width = 0.3669996! ' 'Label22 ' Me.Label22.Height = 0.1568192! Me.Label22.HyperLink = Nothing - Me.Label22.Left = 6.093! + Me.Label22.Left = 6.343307! 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 = 0! + Me.Label22.Top = 2.220446E-16! Me.Label22.Width = 0.5239997! ' 'PageFooter @@ -818,8 +809,8 @@ Partial Public Class rptMahnung ' 'ReportFooter1 ' - Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuersatz, Me.txtVermerk, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.Label2, Me.Label23, Me.Label24}) - Me.ReportFooter1.Height = 1.241732! + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuersatz, Me.txtVermerk, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.Label2, Me.Label23, Me.Label24, Me.Label4, Me.Label6}) + Me.ReportFooter1.Height = 1.241811! Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.Name = "ReportFooter1" ' @@ -864,24 +855,24 @@ Partial Public Class rptMahnung ' Me.lblSumme.Height = 0.1574803! Me.lblSumme.HyperLink = Nothing - Me.lblSumme.Left = 4.769516! + Me.lblSumme.Left = 4.972835! Me.lblSumme.Name = "lblSumme" Me.lblSumme.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" Me.lblSumme.Text = "999.999,99" - Me.lblSumme.Top = 0.7577714! + Me.lblSumme.Top = 0.7578741! Me.lblSumme.Width = 1.554331! ' 'Label46 ' Me.Label46.Height = 0.1574803! Me.Label46.HyperLink = Nothing - Me.Label46.Left = 6.32385! + Me.Label46.Left = 6.527166! Me.Label46.Name = "Label46" Me.Label46.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" & "char-set: 1" Me.Label46.Text = "EUR" - Me.Label46.Top = 0.7577714! + Me.Label46.Top = 0.7578741! Me.Label46.Width = 0.3748035! ' 'Line1 @@ -914,12 +905,12 @@ Partial Public Class rptMahnung ' Me.lblZWSumme.Height = 0.1574803! Me.lblZWSumme.HyperLink = Nothing - Me.lblZWSumme.Left = 4.769999! + Me.lblZWSumme.Left = 4.972835! Me.lblZWSumme.Name = "lblZWSumme" - Me.lblZWSumme.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & - "har-set: 1" + Me.lblZWSumme.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" Me.lblZWSumme.Text = "999.999,99" - Me.lblZWSumme.Top = 0.179! + Me.lblZWSumme.Top = 0.1791339! Me.lblZWSumme.Width = 1.554331! ' 'lblSteuersatz @@ -1011,35 +1002,35 @@ Partial Public Class rptMahnung ' Me.Label2.Height = 0.1574803! Me.Label2.HyperLink = Nothing - Me.Label2.Left = 3.613709! + Me.Label2.Left = 2.695669! Me.Label2.Name = "Label2" Me.Label2.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.Label2.Text = "Zwischensumme" - Me.Label2.Top = 0.1792361! + Me.Label2.Top = 0.1791339! Me.Label2.Width = 1.549212! ' 'Label23 ' Me.Label23.Height = 0.1574803! Me.Label23.HyperLink = Nothing - Me.Label23.Left = 4.769999! + Me.Label23.Left = 4.972835! Me.Label23.Name = "Label23" Me.Label23.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" Me.Label23.Text = "999.999,99" - Me.Label23.Top = 0.367! + Me.Label23.Top = 0.3671339! Me.Label23.Width = 1.554331! ' 'Label24 ' Me.Label24.Height = 0.1574803! Me.Label24.HyperLink = Nothing - Me.Label24.Left = 4.769999! + Me.Label24.Left = 4.972835! Me.Label24.Name = "Label24" Me.Label24.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" Me.Label24.Text = "999.999,99" - Me.Label24.Top = 0.554! + Me.Label24.Top = 0.5541339! Me.Label24.Width = 1.554331! ' 'GroupHeader4 @@ -1053,13 +1044,13 @@ Partial Public Class rptMahnung ' Me.lblLeistungUeberschrift.Height = 0.1809999! Me.lblLeistungUeberschrift.HyperLink = Nothing - Me.lblLeistungUeberschrift.Left = 0.4565194! + Me.lblLeistungUeberschrift.Left = 0.4307087! Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift" Me.lblLeistungUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" - Me.lblLeistungUeberschrift.Text = "Rechnungs-Nr" + Me.lblLeistungUeberschrift.Text = "Re-Nr" Me.lblLeistungUeberschrift.Top = 0.791! - Me.lblLeistungUeberschrift.Width = 0.9724807! + Me.lblLeistungUeberschrift.Width = 0.8159216! ' 'Line4 ' @@ -1126,74 +1117,74 @@ Partial Public Class rptMahnung ' 'lblRgDat ' - Me.lblRgDat.Height = 0.1810001! + Me.lblRgDat.Height = 0.1811024! Me.lblRgDat.HyperLink = Nothing - Me.lblRgDat.Left = 1.429! + Me.lblRgDat.Left = 1.198906! Me.lblRgDat.Name = "lblRgDat" Me.lblRgDat.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & "ar-set: 1" Me.lblRgDat.Text = "Rg.datum" Me.lblRgDat.Top = 0.791! - Me.lblRgDat.Width = 0.688! + Me.lblRgDat.Width = 0.6614173! ' 'lblFaelligkeit ' - Me.lblFaelligkeit.Height = 0.1810001! + Me.lblFaelligkeit.Height = 0.1811024! Me.lblFaelligkeit.HyperLink = Nothing - Me.lblFaelligkeit.Left = 2.116481! + Me.lblFaelligkeit.Left = 1.860017! Me.lblFaelligkeit.Name = "lblFaelligkeit" Me.lblFaelligkeit.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & "ar-set: 1" Me.lblFaelligkeit.Text = "Fälligkeit" Me.lblFaelligkeit.Top = 0.791! - Me.lblFaelligkeit.Width = 0.7705188! + Me.lblFaelligkeit.Width = 0.6614173! ' 'Label10 ' - Me.Label10.Height = 0.1808192! + Me.Label10.Height = 0.1807087! Me.Label10.HyperLink = Nothing - Me.Label10.Left = 2.894! + Me.Label10.Left = 4.478741! 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" & "r-set: 1" Me.Label10.Text = "Rg.Betrag" - Me.Label10.Top = 0.791! - Me.Label10.Width = 0.7459996! + Me.Label10.Top = 0.7909449! + Me.Label10.Width = 0.6889764! ' 'Label11 ' Me.Label11.Height = 0.1810001! Me.Label11.HyperLink = Nothing - Me.Label11.Left = 3.64! + Me.Label11.Left = 2.520954! 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.244! + Me.Label11.Width = 1.957874! ' 'Label12 ' - Me.Label12.Height = 0.1808192! + Me.Label12.Height = 0.1807087! Me.Label12.HyperLink = Nothing - Me.Label12.Left = 4.884! + Me.Label12.Left = 5.149213! Me.Label12.Name = "Label12" Me.Label12.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" Me.Label12.Text = "Zahlungen" - Me.Label12.Top = 0.791! - Me.Label12.Width = 0.7044778! + Me.Label12.Top = 0.7909449! + Me.Label12.Width = 0.6889764! ' 'Label13 ' Me.Label13.Height = 0.1808192! Me.Label13.HyperLink = Nothing - Me.Label13.Left = 5.588481! + Me.Label13.Left = 5.838789! Me.Label13.Name = "Label13" - Me.Label13.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & - "r-set: 1" + Me.Label13.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & + "ar-set: 1" Me.Label13.Text = "Ausstand" Me.Label13.Top = 0.791! Me.Label13.Width = 0.7354794! @@ -1202,12 +1193,12 @@ Partial Public Class rptMahnung ' Me.Label14.Height = 0.1808192! Me.Label14.HyperLink = Nothing - Me.Label14.Left = 6.38448! + Me.Label14.Left = 6.422441! 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 = "Mahnstufe" - Me.Label14.Top = 0.791! + Me.Label14.Text = "Mahnst." + Me.Label14.Top = 0.7909449! Me.Label14.Width = 0.6699996! ' 'GroupFooter4 @@ -1215,6 +1206,42 @@ 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! @@ -1241,7 +1268,6 @@ Partial Public Class rptMahnung CType(Me.Label15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label17, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label19, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label20, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit() @@ -1302,6 +1328,9 @@ 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 @@ -1386,10 +1415,12 @@ Partial Public Class rptMahnung Public WithEvents Label15 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label17 As GrapeCity.ActiveReports.SectionReportModel.Label - Public WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label19 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label20 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label22 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label25 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index c5d177d0..82116e63 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -739,7 +739,7 @@ Public Class cRechnungsausgang l.Steuerpflichtig = row("Steuerpflichtig") 'l.BGebBgl = l.Preis - If l.Steuerpflichtig Then + If Not l.Steuerpflichtig Then l.SteuerpflichtigerBetrag = l.Preis l.Preis = l.Preis Else From a7cca454c3a230a9d95b255fff43a30fa717131b Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 22 Aug 2024 13:52:02 +0200 Subject: [PATCH 2/4] Vers --- SDL/My Project/AssemblyInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 4c8feec9..e30efcec 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + From 86482b7904e42c09f047460e45544f06b4e0b58f Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 22 Aug 2024 15:08:31 +0200 Subject: [PATCH 3/4] 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 From 4ae6d5dd8eaeece617d15a62f1d04a410f017721 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 22 Aug 2024 16:04:44 +0200 Subject: [PATCH 4/4] Berichte/Erstattungsschreiben Fehler behoben --- .../usrCntlSeriendruck.Designer.vb | 148 +++++++++--------- SDL/seriendruck/usrCntlSeriendruck.vb | 24 +-- 2 files changed, 87 insertions(+), 85 deletions(-) diff --git a/SDL/seriendruck/usrCntlSeriendruck.Designer.vb b/SDL/seriendruck/usrCntlSeriendruck.Designer.vb index 073be2fb..9d279586 100644 --- a/SDL/seriendruck/usrCntlSeriendruck.Designer.vb +++ b/SDL/seriendruck/usrCntlSeriendruck.Designer.vb @@ -23,6 +23,9 @@ Partial Class usrCntlSeriendruck _ Private Sub InitializeComponent() Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.txtErstattungAbfUnterNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtErstattungAbfNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtErstattungAbfNrFiliale_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxSofortDruck = New System.Windows.Forms.CheckBox() Me.txtErstattungAbfNrFiliale = New System.Windows.Forms.TextBox() Me.txtErstattungAbfUnterNr = New System.Windows.Forms.TextBox() @@ -36,9 +39,6 @@ Partial Class usrCntlSeriendruck Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Button2 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.txtErstattungAbfNrFiliale_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtErstattungAbfNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtErstattungAbfUnterNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.SuspendLayout() @@ -64,6 +64,77 @@ Partial Class usrCntlSeriendruck Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False ' + 'txtErstattungAbfUnterNr_neu + ' + Me.txtErstattungAbfUnterNr_neu._DateTimeOnly = False + Me.txtErstattungAbfUnterNr_neu._numbersOnly = True + Me.txtErstattungAbfUnterNr_neu._numbersOnlyKommastellen = "" + Me.txtErstattungAbfUnterNr_neu._numbersOnlyTrennzeichen = False + Me.txtErstattungAbfUnterNr_neu._Prozent = False + Me.txtErstattungAbfUnterNr_neu._ShortDateNew = False + Me.txtErstattungAbfUnterNr_neu._ShortDateOnly = False + Me.txtErstattungAbfUnterNr_neu._TimeOnly = False + Me.txtErstattungAbfUnterNr_neu._TimeOnly_Seconds = False + Me.txtErstattungAbfUnterNr_neu._value = "" + Me.txtErstattungAbfUnterNr_neu._Waehrung = False + Me.txtErstattungAbfUnterNr_neu._WaehrungZeichen = True + Me.txtErstattungAbfUnterNr_neu.ForeColor = System.Drawing.Color.Black + Me.txtErstattungAbfUnterNr_neu.Location = New System.Drawing.Point(130, 42) + Me.txtErstattungAbfUnterNr_neu.MaxLineLength = -1 + Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning = "" + Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning_Label = Nothing + Me.txtErstattungAbfUnterNr_neu.Name = "txtErstattungAbfUnterNr_neu" + Me.txtErstattungAbfUnterNr_neu.Size = New System.Drawing.Size(32, 20) + Me.txtErstattungAbfUnterNr_neu.TabIndex = 10 + Me.txtErstattungAbfUnterNr_neu.Text = "00" + ' + 'txtErstattungAbfNr_neu + ' + Me.txtErstattungAbfNr_neu._DateTimeOnly = False + Me.txtErstattungAbfNr_neu._numbersOnly = True + Me.txtErstattungAbfNr_neu._numbersOnlyKommastellen = "" + Me.txtErstattungAbfNr_neu._numbersOnlyTrennzeichen = False + Me.txtErstattungAbfNr_neu._Prozent = False + Me.txtErstattungAbfNr_neu._ShortDateNew = False + Me.txtErstattungAbfNr_neu._ShortDateOnly = False + Me.txtErstattungAbfNr_neu._TimeOnly = False + Me.txtErstattungAbfNr_neu._TimeOnly_Seconds = False + Me.txtErstattungAbfNr_neu._value = "" + Me.txtErstattungAbfNr_neu._Waehrung = False + Me.txtErstattungAbfNr_neu._WaehrungZeichen = True + Me.txtErstattungAbfNr_neu.ForeColor = System.Drawing.Color.Black + Me.txtErstattungAbfNr_neu.Location = New System.Drawing.Point(58, 42) + Me.txtErstattungAbfNr_neu.MaxLineLength = -1 + Me.txtErstattungAbfNr_neu.MaxLines_Warning = "" + Me.txtErstattungAbfNr_neu.MaxLines_Warning_Label = Nothing + Me.txtErstattungAbfNr_neu.Name = "txtErstattungAbfNr_neu" + Me.txtErstattungAbfNr_neu.Size = New System.Drawing.Size(66, 20) + Me.txtErstattungAbfNr_neu.TabIndex = 9 + ' + 'txtErstattungAbfNrFiliale_neu + ' + Me.txtErstattungAbfNrFiliale_neu._DateTimeOnly = False + Me.txtErstattungAbfNrFiliale_neu._numbersOnly = True + Me.txtErstattungAbfNrFiliale_neu._numbersOnlyKommastellen = "" + Me.txtErstattungAbfNrFiliale_neu._numbersOnlyTrennzeichen = False + Me.txtErstattungAbfNrFiliale_neu._Prozent = False + Me.txtErstattungAbfNrFiliale_neu._ShortDateNew = False + Me.txtErstattungAbfNrFiliale_neu._ShortDateOnly = False + Me.txtErstattungAbfNrFiliale_neu._TimeOnly = False + Me.txtErstattungAbfNrFiliale_neu._TimeOnly_Seconds = False + Me.txtErstattungAbfNrFiliale_neu._value = "" + Me.txtErstattungAbfNrFiliale_neu._Waehrung = False + Me.txtErstattungAbfNrFiliale_neu._WaehrungZeichen = True + Me.txtErstattungAbfNrFiliale_neu.ForeColor = System.Drawing.Color.Black + Me.txtErstattungAbfNrFiliale_neu.Location = New System.Drawing.Point(19, 42) + Me.txtErstattungAbfNrFiliale_neu.MaxLineLength = -1 + Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning = "" + Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning_Label = Nothing + Me.txtErstattungAbfNrFiliale_neu.Name = "txtErstattungAbfNrFiliale_neu" + Me.txtErstattungAbfNrFiliale_neu.Size = New System.Drawing.Size(33, 20) + Me.txtErstattungAbfNrFiliale_neu.TabIndex = 8 + Me.txtErstattungAbfNrFiliale_neu.Text = "4817" + ' 'cbxSofortDruck ' Me.cbxSofortDruck.AutoSize = True @@ -198,77 +269,6 @@ Partial Class usrCntlSeriendruck Me.Label3.TabIndex = 2 Me.Label3.Text = "Gutschrift - Erstattungsschreiben" ' - 'txtErstattungAbfNrFiliale_neu - ' - Me.txtErstattungAbfNrFiliale_neu._DateTimeOnly = False - Me.txtErstattungAbfNrFiliale_neu._numbersOnly = True - Me.txtErstattungAbfNrFiliale_neu._numbersOnlyKommastellen = "" - Me.txtErstattungAbfNrFiliale_neu._numbersOnlyTrennzeichen = False - Me.txtErstattungAbfNrFiliale_neu._Prozent = False - Me.txtErstattungAbfNrFiliale_neu._ShortDateNew = False - Me.txtErstattungAbfNrFiliale_neu._ShortDateOnly = False - Me.txtErstattungAbfNrFiliale_neu._TimeOnly = False - Me.txtErstattungAbfNrFiliale_neu._TimeOnly_Seconds = False - Me.txtErstattungAbfNrFiliale_neu._value = "" - Me.txtErstattungAbfNrFiliale_neu._Waehrung = False - Me.txtErstattungAbfNrFiliale_neu._WaehrungZeichen = True - Me.txtErstattungAbfNrFiliale_neu.ForeColor = System.Drawing.Color.Black - Me.txtErstattungAbfNrFiliale_neu.Location = New System.Drawing.Point(19, 42) - Me.txtErstattungAbfNrFiliale_neu.MaxLineLength = -1 - Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning = "" - Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning_Label = Nothing - Me.txtErstattungAbfNrFiliale_neu.Name = "txtErstattungAbfNrFiliale_neu" - Me.txtErstattungAbfNrFiliale_neu.Size = New System.Drawing.Size(33, 20) - Me.txtErstattungAbfNrFiliale_neu.TabIndex = 8 - Me.txtErstattungAbfNrFiliale_neu.Text = "4817" - ' - 'txtErstattungAbfNr_neu - ' - Me.txtErstattungAbfNr_neu._DateTimeOnly = False - Me.txtErstattungAbfNr_neu._numbersOnly = True - Me.txtErstattungAbfNr_neu._numbersOnlyKommastellen = "" - Me.txtErstattungAbfNr_neu._numbersOnlyTrennzeichen = False - Me.txtErstattungAbfNr_neu._Prozent = False - Me.txtErstattungAbfNr_neu._ShortDateNew = False - Me.txtErstattungAbfNr_neu._ShortDateOnly = False - Me.txtErstattungAbfNr_neu._TimeOnly = False - Me.txtErstattungAbfNr_neu._TimeOnly_Seconds = False - Me.txtErstattungAbfNr_neu._value = "" - Me.txtErstattungAbfNr_neu._Waehrung = False - Me.txtErstattungAbfNr_neu._WaehrungZeichen = True - Me.txtErstattungAbfNr_neu.ForeColor = System.Drawing.Color.Black - Me.txtErstattungAbfNr_neu.Location = New System.Drawing.Point(58, 42) - Me.txtErstattungAbfNr_neu.MaxLineLength = -1 - Me.txtErstattungAbfNr_neu.MaxLines_Warning = "" - Me.txtErstattungAbfNr_neu.MaxLines_Warning_Label = Nothing - Me.txtErstattungAbfNr_neu.Name = "txtErstattungAbfNr_neu" - Me.txtErstattungAbfNr_neu.Size = New System.Drawing.Size(66, 20) - Me.txtErstattungAbfNr_neu.TabIndex = 9 - ' - 'txtErstattungAbfUnterNr_neu - ' - Me.txtErstattungAbfUnterNr_neu._DateTimeOnly = False - Me.txtErstattungAbfUnterNr_neu._numbersOnly = True - Me.txtErstattungAbfUnterNr_neu._numbersOnlyKommastellen = "" - Me.txtErstattungAbfUnterNr_neu._numbersOnlyTrennzeichen = False - Me.txtErstattungAbfUnterNr_neu._Prozent = False - Me.txtErstattungAbfUnterNr_neu._ShortDateNew = False - Me.txtErstattungAbfUnterNr_neu._ShortDateOnly = False - Me.txtErstattungAbfUnterNr_neu._TimeOnly = False - Me.txtErstattungAbfUnterNr_neu._TimeOnly_Seconds = False - Me.txtErstattungAbfUnterNr_neu._value = "" - Me.txtErstattungAbfUnterNr_neu._Waehrung = False - Me.txtErstattungAbfUnterNr_neu._WaehrungZeichen = True - Me.txtErstattungAbfUnterNr_neu.ForeColor = System.Drawing.Color.Black - Me.txtErstattungAbfUnterNr_neu.Location = New System.Drawing.Point(130, 42) - Me.txtErstattungAbfUnterNr_neu.MaxLineLength = -1 - Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning = "" - Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning_Label = Nothing - Me.txtErstattungAbfUnterNr_neu.Name = "txtErstattungAbfUnterNr_neu" - Me.txtErstattungAbfUnterNr_neu.Size = New System.Drawing.Size(32, 20) - Me.txtErstattungAbfUnterNr_neu.TabIndex = 10 - Me.txtErstattungAbfUnterNr_neu.Text = "00" - ' 'usrCntlSeriendruck ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/seriendruck/usrCntlSeriendruck.vb b/SDL/seriendruck/usrCntlSeriendruck.vb index 88fe6ce3..ebd575fb 100644 --- a/SDL/seriendruck/usrCntlSeriendruck.vb +++ b/SDL/seriendruck/usrCntlSeriendruck.vb @@ -6,7 +6,7 @@ Public Class usrCntlSeriendruck Dim FMZOLL_SQL As New FMZOLL_SQL Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click - If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then + If Not txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen Then frmMain.setInfo("info", "Die Abfertigungsnummer ist nicht gültig!", 2) Exit Sub End If @@ -63,8 +63,8 @@ Public Class usrCntlSeriendruck WordDoc = Nothing WordApp.Quit() Me.BringToFront() - txtErstattungAbfNr.Focus() - txtErstattungAbfNr.SelectAll() + txtErstattungAbfNr_neu.Focus() + txtErstattungAbfNr_neu.SelectAll() End If 'WordDoc.PrintOut() 'WordDoc.PrintOut() @@ -78,7 +78,7 @@ Public Class usrCntlSeriendruck End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnShowData.Click - If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then Exit Sub + If Not txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen Then Exit Sub If cbxErstSprache.Text = "" Then Exit Sub frmShowData.Show() @@ -138,7 +138,7 @@ Public Class usrCntlSeriendruck WordApp.Visible = True End Sub - Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr.KeyDown, txtErstattungAbfNrFiliale.KeyDown, txtErstattungAbfUnterNr.KeyDown, cbxErstSprache.KeyDown, txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale_neu.KeyDown, txtErstattungAbfUnterNr_neu.KeyDown + Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale.KeyDown, txtErstattungAbfUnterNr.KeyDown, cbxErstSprache.KeyDown, txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale_neu.KeyDown, txtErstattungAbfUnterNr_neu.KeyDown If e.KeyCode = Keys.Enter Then withPrint = cbxSofortDruck.Checked btnWord.PerformClick() @@ -146,9 +146,10 @@ Public Class usrCntlSeriendruck End Sub - Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr.TextChanged - txtErstattungAbfNr.BackColor = Color.White - txtErstattungAbfNr.ForeColor = Color.Red + Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr_neu.TextChanged + txtErstattungAbfNr_neu.BackColor = Color.White + txtErstattungAbfNr_neu.ForeColor = Color.Red + If NurZahlen(txtErstattungAbfNr_neu.Text) And NurZahlen(txtErstattungAbfNrFiliale_neu.Text) And NurZahlen(txtErstattungAbfUnterNr_neu.Text) Then 'Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("SELECT TOP 1 * FROM vwUStVErstattungsschreiben WHERE AbfertigungsNr=" & txtErstattungAbfNr.Text & " and FilialenNr =" & txtErstattungAbfNrFiliale.Text & " and UnterNr =" & txtErstattungAbfUnterNr.Text & " ") @@ -163,8 +164,9 @@ Public Class usrCntlSeriendruck Case Else : cbxErstSprache.SelectedIndex = 3 End Select Catch : End Try - txtErstattungAbfNr.BackColor = Color.White - txtErstattungAbfNr.ForeColor = Color.DarkGreen + + txtErstattungAbfNr_neu.BackColor = Color.White + txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen End If End If End Sub @@ -182,7 +184,7 @@ Public Class usrCntlSeriendruck cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÃœRKISCH", "TR")) cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU")) cbxErstSprache.SelectedIndex = 0 - txtErstattungAbfNr.Focus() + txtErstattungAbfNr_neu.Focus() End Sub Public Function NurZahlen(ByVal Text As String) As Boolean If Text.Length = 0 Then Return False