Fremdrechnungen, MDM-Zinsrechnung, etc,

2025-10-23 11:41:13 +02:00
parent 0cf0691ff8
commit 7c4794d385
8 changed files with 314 additions and 121 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -3,12 +3,9 @@ Imports System.Globalization
 Imports System.IO
 Imports System.Net
 Imports System.Web.UI.WebControls.Expressions
-Imports com.sun.org.apache.xpath.internal.operations
-Imports javax.print.attribute.standard
 Imports Microsoft.Office.Interop
 Imports s2industries.ZUGFeRD
 Imports VERAG_PROG_ALLGEMEIN
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON

 Public Class cFakturierung

@@ -2319,6 +2316,28 @@ Public Class cFakturierung
        If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
        If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False

+        If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then
+            rpt.lblLeistungNr.Visible = False
+            rpt.lblAnzahl.Visible = False
+            rpt.lblSteuerfrei.Visible = False
+            rpt.lblSteuerpflichtig.Visible = False
+
+            rpt.lblLeistungUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
+            rpt.lblLeistungUeberschrift.Text = "RechnungsNr"
+            rpt.lblAnzahlUeberschrift.Text = "Tage"
+            rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center
+            rpt.lblSteuerfreiUeberschrift.Text = "Zinsen p.a."
+            rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
+
+
+            rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True
+            rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True
+            rpt.lbl_onlyZR_VZUeberschrift.Visible = True
+            rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = True
+
+            rpt.txtLeistung.Visible = False
+        End If
+

        'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung

@@ -2610,14 +2629,15 @@ Public Class cFakturierung

                                                 If RECHNUNG.Firma_ID = 19 Then

+                                                     If rpt.lblSteuerbetrag.Text = "" Then rpt.lblSteuersatz.Text = ""
                                                     'rpt.lblSteuersatz.Visible = False
                                                     'rpt.lblSteuerbetrag.Visible = False

                                                     rpt.lblSteuerpflichtigGes.Visible = False
-                                                     rpt.lblSteuerfreiGes.Visible = False
-                                                     rpt.lblZwText.Visible = False
-                                                     rpt.lblZWSumme.Visible = False
-                                                 End If
+                                                         rpt.lblSteuerfreiGes.Visible = False
+                                                         rpt.lblZwText.Visible = False
+                                                         rpt.lblZWSumme.Visible = False
+                                                     End If


                                             End Sub
--- a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb
+++ b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb
@@ -103,10 +103,14 @@ Partial Public Class rptRechnungDruck_MDM
        Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
-        Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lbl_onlyZR_VZUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lbl_onlyZR_FaelligUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lbl_onlyZR_ReDatUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
        Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -194,10 +198,14 @@ Partial Public Class rptRechnungDruck_MDM
        CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lbl_onlyZR_VZUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lbl_onlyZR_ZahlungsDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lbl_onlyZR_FaelligUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -224,7 +232,7 @@ Partial Public Class rptRechnungDruck_MDM
        'Detail
        '
        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReport})
-        Me.Detail.Height = 0.369286!
+        Me.Detail.Height = 0.3901193!
        Me.Detail.KeepTogether = True
        Me.Detail.Name = "Detail"
        '
@@ -317,12 +325,12 @@ Partial Public Class rptRechnungDruck_MDM
        '
        Me.SubReport.CloseBorder = False
        Me.SubReport.Height = 0.1259843!
-        Me.SubReport.Left = 0.03307087!
+        Me.SubReport.Left = 0!
        Me.SubReport.Name = "SubReport"
        Me.SubReport.Report = Nothing
        Me.SubReport.ReportName = "SubReport1"
-        Me.SubReport.Top = 0.1732284!
-        Me.SubReport.Width = 7.442126!
+        Me.SubReport.Top = 0.1712599!
+        Me.SubReport.Width = 7.066142!
        '
        'PageFooter
        '
