neu

SDL/Fakturierung/cFakturierung.vb

@@ -883,8 +883,11 @@ Public Class cFakturierung
             rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty)
 
             rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim
-            If RECHNUNG.RechnungsDatum IsNot Nothing Then
+
+            If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
                 rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
+            Else
+                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
             End If
 
             '  REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern).
@@ -1048,6 +1051,13 @@ Public Class cFakturierung
                         If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then
                             rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau")
                             rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString
+
+                            If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck
+                                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
+                            Else
+                                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
+                            End If
+
                         Else
                             MsgBox("Fehler bei der Vergabe der Rg-Nr.!")
                             Return False
@@ -2164,6 +2174,7 @@ Public Class cFakturierung
             End If
             rpt.txtVermerk.Text = strText
 
+
             rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "")
             rpt.lblRgNr.Text = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau")
             rpt.lblRgDatum.Text = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau")