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