@@ -1216,11 +1224,89 @@ Partial Public Class rptRechnungDruck_MDM
        '
        'GroupHeader4
        '
-        Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerpflichtigUeberschrift, Me.lblLeistungUeberschrift, Me.lblAnzahlUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
+        Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_VZUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
        Me.GroupHeader4.Height = 1.627275!
        Me.GroupHeader4.KeepTogether = True
        Me.GroupHeader4.Name = "GroupHeader4"
        '
+        'lblLeistungUeberschrift
+        '
+        Me.lblLeistungUeberschrift.Height = 0.1511808!
+        Me.lblLeistungUeberschrift.HyperLink = Nothing
+        Me.lblLeistungUeberschrift.Left = 0.01455834!
+        Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
+        Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
+    "-set: 1"
+        Me.lblLeistungUeberschrift.Text = "Leistung"
+        Me.lblLeistungUeberschrift.Top = 1.415504!
+        Me.lblLeistungUeberschrift.Width = 0.9220559!
+        '
+        'lblSteuerfreiUeberschrift
+        '
+        Me.lblSteuerfreiUeberschrift.Height = 0.1511807!
+        Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
+        Me.lblSteuerfreiUeberschrift.Left = 5.512198!
+        Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
+        Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
+        Me.lblSteuerfreiUeberschrift.Top = 1.415504!
+        Me.lblSteuerfreiUeberschrift.Width = 1.554331!
+        '
+        'lbl_onlyZR_VZUeberschrift
+        '
+        Me.lbl_onlyZR_VZUeberschrift.Height = 0.1511808!
+        Me.lbl_onlyZR_VZUeberschrift.HyperLink = Nothing
+        Me.lbl_onlyZR_VZUeberschrift.Left = 5.522048!
+        Me.lbl_onlyZR_VZUeberschrift.Name = "lbl_onlyZR_VZUeberschrift"
+        Me.lbl_onlyZR_VZUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
+    "r-set: 1"
+        Me.lbl_onlyZR_VZUeberschrift.Text = "Verzugszinsen"
+        Me.lbl_onlyZR_VZUeberschrift.Top = 1.415354!
+        Me.lbl_onlyZR_VZUeberschrift.Width = 0.8169294!
+        '
+        'lbl_onlyZR_ZahlungsDatUeberschrift
+        '
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808!
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492913!
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift"
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
+    "-set: 1"
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlungsdatum"
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.415354!
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421!
+        '
+        'lbl_onlyZR_FaelligUeberschrift
+        '
+        Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808!
+        Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing
+        Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001969!
+        Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift"
+        Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
+    "-set: 1"
+        Me.lbl_onlyZR_FaelligUeberschrift.Text = "F<EFBFBD>llig"
+        Me.lbl_onlyZR_FaelligUeberschrift.Top = 1.415354!
+        Me.lbl_onlyZR_FaelligUeberschrift.Visible = False
+        Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945!
+        '
+        'lbl_onlyZR_ReDatUeberschrift
+        '
+        Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807!
+        Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing
+        Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9366142!
+        Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift"
+        Me.lbl_onlyZR_ReDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.lbl_onlyZR_ReDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
+    "-set: 1"
+        Me.lbl_onlyZR_ReDatUeberschrift.Text = "Rechnungsdatum"
+        Me.lbl_onlyZR_ReDatUeberschrift.Top = 1.416142!
+        Me.lbl_onlyZR_ReDatUeberschrift.Visible = False
+        Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354!
+        '
        'lblSteuerpflichtigUeberschrift
        '
        Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808!
@@ -1233,41 +1319,17 @@ Partial Public Class rptRechnungDruck_MDM
        Me.lblSteuerpflichtigUeberschrift.Top = 1.415504!
        Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
        '
