edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Layout ZE/Mahnung

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-22 13:51:43 +02:00
parent efb5b94635
commit 851dbb4912
4 changed files with 129 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.0.4")>
<Assembly: AssemblyFileVersion("1.3.0.4")>
<Assembly: AssemblyVersion("1.3.0.5")>
<Assembly: AssemblyFileVersion("1.3.0.5")>

12
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -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)

199
SDL/buchhaltung/rptMahnung.Designer.vb generated
View File

@@ -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

2
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -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