-        'lblLeistungUeberschrift
-        '
-        Me.lblLeistungUeberschrift.Height = 0.1511808!
-        Me.lblLeistungUeberschrift.HyperLink = Nothing
-        Me.lblLeistungUeberschrift.Left = 0.01455834!
-        Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
-        Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
-        Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
-    "-set: 1"
-        Me.lblLeistungUeberschrift.Text = "Leistung"
-        Me.lblLeistungUeberschrift.Top = 1.415504!
-        Me.lblLeistungUeberschrift.Width = 3.366143!
-        '
        'lblAnzahlUeberschrift
        '
-        Me.lblAnzahlUeberschrift.Height = 0.1511808!
+        Me.lblAnzahlUeberschrift.Height = 0.1511807!
        Me.lblAnzahlUeberschrift.HyperLink = Nothing
-        Me.lblAnzahlUeberschrift.Left = 3.380701!
+        Me.lblAnzahlUeberschrift.Left = 3.459055!
        Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
        Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
    "r-set: 1"
        Me.lblAnzahlUeberschrift.Text = "Anzahl"
        Me.lblAnzahlUeberschrift.Top = 1.415504!
-        Me.lblAnzahlUeberschrift.Width = 0.5771656!
-        '
-        'lblSteuerfreiUeberschrift
-        '
-        Me.lblSteuerfreiUeberschrift.Height = 0.1511807!
-        Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
-        Me.lblSteuerfreiUeberschrift.Left = 5.512198!
-        Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
-        Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
-        Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
-        Me.lblSteuerfreiUeberschrift.Top = 1.415504!
-        Me.lblSteuerfreiUeberschrift.Width = 1.554331!
+        Me.lblAnzahlUeberschrift.Width = 0.4988112!
        '
        'Line4
        '
@@ -1599,10 +1661,14 @@ Partial Public Class rptRechnungDruck_MDM
        CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lbl_onlyZR_VZUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lbl_onlyZR_ZahlungsDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lbl_onlyZR_FaelligUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1635,11 +1701,11 @@ Partial Public Class rptRechnungDruck_MDM
    Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
    Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
    Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
-    Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
-    Private WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
-    Private WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
    Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
-    Private WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
    Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
    Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label
    Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
@@ -1731,4 +1797,8 @@ Partial Public Class rptRechnungDruck_MDM
    Public WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
    Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
    Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
+    Public WithEvents lbl_onlyZR_FaelligUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lbl_onlyZR_ReDatUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lbl_onlyZR_ZahlungsDatUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lbl_onlyZR_VZUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
 End Class
--- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb
+++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb
@@ -26,6 +26,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFaellig = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
        Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
        Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -35,6 +36,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        Me.lblTage = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.lblZinsen = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.lblVZ = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
        Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
        CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -44,6 +46,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -51,6 +54,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        CType(Me.lblTage, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'PageHeader
@@ -61,7 +65,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        'Detail
        '
        Me.Detail.CanGrow = False
-        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ})
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ, Me.txtFaellig})
        Me.Detail.Height = 0.1755249!
        Me.Detail.KeepTogether = True
        Me.Detail.Name = "Detail"
@@ -72,76 +76,95 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        Me.txtREnr.Left = 0.005119062!
        Me.txtREnr.Name = "txtREnr"
        Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
-        Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
+    "ar-set: 0"
        Me.txtREnr.Text = "-"
        Me.txtREnr.Top = 0!
-        Me.txtREnr.Width = 1.562204!
+        Me.txtREnr.Width = 0.8244095!
        '
        'txtReDat
        '
        Me.txtReDat.Height = 0.1338583!
-        Me.txtReDat.Left = 1.567323!
+        Me.txtReDat.Left = 0.9232284!
        Me.txtReDat.Name = "txtReDat"
        Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
-        Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
+    "ar-set: 0"
        Me.txtReDat.Text = "-"
        Me.txtReDat.Top = 0!
-        Me.txtReDat.Width = 1.562204!
+        Me.txtReDat.Width = 0.8657481!
        '
        'txtZE
        '
        Me.txtZE.Height = 0.1338583!
-        Me.txtZE.Left = 4.691732!
+        Me.txtZE.Left = 2.405118!
        Me.txtZE.Name = "txtZE"
        Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
-        Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
+    "ar-set: 0"
        Me.txtZE.Text = "-"
        Me.txtZE.Top = 0!
-        Me.txtZE.Width = 0.8539373!
+        Me.txtZE.Width = 0.9661418!
        '
        'txtReBetrag
        '
        Me.txtReBetrag.Height = 0.1338583!
-        Me.txtReBetrag.Left = 3.129528!
+        Me.txtReBetrag.Left = 3.948426!
        Me.txtReBetrag.Name = "txtReBetrag"
        Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
-        Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
+    "r-set: 0"
        Me.txtReBetrag.Text = "-"
        Me.txtReBetrag.Top = 0!
-        Me.txtReBetrag.Width = 1.562204!
+        Me.txtReBetrag.Width = 0.9708654!
        '
        'txtTage
        '
        Me.txtTage.Height = 0.1338583!
-        Me.txtTage.Left = 5.54567!
+        Me.txtTage.Left = 3.37126!
        Me.txtTage.Name = "txtTage"
        Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
-        Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
+    "ar-set: 0"
        Me.txtTage.Text = "-"
        Me.txtTage.Top = 0!
-        Me.txtTage.Width = 0.6039373!
+        Me.txtTage.Width = 0.5771654!
        '
        'txtZinsen
        '
        Me.txtZinsen.Height = 0.1338583!
-        Me.txtZinsen.Left = 6.149607!
+        Me.txtZinsen.Left = 6.319685!
        Me.txtZinsen.Name = "txtZinsen"
        Me.txtZinsen.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
-        Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
+    "r-set: 0"
        Me.txtZinsen.Text = "-"
        Me.txtZinsen.Top = 0!
-        Me.txtZinsen.Width = 0.6039373!
+        Me.txtZinsen.Width = 0.7374016!
        '
        'txtVZ
        '
        Me.txtVZ.Height = 0.1338583!
-        Me.txtVZ.Left = 6.753544!
+        Me.txtVZ.Left = 5.502756!
        Me.txtVZ.Name = "txtVZ"
        Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
-        Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
+    "ar-set: 0"
        Me.txtVZ.Text = "-"
        Me.txtVZ.Top = 0!
-        Me.txtVZ.Width = 0.6988189!
+        Me.txtVZ.Width = 0.8169292!
+        '
+        'txtFaellig
+        '
+        Me.txtFaellig.Height = 0.1338583!
+        Me.txtFaellig.Left = 1.788977!
+        Me.txtFaellig.Name = "txtFaellig"
+        Me.txtFaellig.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.txtFaellig.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
+    "ar-set: 0"
+        Me.txtFaellig.Text = "-"
+        Me.txtFaellig.Top = 0!
+        Me.txtFaellig.Width = 0.6161416!
        '
        'PageFooter
        '
@@ -150,10 +173,11 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        '
        'GroupHeader4
        '
-        Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ})
+        Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ, Me.Label1})
        Me.GroupHeader4.Height = 0.1433071!
        Me.GroupHeader4.KeepTogether = True
        Me.GroupHeader4.Name = "GroupHeader4"
+        Me.GroupHeader4.Visible = False
        '
        'lblReNr
        '
@@ -165,79 +189,99 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
    "har-set: 0"
        Me.lblReNr.Text = "RechnungsNr"
        Me.lblReNr.Top = 0!
-        Me.lblReNr.Width = 1.562205!
+        Me.lblReNr.Visible = False
+        Me.lblReNr.Width = 0.8244095!
        '
        'lblReDat
        '
        Me.lblReDat.Height = 0.1433071!
        Me.lblReDat.HyperLink = Nothing
-        Me.lblReDat.Left = 1.567323!
+        Me.lblReDat.Left = 0.8295276!
        Me.lblReDat.Name = "lblReDat"
        Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
    "har-set: 0"
        Me.lblReDat.Text = "Rechnungsdatum"
        Me.lblReDat.Top = 0!
-        Me.lblReDat.Width = 1.562205!
+        Me.lblReDat.Visible = False
+        Me.lblReDat.Width = 1.084646!
        '
        'lblReBetrag
        '
        Me.lblReBetrag.Height = 0.1433071!
        Me.lblReBetrag.HyperLink = Nothing
-        Me.lblReBetrag.Left = 3.129528!
+        Me.lblReBetrag.Left = 3.948426!
        Me.lblReBetrag.Name = "lblReBetrag"
        Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
    "har-set: 0"
-        Me.lblReBetrag.Text = "Rechnungsbetrag"
+        Me.lblReBetrag.Text = "Zahlungsbetrag"
        Me.lblReBetrag.Top = 0!
-        Me.lblReBetrag.Width = 1.562205!
+        Me.lblReBetrag.Visible = False
+        Me.lblReBetrag.Width = 1.554331!
        '
        'lblZahlungsdat
        '
        Me.lblZahlungsdat.Height = 0.1433071!
        Me.lblZahlungsdat.HyperLink = Nothing
-        Me.lblZahlungsdat.Left = 4.691732!
+        Me.lblZahlungsdat.Left = 2.405118!
        Me.lblZahlungsdat.Name = "lblZahlungsdat"
        Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
    "har-set: 0"
        Me.lblZahlungsdat.Text = "Zahlungsdatum"
        Me.lblZahlungsdat.Top = 0!
-        Me.lblZahlungsdat.Width = 0.8539371!
+        Me.lblZahlungsdat.Visible = False
+        Me.lblZahlungsdat.Width = 0.9661418!
        '
        'lblTage
        '
        Me.lblTage.Height = 0.1433071!
        Me.lblTage.HyperLink = Nothing
-        Me.lblTage.Left = 5.518111!
+        Me.lblTage.Left = 3.37126!
        Me.lblTage.Name = "lblTage"
        Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
    "har-set: 0"
        Me.lblTage.Text = "Tage"
        Me.lblTage.Top = 0!
-        Me.lblTage.Width = 0.6314961!
+        Me.lblTage.Visible = False
+        Me.lblTage.Width = 0.5771654!
        '
        'lblZinsen
        '
        Me.lblZinsen.Height = 0.1433071!
        Me.lblZinsen.HyperLink = Nothing
-        Me.lblZinsen.Left = 6.149607!
+        Me.lblZinsen.Left = 6.319685!
        Me.lblZinsen.Name = "lblZinsen"
        Me.lblZinsen.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
    "har-set: 0"
-        Me.lblZinsen.Text = "Zinsen"
+        Me.lblZinsen.Text = "Zinsen p.a."
        Me.lblZinsen.Top = 0!
-        Me.lblZinsen.Width = 0.6039373!
+        Me.lblZinsen.Visible = False
+        Me.lblZinsen.Width = 0.7374016!
        '
        'lblVZ
        '
        Me.lblVZ.Height = 0.1433071!
        Me.lblVZ.HyperLink = Nothing
-        Me.lblVZ.Left = 6.753544!
+        Me.lblVZ.Left = 5.502756!
        Me.lblVZ.Name = "lblVZ"
        Me.lblVZ.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
    "har-set: 0"
        Me.lblVZ.Text = "Verzugszinsen"
        Me.lblVZ.Top = 0!
-        Me.lblVZ.Width = 0.6988189!
+        Me.lblVZ.Visible = False
+        Me.lblVZ.Width = 0.8169292!
+        '
+        'Label1
+        '
+        Me.Label1.Height = 0.1433071!
+        Me.Label1.HyperLink = Nothing
+        Me.Label1.Left = 1.914173!
+        Me.Label1.Name = "Label1"
+        Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
+    "har-set: 0"
+        Me.Label1.Text = "F<EFBFBD>llig"
+        Me.Label1.Top = 0!
+        Me.Label1.Visible = False
+        Me.Label1.Width = 0.4909448!
        '
        'GroupFooter4
        '
@@ -287,6 +331,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit()
@@ -294,6 +339,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        CType(Me.lblTage, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
@@ -315,4 +361,6 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
    Private WithEvents lblTage As GrapeCity.ActiveReports.SectionReportModel.Label
    Private WithEvents lblZinsen As GrapeCity.ActiveReports.SectionReportModel.Label
    Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents txtFaellig As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
 End Class
--- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
+++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
@@ -29,15 +29,18 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
            txtTage.Text = ""
            txtZinsen.Text = ""
            txtVZ.Text = ""
+            txtFaellig.Text = ""

            If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
            If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
            If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString()

+            If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString
+
            If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
            If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
            If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString()
-            If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString
+            If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString()

        End If
    End Sub
@@ -55,16 +58,17 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
        dt.Columns.Add("clmnTage")
        dt.Columns.Add("clmnZinsen")
        dt.Columns.Add("clmnVZ")
+        dt.Columns.Add("clmnFaellig")

        RECHNUNG.ORDER_POSITIONEN()

        For Each POS In RECHNUNG.POSITIONEN

            Dim dtTemp As DataTable
-            dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
+            dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")

            For Each rg As DataRow In dtTemp.Rows
-                dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"))
+                dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
            Next

        Next
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -2058,14 +2058,24 @@ Public Class usrCntlFaktAbrechnung
                Case 19 'MDM

                    Select Case RECHNUNG.RechnungSprache
-                        Case "DE" : RECHNUNG.Anlage_1 = "Rechnung" : RECHNUNG.Anlage_2 = "Lief.-Rechn." : RECHNUNG.Anlage_3 = "POS-Liste"
-                        Case "EN" : RECHNUNG.Anlage_1 = "Invoice" : RECHNUNG.Anlage_2 = "Supplier Invoice(s)" : RECHNUNG.Anlage_3 = "Item List"
-                        Case "RO" : RECHNUNG.Anlage_1 = "Factura" : RECHNUNG.Anlage_2 = "Factura furnizorului" : RECHNUNG.Anlage_3 = "Lista articolelor"
+                        Case "DE"
+                            If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Rechnung"
+                            If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Lief.-Rechn."
+                            If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "POS-Liste"
+                        Case "EN"
+                            If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Invoice"
+                            If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Supplier Invoice(s)"
+                            If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "Item List"
+                        Case "RO"
+                            If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Factura"
+                            If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Factura furnizorului"
+                            If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "Lista articolelor"
                    End Select


                    RECHNUNG.Anlage_4 = ""
-                    RECHNUNG.Anlage_5 = ""
+            RECHNUNG.Anlage_5 = ""
+

                Case Else
                    If SPEDBUCH IsNot Nothing Then
@@ -2349,8 +2359,12 @@ Public Class usrCntlFaktAbrechnung
                RECHNUNG.Vorkasse = kdFirmaRechnungAn.KdData_KUNDE.Vorkasse
            End If

+            If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.Firma_ID = 19 Then
+                RECHNUNG.Nettozahlungsziel = IIf(kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel > 14, 14, kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel)
+            Else
+                RECHNUNG.Nettozahlungsziel = kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel
+            End If

-            RECHNUNG.Nettozahlungsziel = kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel
        End If


@@ -3981,14 +3995,20 @@ Nächste_Textzeile_lesen:
        If vbYes = MsgBox("Möchten Sie diese ungedruckte Rechnung wirklich löschen?", vbYesNoCancel) Then
            If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Status = 0 Then
                If RECHNUNG.DELETE() Then
-                    If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 Then
-                        Dim UST_ID As Integer = -1
-                        UST_ID = CInt(SQL.getValueTxtBySql("SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL",,, 0))
-                        If UST_ID > 0 Then
-                            SQL.doSQL("UPDATE [tblUStVPositionen] SET UStVPo_VZ_RKID = NULL WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL")
-                            SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & UST_ID & " )", "FMZOLL")
+                    If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing Then
+                        If SPEDBUCH.FilialenNr = 4817 Then
+                            Dim UST_ID As Integer = -1
+                            UST_ID = CInt(SQL.getValueTxtBySql("SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL",,, 0))
+                            If UST_ID > 0 Then
+                                SQL.doSQL("UPDATE [tblUStVPositionen] SET UStVPo_VZ_RKID = NULL WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL")
+                                SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & UST_ID & " )", "FMZOLL")
+                            End If
+
+                        ElseIf SPEDBUCH.FilialenNr = 8001 Then
+                            SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET RK_ID = NULL, verrechnet = NULL  WHERE isnull(RK_ID,0) =" & RECHNUNG.RK_ID, "FMZOLL")
                        End If
                    End If
+
                End If
                RaiseEvent EVENT_DELETED()
            End If
--- a/SDL/buchhaltung/usrCntlBH.vb
+++ b/SDL/buchhaltung/usrCntlBH.vb
@@ -859,7 +859,7 @@ Public Class usrCntlBH
                AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis 
                AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0
                
-                ORDER BY op_debitor.i_personenkonto, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000'), op_debitor.c_urbelegid"
+                ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')"


            Dim dt = SQL.loadDgvBySql(sqlStr_FIBU, "FIBU")
@@ -895,6 +895,7 @@ Public Class usrCntlBH
                            zins.belegDatum = r.Item("Belegdatum")
                            zins.zahlungsBetrag = r.Item("Zahlungsbetrag")
                            zins.zahlungDatum = r.Item("Zahlungsdatum")
+                            zins.faelligkeitsDatum = CDate(r.Item("Belegdatum")).AddDays(CInt(r.Item("ZZinTage")))
                            zins.zahlungsperiode_start = CDate(txtZRvon.Text).ToShortDateString
                            zins.zahlungsperiode_ende = CDate(txtZRbis.Text).ToShortDateString
                            zins.SAVE()
@@ -975,7 +976,7 @@ Public Class usrCntlBH

    End Function

-    Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer)
+    Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef Fusstext As String)
        Try

            If KdNr = "" Then Return False
@@ -1035,7 +1036,6 @@ Public Class usrCntlBH
            RG.Vorlageprovision_Proz = KD.Vorlageprovision
            RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
            RG.RechnungSprache = "DE"
-            RG.Packstücke_und_Warenbezeichnung = ""

            RG.Anlage_2 = ""
            RG.Anlage_3 = ""
@@ -1043,11 +1043,13 @@ Public Class usrCntlBH
            RG.Anlage_5 = ""
            RG.Anlage_6 = ""

-            RG.Text = ""
-            RG.EMailRechnungstext = Nothing ' ""
+            RG.Packstücke_und_Warenbezeichnung = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & SPEDBUCH.Vermerk
+            'RG.EMailRechnungstext = Fusstext

-
-            RG.Nettozahlungsziel = KD.Zahlungsziel
+            If Not IsDBNull(KD.Zahlungsziel) AndAlso IsNumeric(KD.Zahlungsziel) Then
+                Dim Zahlungsziel As Integer = CInt(KD.Zahlungsziel)
+                RG.Nettozahlungsziel = IIf(Zahlungsziel > 14, 14, KD.Zahlungsziel)
+            End If

            RG.SteuerpflichtigerGesamtbetrag = 0
            RG.SteuerfreierGesamtbetrag = 0
@@ -1216,13 +1218,15 @@ Public Class usrCntlBH

            Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL")
            If dtfehlendeOfferten.Rows.Count > 0 Then
-                MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & "Vorgang wird abgebrochen!")
-                cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True)
-                Exit Sub
+                If Not vbYes = MsgBox(MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel)) Then
+                    cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True)
+                    Exit Sub
+                End If
+
            End If


-            If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then
+                If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then


                For Each R In dt_Main.Rows
@@ -1230,13 +1234,17 @@ Public Class usrCntlBH
                    Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString
                    Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString

-                    Dim vermerk As String = "Abrechnungsperiode von " & startDate & " bis " & EndDate
+                    Dim vermerk As String = "Zahlungen vom " & startDate & " bis " & EndDate
+                    Dim Fußtext As String = "Sehr geehrte Damen und Herren," & vbNewLine & "
+                                              Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & "
+                                              Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & "
+                                              Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen."

                    Dim verarbOK As Boolean = True
                    Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
                    Dim RK_ID As Integer = -1
                    If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, Now(), vermerk) Then verarbOK = False
-                    If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID) Then verarbOK = False
+                    If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext) Then verarbOK = False

                    If verarbOK Then
                        SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET [verrechnet]=GETDATE(), RK_ID = " & RK_ID & " WHERE [verrechnet] Is null And kundenNr='" & R("kundenNr") & "'  ", "FMZOLL")
--- a/SDL/mdm/usrcntlFremdrechnungen.vb
+++ b/SDL/mdm/usrcntlFremdrechnungen.vb
@@ -800,7 +800,13 @@ Public Class usrcntlFremdrechnungen

                Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked)

-                createEmail(kvp.Key, TextHTMLtable, pdflist)
+                If Not cbxMailoeffnen.Checked And Not pdflist.Any() Then
+
+                Else
+                    createEmail(kvp.Key, TextHTMLtable, pdflist)
+
+                End If
+

            Next

@@ -935,10 +941,14 @@ Public Class usrcntlFremdrechnungen
                Lieferant = aktLieferant
            End If

-            If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Continue For 'abbruchbedingung -> nächste Zeile
+

            Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True)

+            If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then
+                sendÍnvoice = True 'dann immer mitschicken!
+            End If
+
            'ORIGINAL-RECHNUNG senden wenn:
            If onlyRelevantInvioces Then

@@ -994,10 +1004,6 @@ Public Class usrcntlFremdrechnungen
                        TextHTMLtable &= "<td><b>" & r.Item("Land") & "</b></td>"
                        TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>"

-
-
-
-
                        Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId"))
                        If daId > 0 Then
                            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
@@ -1012,8 +1018,6 @@ Public Class usrcntlFremdrechnungen

                    Next

-
-
                Else
                    If sendÍnvoice Then
                        TextHTMLtable &= "<tr>"
@@ -1127,6 +1131,22 @@ Public Class usrcntlFremdrechnungen

        If cbxMailoeffnen.Checked Then
            Try
+
+                Dim oAccount As Outlook.Account
+                Dim accountToSent = "mmdabrechnung@verag.ag"
+
+                If outl.Session.Accounts.Count > 0 Then
+                    For Each oAccount In outl.Session.Accounts
+
+                        If oAccount.SmtpAddress = accountToSent Then
+                            Mail.SendUsingAccount = oAccount
+                            Exit For
+                        End If
+                    Next
+                End If
+
+
+
                Mail.Display()
            Catch ex As Exception
                MsgBox(ex.Message)
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb
@@ -20,6 +20,8 @@ Public Class cMDMZinsberechnung
    Property zahlungsperiode_start As Object = Nothing
    Property zahlungsperiode_ende As Object = Nothing

+    Property faelligkeitsDatum As Object = Nothing
+
    Public hasEntry = False

    Dim SQL As New SQL
@@ -53,6 +55,7 @@ Public Class cMDMZinsberechnung
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsBetrag", zahlungsBetrag))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_start", zahlungsperiode_start))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_ende", zahlungsperiode_ende))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("faelligkeitsDatum", faelligkeitsDatum))


        Return list